30 PRINT"[147]"SPC(14)"SOUND-A-RAMA[146]"
40 PRINT"IF YOU'RE USING THE DOS WEDGE, PLEASE   DISABLE IT BY ENTERING"
50 PRINTSPC(18)"@Q"
60 PRINT"THIS WILL MAKE THE PROGRAM RUN FASTER."
70 PRINT"THEN ENTER":PRINTSPC(15)"RUN 110"
80 END
100 REM SOUND-A-RAMA BY BRUCE BARTLETT      OCT. 1984
110 GOTO 1520
120 REM ***COMPUTER TAPE RECORDER--MAIN LOOP***
130 GETC$(N):IFC$(N)=""THEN 130
140 IFC$(N)="P"THENIFN>UNTHENPRINT"[147]PLAYING...":M=N:POKES+4,16:N=1:GOTO 180
150 IFC$(N)="M"THENRUN110
160 POKES+F,XT:D(N-UN)=TI:TI$="000000":POKES+F,SE:POKES+UN,TN*VAL(C$(N))
170 N=N+UN:GOTO 130
180 POKES+F,SE:POKES+UN,TN*VAL(C$(N)):FORT=UNTOTT*D(N):NEXT:POKES+F,XT
190 N=N+UN:IFN=MTHENRUN1860
200 GOTO 180
210 REM  ***DRUM MACHINE--MAIN LOOP***
220 GETA$
230 IFA$="M"THENPOKE650,0:RUN110
240 ONVAL(A$)GOTO 270, 300, 330, 360, 390, 420
250 GOTO 220
260 REM ***HI HAT***
270 POKEFU,TF:POKEFL,TF:POKEAD,FV:POKESR,FV
280 POKEW,WN:FORT=UNTOFY:NEXT:POKEW,WE:GOTO 220
290 REM ***SNARE***
300 POKEFU,SY:POKEFL,.:POKEAD,.:POKESR,TV
310 POKEW,WN:FORT=UNTOFY:NEXT:POKEW,WE:GOTO 220
320 REM ***HI TOM***
330 POKEFU,ET:POKEFL,.:POKEAD,.:POKESR,TN:POKEV,TL:POKEV,FT
340 POKEW,SE:FORT=UNTOFY:NEXT:POKEW,XT:GOTO 220
350 REM ***LOW TOM***
360 POKEFU,SX:POKEFL,.:POKEAD,.:POKESR,TN:POKEV,TL:POKEV,FT
370 POKEW,SE:FORT=UNTOFY:NEXT:POKEW,XT:GOTO 220
380 REM ***KICK DRUM***
390 POKEFU,TE:POKEFL,. :POKEAD,.:POKESR,TR:POKEV,TH:POKEV,FT
400 POKEW,SE:FORT=UNTOFY:NEXT:POKEW,XT:GOTO 220
410 REM ***CYMBAL***
420 POKEFU(2),TF:POKEFL(2),TF:POKEAD(2),NN:POKESR(2),NN
430 POKEW(2),WN:FORT=UNTOFY:NEXT:POKEW(2),WE:GOTO 220
440 REM ***WINDING DOWN RECORD***
450 D=60
460 FORN=1TO1.75STEP.25:POKEW,33:POKEW,17:POKEFU,30*N-.04*D:FORT=1TOD:NEXT
470 D=D*1.05
480 IFD>700THENFORF=16TO0STEP-.08:POKEFU,F:NEXT:POKEW,16:GOTO 1760
490 NEXTN
500 POKEW,16:GOTO 460
510 REM ***PULVERIZER***
520 POKEW,19
530 POKESU,32
540 FORN=1TO20
550 FORF=255TO1STEP-N:POKEFU,F:NEXTF
560 NEXTN
570 POKEW,18
580 GOTO1760
590 REM ***DISINTEGRATOR***
600 POKESL,67:POKESU,12
610 POKEW,21
620 FORR=1TO3:FORN=1TO40
630 FORF=0TO255STEPN+5:POKEFU,F:NEXTF
640 NEXTN,R
650 POKEW,20:GOTO 1760
660 REM ***OLD WASHING MACHINE***
670 FORN=1TO20
680 FORF=1TO64
690 POKEW,17:POKEFU,F:FORT=1TO15:NEXT:POKEW,32:FORT=1TO5:NEXT
700 F=F*2:NEXTF,N:GOTO 1760
710 REM ***ENERGY LEVELS***
720 POKEAD,9:POKESR,64+12
730 POKESU,3:POKESL,220
740 POKEFL,10
750 POKEW,21
760 FORT=1TO2500:POKEFU,T/100:NEXT
770 POKEW,20:GOTO 1760
780 REM ***NERVOUS***
790 POKEAD,63:POKEFU,4:POKEFL,10:POKESU,10
800 POKEW,21
810 FORN=1TO25
820 FORF=0TO255STEP20:POKESL,F:NEXTF
830 FORF=255TO0STEP-20:POKESL,F:NEXTF
840 NEXTN
850 POKEW,20:GOTO 1760
860 REM ***SPROING***
870 POKESR,15*16+9
880 POKEW,33:POKEFU,3:FORT=1TO150:NEXT
890 POKEFU,67:POKEW,19
900 FORN=1TO50
910 FORF=0TO50STEPN:POKESU,F:NEXTF,N
920 POKEW,18:FORT=1TO500:NEXT:GOTO 1760
930 REM ***FORCE FIELD***
940 POKEAD,13*16+15:POKESR,15*16+15
950 POKESU,3:POKESL,220
960 POKEFU,23:POKEFL,10:POKEW,21
970 FORT=1TO5000:NEXT:FORL=15TO1STEP-.05:POKEV,L:NEXT
980 POKEW,0:FORT=1TO500:NEXT:POKEV,15:GOTO 1760
990 REM ***INVOLUTION***
1000 POKEV,15+32:POKES+23,239
1010 POKEW,33
1020 FORSP=10TO255
1030 FORF=255TO0STEP-SP:POKEFU,F:POKES+22,F:NEXT
1040 NEXTSP
1050 POKEW,32:POKES+23,0:GOTO 1760
1060 REM ***AVIARY***
1070 FORLOOP=1TO2:POKEAD,119:FORN=1TO15:POKEW,17
1080 FORF=INT(RND(.)*50)+50TOINT(RND(.)*150)+50STEP2:POKEFU,F:NEXTF:POKEW,16
1090 NEXTN
1100 POKEV,12:POKEAD,15
1110 POKEW,17:FORN=1TOINT(RND(1)*10)+8:FORF=50TO200STEP20:POKEFU,F
1120 NEXTF,N
1130 FORN=1TOINT(RND(1)*10)+8:FORF=50TO200STEP10:POKEFU,F
1140 NEXTF,N
1150 POKEW,16:POKEV,15:NEXTLOOP:GOTO 1760
1160 REM ***GHOST***
1170 FORN=1TO2
1180 FORFS=100TO0STEP-5:POKEW,17
1190 FORF=30TO5STEP-2:POKEFU,F+FS:NEXT
1200 FORF=5TO30STEP2:POKEFU,F+FS:NEXT
1210 POKEW,16:NEXTFS,N
1220 POKEW,16:GOTO 1760
1230 REM ***SONG OF SATURN***
1240 POKEAD,16*11:POKESR,16*15+11:POKES+23,239:POKEV,15+32
1250 FORN=1TO10:POKEFU,INT(RND(1)*10)+1
1260 FORSW=0TOINT(RND(1)*200):POKEW,129:POKES+22,SW:NEXTSW
1270 POKEW,128:FORT=1TO400:NEXT
1280 NEXTN
1290 FORT=1TO1500:NEXT:POKES+23,0:POKEV,15:GOTO 1760
1300 REM ***KETCHUP SQUIRTS***
1310 POKEAD,15:POKES+23,239:POKEV,15+32
1320 FORN=1TO10
1330 POKEW,33
1340 FORSW=0TO150STEPINT(RND(1)*20)+3
1350 POKES+22,SW:POKEFU,INT(RND(1)*10):NEXT
1360 POKEW,32:FORT=1TO400:NEXT
1370 NEXTN
1380 POKES+23,0:POKEV,15:GOTO 1760
1390 REM ***ELF LAUGH***
1400 FORL=1TO3:F=L*10+50
1410 FORN=1TO10:POKEW,33
1420 POKEFU,F:FORT=1TO3:NEXT:POKEW,128:FORT=1TO60:NEXT
1430 F=F-5
1440 NEXTN,L
1450 GOTO 1760
1460 REM ***THROB***
1470 POKEFU,1
1480 FORF=255TO180STEP-.06
1490 POKEFL,F:POKEW,33:POKEW,17:NEXT
1500 POKEW,32:GOTO 1760
1510 REM ***INITIALIZATION***
1520 PRINT"[147]":POKE53281,0:POKE53280,10
1530 S=54272:FORL=0TO24:POKES+L,.:NEXT
1540 V=S+24:W=S+4:FU=S+1:FL=S:AD=S+5:SR=S+6:SL=S+14:SU=S+15:POKEV,15
1550 W(2)=S+11:FU(2)=S+8:FL(2)=S+7:AD(2)=S+12:SR(2)=S+13
1560 PRINTSPC(10)"***[158]SOUND-A-RAMA[146]***[154]"
1570 PRINT:PRINT
1580 PRINT"A[146] COMPUTER TAPE RECORDER
1590 [153]"BWAIT DRUM MACHINE"
1600 [153]"CWAIT WINDING DOWN RECORD"
1610 [153]"DWAIT PULVERIZER"
1620 [153]"EWAIT DISINTEGRATOR"
1630 [153]"FWAIT OLD WASHING MACHINE"
1640 [153]"GWAIT ENERGY LEVELS"
1650 [153]"HWAIT NERVOUS"
1660 [153]"IWAIT SPROING"
1670 [153]"JWAIT FORCE FIELD"
1680 [153]"KWAIT INVOLUTION"
1690 [153]"LWAIT AVIARY"
1700 [153]"MWAIT GHOST"
1710 [153]"NWAIT SONG OF SATURN"
1720 [153]"OWAIT KETCHUP SQUIRTS"
1730 [153]"PWAIT ELF LAUGH"
1740 [153]"QWAIT THROB"
1750 [153]"OPEN     TYPE THE LETTER OF YOUR CHOICECONT"
1760 [151]FU,0:[151]FL,0:[151]AD,15:[151]SR,0
1770 [139]A[177]0[175]A[179]18[167][153]"":[129]N[178]1[164]A[170]3:[153]:[130]:[153]"CONT"[199](A[170]64)"WAIT"
1780 [161]A$:[139]A$[178]""[167]1780
1790 A[178][198](A$)[171]64:[139]A[179]1[176]A[177]17[167] 1780
1800 [153]"":[129]N[178]1[164]A[170]3:[153]:[130]:[153]"SYS"[199](A[170]64)"WAIT"
1810 [139]A[178]16[167] 1400
1820 [139]A[178]17[167] 1470
1830 [145]A[137]1860,1920,450,520,600,670,720,790,870,940,1000,1070,1170,1240,1310
1840 [137] 1780
1850 [143] ***COMPUTER TAPE RECORDER INITIALIZATION***
1860 [134]C$(500),D(500):SE[178]17:XT[178]16:UN[178]1:F[178]4:TN[178]10:TT[178]13:N[178]1:S[178]54272:[151]S[170]5,9
1870 [151]53281,9:[151]53280,4:[153]"LOAD"[166]8)"SYSCOMPUTER TAPE RECORDERWAIT"
1880 [153]"OPENPLAY MUSIC ON KEYS 1-9.":[153]"HIT SPACEWAIT WHEN DONE."
1890 [153]"HIT 'P' TO PLAY THE RECORDING."
1900 [153]"HIT 'M' TO RETURN TO MAIN MENU.":[137] 130
1910 [143] ***DRUM MACHINE INITIALIZATION***
1920 TF[178]255:UN[178]1:TW[178]2:NN[178]9:FV[178]5:FY[178]50:SE[178]17:XT[178]16:WN[178]129:WE[178]128
1930 SY[178]60:TV[178]245:ET[178]8:TL[178]12:FT[178]15:SX[178]6:TN[178]249:TR[178]244:TH[178]13:TE[178]3:[151]650,128
1940 [151]53281,4:[151]53280,6:[153]"LOAD"[166]13)"SYSDRUM MACHINEWAIT"
1950 [153]"1=HI HAT":[153]"2=SNARE":[153]"3=HI TOM":[153]"4=LOW TOM"
1960 [153]"5=KICK DRUM":[153]"6=CYMBAL":[153]"M = MAIN MENU"
1970 [137] 220