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
!� �
"