Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_17.ADF » PROGS/SOUND
PROGS/SOUND
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_17.ADF |
Filename: | PROGS/SOUND |
Read OK: | ✔ |
File size: | 293F bytes |
Load address: | FFFF1D00 |
Exec address: | FFFF8023 |
File contents
1 REM ONLY 15 TITLES WILL FIT ON A SCREEN AT ONCE.THE B% VALUES ALLOW THE PROG TO MOVE TO NEXT SCREEN WHEN THE PRESENT ONE HAS BEEN EXPLORED. THE VDU COMMANDS AT LINE 93 MOVE CURSOR TO START OF LINE. 2REM******************************** TO GET THE LINES THAT MADE THE SOUND LIST: SOUND NUMBER*100 TO NEXT SOUND NUMBER*100-1 *************************************** 4 MODE4 5 *FX4,1 6 PROCscreen_setup:PROCinfo_window 7 CLS:PRINT'" 1=WAILING BUGS"'" 2=POLICE SIREN"'" 3=UP,UP AND AWAY"'" 4=CRAZY MACHINERY"'" 5=ATTACK OF THE MUTANT FLIES"'" 6=SCORE A HIT"'" 7=CRASH"'" 8=IN THE FACTORY"'" 9=GOING UP"'"10=FANFARE"'"11=RED ALERT"'"12=ELECTRIC SPARK" 8 PRINT"13=SWALLOWED IN ONE GULP"'"14=HAR-HAR"'"15=CAR STARTING" 9 PROCinput_window:PRINT'"PRESS SPACE BAR TO CONTINUE LIST"''"PRESS UP ARROW FOR PREVIOUS SCREEN"''"PRESS COPY FOR SOUND FROM THIS SCREEN":B%=15 10 IF INKEY(-99) THEN GOTO15 ELSE IF INKEY(-106) GOTO 87ELSE IF INKEY(-58) GOTO 73 ELSE GOTO10 15 PROCinfo_window:PRINT'"16=ROAD WORKS"'"17=ALARM"'"18=WARSHIPS SIREN"'"19=MACHINE GUN"'"20=THE MARTIANS APPROACH"'"21=ALARM CLOCK"'"22=PHASER FIRE"'"23=LOST"'"24=TILT"'"25=MORE MONEY PHONE"'"26=DESCENDING"'"27=HANGOVER" 20 PRINT"28=CUT OFF PHONE"'"29=BIRD TWEET"'"30=SPACE SATELLITE(BEEPING)" 22 PROCinput_window:PRINT'"PRESS SPACE BAR TO CONTINUE LIST"''"PRESS UP ARROW FOR PREVIOUS SCREEN"''"PRESS COPY FOR SOUND FROM THIS SCREEN":B%=30 25 IF INKEY(-99) THEN GOTO30 ELSE IF INKEY(-106) GOTO 87 ELSE IF INKEY(-58) GOTO 3 ELSE GOTO25 30 PROCinfo_window:PRINT'"31=BIRD SONG"'"32=SHOTS FROM A RAY GUN"'"33=HUGE SPLASH"'"34=RADIATION"'"35=ESCALATOR"'"36=PAYTONE"'"37=ALIEN SWARM"'"38=CRAZY BIRDS"'"39=ENGAGED TONE"'"40=EXCHANGE BUSY TONE"'"41=PINBALL"'"42=CUT OFF PHONE" 35 PRINT"43=CAR ALARM"'"44=ELECTRIC ALARM CLOCK"'"45=A TV GONE WRONG" 36 PROCinput_window 37 PRINT'"PRESS SPACE BAR TO CONTINUE LIST"''"PRESS UP ARROW FOR PREVIOUS SCREEN"''"PRESS COPY FOR SOUND FROM THIS SCREEN":B%=43 40 IF INKEY(-99) THEN GOTO43 ELSE IF INKEY(-106) GOTO 87 ELSE IF INKEY(-58) GOTO 15 ELSE GOTO40 43 PROCinfo_window 45 PRINT'"46=MODERN MUSIC"'"47=ALIEN MONSTER UNDER ATTACK"'"48=R2D2"'"49=A TANK MOVING"'"50=SOLDIERS ON MARCH"'"51=PIANO SCALE"'"52=WASP"'"53=CRASH LANDING"'"54=MUSIC OF SPHERES"'"55=BOING"'"56=HIGH DIVE"'"57=SINGING ALIEN" 50 PRINT"58=FOGHORN"'"59=DOG WHISTLE"'"60=TOO MANY CHOCOLATES" 51 PROCinput_window 52 PRINT'"PRESS SPACE BAR TO CONTINUE LIST"''"PRESS UP ARROW FOR PREVIOUS SCREEN"''"PRESS COPY FOR SOUND FROM THIS SCREEN":B%=57 55 IF INKEY(-99) THEN GOTO57 ELSE IF INKEY(-106) GOTO 87 ELSE IF INKEY(-58) GOTO 30 ELSE GOTO55 57 PROCinfo_window 60 PRINT'"61=ALIEN LASER"'"62=OVERLOAD"'"63=AIR LEAK"'"64=DIZZY DALEKS"'"65=PERCUSSION"'"66=OLD BANGER"'"67=TRACTOR"'"68=TELEPHONE RINGING"'"69=CRASH,WINDOW"'"70=FOOTSTEPS"'"71=CAR STARTING"'"72=WARSHIP SIREN"'"73=BUZZY BEES" 65 PRINT"74=DENTISTS DRILL"'"75=MISTUNED TELEVISION" 66 PROCinput_window 67 PRINT'"PRESS SPACE BAR TO CONTINUE LIST"''"PRESS UP ARROW FOR PREVIOUS SCREEN"''"PRESS COPY FOR SOUND FROM THIS SCREEN":B%=73 70 IF INKEY(-99) THEN GOTO73 ELSE IF INKEY(-106) GOTO 87 ELSE IF INKEY(-58) GOTO 43 ELSE GOTO70 73 PROCinfo_window 75 PRINT'"76=TRIMPHONE"'"77=TRUCK'S HORN"'"78=KANGAROO WITH A MACHINE GUN"'"79=A MOUNTAIN STREAM"'"80=OUT OF FUEL"'"81=RAINDROPS"'"82=THE WINNER"'"83=ROCK MUSIC"'"84=INVADER CRASH" 80 PRINT"85=SEASICK"'"86=TINKLING NOTES"'"87=MACHINE GUN"'"88=A SHIP SINKING"'"89=CLOSE ENCOUNTERS" 82 B%=2 83 PROCinput_window 84 PRINT'"PRESS SPACE BAR TO GO BACK TO START"''"PRESS UP ARROW FOR PREVIOUS SCREEN"''"PRESS COPY FOR SOUND FROM THIS SCREEN" 85 IF INKEY(-99) THEN GOTO2 ELSE IF INKEY(-106) GOTO 87 ELSE IF INKEY(-58) GOTO 57 ELSE GOTO85 87 FOR T=1TO50:NEXT:*FX21 88 PROCinput_window 89 PRINT'"INPUT NUMBER OF REQUIRED SOUND"'"OR"'"INPUT ANY OTHER CHARACTER TO RETURN TOSTART OF THE NEXT LIST"' 90 INPUT A% 92 IF A%=0 THEN CLS:IF A%=0 THEN GOTO B% 93 VDU11:VDU9:VDU9:VDU9:VDU9:VDU127:VDU127:VDU127:VDU13 94 GOTO A%*100 100 ENVELOPE 4,4,-1,1,0,20,20,0,126,0,0,-126,126,126 101 SOUND 1,4,200,100 102 GOTO 90 200 ENVELOPE 1,1,-7,7,0,10,10,0,126,0,0,-126,126,126 201 SOUND 1,1,136,50 202 GOTO 90 300 ENVELOPE 2,1,1,0,0,200,0,0,126,0,0,-126,126,126 301 SOUND 1,2,0,40 302 GOTO 90 400 ENVELOPE 5,1,70,6,0,31,10,0,126,0,0,-126,126,126 401 SOUND 1,5,100,200 402 GOTO 90 500 ENVELOPE 6,1,36,-36,0,20,20,0,126,0,0,-126,126,126 501 SOUND 1,6,160,100 502 GOTO 90 600 ENVELOPE 3,4,90,-15,-15,10,20,20,126,0,0,-126,126,126 601 SOUND 1,3,100,20 602 GOTO 90 700 ENVELOPE 5,6,2,20,16,16,0,0,126,0,0,-126,126,126 701 SOUND 0,5,4,100 702 GOTO 90 800 ENVELOPE 1,5,1,20,8,200,0,0,126,0,0,-126,126,126 801 SOUND 0,1,1,50 802 GOTO 90 900 ENVELOPE 4,16,16,1,1,200,0,0,126,0,0,-126,126,126 901 SOUND 1,4,30,36 902 GOTO 90 1000 ENVELOPE 2,2,6,0,0,255,0,0,126,0,0,-126,126,126 1001 SOUND 1,2,4,50 1002 GOTO 90 1100 ENVELOPE 3,3,6,0,1,255,0,0,126,0,0,-126,126,126 1101 SOUND 0,3,7,80 1102 GOTO 90 1200 SOUND 0,-15,7,80 1201 GOTO 90 1300 ENVELOPE 1,1,43,0,0,100,0,0,126,0,0,-126,126,126 1301 SOUND 1,1,17,18 1302 GOTO 90 1400 ENVELOPE 1,6,126,0,0,206,0,0,126,0,0,-126,126,126 1401 SOUND 1,1,100,200 1402 GOTO 90 1500 ENVELOPE 1,1,3,0,0,7,7,0,126,0,0,-126,126,126 1501 SOUND 0,1,63,84 1502 GOTO 90 1600 ENVELOPE 5,1,70,16,0,31,0,0,126,0,0,-126,126,126 1601 SOUND 0,5,80,200 1602 GOTO 90 1700 ENVELOPE 1,5,1,2,80,15,0,0,126,0,0,-126,126,126 1701 SOUND 1,1,280,100 1702 GOTO 90 1800 ENVELOPE 2,1,5,0,0,25,0,0,126,0,0,-126,126,126 1801 SOUND 1,2,40,24 1802 GOTO 90 1900 ENVELOPE 3,3,6,4,6,2,0,0,126,0,0,-126,126,126 1901 SOUND 1,3,4,70 1902 GOTO 90 2000 ENVELOPE 4,12,10,8,6,4,0,0,126,0,0,-126,126,126 2001 SOUND 0,4,4,40 2002 GOTO 90 2100 ENVELOPE 6,1,70,16,2,2,0,0,126,0,0,-126,126,126 2101 SOUND 1,6,100,200 2102 GOTO 90 2200 ENVELOPE 1,3,-17,61,9,4,0,0,126,0,0,-126,126,126 2201 SOUND 1,1,157,129 2202 GOTO 90 2300 ENVELOPE 3,3,-46,2,-10,0,0,0,126,0,0,-126,126,126 2301 SOUND 0,3,27,27 2302 GOTO 90 2400 ENVELOPE 3,2,-25,-80,-6,15,0,0,126,0,0,-126,126,126 2401 SOUND 1,3,156,27 2402 GOTO 90 2500 ENVELOPE 1,6,-58,33,6,2,0,0,126,0,0,-126,126,126 2501 SOUND 1,1,173,227 2502 GOTO 90 2600 ENVELOPE 2,100,-16,99,-86,141,0,0,126,0,0,-126,126,126 2601 SOUND 1,2,163,120 2602 GOTO 90 2700 ENVELOPE 3,1,-36,-93,-9,11,0,0,126,0,0,-126,126,126 2701 SOUND 1,3,148,222 2702 GOTO 90 2800 ENVELOPE 1,4,14,7,-3,0,0,0,126,0,0,-126,126,126 2801 SOUND 1,1,167,45 2802 GOTO 90 2900 FOR S%=255 TO 245 STEP -1:SOUND 1,-15,S%,20:NEXT S% 2901 GOTO 90 3000 FOR I=1 TO 10:SOUND 1,-15,89,1:FOR X=1 TO 1000:NEXT X:NEXT I 3001 GOTO 90 3100 FOR S%=255 TO 211 STEP -4:SOUND 1,-15,S%,10:FOR D=1 TO 160:NEXT:NEXT 3101 GOTO 90 3200 FOR S%=1 TO 50:SOUND 1,-15,89,1:FOR X=1 TO 100:NEXT:NEXT 3201 GOTO 90 3300 SOUND 0,-15,20,50 3301 GOTO 90 3400 SOUND 0,-15,255,200 3401 GOTO 90 3500 ENVELOPE 1,20,24,35,34,34,23,34,126,0,0,-126,126,126 3501 SOUND 1,1,50,20 3502 GOTO 90 3600 FOR A=1 TO 20:SOUND 1,-15,129,2:SOUND 1,0,129,2:NEXT 3601 GOTO 90 3700 ENVELOPE 1,1,127,126,0,81,47,0,126,0,0,-126,126,126 3701 SOUND 1,1,155,53 3702 GOTO 90 3800 ENVELOPE 1,7,77,7,77,7,77,7,126,0,0,-126,126,126 3801 SOUND 1,1,200,200 3802 GOTO 90 3900 FOR B=1 TO 15:SOUND 2,-15,129,7:SOUND 2,0,129,7:NEXT 3901 GOTO 90 4000 FOR C=1 TO 10:SOUND &01,-15,149,4:SOUND &01,0,149,10:SOUND &01,0,149,10:SOUND &01,0,129,7:NEXT 4001 GOTO 90 4100 ENVELOPE 4,5,-45,1,2,-9,0,0,126,0,0,-126,126,126 4101 SOUND 1,4,26,26 4102 GOTO 90 4200 SOUND 1,-15,129,1000 4201 GOTO 90 4300 ENVELOPE 1,2,3,4,5,6,7,8,126,0,0,-126,126,126 4301 SOUND 2,1,200,200 4302 GOTO 90 4400 ENVELOPE 3,1,-36,-93,-9,11,0,0,126,0,0,-126,126,126 4401 SOUND 1,3,278,78 4402 GOTO 90 4500 SOUND 0,-15,20,70 4501 GOTO 90 4600 ENVELOPE 1,31,-127,-49,-42,69,44,18,74,66,0,-126,126,126 4601 SOUND 1,1,30,250 4602 GOTO 90 4700 FOR R=1TO5STEP1:SOUND 0,-15,60,30:FOR X=1 TO 1000:NEXT:NEXTR 4701 GOTO 90 4800 FOR X1%=1 TO 15:SOUND 1,-15,RND(250),1:NEXT X1% 4801 GOTO 90 4900 SOUND 0,-15,70,40 4901 GOTO 90 5000 ENVELOPE 1,5,127,16,0,31,0,0,126,0,0,-126,126,126 5001 SOUND 0,1,180,200 5002 GOTO 90 5100 SOUND 1,-15,0,60 5101 FOR pitch=8 TO 200 STEP 4:SOUND 1,-15,pitch,2:NEXT pitch 5102 GOTO 90 5200 FOR X2%=1 TO 2:ENVELOPE 2,1,1,-2,1,7,5,12,126,0,0,-126,126,126 5201 SOUND 1,2,60,100:NEXT X2% 5202 GOTO 90 5300 ENVELOPE 1,3,-17,61,9,4,0,0,126,0,0,-126,126,126 5301 SOUND 4,1,157,129 5302 SOUND 4,-15,245,45 5303 GOTO 90 5400 ENVELOPE 3,6,16,9,-5,2,2,2,126,0,0,-126,126,126 5401 SOUND 3,3,169,47 5402 GOTO 90 5500 ENVELOPE 1,1,10,25,10,5,5,5,126,0,0,-126,126,126 5501 SOUND 1,1,80,5 5502 GOTO 90 5600 FOR X=150 TO 1 STEP -1:IF X=1 THEN GOTO 5605 5601 SOUND 1,-15,X,1 5602 NEXT X:FOR Y=1 TO 1000:NEXT Y 5605 SOUND 0,-15,4,20 5606 GOTO 90 5700 FOR J%=540 TO 190 STEP -15 5701 SOUND 1,-15,J%,1 5702 FOR H=2 TO 35:NEXT:NEXT J% 5703 GOTO 90 5800 SOUND 1,-15,50,20 5801 GOTO 90 5900 SOUND 1,-15,255,25 5901 GOTO 90 6000 ENVELOPE 1,5,255,-255,255,0,5,10,126,0,0,-126,126,126 6001 SOUND 1,1,100,100 6002 GOTO 90 6100 ENVELOPE 5,1,10,-10,10,2,1,5,126,0,0,-126,126,126 6101 SOUND 1,5,128,15 6102 GOTO 90 6200 ENVELOPE 3,3,-186,-255,-32,-49,255,255,126,0,0,-126,126,126 6201 SOUND 1,3,3,250 6202 GOTO 90 6300 ENVELOPE 1,1,1,12,1,1,17,11,126,0,0,-126,126,126 6301 SOUND 1,1,1,250 6302 GOTO 90 6400 FOR G=100 TO 165 STEP 3 6401 FOR F=G+20 TO G STEP -1 6402 SOUND &12,-15,F,1 6403 SOUND &12,-15,F-5,1 6404 SOUND &12,0,F-5,1 6405 NEXT:NEXT 6406 GOTO 90 6500 FOR S=220 TO 0 STEP -10 6501 SOUND 0,-15,S,5 6502 NEXT S 6503 GOTO 90 6600 FOR N=1 TO 10 STEP 1 6601 SOUND 1,-15,RND(123),20 6602 NEXT N 6603 GOTO 90 6700 FOR M=1 TO 150 STEP 1 6701 SOUND 0,-15,20,50 6702 ENVELOPE 1,20,24,35,34,34,23,34,126,0,0,-126,126,126 6703 SOUND 1,1,50,20 6704 SOUND 1,-15,89,1 6705 SOUND 17,-15,8,1 6706 NEXT M 6707 GOTO 90 6800 FOR R=1 TO 10 STEP 1 6801 FOR I=1 TO 5:SOUND 1,-15,200,1:SOUND 1,-15,180,1:NEXT I 6802 SOUND 1,-15,180,1 6803 FOR I=1 TO 6:SOUND 1,-15,200,1:SOUND 1,-15,180,1:NEXT I 6804 SOUND 1,0,0,30 6805 NEXT R 6806 GOTO 90 6900 SOUND 0,-15,100,100 6901 GOTO 90 7000 FOR P=1 TO 10:SOUND 1,-15,0,1 7001 FOR A=1 TO 700:NEXT 7002 SOUND 1,-15,2,1 7003 FOR A=1 TO 700:NEXT 7004 NEXT P 7005 GOTO 90 7009 FOR J=1 TO 10 STEP 1 7100 FOR J=1 TO 10 STEP 1 7101 ENVELOPE 1,1,-20,10,-10,3,6,6,126,0,0,-126,126,126 7102 SOUND 1,1,52,35 7103 FOR A=0 TO 3000:NEXT 7104 NEXT J 7105 GOTO 90 7200 ENVELOPE 1,1,2,0,0,48,0,0,126,0,0,-126,126,126 7201 SOUND 1,1,48,126 7202 GOTO 90 7300 FOR W=1TO50 STEP 1 7301 SOUND2,-15,RND(6),1 7302 NEXT W 7303 GOTO 90 7400 FOR T=1 TO 5 STEP 1 7401 ENVELOPE 1,5,126,16,0,31,0,0,126,0,0,-126,126,126 7402 SOUND1,1,30,200 7403 SOUND234,-15,67,46 7404 NEXT T 7405 GOTO 90 7500 SOUND 0,-15,100,34 7501 GOTO 90 7600 ENVELOPE 1,1,18,0,0,2,0,0,126,0,0,-126,126,126 7601 SOUND1,1,170,8 7602 SOUND1,0,0,5 7603 SOUND1,1,170,8 7604 GOTO 90 7700 SOUND0,-15,25,20 7701 GOTO 90 7800 FOR K=1 TO 2 STEP1 7801 ENVELOPE2,1,1,-200,0,100,200,0,0,0,0,0,0,0 7802 SOUND 1,2,100,200 7803 NEXT K 7804 GOTO 90 7900 FOR S=1TO15STEP 1 7901 A=RND(250)-10 7902 SOUND1,-15,A,10 7903 NEXT S 7904 GOTO 90 8000 ENVELOPE 3,1,-45,-67,-5,67,0,0,126,0,0,-126,126,126 8001 SOUND1,3,56,-45 8002 GOTO 90 8100 ENVELOPE 6,2,100,100,100,100,100,100,126,0,0,-126,126,126 8102 SOUND1,6,100,400 8104 GOTO90 8200 ENVELOPE 1,2,-56,5,77,45,-99,-2,126,0,0,-126,126,126 8201 FOR A=1TO2 STEP1 8202 SOUND 3,1,157,180 8203 NEXT A 8204 GOTO90 8300 ENVELOPE 6,128,123,155,135,53,212,126,126,0,0,-126,126,126 8301 SOUND1,6,10,100 8302 GOTO90 8400 FORA=150 TO1STEP-1 8401 IF A=1 GOTO 8405 8402 ENVELOPE 4,1,10,25,10,5,5,5,126,0,0,-126,126,126 8403 SOUND 1,4,A,1 8404 NEXT A 8405 SOUND0,-15,245,45 8406 GOTO90 8500 FOR X=35 TO 65 STEP5 8501 ENVELOPE 1,2,X,-X,X,X-7,-X-7,X-7,126,0,0,-126,126,126 8502 SOUND 1,1,X-4,40 8503 NEXT X 8504 GOTO90 8600 ENVELOPE 6,9,19,13,-8,4,4,4,126,0,0,-126,126,126 8601 SOUND 6,6,150,50 8602 GOTO90 8700 FOR N=1TO30 8701 SOUND0,-15,4,1 8702 SOUND0,0,4,1 8703 NEXT 8704 GOTO90 8800 FOR N=1TO20STEP1 8801 SOUND0,-15,RND(767),1 8802 NEXT 8803 GOTO 90 8900 SOUND1,-15,97,10 8901 SOUND1,-15,105,10 8903 SOUND1,-15,89,10 8904 SOUND1,-15,41,10 8905 SOUND1,-15,69,20 8906 GOTO 90 9000 DEFPROCscreen_setup 9010 VDU19,128,129,0,0,0 9015 PRINT TAB(12,1) "SOUND DIRECTORY" 9020 ENDPROC 9030 DEFPROCinput_window 9040 VDU 28,1,30,38,20 9050 VDU19,130,132,0,0,0 9060 COLOUR 130 9070 CLS 9073 ENDPROC 9075 DEFPROCinfo_window 9080 VDU 28,4,18,35,2 9090 VDU19,130,132,0,0,0 9100 COLOUR 130 9110 CLS 9120 ENDPROC 9130 *FX4,0 9140 MODE6 9150 CLS 9160 END
� � ONLY 15 TITLES WILL FIT ON A SCREEN AT ONCE.THE B% VALUES ALLOW THE PROG TO MOVE TO NEXT SCREEN WHEN THE PRESENT ONE HAS BEEN EXPLORED. THE VDU COMMANDS AT LINE 93 MOVE CURSOR TO START OF LINE. ��******************************** TO GET THE LINES THAT MADE THE SOUND LIST: SOUND NUMBER*100 TO NEXT SOUND NUMBER*100-1 *************************************** �4 *FX4,1 �screen_setup:�info_window � �:�'" 1=WAILING BUGS"'" 2=POLICE SIREN"'" 3=UP,UP AND AWAY"'" 4=CRAZY MACHINERY"'" 5=ATTACK OF THE MUTANT FLIES"'" 6=SCORE A HIT"'" 7=CRASH"'" 8=IN THE FACTORY"'" 9=GOING UP"'"10=FANFARE"'"11=RED ALERT"'"12=ELECTRIC SPARK" @ �"13=SWALLOWED IN ONE GULP"'"14=HAR-HAR"'"15=CAR STARTING" � �input_window:�'"PRESS SPACE BAR TO CONTINUE LIST"''"PRESS UP ARROW FOR PREVIOUS SCREEN"''"PRESS COPY FOR SOUND FROM THIS SCREEN":B%=15 A � �(-99) � �TO@ � � �(-106) � �DW@� � �(-58) � �DI@ � �TJ@ � �info_window:�'"16=ROAD WORKS"'"17=ALARM"'"18=WARSHIPS SIREN"'"19=MACHINE GUN"'"20=THE MARTIANS APPROACH"'"21=ALARM CLOCK"'"22=PHASER FIRE"'"23=LOST"'"24=TILT"'"25=MORE MONEY PHONE"'"26=DESCENDING"'"27=HANGOVER" G �"28=CUT OFF PHONE"'"29=BIRD TWEET"'"30=SPACE SATELLITE(BEEPING)" � �input_window:�'"PRESS SPACE BAR TO CONTINUE LIST"''"PRESS UP ARROW FOR PREVIOUS SCREEN"''"PRESS COPY FOR SOUND FROM THIS SCREEN":B%=30 C � �(-99) � �T^@ � � �(-106) � �DW@ � � �(-58) � �TC@ � �TY@ � �info_window:�'"31=BIRD SONG"'"32=SHOTS FROM A RAY GUN"'"33=HUGE SPLASH"'"34=RADIATION"'"35=ESCALATOR"'"36=PAYTONE"'"37=ALIEN SWARM"'"38=CRAZY BIRDS"'"39=ENGAGED TONE"'"40=EXCHANGE BUSY TONE"'"41=PINBALL"'"42=CUT OFF PHONE" #C �"43=CAR ALARM"'"44=ELECTRIC ALARM CLOCK"'"45=A TV GONE WRONG" $ �input_window %~ �'"PRESS SPACE BAR TO CONTINUE LIST"''"PRESS UP ARROW FOR PREVIOUS SCREEN"''"PRESS COPY FOR SOUND FROM THIS SCREEN":B%=43 (D � �(-99) � �Tk@ � � �(-106) � �DW@ � � �(-58) � �TO@ � �Th@ + �info_window -� �'"46=MODERN MUSIC"'"47=ALIEN MONSTER UNDER ATTACK"'"48=R2D2"'"49=A TANK MOVING"'"50=SOLDIERS ON MARCH"'"51=PIANO SCALE"'"52=WASP"'"53=CRASH LANDING"'"54=MUSIC OF SPHERES"'"55=BOING"'"56=HIGH DIVE"'"57=SINGING ALIEN" 2< �"58=FOGHORN"'"59=DOG WHISTLE"'"60=TOO MANY CHOCOLATES" 3 �input_window 4~ �'"PRESS SPACE BAR TO CONTINUE LIST"''"PRESS UP ARROW FOR PREVIOUS SCREEN"''"PRESS COPY FOR SOUND FROM THIS SCREEN":B%=57 7D � �(-99) � �Ty@ � � �(-106) � �DW@ � � �(-58) � �T^@ � �Tw@ 9 �info_window <� �'"61=ALIEN LASER"'"62=OVERLOAD"'"63=AIR LEAK"'"64=DIZZY DALEKS"'"65=PERCUSSION"'"66=OLD BANGER"'"67=TRACTOR"'"68=TELEPHONE RINGING"'"69=CRASH,WINDOW"'"70=FOOTSTEPS"'"71=CAR STARTING"'"72=WARSHIP SIREN"'"73=BUZZY BEES" A2 �"74=DENTISTS DRILL"'"75=MISTUNED TELEVISION" B �input_window C~ �'"PRESS SPACE BAR TO CONTINUE LIST"''"PRESS UP ARROW FOR PREVIOUS SCREEN"''"PRESS COPY FOR SOUND FROM THIS SCREEN":B%=73 FC � �(-99) � �DI@ � � �(-106) � �DW@ � � �(-58) � �Tk@ � �DF@ I �info_window K� �'"76=TRIMPHONE"'"77=TRUCK'S HORN"'"78=KANGAROO WITH A MACHINE GUN"'"79=A MOUNTAIN STREAM"'"80=OUT OF FUEL"'"81=RAINDROPS"'"82=THE WINNER"'"83=ROCK MUSIC"'"84=INVADER CRASH" Pa �"85=SEASICK"'"86=TINKLING NOTES"'"87=MACHINE GUN"'"88=A SHIP SINKING"'"89=CLOSE ENCOUNTERS" R B%=2 S �input_window T| �'"PRESS SPACE BAR TO GO BACK TO START"''"PRESS UP ARROW FOR PREVIOUS SCREEN"''"PRESS COPY FOR SOUND FROM THIS SCREEN" UD � �(-99) � �TB@ � � �(-106) � �DW@ � � �(-58) � �Ty@ � �DU@ W � T=1�50:�:*FX21 X �input_window Yl �'"INPUT NUMBER OF REQUIRED SOUND"'"OR"'"INPUT ANY OTHER CHARACTER TO RETURN TOSTART OF THE NEXT LIST"' Z � A% \ � A%=0 � �:� A%=0 � � B% ]' �11:�9:�9:�9:�9:�127:�127:�127:�13 ^ � A%*100 d. � 4,4,-1,1,0,20,20,0,126,0,0,-126,126,126 e � 1,4,200,100 f � �DZ@ �. � 1,1,-7,7,0,10,10,0,126,0,0,-126,126,126 � � 1,1,136,50 � � �DZ@ ,- � 2,1,1,0,0,200,0,0,126,0,0,-126,126,126 - � 1,2,0,40 . � �DZ@ �. � 5,1,70,6,0,31,10,0,126,0,0,-126,126,126 � � 1,5,100,200 � � �DZ@ �0 � 6,1,36,-36,0,20,20,0,126,0,0,-126,126,126 � � 1,6,160,100 � � �DZ@ X3 � 3,4,90,-15,-15,10,20,20,126,0,0,-126,126,126 Y � 1,3,100,20 Z � �DZ@ �. � 5,6,2,20,16,16,0,0,126,0,0,-126,126,126 � � 0,5,4,100 � � �DZ@ . � 1,5,1,20,8,200,0,0,126,0,0,-126,126,126 ! � 0,1,1,50 " � �DZ@ �/ � 4,16,16,1,1,200,0,0,126,0,0,-126,126,126 � � 1,4,30,36 � � �DZ@ �- � 2,2,6,0,0,255,0,0,126,0,0,-126,126,126 � � 1,2,4,50 � � �DZ@ L- � 3,3,6,0,1,255,0,0,126,0,0,-126,126,126 M � 0,3,7,80 N � �DZ@ � � 0,-15,7,80 � � �DZ@ . � 1,1,43,0,0,100,0,0,126,0,0,-126,126,126 � 1,1,17,18 � �DZ@ x/ � 1,6,126,0,0,206,0,0,126,0,0,-126,126,126 y � 1,1,100,200 z � �DZ@ �+ � 1,1,3,0,0,7,7,0,126,0,0,-126,126,126 � � 0,1,63,84 � � �DZ@ @. � 5,1,70,16,0,31,0,0,126,0,0,-126,126,126 A � 0,5,80,200 B � �DZ@ �- � 1,5,1,2,80,15,0,0,126,0,0,-126,126,126 � � 1,1,280,100 � � �DZ@ , � 2,1,5,0,0,25,0,0,126,0,0,-126,126,126 � 1,2,40,24 � �DZ@ l+ � 3,3,6,4,6,2,0,0,126,0,0,-126,126,126 m � 1,3,4,70 n � �DZ@ �- � 4,12,10,8,6,4,0,0,126,0,0,-126,126,126 � � 0,4,4,40 � � �DZ@ 4- � 6,1,70,16,2,2,0,0,126,0,0,-126,126,126 5 � 1,6,100,200 6 � �DZ@ �. � 1,3,-17,61,9,4,0,0,126,0,0,-126,126,126 � � 1,1,157,129 � � �DZ@ �/ � 3,3,-46,2,-10,0,0,0,126,0,0,-126,126,126 � � 0,3,27,27 � � �DZ@ `1 � 3,2,-25,-80,-6,15,0,0,126,0,0,-126,126,126 a � 1,3,156,27 b � �DZ@ �. � 1,6,-58,33,6,2,0,0,126,0,0,-126,126,126 � � 1,1,173,227 � � �DZ@ (4 � 2,100,-16,99,-86,141,0,0,126,0,0,-126,126,126 ) � 1,2,163,120 * � �DZ@ �1 � 3,1,-36,-93,-9,11,0,0,126,0,0,-126,126,126 � � 1,3,148,222 � � �DZ@ �- � 1,4,14,7,-3,0,0,0,126,0,0,-126,126,126 � � 1,1,167,45 � � �DZ@ T+ � S%=255 � 245 � -1:� 1,-15,S%,20:� S% U � �DZ@ �1 � I=1 � 10:� 1,-15,89,1:� X=1 � 1000:� X:� I � � �DZ@ 6 � S%=255 � 211 � -4:� 1,-15,S%,10:� D=1 � 160:�:� � �DZ@ �- � S%=1 � 50:� 1,-15,89,1:� X=1 � 100:�:� � � �DZ@ � � 0,-15,20,50 � � �DZ@ H � 0,-15,255,200 I � �DZ@ �2 � 1,20,24,35,34,34,23,34,126,0,0,-126,126,126 � � 1,1,50,20 � � �DZ@ + � A=1 � 20:� 1,-15,129,2:� 1,0,129,2:� � �DZ@ t1 � 1,1,127,126,0,81,47,0,126,0,0,-126,126,126 u � 1,1,155,53 v � �DZ@ �. � 1,7,77,7,77,7,77,7,126,0,0,-126,126,126 � � 1,1,200,200 � � �DZ@ <+ � B=1 � 15:� 2,-15,129,7:� 2,0,129,7:� = � �DZ@ �M � C=1 � 10:� &01,-15,149,4:� &01,0,149,10:� &01,0,149,10:� &01,0,129,7:� � � �DZ@ . � 4,5,-45,1,2,-9,0,0,126,0,0,-126,126,126 � 1,4,26,26 � �DZ@ h � 1,-15,129,1000 i � �DZ@ �+ � 1,2,3,4,5,6,7,8,126,0,0,-126,126,126 � � 2,1,200,200 � � �DZ@ 01 � 3,1,-36,-93,-9,11,0,0,126,0,0,-126,126,126 1 � 1,3,278,78 2 � �DZ@ � � 0,-15,20,70 � � �DZ@ �6 � 1,31,-127,-49,-42,69,44,18,74,66,0,-126,126,126 � � 1,1,30,250 � � �DZ@ \. � R=1�5�1:� 0,-15,60,30:� X=1 � 1000:�:�R ] � �DZ@ �( � X1%=1 � 15:� 1,-15,�(250),1:� X1% � � �DZ@ $ � 0,-15,70,40 % � �DZ@ �/ � 1,5,127,16,0,31,0,0,126,0,0,-126,126,126 � � 0,1,180,200 � � �DZ@ � � 1,-15,0,60 �0 � pitch=8 � 200 � 4:� 1,-15,pitch,2:� pitch � � �DZ@ P9 � X2%=1 � 2:� 2,1,1,-2,1,7,5,12,126,0,0,-126,126,126 Q � 1,2,60,100:� X2% R � �DZ@ �. � 1,3,-17,61,9,4,0,0,126,0,0,-126,126,126 � � 4,1,157,129 � � 4,-15,245,45 � � �DZ@ - � 3,6,16,9,-5,2,2,2,126,0,0,-126,126,126 � 3,3,169,47 � �DZ@ |. � 1,1,10,25,10,5,5,5,126,0,0,-126,126,126 } � 1,1,80,5 ~ � �DZ@ �$ � X=150 � 1 � -1:� X=1 � � �deU � � 1,-15,X,1 � � X:� Y=1 � 1000:� Y � � 0,-15,4,20 � � �DZ@ D � J%=540 � 190 � -15 E � 1,-15,J%,1 F � H=2 � 35:�:� J% G � �DZ@ � � 1,-15,50,20 � � �DZ@ � 1,-15,255,25 � �DZ@ p3 � 1,5,255,-255,255,0,5,10,126,0,0,-126,126,126 q � 1,1,100,100 r � �DZ@ �/ � 5,1,10,-10,10,2,1,5,126,0,0,-126,126,126 � � 1,5,128,15 � � �DZ@ 89 � 3,3,-186,-255,-32,-49,255,255,126,0,0,-126,126,126 9 � 1,3,3,250 : � �DZ@ �. � 1,1,1,12,1,1,17,11,126,0,0,-126,126,126 � � 1,1,1,250 � � �DZ@ � G=100 � 165 � 3 � F=G+20 � G � -1 � &12,-15,F,1 � &12,-15,F-5,1 � &12,0,F-5,1 �:� � �DZ@ d � S=220 � 0 � -10 e � 0,-15,S,5 f � S g � �DZ@ � � N=1 � 10 � 1 � � 1,-15,�(123),20 � � N � � �DZ@ , � M=1 � 150 � 1 - � 0,-15,20,50 .2 � 1,20,24,35,34,34,23,34,126,0,0,-126,126,126 / � 1,1,50,20 0 � 1,-15,89,1 1 � 17,-15,8,1 2 � M 3 � �DZ@ � � R=1 � 10 � 1 �. � I=1 � 5:� 1,-15,200,1:� 1,-15,180,1:� I � � 1,-15,180,1 �. � I=1 � 6:� 1,-15,200,1:� 1,-15,180,1:� I � � 1,0,0,30 � � R � � �DZ@ � � 0,-15,100,100 � � �DZ@ X � P=1 � 10:� 1,-15,0,1 Y � A=1 � 700:� Z � 1,-15,2,1 [ � A=1 � 700:� \ � P ] � �DZ@ a � J=1 � 10 � 1 � � J=1 � 10 � 1 �0 � 1,1,-20,10,-10,3,6,6,126,0,0,-126,126,126 � � 1,1,52,35 � � A=0 � 3000:� � � J � � �DZ@ , � 1,1,2,0,0,48,0,0,126,0,0,-126,126,126 ! � 1,1,48,126 " � �DZ@ � � W=1�50 � 1 � �2,-15,�(6),1 � � W � � �DZ@ � � T=1 � 5 � 1 �/ � 1,5,126,16,0,31,0,0,126,0,0,-126,126,126 � �1,1,30,200 � �234,-15,67,46 � � T � � �DZ@ L � 0,-15,100,34 M � �DZ@ �, � 1,1,18,0,0,2,0,0,126,0,0,-126,126,126 � �1,1,170,8 � �1,0,0,5 � �1,1,170,8 � � �DZ@ �0,-15,25,20 � �DZ@ x � K=1 � 2 �1 y( �2,1,1,-200,0,100,200,0,0,0,0,0,0,0 z � 1,2,100,200 { � K | � �DZ@ � � S=1�15� 1 � A=�(250)-10 � �1,-15,A,10 � � S � � �DZ@ @1 � 3,1,-45,-67,-5,67,0,0,126,0,0,-126,126,126 A �1,3,56,-45 B � �DZ@ �7 � 6,2,100,100,100,100,100,100,126,0,0,-126,126,126 � �1,6,100,400 � �DZ@ 2 � 1,2,-56,5,77,45,-99,-2,126,0,0,-126,126,126 � A=1�2 �1 � 3,1,157,180 � A �DZ@ l8 � 6,128,123,155,135,53,212,126,126,0,0,-126,126,126 m �1,6,10,100 n �DZ@ � �A=150 �1�-1 � � A=1 � �dU` �. � 4,1,10,25,10,5,5,5,126,0,0,-126,126,126 � � 1,4,A,1 � � A � �0,-15,245,45 � �DZ@ !4 � X=35 � 65 �5 !53 � 1,2,X,-X,X,X-7,-X-7,X-7,126,0,0,-126,126,126 !6 � 1,1,X-4,40 !7 � X !8 �DZ@ !�. � 6,9,19,13,-8,4,4,4,126,0,0,-126,126,126 !� � 6,6,150,50 !� �DZ@ !� � N=1�30 !� �0,-15,4,1 !� �0,0,4,1 !� � "