0GOSUB400:GOTO10:REM Copyright 1987 MPS STUDIOS (MOTION PICTURE SHOW)
1FORX=1TO300:NEXTX:RETURN
2FORX=1TO25:NEXTX:RETURN
3REM "DESTINATION RIGEL" AND ALL DATA  HERE IN CONTAINED IS COPYRIGHT 1987 BY  MPS STUDIOS.
4REM "DESTINATION RIGEL" was developed and made for a Model-100 Although other computer types may be able to run this program.
5REM See Documentation telling more about this program.
9REM "DESTINATION RIGEL" is for distribution in the U.S. of A. and Canada only. Not to be taken outside of North America. 
10CLS:FORX=1TO1000:NEXT:?@130,"MPS Studios Presents":FOR X=1TO1000:NEXTX:CLS:FORX=1TO200:NEXTX:?@130,"Destination Rigel":FORX=1TO2000:NEXTX:
20CLS:FORX=1TO500:NEXTX:?@80,"Starring:":?@120,"         Joe Wallace as Captin Joe.":FORX=1TO600:NEXTX:?@160,"         Steve McDonald as Dr. Mars":FORX=1TO1000:NEXTX
25CLS:?@80,"[As we join the crew of the USS Johnston";:?"they are on their way to Rigel]":FORX=1TO1600:NEXTX
27CLS:SOUND 3134,2:SOUND 0,1:SOUND 3134,2:SOUND 0,1:SOUND 3134,2:SOUND 0,1:SOUND 3134,15:SOUND 0,1
28SOUND 4184,8:SOUND 0,1:SOUND 3134,8:SOUND 0,1:SOUND 4184,8:SOUND 0,1:SOUND 3134,8:SOUND 0,1
29SOUND 932,8:SOUND 0,1:SOUND 1046,53:CLS:?@175,A$:?@0,"Captain, Proceeding on course to Rigel.":?"Prepare for Warp... ";:FORX=1TO900:NEXTX:?"Warp 9":FORX=1TO200:NEXTX:Q=175
31SOUND 8368,8:SOUND 7900,5:SOUND 7700,4:SOUND 7455,4:SOUND 7150,3:SOUND 7032,2
32FORX=1TO16:?@Q,A$:Q=Q-1:SOUND 466,2:NEXTX:?@160,B$:?@160,C$:?@160,D$:Q=175
33FORX=1TO16:?@Q,"    "::Q=Q-1:NEXTX:?@160,"   ":?@160,"  ":?@160," ":FORX=1TO500:NEXTX:CLS:FORX=1TO300:NEXTX:SOUND 783,20:SOUND 0,2:SOUND783,20:SOUND 0,2:SOUND783,20:
36CLS:?@40,"Captain... There is an object in our":?"Warp Tradjectory."
37?:FORX=1TO1200:NEXTX:?"What's that doing there? It didn't show up on Light scan! ";:FORX=1TO800:NEXTX:?"Put it on view screen.":FORX=1TO1300:NEXTX
39CLS:LINE (5,5)-(80,40),1,B:LINE (6,6)-(79,39),1,BF:LINE (6,6)-(79,39),2,BF:LINE (10,43)-(10,43):LINE (17,43)-(17,43):LINE (24,43)-(25,43):LINE (41,43)-(41,43):LINE (60,43)-(60,43):LINE (74,43)-(74,43)
40FORX=1TO500:NEXTX:?@85,E$:?@125,F$:FORX=1TO200:NEXTX
41?@100,"Screen on.":FORX=1TO1000:NEXTX:?@95,"Captain... The object":?@135,"Appears to be of":?@175,"asteroidal type.":FORX=1TO1500:NEXTX
42?@95,"Charge the laser guns.":?@135,"We'll destroy it":?@175,"and continue on our way.":FORX=1TO1000:NEXTX
43CLS:?@85,E$:?@125,F$:?@110,A$:Q=109:FORX=1TO500:NEXTX
44FORX=1TO23:?@Q,I$:SOUND783,1:Q=Q-1:NEXTX
45FORX=1TO300:NEXTX
46Q=109:FORX=1TO23:?@Q," ":Q=Q-1:NEXTX:FORX=1TO500:NEXTX:Q=109
47FORX=1TO23:?@Q,I$:SOUND783,1:Q=Q-1:NEXTX:FORX=1TO300:NEXTX:Q=109:FORX=1TO23:?@Q," ":Q=Q-1:NEXTX
48FORX=1TO500:NEXTX:CLS:?@80,"Captain.. the object was not destroyed!":FORX=1TO1000:NEXTX:CLS
49GOSUB 1000:GOSUB 1010:FORX=1TO500:NEXTX:?@50,"Hmmmm....":FORX=1TO1000:NEXTX:?@90,"We must remove this object":?@130,"from this tradjectory.":FORX=1TO1000:NEXTX
50?@170,"So we can continue, and for":?@210,"the saftey of other ships.":FORX=1TO2000:NEXTX:GOSUB 1020:FORX=1TO500:NEXTX:?@50,"Put it in a tractor beam":?@90,"and we'll tow it off the    "
51?@130,"tradjectory."+STRING$(11,32):?@170,STRING$(28,32):?@210,STRING$(26,32):FORX=1TO2000:NEXTX:CLS:?@85,E$:?@125,F$:?@110,A$:Q=109:FORX=1TO500:NEXTX:SOUND 12538,30:FORX=1TO23
52?@Q,J$:Q=Q-1:SOUND9394,1:NEXTX:FORX=1TO990:NEXTX:H$="                                          ":?@85,"";H$:?@125,E$+STRING$(22,255)+STRING$(12,32)+F$:FORX=1TO500:NEXTX
53?@125,"";H$:?@165,E$+STRING$(22,255)+STRING$(12,32)+F$:FORX=1TO500:NEXTX
55?@165,"";H$:?@205,E$+STRING$(22,255)+STRING$(12,32)+F$:FORX=1TO500:NEXTX:Q=228:FORX=1TO22:?@Q," ":Q=Q-1:NEXTX:FORX=1TO400:NEXTX
56?@229,"    ":?@189,A$:FORX=1TO500:NEXTX:?@189,"    ":?@149,A$:FORX=1TO500:NEXTX:?@149,"    ":?@109,A$:FORX=1TO1000:NEXTX
57?@40,"Prepare for Warp 9":FORX=1TO500:NEXTX:SOUND 8368,8:SOUND 7900,5:SOUND 7700,4:SOUND 7455,4:SOUND 7150,3:SOUND 7032,2
60LINE(39,44)-(174,23):SOUND 400,50:FORX=1TO400:NEXTX:LINE(39,44)-(174,23),0:LINE(174,23)-(174,23):FORX=1TO500:NEXTX
61CLS:?@125,"Captain!! We've been hit!":FORX=1TO1000:NEXTX:CLS:SOUND879,20:SOUND0,5:SOUND879,20:?@120,"Scan reports life forms on asteriod.":FORX=1TO1000:NEXTX
62CLS:?@109,A$:?@205,E$:?@245,F$:LINE(36,45)-(180,24):GOSUB 1100:LINE(36,45)-(173,19):GOSUB 1100:LINE(36,45)-(194,24):GOSUB 1100:FORX=1TO1000:NEXTX
63CLS:?@123,"Captain! We are in a tractor beam!":FORX=1TO1000:NEXTX:CLS:?@120,"Damage report Captain... R-1 Shield out.2 Hull units destroyed. No casualties.":FORX=1TO2000:NEXTX:
64CLS:?@120,"Captain.. Radio Signals over channel 8.":FORX=1TO1000:NEXTX:CLS:?@120,"Running data through translator Captain":FORX=1TO1000:NEXTX
65CLS:?"Hello, ";:GOSUB1:?"I ";:GOSUB1:?"am ";:GOSUB1:?"Dr. ";:GOSUB1:?"Mars.":GOSUB1
66FORX=1TO500:NEXTX:?"If ";:GOSUB1:?"you ";:GOSUB1
67?"people ";:GOSUB1:?"wish ";:GOSUB1
68?"to ";:GOSUB1:?"stay ";:GOSUB1:?"alive,":GOSUB1
69FORX=1TO500:NEXTX:?"Then ";:GOSUB1:?"you ";:GOSUB1:?"will ";:GOSUB1
70?"turn ";:GOSUB1:?"over ";:GOSUB1:?"your ";:GOSUB1
71?"warp":GOSUB1:?"crystals ";:GOSUB1
72?"to ";:GOSUB1:?"me!":GOSUB1:FORX=1TO1500:NEXTX:CLS:BEEP:?@80,"Captain,":?@120,"Without warp crystals we can go nowhere.":FORX=1TO1000:NEXTX
73CLS:?@90,"Ask him why.":FORX=1TO1000:NEXTX:?@200,"Yes Captain.";:FORX=1TO600:NEXTX:BEEP:BEEP:FORX=1TO100:NEXTX:BEEP:?" Message sent.":FORX=1TO500:NEXTX
74CLS::?"I ";:GOSUB1:?"have ";:GOSUB1:?"been ";:GOSUB1:?"stranded ";:GOSUB1:?"here ";:GOSUB1:?"for ";:GOSUB1:?"a ";:GOSUB1:?"long ":GOSUB1
77?"time, ";:GOSUB1:?"and ";:GOSUB1:?"I ";:GOSUB1:?"cannot ";:GOSUB1:?"go ";:GOSUB1:?"anywhere ";:GOSUB1
78?"without ":GOSUB1:?"some ";:GOSUB1:?"warp ";:GOSUB1:?"crystals. ":GOSUB1:GOSUB1:GOSUB1:GOSUB1
89?"     Fortunately ";:GOSUB1
90?"my ";:GOSUB1:?"system ";:GOSUB1
91?"has":GOSUB1:?"kept ";:GOSUB1:?"me ";:GOSUB1:?"alive ";:GOSUB1:?"this ";:GOSUB1:?"long. ";:GOSUB1
93?" ";:GOSUB1:?"Now, ";:GOSUB1:?"you ";:GOSUB1:?"have":GOSUB1
94?"10 ";:GOSUB1:?"minutes ";:GOSUB1
95?"to ";:GOSUB1:?"turn ";:GOSUB1:?"the ";:GOSUB1
96?"crystals ";:GOSUB1:?"over":GOSUB1
97?"to ";:GOSUB1:?"me.";:GOSUB1:FORX=1TO1000:NEXTX
98CLS:GOSUB1000:GOSUB1010:?@135,"We will never turn over":?@175,"our Warp crystals!":FORX=1TO1000:NEXTX:CLS:BEEP:BEEP:FORX=1TO100:NEXTX:BEEP:?@125,"Message sent Captain.":FORX=1TO700:NEXTX:CLS:FORX=1TO1000:NEXTX
99?"Evidently ";:GOSUB1:?"You ";:GOSUB1
100?"don't ";:GOSUB1:?"know ";:GOSUB1:?"why ";:GOSUB1
101?"I ";:GOSUB1:?"am ";:GOSUB1:?"called";:GOSUB1
102?"Dr. ";:GOSUB1:?"Mars!!!";:GOSUB1:FORX=1TO1000:NEXTX
103CLS:?@109,A$:?@205,E$:?@245,F$:FORX=1TO500:NEXTX:Q=207
104FORY=1TO3:?@Q,K$:FORX=1TO200:NEXTX:?@Q," ":Q=Q-39:?@Q,K$:FORX=1TO600:NEXTX:NEXTY:Q=Q+1
105FORX=1TO18:?@Q,L$:Q=Q+1:SOUND1975,5:FORY=1TO25:NEXTY:NEXTX:FORX=1TO20:SOUND1975,5:FORY=1TO25:NEXTY:NEXTX:?@210,"Captain, we're loosing energy!"
106FORX=1TO20:SOUND1975,5:FORY=1TO25:NEXTY:NEXTX:?@170,"If this dosen't stop soon,":?@210,"we'll die from lack of":FORX=1TO25:SOUND1975,5:FORY=1TO25:NEXTY:NEXTX:FORX=1TO18:Q=Q-1:?@Q," ":NEXTX
107FORX=1TO500:NEXTX:CLS:?"Now, ";:GOSUB1:?"the ";:GOSUB1:?"warp ";:GOSUB1:?"crystals ";:GOSUB1:?"please...":FORX=1TO1300:NEXTX
108SOUND 9394,15:SOUND 0,1:SOUND 9394,15:SOUND 0,1:SOUND 9394,15:SOUND 0,1:SOUND 11836,60:FORX=1TO1000:NEXTX:CLS
109FORX=1TO500:NEXT:BEEP:FORX=1TO10:NEXTX:BEEP:?"Captain,":FORX=1TO500:NEXTX:?"The computer has found the data you     requested on Dr. Mars.":FORX=1TO1400:NEXTX:CLS:GOSUB2000:FORX=1TO500:NEXTX:?@100,"His picture."
110FORX=1TO1000:NEXTX:?@90,"It is also intresting":?@130,"that he is highly":?@170,"allergic to Sulfur.":FORX=1TO1700:NEXTX:CLS:?"Amazing! ":FORX=1TO800:NEXTX:?"I have a plan. Place large ";
111?"quantaties ofSulfur in the docking bay entrance hall.We will then invite Dr. Mars aboaRd to  collect the crystals and we will capturehim!":FORX=1TO5000:NEXTX:CLS:FORX=1TO500:NEXTX:CLS:?@125,"Radio Room...":FORX=1TO800:NEXTX
112?@185,"Yes Captain?":FORX=1TO500:NEXTX:CLS:?"Tell Dr. Mars we surrender and for him  to come aboard and collect the warp     crystals.":FORX=1TO1400:NEXTX:BEEP:BEEP:FORX=1TO100:BEEP
113FORX=1TO100:NEXTX:?@170,"Message sent Captain.":FORX=1TO1000:NEXTX:CLS:FORX=1TO500:NEXTX:?"You ";:GOSUB1:?"finally ";:GOSUB1:?"realize ";:GOSUB1:?"the ";:GOSUB1
114?"hopelessness ";:GOSUB1:?"of":GOSUB1:?"your ";:GOSUB1:?"plight.":GOSUB1:FORX=1TO500:NEXTX:?"Now, ";:GOSUB1:?"I ";:GOSUB1:?"won't ";:GOSUB1:?"be ";:GOSUB1:?"stranded ";:GOSUB1
115?"here ";:GOSUB1:?"in ";:GOSUB1:?"space!":GOSUB1:FORX=1TO1000:NEXTX:CLS:?@109,A$:?@205,E$:?@245,F$:FORX=1TO500:NEXTX:Q=207:?@Q,M$
116FORX=1TO5:?@Q," "+M$:SOUND 1400,3:SOUND0,30:Q=Q+1:NEXTX:?@0,"Dr. Mars' shuttle":?@40,"is approaching, Captain":FORX=1TO18:?@Q," "+M$:SOUND1400,3:SOUND0,30:Q=Q+1:NEXTX:FORX=1TO2:?@Q,"  ":Q=Q-40:?@Q,M$:SOUND1400,3:SOUND0,30:NEXTX
117SOUND16300,50:?@Q-1,O$:?@Q+1,N$:?@0,SPACE$(19):?@40,SPACE$(25):FORX=1TO500:NEXTX:?@0,"Rendevous with Dr. Mars":?@40,"completed, Captain.":FORX=1TO1000:NEXTX:CLS
118FORX=1TO500:NEXTX:?@128,"[Dr. Mars comes aboard]":FORX=1TO1000:NEXTX:CLS
119?@83,"Ar";:GOSUB2:?"r";:GOSUB2:?"r";:GOSUB2:?"r";:GOSUB2:?"r";:GOSUB2:?"r";:GOSUB2:?"r";:GOSUB2:?"r";:GOSUB2:?"g";:GOSUB2:?"g";:GOSUB2:?"g";:GOSUB2:?"g";:GOSUB2:?"g";:GOSUB2:?"g";:GOSUB2
120?"g";:GOSUB2:?"g";:GOSUB2:?"h";:GOSUB2:?"!";:GOSUB2:?" ";:FORX=1TO500:NEXTX:?"Sulll";:FORX=1TO400:NEXTX:?"fur!!!":FORX=1TO1000:NEXTX:CLS
121?"Hooray! ";:FORX=1TO800:NEXTX:?"We captured Dr. Mars, Captain!":FORX=1TO1400:NEXTX:?@125,"All right crew, ";:FORX=1TO500:NEXTX:?"head for home!":FORX=1TO1000:NEXTX:CLS:BEEP:BEEP:FORX=1TO500:NEXTX
122?"Captain, Dr. Mars is escaping!":FORX=1TO800:NEXTX:?"He is back on his shuttle heading for   his ship!    ";:FORX=1TO1500:NEXTX:?"Let's shoot him!":FORX=1TO1200:NEXTX:?:?"No, ";:FORX=1TO1000:NEXTX
123?"let him go. ";:FORX=1TO1000:NEXTX:?"He has a worse":?"punishment. ";:FORX=1TO800:NEXTX:?"Being marooned in space.":FORX=1TO1000:NEXTX:?"       Let's go.":FORX=1TO1000:NEXTX:CLS:FORX=1TO500:NEXTX:O=109
124?@109,A$:?@205,E$:?@245,F$:?@Q,M$:FORX=1TO500:NEXTX:?@40,"Warp 9":FORX=1TO500:NEXTX:?@Q," ":?@Q+40,M$:SOUND 8368,8:SOUND 7900,5:SOUND 7700,4:SOUND 7455,4:SOUND 7150,3:SOUND 7032,2
125?@Q+40," ":?@Q+80,M$:FORX=1TO29:O=O-1:?@O,A$:SOUND466,2:NEXTX:O=80:?@O,B$:SOUND466,2:?@O,C$:SOUND466,2:?@O,D$:SOUND466,2:O=109:FORX=1TO31:?@O,"    ":O=O-1:NEXTX:Q=Q+80:?@Q,M$
126FORX=1TO6:Q=Q-1:?@Q,M$+" ":SOUND1400,3:SOUND0,30:NEXTX:CLS:FORX=1TO1000:NEXTX
127CLS:FORX=1TO500:NEXTX:LINE(0,0)-(110,0):LINE(0,0)-(0,45):LINE(110,0)-(110,45):LINE(0,45)-(110,45):LINE(0,40)-(15,35):LINE(15,35)-(30,33):LINE(30,33)-(50,32):LINE(50,32)-(60,31):LINE(60,31)-(80,33):LINE(80,33)-(95,35):LINE(95,35)-(110,40)
128LINE(0,48)-(5,51),1,B:LINE(20,48)-(30,56),1,B:LINE(10,48)-(13,48):LINE(10,50)-(13,50):LINE(10,52)-(13,52):LINE(16,48)-(16,53):LINE(16,50)-(16,50),2:LINE(60,48)-(90,54),1,B:LINE(60,48)-(86,52),1,BF:LINE(40,48)-(55,60),1,B
129FORX=1TO1000:NEXTX:?@60,"There it is":?@100,"Captain...":FORX=1TO1000:NEXTX:?@140,"good 'ol":?@180,"Rigel!":FORX=1TO700:NEXTX
130CLS:GOSUB500:FORX=1TO500:NEXTX:Q=156:W=133:FORX=1TO120:?@Q,A$+" ":Q=Q-.2:NEXTX
131?@Q-.2,A$+" ":?@Q-.2,A$+" ":?@Q-.2,A$+" ":?@Q-.2,A$+" ":?@Q-.2,B$+" ":?@Q-.2,B$+" ":?@Q-.2,B$+" ":?@Q-.2,B$+" ":?@Q-.2,C$+" ":?@Q-.2,C$+" ":?@Q-.2,C$+" ":?@Q-.2,C$+" ":?@Q-.2,C$+" ":?@Q-.2,D$+" "
132?@Q-.2,D$+" ":?@Q-.2,D$+" ":?@Q-.2,D$+" ":?@Q-.2,D$+" ":?@Q-.2," ":LINE(70,20)-(70,40):FORX=1TO500:NEXTX:?@94,"Docking complete Captain.":FORX=1TO1000:NEXTX:CLS
133CLS:LINE(0,0)-(130,63),1,B:LINE(40,15)-(90,45),1,B:LINE(0,0)-(40,15):LINE(130,0)-(90,15):LINE(0,63)-(40,45):LINE(130,63)-(90,45):FORX=1TO1000:NEXTX
134?@143,"Closing Bay doors":FORX=1TO500:NEXTX:LINE(40,15)-(90,45),1,BF:SOUND10000,30:FORX=1TO500:NEXTX:?@143,"Bay doors closed."
135FORX=1TO1000:NEXTX:CLS:?@140,"The End":FORX=1TO500:NEXTX:GOSUB1000:LINE(21,33)-(31,33),0:LINE(24,33)-(28,33):LINE(24,33)-(21,31):LINE(28,33)-(31,31):LINE(25,21)-(25,20):LINE(24,21)-(24,20):LINE(31,21)-(31,20):LINE(32,21)-(32,20):FORX=1TO500:NEXTX
136GOSUB 1500:FORX=1TO1000:NEXTX:CLS:PRINTSTRING$(39,239):?T$+T$+T$;:PRINTSTRING$(33,255):?@76,T$+T$+T$:?T$+T$+STRING$(11,255);"Artwork"+J$;"by"+J$;"CCC"+STRING$(10,255)+T$+T$
137?T$;STRING$(10,255);"Directed"+J$;"by:"+J$;"Ben";STRING$(11,255)+T$:?T$+T$+J$+J$+J$+J$+"Copyright"+J$+"1987"+J$+"MPS"+J$+"Studios"+J$+J$+J$+J$+J$+T$+T$
138?T$+T$+T$;:PRINTSTRING$(33,255):?@236,T$+T$+T$:PRINTSTRING$(39,239):FORX=1TO7000:NEXTX:CLS:FORX=1TO500:NEXTX:?@80,"Many thanks to SAMBo BBS. (404) 766-7639  BBS on a Model-100 for Model 100's.       24 Hours a day     Atlanta, GA"
140FORX=1TO10000:NEXTX:MENU:END:STOP
400A$=CHR$(232)+CHR$(232)+CHR$(232)+CHR$(238):B$=CHR$(232)+CHR$(232)+CHR$(238):C$=CHR$(232)+CHR$(238):D$=CHR$(238)
401E$=CHR$(252)+CHR$(254):F$=CHR$(253)+CHR$(251):I$=CHR$(241):J$=CHR$(255):K$=CHR$(166):L$=CHR$(181):M$=CHR$(176)
402N$=CHR$(233):O$=CHR$(234):T$=CHR$(239):RETURN
500LINE(0,5)-(70,20):LINE-(70,40):LINE-(0,45):LINE(0,20)-(15,30),1,B:LINE(0,20)-(6,24),1,BF:LINE(6,22)-(15,22):LINE(6,24)-(15,24):LINE(0,26)-(15,26):LINE(0,28)-(15,28):RETURN
999END
1000LINE(20,10)-(20,22):LINE(19,11)-(19,22):LINE(18,12)-(18,22):LINE(17,13)-(17,22):LINE(16,14)-(16,22):LINE(15,15)-(15,22)
1001LINE(15,15)-(15,34):LINE(15,34)-(20,39):LINE(20,39)-(31,39):LINE(20,10)-(31,10):LINE(21,11)-(32,11):LINE(22,12)-(33,12):LINE(23,13)-(34,13):LINE(24,14)-(35,14)
1002LINE (25,15)-(36,15):LINE (36,15)-(36,34):LINE(36,34)-(31,39):LINE(22,21)-(22,18):LINE(23,17)-(26,17):LINE(27,18)-(27,21):LINE(23,22)-(26,22)
1003LINE(29,18)-(29,21):LINE(30,17)-(33,17):LINE(34,18)-(34,21):LINE(30,22)-(33,22):LINE(28,23)-(28,28):LINE(26,28)-(28,28):LINE(21,33)-(31,33)
1004LINE(20,40)-(24,41):LINE(20,43)-(24,44):LINE(26,41)-(30,40):LINE(26,44)-(30,43):LINE(20,40)-(20,43):LINE(24,41)-(24,44):LINE(26,41)-(26,44):LINE(30,40)-(30,43)
1005LINE(20,43)-(13,45):LINE(30,43)-(37,45):LINE(13,45)-(5,55):LINE(45,55)-(37,45):LINE(33,50)-(27,50):LINE(27,52)-(33,52)
1006RETURN
1010REM EYEBALLS
1011LINE(26,21)-(26,20):LINE(25,21)-(25,20):LINE(33,21)-(33,20):LINE(32,21)-(32,20):RETURN
1020LINE(24,21)-(24,20):LINE(23,21)-(23,20):LINE(31,21)-(31,20):LINE(30,21)-(30,20):LINE(26,21)-(26,20),2:LINE(25,21)-(25,20),2:LINE(33,21)-(33,20),2:LINE(32,21)-(32,20),2:RETURN
1100S=12538
1101SOUNDS,3:SOUND(S-100),3:SOUND(S-200),3:SOUND(S-300),3:SOUND(S-400),3:SOUND(S-500),3:SOUND(S-600),3:SOUND(S-700),3:
1102SOUND(S-600),3:SOUND(S-500),3:SOUND(S-400),3:SOUND(S-300),3:SOUND(S-200),3:SOUND(S-100),3
1103SOUNDS,3:SOUND(S-100),3:SOUND(S-200),3:SOUND(S-300),3:SOUND(S-400),3:SOUND(S-500),3:SOUND(S-600),3:SOUND(S-700),3:
1104SOUND(S-600),3:SOUND(S-500),3:SOUND(S-400),3:SOUND(S-300),3:SOUND(S-200),3:SOUND(S-100),3 
1105SOUNDS,3:SOUND(S-100),3:SOUND(S-200),3:SOUND(S-300),3:SOUND(S-400),3:SOUND(S-500),3:SOUND(S-600),3:SOUND(S-700),3:
1106SOUND(S-600),3:SOUND(S-500),3:SOUND(S-400),3:SOUND(S-300),3:SOUND(S-200),3:SOUND(S-100),3 
1107SOUNDS,3:SOUND(S-100),3:SOUND(S-200),3:SOUND(S-300),3:SOUND(S-400),3:SOUND(S-500),3:SOUND(S-600),3:SOUND(S-700),3
1108RETURN
1500SOUND3134,15:SOUND0,2:SOUND3134,3:SOUND0,2:SOUND3134,3:SOUND0,2:SOUND3134,20:SOUND0,3:SOUND3134,3:SOUND0,2:SOUND3134,3:SOUND0,2:SOUND3134,10:SOUND0,1:SOUND3134,10:SOUND0,1:SOUND3134,15:SOUND0,1:SOUND4184,8:SOUND0,1
1501SOUND3134,8:SOUND0,1:SOUND4184,8:SOUND0,1:SOUND3134,8:SOUND0,1:SOUND932,8:SOUND0,1:SOUND1046,53:SOUND0,1:SOUND0,10:SOUND3134,5:SOUND0,1:SOUND3134,5:SOUND0,1:SOUND3134,15:SOUND0,1:SOUND4184,8:SOUND0,1
1502SOUND3134,8:SOUND0,1:SOUND4184,8:SOUND0,1:SOUND3134,8:SOUND0,1:SOUND1046,8:SOUND0,1:SOUND1174,55:SOUND0,1:SOUND0,10:SOUND3134,5:SOUND0,1:SOUND3134,5:SOUND0,1:SOUND3134,15:SOUND0,1:SOUND4184,8:SOUND0,1
1503SOUND3134,8:SOUND0,1:SOUND4184,8:SOUND0,1:SOUND3134,8:SOUND0,1:SOUND932,8:SOUND0,1:SOUND1046,60:SOUND0,1:SOUND0,10:SOUND3134,5:SOUND0,1:SOUND3134,5:SOUND0,1:SOUND3134,15:SOUND0,1:SOUND4184,8:SOUND0,1
1504SOUND3134,8:SOUND0,1:SOUND4184,8:SOUND0,1:SOUND3134,8:SOUND0,1:SOUND1244,12:SOUND0,1:SOUND1396,55:SOUND0,10:SOUND3134,50:SOUND6269,100:RETURN
2000CLS:LINE(3,5)-(11,3):LINE(3,5)-(1,9):LINE(1,9)-(1,20):LINE(11,3)-(15,8):LINE(15,8)-(17,8):LINE(17,8)-(21,3):LINE(21,3)-(26,3):LINE(26,3)-(30,9)
2001LINE(30,9)-(30,20):LINE(1,20)-(3,24):LINE(30,20)-(27,24):LINE-(3,24):LINE(7,8)-(9,8):LINE(10,9)-(10,11):LINE(7,12)-(9,12):LINE(6,11)-(6,9):LINE(8,10)-(8,10)
2002LINE(11,8)-(13,8):LINE(14,9)-(14,11):LINE(11,12)-(13,12):LINE(10,11)-(10,9):LINE(12,10)-(12,10):LINE(22,8)-(24,8):LINE(25,9)-(25,11):LINE(22,12)-(24,12):LINE(21,11)-(21,9):LINE(23,10)-(23,10)
2003LINE(8,18)-(10,15):LINE-(11,15):LINE-(13,18):LINE-(14,18):LINE-(16,15):LINE-(17,15):LINE-(19,18):LINE-(20,18):LINE-(22,15):LINE-(23,15):LINE-(25,18)
2004RETURN