10 HOME 
20 PRINT CHR$ (4);"BLOAD MEGASET.SYSTEM,A$8000,TSYS"
30 PRINT "Slot number of MEGA Audio card (1-7)? ";
40 GET CARDSLOT$:CARDSLOT = ASC (CARDSLOT$) - 48
50 POKE 32801,192 + CARDSLOT
55 PRINT ""
60 PRINT "Each of the following slot numbers must be unique."
70 FOR I = 33156 TO 33162: POKE I,0: NEXT 
80 PRINT "Slot number of Primary Mockingboard (1-7 or 0 to disable)? ";
90 GET PMB$:PMB = ASC (PMB$) - 48
95 PRINT ""
100 IF PMB > 0 THEN POKE 33155 + PMB,1
110 PRINT "Slot number of Secondary Mockingboard (1-7 or 0 to disable)? ";
120 GET SMB$:SMB = ASC (SMB$) - 48
125 PRINT ""
130 IF SMB > 0 THEN POKE 33155 + SMB,2
140 PRINT "Slot number of ALF (1-7 or 0 to disable)? ";
150 GET ALF$:ALF = ASC (ALF$) - 48
155 PRINT ""
160 IF ALF > 0 THEN POKE 33155 + ALF,3
170 PRINT "Slot number of SAM (1-7 or 0 to disable)? ";
180 GET SAM$:SAM = ASC (SAM$) - 48
185 PRINT ""
190 IF SAM > 0 THEN POKE 33155 + SAM,4
200 PRINT "Output: (S)tereo or (M)ono? ";
210 GET STEREO$
215 PRINT ""
220 IF STEREO$ = "M" THEN POKE 33163,255
230 PRINT "Light show? (Y/N) ";
240 GET LIGHT$
245 PRINT ""
250 IF LIGHT$ = "Y" THEN POKE 33164,255
255 IF LIGHT$ = "y" THEN POKE 33164,255
260 PRINT "Volume: 0-15 ";
265 INPUT VOLUME$
270 VOLUME = VAL (VOLUME$)
280 POKE 33165,VOLUME
290 PRINT CHR$ (4);"BSAVE MEGASET.SYSTEM,A$8000,L398,TSYS"
295 PRINT "Parameters saved."