Atari 8-bit Source code

1REM
2REM
3REM
4REM
5REM
6REM
25GRAPHICS18:?#6;"LOADINGDATA...."
30POKE742,INT(PEEK(742)-4):X=PEEK(742)*256:OPEN#1,4,0,"D:ROBOT1":FORI=XTOX+1000
35GET#1,MEM:POKEI,MEM:NEXTI:CLOSE#1:POKE756,PEEK(742)
36REM**LOADPMGRAPHICSSUBROUTINES**
37RESTORE:DIMU$(326):FORI=1TO326:READA:U$(I)=CHR$(A):NEXTI:DIMX$(110)
38POSITION0,0:?#6;"":FORA=1TO8:?#6;"vvvvvvvvvvvvvvvvvvv":NEXTA
39POSITION0,9:?#6;"":POSITION4,2:?#6;"":POSITION4,3:?#6;"%IG*TNING"
40POSITION4,4:?#6;"":POSITION4,5:?#6;"&OWOT":POSITION4,6:?#6;"":OP=1
41X$="STARTW"
42GOSUB8000:FORA=1TO9:POSITION18,A-1:?#6;"":NEXTA:POSITION0,11:?#6;""
43FORA=1TOLEN(X$)-16:POSITION0,10:?#6;"";X$(A,A+16);"":IFPEEK(53279)=6ORSTRIG(0)=0THENPOP:GOTO49
44IFA/20=INT(A/20)THENOP=OP+1:IFOP>3THENOP=1
45IFOP=1THENPOSITION1,8:?#6;"OPTION:regular"
46IFOP=2THENPOSITION1,8:?#6;"OPTION:wounce"
47IFOP=3THENPOSITION1,8:?#6;"OPTION:wullring"
48FORB=1TO16:NEXTB:NEXTA:GOTO43
49EX=0:IFOP=3THENEX=5
50DATA104,133,207,198,207,240,23,104,104,170,189,233,6,133,203,189,238,6,133,204,198,207,240,6,104,133,206
55DATA104,133,205,104,141,255,6,104,141,254,6,108,254,6,160,0,152,145,203,200,16,251,96,188,243,6,162,0,161
60DATA205,201,0,240,11,145,203,230,205,208,2,230,206,200,208,239,96,169,255,208,6,169,3,208,2,169,12,93,218,6
65DATA24,144,25,165,208,41,15,168,185,218,6,24,144,14,165,205,24,144,9,173,1,211,24,144,3,173,0,211,157,218,6
70DATA189,213,6,133,209,198,209,208,1,96,189,218,6,133,207,70,207,176,26,188,243,6,192,1,240,19,208,1,200,177
75DATA203,240,6,136,145,203,200,208,245,136,145,203,222,243,6,70,207,176,29,188,243,6,200,192,126,176,21
80DATA177,203,208,247,136,177,203,240,6,200,145,203,136,208,245,200,145,203,254,243,6,70,207,176,3,222,248
85DATA6,70,207,176,3,254,248,6,189,248,6,157,0,208,24,144,160,189,248,6,56,233,44,74,74,74,133,212,169
90DATA0,133,213,96,189,243,6,56,233,12,74,74,74,133,212,169,0,133,213,96,164,205,185,248,6,157,248,6,185
91DATA243,6,157,243,6,96,104,165,106,56,233,8,141,253,6,141,7,212,170,232,142,242,6,232,142,238,6,142,239
92DATA6,232,142,240,6,142,241,6,169,0,141,233,6,141,235,6,169,128,141,234,6,141,236,6,141,237,6,169,46,141
93DATA47,2,169,3,141,29,208,96
100U=ADR(U$):A=USR(U+265):START=PEEK(1789)*256:R3=U+111:R6=U+117:R9=U+81:R10=U+77:DIMC(16),S$(6):R11=U+218
110RESTORE120:FORI=STARTTOSTART+13:READA:POKEI,A:NEXTI
120DATA24,24,16,124,186,186,186,105,40,40,40,108,0,0,0,0
130ROOM=-2:SCORE=0:DIMRX(10),RY(10),DX(15),DY(15):RESTORE132:FORA=5TO15:READB,C:DX(A)=B:DY(A)=C:NEXTA
131DIMR(6),A$(3),R5(6):MEN=3:FORA=1TO5:R(A)=1:R5(A)=1:NEXTA:RESTORE133:FORA=0TO15:READB:C(A)=B:NEXTA
132DATA1,1,1,-1,1,0,0,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,0,0,0,0,0,0
133DATA2,11,3,14,4,13,5,12,6,11,1,3,1,4,1,1,1
140POKE53248,58:POKE1784,58:POKE1779,50:POKE704,168
150X=0:A=USR(U,X,U+41):A=USR(U,X,START,U+50):POKE77,0:POKE1749,2
170POKE53278,0:TIME=30:FAST=10:SCORE=0:HIT=0
180REM
190POSITION1,1:COLOR1:?#6;"":POSITION0,0:?#6;"VVVVVVVVVVVVVVVVVV":POSITION0,10:?#6;"VVVVVVVVVVVVVVVVVV"
191FN=0:TI=0:DI=15-ROOM:SETCOLOR0,C(ROOM+2),6:SETCOLOR1,C(ROOM+2)+1,5:KILLS=0:FORA=1TOMEN-1:POSITIONA,11
192?#6;"H":NEXTA:FORA=0TO3:POSITION0,A:?#6;"V":POSITION18,A:?#6;"V":NEXTA:FORA=7TO10
193POSITION0,A:?#6;"V":POSITION18,A:?#6;"V":NEXTA:IFDMAN=1THENFORB=1TO5:R(B)=R5(B):NEXTB:DMAN=0
194IFROOM=-2THENGOSUB1000+EX:ROOM=-1:GOTO196
195ROOM=ROOM+1:COLOR2:GOSUB1000+10*ROOM+EX:IFROOM=12THEN4000
196POKE53248,58:POKE1784,58:RR=0:R=0:DEAD=1:POSITION5,11:?#6;"GETREADY":GOSUB6200
197FORB=1TO80:X=USR(U,0,R11):IFB/5=INT(B/5)ANDX>0THENA=USR(U,0,R3):A=USR(U,0,R3):Y=USR(U,0,R12)
198NEXTB:GOSUB290:FORA=4TO6:POSITION0,A:?#6;"V":FORB=1TO10:NEXTB
199NEXTA:SOUND0,255,8,14:SOUND1,230,8,14:FORA=1TO30:NEXTA:SOUND0,0,0,0:SOUND1,0,0,0
200A=USR(U,0,R3):GOSUB500:TI=TI+1:IFTI/DI=INT(TI/DI)ANDDEAD=1THENGOSUB600
210IFKILLS=5ANDRR=0THENGOSUB3050:SCORE=SCORE+50:DEAD=2:KILLS=6:S5=SCORE-50:GOSUB578
220A=USR(U,0,R3):IFPEEK(53279)=6THENPOKE53248,0:POKE1784,0:RUN
240A=USR(U,0,R3):A=USR(U,0,R3):IFROOM>-1THENGOSUB799:GOSUB799
250POKE53278,0:X=USR(U,0,R11):Y=USR(U,0,R12):IFPEEK(53252)=1ANDOP<>2THEN2000
253IFOP=2THENLOCATEX,Y,G:IFG<>0ANDG<>32THENGOSUB265:GOTO257
255LOCATEX,Y,G:IFG<>0ANDG<>32THEN2000
257IFX>18THEN3040
260GOSUB500:S$=STR$(SCORE):POSITION10-LEN(S$),11:?#6;SCORE:GOTO200
265R7=U+73:A=USR(U,0,R7):R6=U+117:A=USR(U,0,R6):A=USR(U,0,R6):A=USR(U,0,R6):A=USR(U,0,R6):RETURN
290POSITION5,11:?#6;"00000room";ROOM+2:S$=STR$(SCORE):POSITION10-LEN(S$),11:?#6;SCORE:RETURN
500COLOR1:IFR=1THEN520
510B=STRIG(0):IFB<>0THENR=0:RETURN
511IFSTICK(0)=15THENRETURN
513LOCATEX,Y,G:IFG<>32ANDG<>0THENR=0:RETURN
515XD=DX(STICK(0)):YD=DY(STICK(0)):XX=X+XD:YY=Y+YD:R=1:LOCATEXX,YY,J:IFJ=86THENR=0:RETURN
516IFINT(XX)=XANDINT(YY)=YTHENR=0:RETURN
517IFJ=122THENR=0:POSITIONXX,YY:?#6;"J":GOTO550
518POSITIONXX,YY:?#6;"Q":FORB=0TO30STEP5:SOUND0,B,10,6:SOUND1,B+5,10,6:NEXTB:SOUND0,0,0,0
519SOUND1,0,0,0
520POSITIONXX,YY:?#6;"":XX=XX+XD:YY=YY+YD:LOCATEXX,YY,J:IFJ=86THENR=0:RETURN
525IFXX<1ORXX>17THENR=0:RETURN
530IFJ=122THENR=0:POSITIONXX,YY:?#6;"J":R=0:GOTO550
540POSITIONXX,YY:?#6;"Q":RETURN
550FORA=1TO5:IFRX(A)=XXANDRY(A)=YYTHENR(A)=2
560NEXTA:R=0:S5=SCORE:SCORE=SCORE+10*(ROOM+2):KILLS=KILLS+1
563SOUND2,75,8,15:SOUND0,6,0,8:SOUND1,21,0,8:SOUND2,27,0,8:FORB=1TO10:NEXTB
570POSITIONXX,YY:?#6;"":SOUND0,0,0,0:SOUND1,0,0,0:SOUND2,0,0,0
575IFKILLS=5ANDRR=0THENGOSUB3050:SCORE=SCORE+50:DEAD=2:KILLS=6
578IFINT(S5/1000)<INT(SCORE/1000)THEN580
579RETURN
580FORA=1TO7:SOUND0,9,10,14:FORB=1TO12:NEXTB:SOUND0,0,0,0:FORB=1TO12:NEXTB:NEXTA:MEN=MEN+1
582FORA=1TOMEN-1:POSITIONA,11:?#6;"H":NEXTA:RETURN
600COLOR2:FORA=1TO5:IFR(A)=2THEN700
610B=SGN(X-RX(A)):C=SGN(Y-RY(A)):RX(A)=RX(A)+B:RY(A)=RY(A)+C:LOCATERX(A),RY(A),H
620IFH<>32THENRX(A)=RX(A)-B:RY(A)=RY(A)-C:POSITIONRX(A),RY(A):?#6;"z":GOTO700
630POSITIONRX(A)-B,RY(A)-C:?#6;"":POSITIONRX(A),RY(A):?#6;"z"
700NEXTA:IFDI>4THENDI=DI-1
705A=USR(U,0,R3):RETURN
799COLOR1:IFRR=1THEN860
800FN=FN+1:IFFN>5THENFN=1
805IFR(FN)=2THENRETURN
810IFRX(FN)=XANDRY(FN)<YTHENR1=0:R2=1:GOTO850
820IFRX(FN)=XANDRY(FN)>YTHENR1=0:R2=-1:GOTO850
830IFRY(FN)=YANDRX(FN)<XTHENR1=1:R2=0:GOTO850
840IFRY(FN)=YANDRX(FN)>XTHENR1=-1:R2=0:GOTO850
841IFROOM<4THENRR=0:RETURN
845IFRX(FN)-X=RY(FN)-YANDX<RX(FN)THENR1=-1:R2=-1:GOTO850
846IFRX(FN)-X=RY(FN)-YANDX>RX(FN)THENR1=1:R2=1:GOTO850
847IFRX(FN)+X=RY(FN)+YANDX<RX(FN)THENR1=-1:R2=1:GOTO850
848IFRX(FN)+X=RY(FN)+YANDX>RX(FN)THENR1=1:R2=-1:GOTO850
849RR=0:RETURN
850RR=1:XR=RX(FN)+R1:YR=RY(FN)+R2:LOCATEXR,YR,I:IFI=86THENRR=0:RETURN
855POSITIONXR,YR:?#6;"Q":SOUND0,10,10,14:SOUND0,0,0,0
860POSITIONXR,YR:?#6;"":XR=XR+R1:YR=YR+R2:LOCATEXR,YR,K:IFK=86ORK=122THENRR=0:RETURN
865IFXR<1ORXR>17THENRR=0:RETURN
870IFXR=XANDYR=YTHENPOP:GOTO2000
880POKE53278,0:POSITIONXR,YR:?#6;"Q":IFPEEK(53252)=1ANDOP<>2THENPOP:GOTO2000
890RETURN
1000COLOR1:FORA=6TO4STEP-1:POSITION5,A:?#6;"V":NEXTA:FORA=5TO10:POSITIONA,4:?#6;"V"
1002NEXTA:FORA=8TO9:POSITION10,A:?#6;"V":NEXTA:FORA=1TO5:POSITION14,A:?#6;"V":NEXTA
1005RESTORE1009:COLOR2:FORA=1TO5:READB,C:RX(A)=B:RY(A)=C:IFR(A)=1THENPOSITIONRX(A),RY(A):?#6;"z"
1006NEXTA:RETURN
1009DATA5,2,5,8,8,6,12,8,16,3
1010COLOR1:FORA=4TO7:POSITIONA,3:?#6;"V":NEXTA:FORA=4TO10:POSITIONA,6:?#6;"V":NEXTA
1013FORA=3TO6:POSITION10,A:?#6;"V":NEXTA:FORA=3TO9:POSITION14,A:?#6;"V":NEXTA
1015RESTORE1017:COLOR2:FORA=1TO5:READB,C:RX(A)=B:RY(A)=C:IFR(A)=1THENPOSITIONRX(A),RY(A):?#6;"z"
1016NEXTA:RETURN
1017DATA2,8,6,2,8,5,12,7,16,2
1020COLOR1:FORA=4TO9:POSITION4,A:?#6;"V":NEXTA:FORA=4TO6:POSITION7,A:?#6;"VV":NEXTA
1022POSITION7,4:?#6;"VVVVV":FORA=1TO6:POSITION14,A:?#6;"V":NEXTA
1025RESTORE1027:COLOR2:FORA=1TO5:READB,C:RX(A)=B:RY(A)=C:IFR(A)=1THENPOSITIONRX(A),RY(A):?#6;"z"
1026NEXTA:RETURN
1027DATA2,2,9,2,9,7,13,6,16,2
1030COLOR1:POSITION4,3:?#6;"VVVV":POSITION4,7:?#6;"VVVV":FORA=3TO7:POSITION10,A:?#6;"V":NEXTA
1032FORA=1TO3:POSITION13,A:?#6;"V":NEXTA:FORA=7TO9:POSITION13,A:?#6;"V":NEXTA
1035RESTORE1039:COLOR2:FORA=1TO5:READB,C:RX(A)=B:RY(A)=C:IFR(A)=1THENPOSITIONRX(A),RY(A):?#6;"z"
1036NEXTA:RETURN
1039DATA9,5,6,1,6,9,11,5,17,3
1040COLOR1:FORA=3TO7:POSITION3,A:?#6;"V":POSITION9,A:?#6;"V":POSITION15,A:?#6;"V":NEXTA
1041FORA=1TO4:POSITION12,A:?#6;"V":NEXTA:FORA=6TO9:POSITION6,A:?#6;"V":NEXTA
1043POSITION3,3:?#6;"VVVVVVV":POSITION9,7:?#6;"VVVVVVV"
1045RESTORE1049:COLOR2:FORA=1TO5:READB,C:RX(A)=B:RY(A)=C:IFR(A)=1THENPOSITIONRX(A),RY(A):?#6;"z"
1046NEXTA:RETURN
1049DATA2,2,4,4,15,8,14,6,16,5
1050COLOR1:FORA=7TO9:POSITION5,A:?#6;"V":POSITION8,A:?#6;"V":POSITION13,A:?#6;"V":NEXTA
1052FORA=1TO3:POSITION5,A:?#6;"V":POSITION8,A:?#6;"V":POSITION13,A:?#6;"V":NEXTA
1054POSITION5,3:?#6;"VVVVVVVVV":POSITION5,7:?#6;"VVVVVVVVV"
1055RESTORE1059:COLOR2:FORA=1TO5:READB,C:RX(A)=B:RY(A)=C:IFR(A)=1THENPOSITIONRX(A),RY(A):?#6;"z"
1056NEXTA:RETURN
1059DATA15,5,2,2,2,7,9,1,9,9
1060COLOR1:POSITION0,3:?#6;"VVVVVVVVVV":POSITION1,6:?#6;"VVVVVV":POSITION6,7:?#6;"V"
1062FORA=3TO7:POSITION9,A:?#6;"V":NEXTA:FORA=3TO9:POSITION12,A:?#6;"V":NEXTA
1064FORA=1TO6:POSITION15,A:?#6;"V":NEXTA
1065RESTORE1069:COLOR2:FORA=1TO5:READB,C:RX(A)=B:RY(A)=C:IFR(A)=1THENPOSITIONRX(A),RY(A):?#6;"z"
1066NEXTA:RETURN
1069DATA8,5,1,9,12,2,14,8,16,4
1070COLOR1:POSITION4,3:?#6;"VVVVVVVVV":POSITION4,7:?#6;"VVVVVVVVV":FORA=1TO3:POSITION8,A
1071?#6;"V":NEXTA
1072FORA=3TO7:POSITION4,A:?#6;"V":NEXTA:FORA=7TO9:POSITION8,A:?#6;"V":NEXTA
1075RESTORE1079:COLOR2:FORA=1TO5:READB,C:RX(A)=B:RY(A)=C:IFR(A)=1THENPOSITIONRX(A),RY(A):?#6;"z"
1076NEXTA:RETURN
1079DATA2,2,2,8,5,5,15,2,15,8
1080COLOR1:POSITION3,4:?#6;"VVVVVVVVVVV":POSITION3,7:?#6;"VVVVVVVVVVVVV":POSITION15,3:?#6;"VVV"
1082FORA=1TO3:POSITION3,A:?#6;"VVV":NEXTA:FORA=8TO9:POSITION3,A:?#6;"VVV":NEXTA
1085RESTORE1089:COLOR2:FORA=1TO5:READB,C:RX(A)=B:RY(A)=C:IFR(A)=1THENPOSITIONRX(A),RY(A):?#6;"z"
1086NEXTA:RETURN
1089DATA15,4,2,1,2,9,12,3,12,8
1090COLOR1:FORA=1TO3:POSITION1,A:?#6;"VVVVV":NEXTA:FORA=4TO6:POSITION12,A:?#6;"VVV":NEXTA
1092FORA=7TO9:POSITION1,A:?#6;"VVVVVVVVVVVVVV":NEXTA
1095RESTORE1099:COLOR2:FORA=1TO5:READB,C:RX(A)=B:RY(A)=C:IFR(A)=1THENPOSITIONRX(A),RY(A):?#6;"z"
1096NEXTA:RETURN
1099DATA5,2,4,8,9,3,15,4,15,1
1100COLOR1:POSITION3,3:?#6;"VVVVVVVVVVVVV":POSITION1,7:?#6;"VVVVVVVVVVVVV":FORA=8TO9:POSITION1,A
1102?#6;"VVVVVVVV":NEXTA
1105RESTORE1109:COLOR2:FORA=1TO5:READB,C:RX(A)=B:RY(A)=C:IFR(A)=1THENPOSITIONRX(A),RY(A):?#6;"z"
1106NEXTA:RETURN
1109DATA9,5,5,4,5,6,13,4,13,6
1110COLOR1:FORA=1TO3:POSITION1,A:?#6;"VVVVVVVVVVVVVVVVV":NEXTA
1112FORA=7TO9:POSITION1,A:?#6;"VVVVVVVVVVVVVVVVV":NEXTA
1115RESTORE1119:COLOR2:FORA=1TO5:READB,C:RX(A)=B:RY(A)=C:IFR(A)=1THENPOSITIONRX(A),RY(A):?#6;"z"
1116NEXTA:RETURN
1119DATA7,5,5,4,5,6,9,4,9,6
1120COLOR1:FORA=1TO3:POSITION1,A:?#6;"VVVVVVVVV":NEXTA:FORA=7TO9:POSITION1,A
1121?#6;"VVVVVVVVV"
1122NEXTA:FORA=3TO5:R(A)=2:R5(A)=2:NEXTA
1124POSITION8,5:?#6;"BFK"
1125RESTORE1129:COLOR2:FORA=1TO5:READB,C:RX(A)=B:RY(A)=C:IFR(A)=1THENPOSITIONRX(A),RY(A):?#6;"z"
1126NEXTA:RETURN
1129DATA1,4,1,6,9,9,9,9,9,9
2000FORA=1TO128STEP2:POKE704,A:SOUND0,0,0,8:SOUND0,30,0,8:NEXTA:POKE704,168:SOUND0,0,0,0
2001POSITION0,9:?#6;"SCORE:";SCORE;""
2003POKE764,255:POSITION1,11:?#6;"":MEN=MEN-1:IFMEN<1THEN2009
2005POSITION4,11:IFMEN=1THEN?#6;"LASTMAN":GOTO2007
2006?#6;MEN;"MOREMEN"
2007FORC=1TO400:NEXTC:POSITION4,11:?#6;"":ROOM=ROOM-1:POSITION1,1:GOTO2040
2009POSITION1,5:?#6;"":POSITION4,11:?#6;"PLAYAGAIN?"
2012FORA=1TO2000:IFPEEK(764)=43THENPOP:GOTO2015
2014NEXTA
2015POKE53277,0:CLR:RUN
2040FORA=1TO5:R5(A)=R(A):NEXTA:DMAN=1:GOTO190
3000DATA47,96,15,45,91,10,47,96,15,45,91,10,40,81,10,60,121,80
3010DATA45,91,20,47,96,8,45,91,10,53,108,80,0,0,0
3040DEAD=1:DMAN=0:FORA=1TO5:R(A)=1:NEXTA:GOTO190
3050RESTORE3000
3060READB,B1,C:C=C*0.28:IFB=0THEN3080
3065POKE53278,0:A=USR(U,0,R3):A=USR(U,0,R3):A=USR(U,0,R3):X=USR(U,0,R11):Y=USR(U,0,R12)
3066IFPEEK(53252)=1ANDOP<>2THENPOP:SOUND0,0,0,0:SOUND1,0,0,0:GOTO2000
3067LOCATEX,Y,G:IFG<>32ANDG<>0THENGOSUB265
3068IFX>18THENR5=U+100:FORD=1TO4:A=USR(U,0,11,R5):NEXTD
3070SOUND0,B,10,10:SOUND1,B1,10,5:FORD=1TOC:NEXTD
3071IFB=60THENSOUND0,0,0,0:SOUND1,0,0,0:FORD=1TO10:NEXTD
3075GOTO3060
3080FORD=1TO10:NEXTD:SOUND0,0,0,0:SOUND1,0,0,0:RETURN
4000POKE53277,0:X=4:Y=5:X1=4:Y1=5:SETCOLOR0,1,6
4010POSITIONX1,Y1:?#6;"":X1=X:Y1=Y:POSITIONX,Y:?#6;"H":C=STICK(0):IFC<15THENX=X+DX(C):Y=Y+DY(C)
4015IFX=9ANDY=5THENPOSITIONX1,Y1:?#6;"":GOTO4050
4020LOCATEX,Y,G:IFG<>32THENX=X1:Y=Y1
4022POSITION8,5:?#6;"BFK":IFX>16THENX=16
4023IFX<2THENX=2
4025GOSUB500:GOSUB500:IFX>6THENGOSUB600
4030GOTO4010
4050FORA=8TO15:POSITIONA,5:?#6;"BFK":FORB=1TO17-A:SOUND0,255-A-B,2,14:NEXTB:NEXTA
4060POSITION3,3:?#6;""
4070FORA=1TO10:POSITIONRND(0)*17,A:?#6;"Q":NEXTA
4080FORA=1TO15:POSITIONA,5:?#6;"BFK":SOUND0,230-(A*10),2,14:NEXTA:POSITION15,5:?#6;""
4090FORA=80TO0STEP-1:SOUND0,A,2,INT((A+1)/10):NEXTA:FORA=1TO300:NEXTA
4093POSITION0,9:?#6;"SCORE:";SCORE:GOTO2009
6200R5=U+100:R12=U+234:POKE1749,6
6210Y=USR(U,0,R12):IFY>5THENA=USR(U,0,14,R5):GOTO6210
6220IFY<5THENA=USR(U,0,13,R5):GOTO6210
6230POKE1749,2:RETURN
8000RESTORE8500
8010READA,B,C:C=C*0.75:IFA=5THENSOUND0,0,0,0:SOUND1,0,0,0:SOUND2,0,0,0:RETURN
8011IFPEEK(53279)<>7THENFORD=0TO2:SOUNDD,0,0,0:NEXTD:RETURN
8013IFB=0THENSOUNDA,B,10,0:GOTO8017
8015SOUNDA,B,10,8
8017IFC=0THEN8010
8020FORD=1TOC:NEXTD:IFC<>INT(C)THENSOUNDA,0,0,0
8030GOTO8010
8500DATA1,96,0,2,81,0,0,47,15,0,50,5,0,47,15,0,50,5,0,47,10,0,40,30,1,0,0,2,0,0
8510DATA1,96,0,2,121,0,0,60,15,0,64,5,0,60,15,0,53,5,0,47,20,0,0,5,1,0,0,2,0,0
8520DATA1,91,0,2,72,0,0,45,5.5,0,45,15.5,0,45,5,0,40,30.1,0,45,5,1,0,0,2,0,0
8530DATA1,96,0,2,121,0,0,47,15,0,53,5,0,60,15,0,53,5,0,47,30.5,1,0,0,2,0,0
8540DATA1,96,0,0,47,5,1,108,0,0,53,25.5,0,53,5,1,72,0,0,35,25,1,85,0,0,42,10,1,81,0,0,40,40,0,0,0,1,0,0,2,0,20
8550DATA1,96,0,2,81,0,0,47,15,0,50,5,0,47,15,0,50,5,0,47,10,0,40,30,1,0,0,2,0,0
8560DATA1,96,0,2,121,0,0,60,15,0,64,5,0,60,15,0,53,5,0,47,20,0,0,5,1,0,0,2,0,0
8570DATA1,91,0,2,72,0,0,45,5.5,0,45,15.5,0,45,5,0,40,30.1,0,45,5,1,0,0,2,0,0
8580DATA1,96,0,2,121,0,0,47,15,0,53,5,0,60,15,0,53,5,0,47,30.5,1,0,0,2,0,0
8590DATA1,96,0,0,47,5,1,108,0,0,53,10,1,121,0,0,60,5,1,128,0,0,64,15,1,121,0,0,60,5,1,108,0,0,53,25,1,96,0
8595DATA0,47,5,1,121,0,0,60,0,2,96,40
8900DATA5,5,5,5	

• Download link 1

• Download link 1
• Download link 2
• Download link 3