Atari 8-bit Source code

4?""
5POSITION14,4:?"GROW-WORM":POSITION12,6:?"BYEDAPOSTOL"
10POSITION13,10:?"PLEASEWAIT":GOSUB620:GOSUB760:GRAPHICS1+16
20POKE559,0:POKE712,196:POKE709,191:POKE710,30:POKE708,58:POKE711,142:LI=3:BO=248:GOSUB790:GOTO510
30?#6;"":POKE712,196:POKE709,191:POKE710,30:POKE708,58:POKE711,142
40POKE756,CHSET/256
50D=PEEK(88)+256*PEEK(89)
60FORA=1TO4:POKED+A,3:NEXTA:POKED+A,135:HD=D+A:TL=D+1:DR=3:IN=D+60+INT(RND(0)*340):POKEIN,BO
70GOSUB590
80SOUND1,200,12,8:SOUND0,0,0,0:JS=STICK(0):IFJS=15THEN120
90DR1=DR+((DR=3)*2)-((DR=4)*2)-((DR=5)*2)-((DR=6)*2)
100DR=6-(JS=11ORJS=10)-((JS=13ORJS=9)*2)-((JS=7ORJS=5)*3)
110IFDR=DR1THENDR=DR1+((DR1=3)*2)+((DR1=4)*2)-((DR1=5)*2)-((DR1=6)*2)
120HD1=HD+(DR=3)-(DR=5)+((DR=4)*20)-((DR=6)*20)
130IFHD1<DTHENHD1=HD1+459
140IFHD1>D+459THENHD1=HD1-459
150IFPEEK(HD1)<>0THENGOSUB300
160POKEHD,DR:POKEHD1,135:HD=HD1:SOUND1,0,0,0
170IFGR>0THENGR=GR-1:SC=SC+LL:GOTO210
180TD=PEEK(TL):POKETL,0:TL=TL+(TD=3)-(TD=5)+((TD=4)*20)-((TD=6)*20)
190IFTL<DTHENTL=TL+459
200IFTL>D+459THENTL=TL-459
210SOUND0,20+ID,12,6
220GOSUB230:GOTO80
230ID=INT(RND(0)*4):IFID=ADTHEN230
240AD=ID
250IN1=IN+(ID=0)-(ID=1)+((ID=2)*20)-((ID=3)*20)
260IFIN1<DTHENIN1=IN1-459
270IFIN1>D+459THENIN1=IN1-459
280IFPEEK(IN1)<>0THENRETURN
290POKEIN,0:POKEIN1,BO:IN=IN1:POSITION1,23:?#6;"score:";SC;"level:";LV:RETURN
300SOUND0,0,0,0:SOUND1,0,0,0:IFPEEK(HD1)=248THEN320
310GOTO350
320POKEIN,0:GR=GR+1+INT(RND(0)*LL)
330IN=D+60+INT(RND(0)*340):IFPEEK(IN)<>0THEN330
340FORDE=1TO10:SOUND0,DE,12,8:NEXTDE:FORDE=1TO10:SOUND0,0,0,0:RETURN
350TD=PEEK(TL):IFTD=135THEN370
360POKETL,TD+128:FORDE=1TO20:SOUND0,50+DE*2,10,9:NEXTDE:POKETL,0:SOUND0,0,0,0:SC=SC+5
370POKEIN,0:POSITION1,23:?#6;"score:";SC;"level:";LV:TL=TL+(TD=3)-(TD=5)+((TD=4)*20)-((TD=6)*20)
380IFTL<DTHENTL=TL+459
390IFTL>D+459THENTL=TL-459
400IFTD<>135THEN350
410HD1=HD-20:POKEHD,135:FORDE=1TO10:SOUND0,20+DE,12,8:NEXTDE:FORDE=1TO10:NEXTDE
420POKEHD,0:SOUND0,0,0,0:IFHD1<DTHEN440
430HD=HD1:GOTO410
440IFLI=1THEN510
450LI=LI-1:POSITION2,0:?#6;LI;"li";:IFLI>1THEN?#6;"ves";:GOTO470
460?#6;"fe";
470?#6;"left.":FORI=1TO500:NEXTI
480IFSTRIG(0)=1THEN480
490POSITION0,0:?#6;""
500GR=0:GOTO30
510POKE765,CHSET/256:POSITION2,0:?#6;"ENDOFGAME.":IFSC>HSCTHENHSC=SC
520D=PEEK(88)+256*PEEK(89):POSITION2,10:?#6;"highscore:";HSC
530IN=D+60+INT(RND(0)*340)
540POKE77,0:IFSTRIG(0)=1THENGOSUB230:GOTO540
550SC=0:LI=3:POSITION2,0:?#6;"whichlevel."
560OPEN#1,4,0,"K:":GET#1,A:CLOSE#1
570A=A-48:IFA<0ORA>9THEN560
580LL=1+A+((A>0)*8):GR=0:LV=A:GOTO30
590FORC=1TOLL:X=INT(RND(0)*18)+1:Y=INT(RND(0)*18)+1
600X=INT(RND(0)*16)+2:Y=INT(RND(0)*19)+2:LOCATEX,Y,PO:IFPO<>32THEN600
610POSITIONX,Y:?#6;"z":NEXTC:RETURN
620DIMC$(20)
630C$="#$%&'ZX"
640CHSET=(PEEK(106)-8)*256:CHORG=57344
650FORI=0TO511:POKECHSET+I,PEEK(CHORG+I):NEXTI
660FORI=1TOLEN(C$):CHPOS=CHSET+(ASC(C$(I))-32)*8
670FORJ=0TO7:READA:POKECHPOS+J,A:NEXTJ:NEXTI
680RETURN
690DATA60,126,255,255,255,255,126,60,60,126,255,255,255,255,126,60,60,126,255,255,255,255,126,60
700DATA60,126,255,255,255,255,126,60,60,126,219,153,255,231,66,36,24,60,255,126,24,24,24,0
710DATA60,153,126,60,126,189,36,66
760DATA72,138,72,238,80,6,174,80,6,189,31,6,141,10,212,141,26,208,224,24,208,5,169,0,141,80,6,104,170,104,64
770DATA196,196,196,194,194,194,196,196,196,194,194,194,196,196,196,194,194,194,196,196,196,194,194,34,194
780FORA=1TO56:READB:POKE1535+A,B:NEXTA:RETURN
790D=PEEK(560)+256*PEEK(561)
800POKED+3,198:FORA=1TO23:POKED+5+A,134:NEXTA
810POKE512,0:POKE513,6:POKE1616,0:POKE54286,192:POKE559,34
820RETURN	

• Download link 1

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