Home » Personal collection » Acorn ADFS disks » Electron » Digital_pictures_2.ADF » GAMES1/WORZ

GAMES1/WORZ

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 » Digital_pictures_2.ADF
Filename: GAMES1/WORZ
Read OK: ✔
File size: 1C34 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10ENVELOPE3,5,20,-20,20,1,2,1,100,0,0,0,50,0:HI%=0:HI$="":VDU23,224,24,24,24,255,255,24,24,24,23,254,153,66,60,0,0,60,66,153,23,253,0,129,102,60,60,102,129,0:ON ERROR GOTO 740 
   20MODE1:VDU23;8202;0;0;0;:COLOUR0:PROCINIT:*FX4,0
   30 CLS:PROCINITSCREEN:A%=INKEY500:IF A%=-1 AND HI$<>"" GOTO250 ELSE IF A%=-1 AND HI$="" REPEAT:SOUND1,246,0,20:SOUND1,168,0,20:SOUND1,107,0,20:A%=INKEY500:UNTILA%<>-1
   40LI%=3:KI%=0:SC%=0:SR%=0:MODE1:VDU23;8202;0;0;0;:*FX12,1
   50*FX11,1
   60*FX10,10
   70*FX9,3
   80PROCCHARS:SC%=SC%+1:CLS:COLOUR3:PROCW(6,15,"ENTERING GRIDD LEVEL "+STR$(SC%))
   90PROCGRIDD:PROCSCREEN
  100PROCVARI:?&70=SC%MOD4:CALLALIEN:VDU19,3,3;0;:SOUND0,-15,7,255:FORT%=255TO0STEP-2:SOUND&11,-1,T%,1:VDU19,1,5;0;19,1,1;0;19,2,0;0;19,2,4;0;19,0,4;0;19,0,0;0;:NEXT
  110TIME=0:SOUND&10,-3,8,255:REPEAT
  120H%=H%+1:IF H%=231H%=229
  130?&74=H%:IFSC%<5?&70=SC% ELSE ?&70=(TIME DIV100)MOD4+1
  140IF RND(10)<=SC%OR?&8E=1 PROCRND
  150CALLYUK:PROCSNAKE
  160IF ABS(100-CO%)<5 VDU19,1,14;0;:SOUND 3,3,200,1 
  170UNTIL KI%=1 OR CO%<=0 
  180SOUND&13,0,0,0:SOUND&11,0,0,0:SOUND&12,0,0,0:VDU19,1,1;0;
  190*FX15,0
  200IF CO%<=0PROCEND:CLS:COLOUR3:PROCW(6,4,"GRIDD FORCE "+STR$(SC%)+" ELIMINATED"):FOR T%=0TO2000:NEXT:GOTO80 
  210LI%=LI%-1:KI%=0:SX%=SX%-(X2% AND SX%+X2%<33 AND SX%+X2%>6):SY%=SY%-(Y2% AND SY%+Y2%<25 AND SY%+Y2%>5):X2%=0:Y2%=0:PROCDED:IFLI%=0GOTO240
  220 CLS:GOTO90
  230*FX15,0
  240VDU19,1,1;0;28,1,30,38,1,12,26,17,3:PROCW(15,15,"GAME OVER"):IF SR%>HI% HI%=SR%:PROCHIGH
  250VDU26,12,18,0,2,19,3,3;0;:FOR T%=0TO100:PLOT69,RND(1280),RND(1023):NEXT:COLOUR3:PROCW(13,8,"HIGH SCORER"):PROCW((40-LEN(HI$))DIV2-1,15,HI$):PROCW(17,18,"WITH"):PROCW(17,20,STR$(HI%)):A%=INKEY500
  251GOTO30
  260DEFPROCCHARS:PROCRNDCHAR(229):PROCRNDCHAR(230):ENDPROC
  270DEFPROCSCREEN:VDU12,19,1,0;0;19,2,0;0;19,3,0;0;
  272VDU29,640;512;:GCOL0,2:FORT%=-512TO512STEP32:MOVE640,T%:DRAW-640,-T%:NEXT:FORT%=-640TO640STEP32:MOVET%,512:DRAW-T%,-512:NEXT:VDU28,6,25,33,5,12,26:COLOUR1:PRINTTAB(6,5);CHR$245;
  275PRINT STRING$(26,CHR$241); 
  280PRINTCHR$246:FOR T%=6TO25:PRINTTAB(6,T%);CHR$242;TAB(33,T%);CHR$242:NEXT:PRINTTAB(6,26);CHR$244;STRING$(26,CHR$241);CHR$243:COLOUR2:FOR T%=6TO25:PRINTTAB(7,T%);STRING$(26,CHR$224);:NEXT:COLOUR1:PRINTTAB(16,27);CHR$245; 
  281PRINTSTRING$(6,CHR$241);CHR$246;TAB(16,28);CHR$242
  290COLOUR3:PRINTTAB(17,28)"000000";:COLOUR1:PRINTCHR$242;TAB(16,29);CHR$244;STRING$(6,CHR$241);CHR$243:CO%=519:FOR T%=0TOSC%:PROCB(6+RND(26),5+RND(19)):CO%=CO%-1:NEXT:FOR T%=1TO4:REPEAT:AX%?T%=RND(26)+7:AY%?T%=5+RND(19)
  300UNTIL FNPEEK(AX%?T%,AY%?T%)=224:NEXT:CO%=CO%-CO%DIV4
  310VDU20,19,2,4;0;:ENDPROC
  320DEFPROCB(x%,y%):VDU31,x%,y%,32,5:GCOL0,3:MOVEx%*32,(32-y%)*32-4:VDU254,18,0,1,8,253,4:ENDPROC
  330DEFPROCVARI:?&70=4:SX%=7:SY%=24:COLOUR3:PRINTTAB(SX%,SY%);CHR$232;:X2%=0:Y2%=-1:A%=0:B%=0:H%=229:ENDPROC
  340DEFPROCINIT
  350DIM AX%5:DIM AY%5:DIM X1%5:DIM Y1%5:FORT%=0TO5
  351AX%?T%=RND(26)+7
  352AY%?T%=RND(19)+5
  353X1%?T%=RND(2)
  354Y1%?T%=RND(2):NEXT
  360COLOUR0:DIM CODE%525:DIM SO%8:X%=SO% MOD256:Y%=SO% DIV256:PROCASS(0):PROCASS(2) 
  370RESTORE:FOR T%=0TO7:READP:SO%?T%=P:NEXT
  380DATA&11,0,1,0,4,0,1,0
  390?&70=4:?&8E=0:IF ?&FFEE=164 ?&8F=224 ELSE ?&8F=128
  400ENDPROC
  410DEFPROCSNAKE:?&8E=0:*FX15,1
  420L%=(INKEY-98)-(INKEY-67):K%=(INKEY-73)-(INKEY-105)
  430IF K%<>Y2% AND K%<>0 Y2%=K%:X2%=0:GOTO450
  440IF L%<>X2% AND L%<>0 X2%=L%:Y2%=0
  450IF SX%+X2%>32 OR SX%+X2%<7 OR SY%+Y2%<6 OR SY%+Y2%>25 ?&8E=1:GOTO470
  460SX%=SX%+(X2% AND SX%+X2%<33 AND SX%+X2%>6):SY%=SY%+(Y2% AND SY%+Y2%<26 AND SY%+Y2%>5)
  470z%=FNPEEK(SX%,SY%):IF z%=32 AND (X2%<>0 OR Y2%<>0)?&8E=1:CO%=CO%+RND(?&70-1)
  480IF z%=229 OR z%=230 OR z%<=0 OR z%=255 KI%=1:ENDPROC ELSE IF z%=224 CO%=CO%-1:SR%=SR%+1:PROCSC
  490COLOUR1:VDU31,SX%-(X2%AND SX%-X2%<39 AND SX%-X2%>0),SY%-(Y2%AND SY%-Y2%<31 AND SY%-Y2%>0),32
  500COLOUR3:IF X2%<>0 PRINTTAB(SX%,SY%)CHR$(232+X2%);ELSE IF Y2%<>0PRINTTAB(SX%,SY%)CHR$(233+Y2%);
  510ENDPROC
  520DEFFNPEEK(x%,y%):LOCALA%,C:VDU31,x%,y%:A%=135:C=USR(&FFF4):C=C AND &FFFF:C=C DIV&100:IF?&FFFE=164 OR C<128 =C ELSE IF C>127 AND ?&FFFE<>164 C=C+96:=C
  530DEFPROCASS(o%):P%=CODE%:[:OPTo%:.ALIEN:LDY&70:LDA#17:JSR&FFEE:LDA#3:JSR&FFEE:.L1:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA&74:JSR&FFEE:DEY:BNEL1:RTS
  540.YUK:LDY&70:.L2:STY&80:LDA#17:JSR&FFEE:LDA#2:JSR&FFEE:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA#224:JSR&FFEE
  550LDAX1%,Y:CMP#1:BEQ FX:BMIRET:JMPBX:.RET:CPY#0:BEQR1:CLC:LDAY1%,Y:CMP#1:BEQ DY34:BMIRET2:JMPUY:.RET2:CPY#0:BEQR1:LDA#17:JSR&FFEE:LDA#3:JSR&FFEE:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA&74:JSR&FFEE
  560.R1:LDY&80:DEY:BNE L2:RTS
  570.DY34:JMPDY
  580.FX:CLC:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA#9:JSR&FFEE:LDA#135:JSR&FFF4:CLC:TXA:STA&73:LDY&80:CLC:LDA&73:CMP&8F:BEQFX1:JSRCFX:JMPRET:.FX1:LDA AX%,Y:STA&71:INC&71:LDA&71:STAAX%,Y:JMPRET
  590.CFX:CLC:LDAAX%,Y:CMP#32:BEQCFX1:CLC:LDA&8E:CMP#1:BEQCFX2:.CFX1:JSRBLIP:LDA#2:STAX1%,Y:JMPRET:.CFX2:JMPFX1
  600.BX:CLC:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA#8:JSR&FFEE:LDA#135:JSR&FFF4:STX&73:LDY&80:CLC:LDA&73:CMP&8F:BEQBX1:JSRCBX:JMPRET:.BX1:LDA AX%,Y:STA&71:DEC&71:LDA&71:STA AX%,Y:JMPRET 
  610.CBX:CLC:LDA AX%,Y:CMP#7:BEQCBX1:CLC:LDA&8E:CMP#1:BEQCBX2:.CBX1:JSRBLIP:LDA#1:STAX1%,Y:JMPRET:.CBX2:JMPBX1
  620.DY:CLC:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA#10:JSR&FFEE:LDA#135:JSR&FFF4:STX&73:LDY&80:CLC:LDA&73:CMP&8F:BEQDY1:JSRCDY:JMPRET2:.DY1:LDAAY%,Y:STA&71:INC&71:LDA&71:STA AY%,Y:JMPRET2
  630.CDY:CLC:LDA AY%,Y:CMP#25:BEQCDY1:CLC:LDA&8E:CMP#1:BEQCDY2:.CDY1:JSRBLIP:LDA#2:STAY1%,Y:JMPRET2:.CDY2:JMPDY1
  640.UY:CLC:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA#11:JSR&FFEE:LDA#135:JSR&FFF4:STX&73:LDY&80:CLC:LDA&73:CMP&8F:BEQUY1:JSRCUY:JMPRET2:.UY1:LDAAY%,Y:STA&71:DEC&71:LDA&71:STAAY%,Y:JMPRET2  
  650.CUY:CLC:LDA AY%,Y:CMP#6:BEQCUY1:CLC:LDA&8E:CMP#1:BEQCUY2:.CUY1:JSRBLIP:LDA#1:STAY1%,Y:JMPRET2:.CUY2:JMPUY1
  660.BLIP:STY&80:LDA#7:LDX#X%:LDY#Y%:JSR&FFF1:LDY&80:RTS
  670RTS
  680]
  690ENDPROC
  700DEFPROCW(x%,y%,a$):LOCALT%:FOR T%=1TO LEN(a$):PRINTTAB(x%+T%,y%);MID$(a$,T%,1);:SOUND1,-8,125,1:SOUND1,-9,50,1:NEXT:ENDPROC
  710DEFPROCRND:S%=INT(RND(1)*?&70+1):E%=SGN((AX%?S%)-SX%):D%=SGN((AY%?S%)-SY%):X1%?S%=FNMIN(E%):Y1%?S%=FNMIN(D%):ENDPROC
  720DEFFNMIN(c%):IF c%=-1 c%=1:=c% ELSE IF c%=1c%=2:=c%
  730=c%
  740RUN
  750DEFPROCRNDCHAR(c%):LOCAL A$,B$,C$,D$,D%:C$=""
  760FOR S%=1TO 4:A$="":B$="":FORT%=1TO4
  770IF RND(1)<.25 A$=A$+"1" ELSE A$=A$+"0"
  780NEXT:B$=A$:FOR T%=4TO1STEP-1:B$=B$+MID$(A$,T%,1):NEXT:D$=FNBIN(B$):D%=VAL(D$):C$=C$+CHR$(D%)
  790NEXT:A$=C$:FOR T%=4TO1STEP-1:A$=A$+MID$(C$,T%,1):NEXT
  800IF A$=STRING$(8,CHR$0):C$="":GOTO760
  810VDU23,c%:PRINTA$
  820ENDPROC
  830DEFFNBIN(a$):LOCALR%,M%:M%=0:FOR R%=1TO8:IF MID$(a$,R%,1)="1"M%=M%+(2^(8-R%))
  840NEXT:a$=STR$(M%):=a$
  850DEFPROCSC:COLOUR3:PRINTTAB(23-LEN(STR$(SR%)),28);SR%;:ENDPROC
  860DEFPROCINITSCREEN:VDU20,19,2,4;0;:GCOL0,2:FORT%=0TO100:PLOT69,RND(1280),RND(1023):NEXT:VDU5:GCOL0,1:MOVE608,540:PRINT"by":FORT%=1TO3:GCOL0,T%:MOVE320+T%*4,452+T%*4:PRINT"Simon Phipps (1984)":MOVE480+T%*4,580+T%*4:PRINT"Gridd Worz":NEXT
  861VDU4
  870ENDPROC
  880DEFPROCEND:VDU19,1,1;0;19,0,15;0;29,640;512;18,0,0,19,0,0;0;:SOUND0,-15,7,255:FORT%=436TO640STEP4:SOUND&11,-1,640-T%,1:PROCBOX(T%):VDU19,2,0;0;:PRINTTAB(RND(26)+6,RND(20)+5)" ";:VDU19,2,4;0;:NEXT:VDU26:SOUND&11,0,0,0:SOUND&10,0,0,0
  881ENDPROC
  890DEFPROCBOX(T%):A=T%:B=0.8*T%:MOVEA,B:DRAWA,-B:DRAW-A,-B:DRAW-A,B:DRAWA,B:ENDPROC
  900DEFPROCHIGH:VDU28,1,30,38,1,12,26,17,3:PROCW(14,4,"GOOD SCORE"):SOUND-1,202,0,0:SOUND-1,257,0,0:PROCW(8,8,"PLEASE ENTER YOUR NAME"):SOUND-1,241,0,0:SOUND-1,192,0,0:SOUND-1,290,0,0:SOUND-1,223,0,0:PRINTTAB(10,15)"--------------------"
  901*FX12,0
  910HI$="":PRINTTAB(10,15);:*FX15,1
  920A$=GET$:IF LEN(HI$)=20 AND A$<>CHR$127 AND A$<>CHR$13 GOTO920
  930IF A$=CHR$13GOTO990
  940IF A$=CHR$127 OR A$=CHR$13 OR A$=CHR$32 OR (ASC(A$)>64 AND ASC(A$)<91)PRINTA$; ELSE A$="":VDU7:GOTO920
  950IF A$<>CHR$13 AND A$<>CHR$127 SOUND-1,ASC(A$),0,0
  960IF LEN(HI$)>=20 AND A$<>CHR$127 GOTO920 
  970IF A$=CHR$127HI$=LEFT$(HI$,LEN(HI$)-1):GOTO920
  980IF LEN(HI$)<20 HI$=HI$+A$:GOTO920 ELSE VDU7:GOTO920
  990ENDPROC
 1000DEFPROCDED:VDU24,192;156;1088;860;:SOUND0,-15,7,250:J%=(SX%+X2%)*32+16:K%=(32-SY%+Y2%)*32-16:FORT=0TO200STEP8:PLOT69,J%+T/2,K%+T/2:PLOT69,J%+T/2,K%-T/2:PLOT69,J%-T/2,K%-T/2:PLOT69,J%-T/2,K%+T/2:PLOT69,J%,K%+T:PLOT69,J%,K%-T
 1001PLOT69,J%+T,K%
 1010PLOT69,J%-T,K%:GCOL3,RND(3):SOUND&11,-1,T,1:PLOT69,RND(T)*SGN(RND)+J%,RND(T)*SGN(RND)+K%:NEXT:FORT=0TO30:PLOT69,RND(1280),RND(1023):NEXT:SOUND&10,2,6,10:FOR T%=0TO1500:NEXT:CLG:VDU26:FORT=0TO1500:NEXT:ENDPROC
 1020DEFPROCGRIDD:IF SC%MOD10<>0ENDPROC 
 1030IF SC%MOD10=0 VDU23,224,24,24,24,255,255,24,24,24
 1040IF SC%MOD20=0 VDU23,224,129,66,36,24,24,36,66,129
 1050IF SC%MOD30=0 VDU23,224,0,126,126,126,126,126,126,0
 1060IF SC%MOD40=0 VDU23,224,255,153,153,255,255,153,153,255
 1070ENDPROC


��3,5,20,-20,20,1,2,1,100,0,0,0,50,0:HI%=0:HI$="":�23,224,24,24,24,255,255,24,24,24,23,254,153,66,60,0,0,60,66,153,23,253,0,129,102,60,60,102,129,0:� � � �ddB 
&�1:�23;8202;0;0;0;:�0:�INIT:*FX4,0
{ �:�INITSCREEN:A%=�500:� A%=-1 � HI$<>"" �dz@ � � A%=-1 � HI$="" �:�1,246,0,20:�1,168,0,20:�1,107,0,20:A%=�500:�A%<>-1
(6LI%=3:KI%=0:SC%=0:SR%=0:�1:�23;8202;0;0;0;:*FX12,1
2*FX11,1
<*FX10,10
F
*FX9,3
PA�CHARS:SC%=SC%+1:�:�3:�W(6,15,"ENTERING GRIDD LEVEL "+�(SC%))
Z�GRIDD:�SCREEN
d��VARI:?&70=SC%�4:�ALIEN:�19,3,3;0;:�0,-15,7,255:�T%=255�0�-2:�&11,-1,T%,1:�19,1,5;0;19,1,1;0;19,2,0;0;19,2,4;0;19,0,4;0;19,0,0;0;:�
n�=0:�&10,-3,8,255:�
xH%=H%+1:� H%=231H%=229
�.?&74=H%:�SC%<5?&70=SC% � ?&70=(� �100)�4+1
�� �(10)<=SC%�?&8E=1 �RND
��YUK:�SNAKE
�+� �(100-CO%)<5 �19,1,14;0;:� 3,3,200,1 
�� KI%=1 � CO%<=0 
�/�&13,0,0,0:�&11,0,0,0:�&12,0,0,0:�19,1,1;0;
�*FX15,0
�V� CO%<=0�END:�:�3:�W(6,4,"GRIDD FORCE "+�(SC%)+" ELIMINATED"):� T%=0�2000:�:�DP@ 
�~LI%=LI%-1:KI%=0:SX%=SX%-(X2% � SX%+X2%<33 � SX%+X2%>6):SY%=SY%-(Y2% � SY%+Y2%<25 � SY%+Y2%>5):X2%=0:Y2%=0:�DED:�LI%=0�dp@
� �:�DZ@
�*FX15,0
�S�19,1,1;0;28,1,30,38,1,12,26,17,3:�W(15,15,"GAME OVER"):� SR%>HI% HI%=SR%:�HIGH
���26,12,18,0,2,19,3,3;0;:� T%=0�100:�69,�(1280),�(1023):�:�3:�W(13,8,"HIGH SCORER"):�W((40-�(HI$))�2-1,15,HI$):�W(17,18,"WITH"):�W(17,20,�(HI%)):A%=�500
�	�T^@
)��CHARS:�RNDCHAR(229):�RNDCHAR(230):�
,��SCREEN:�12,19,1,0;0;19,2,0;0;19,3,0;0;
��29,640;512;:�0,2:�T%=-512�512�32:�640,T%:�-640,-T%:�:�T%=-640�640�32:�T%,512:�-T%,-512:�:�28,6,25,33,5,12,26:�1:�6,5);�245;
� �26,�241); 
��246:� T%=6�25:�6,T%);�242;�33,T%);�242:�:�6,26);�244;�26,�241);�243:�2:� T%=6�25:�7,T%);�26,�224);:�:�1:�16,27);�245; 
��6,�241);�246;�16,28);�242
"��3:�17,28)"000000";:�1:�242;�16,29);�244;�6,�241);�243:CO%=519:� T%=0�SC%:�B(6+�(26),5+�(19)):CO%=CO%-1:�:� T%=1�4:�:AX%?T%=�(26)+7:AY%?T%=5+�(19)
,.� �PEEK(AX%?T%,AY%?T%)=224:�:CO%=CO%-CO%�4
6�20,19,2,4;0;:�
@L��B(x%,y%):�31,x%,y%,32,5:�0,3:�x%*32,(32-y%)*32-4:�254,18,0,1,8,253,4:�
JR��VARI:?&70=4:SX%=7:SY%=24:�3:�SX%,SY%);�232;:X2%=0:Y2%=-1:A%=0:B%=0:H%=229:�
T
��INIT
^'� AX%5:� AY%5:� X1%5:� Y1%5:�T%=0�5
_AX%?T%=�(26)+7
`AY%?T%=�(19)+5
aX1%?T%=�(2)
bY1%?T%=�(2):�
hA�0:� CODE%525:� SO%8:X%=SO% �256:Y%=SO% �256:�ASS(0):�ASS(2) 
r�:� T%=0�7:�P:SO%?T%=P:�
|�&11,0,1,0,4,0,1,0
�2?&70=4:?&8E=0:� ?&FFEE=164 ?&8F=224 � ?&8F=128
��
���SNAKE:?&8E=0:*FX15,1
�&L%=(�-98)-(�-67):K%=(�-73)-(�-105)
�(� K%<>Y2% � K%<>0 Y2%=K%:X2%=0:�dBA
�"� L%<>X2% � L%<>0 X2%=L%:Y2%=0
�B� SX%+X2%>32 � SX%+X2%<7 � SY%+Y2%<6 � SY%+Y2%>25 ?&8E=1:�dVA
�QSX%=SX%+(X2% � SX%+X2%<33 � SX%+X2%>6):SY%=SY%+(Y2% � SY%+Y2%<26 � SY%+Y2%>5)
�Iz%=�PEEK(SX%,SY%):� z%=32 � (X2%<>0 � Y2%<>0)?&8E=1:CO%=CO%+�(?&70-1)
�Q� z%=229 � z%=230 � z%<=0 � z%=255 KI%=1:� � � z%=224 CO%=CO%-1:SR%=SR%+1:�SC
�Q�1:�31,SX%-(X2%� SX%-X2%<39 � SX%-X2%>0),SY%-(Y2%� SY%-Y2%<31 � SY%-Y2%>0),32
�D�3:� X2%<>0 �SX%,SY%)�(232+X2%);� � Y2%<>0�SX%,SY%)�(233+Y2%);
��
�ݤPEEK(x%,y%):�A%,C:�31,x%,y%:A%=135:C=�(&FFF4):C=C � &FFFF:C=C �&100:�?&FFFE=164 � C<128 =C � � C>127 � ?&FFFE<>164 C=C+96:=C
���ASS(o%):P%=CODE%:[:OPTo%:.ALIEN:LDY&70:LDA#17:JSR&FFEE:LDA#3:JSR&FFEE:.L1:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA&74:JSR&FFEE:DEY:BNEL1:RTS
�.YUK:LDY&70:.L2:STY&80:LDA#17:JSR&FFEE:LDA#2:JSR&FFEE:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA#224:JSR&FFEE
&�LDAX1%,Y:CMP#1:BEQ FX:BMIRET:JMPBX:.RET:CPY#0:BEQR1:CLC:LDAY1%,Y:CMP#1:BEQ DY34:BMIRET2:JMPUY:.RET2:CPY#0:BEQR1:LDA#17:JSR&FFEE:LDA#3:JSR&FFEE:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA&74:JSR&FFEE
0.R1:LDY&80:DEY:BNE L2:RTS
:.DY34:JMPDY
D�.FX:CLC:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA#9:JSR&FFEE:LDA#135:JSR&FFF4:CLC:TXA:STA&73:LDY&80:CLC:LDA&73:CMP&8F:BEQFX1:JSRCFX:JMPRET:.FX1:LDA AX%,Y:STA&71:INC&71:LDA&71:STAAX%,Y:JMPRET
Nn.CFX:CLC:LDAAX%,Y:CMP#32:BEQCFX1:CLC:LDA&8E:CMP#1:BEQCFX2:.CFX1:JSRBLIP:LDA#2:STAX1%,Y:JMPRET:.CFX2:JMPFX1
X�.BX:CLC:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA#8:JSR&FFEE:LDA#135:JSR&FFF4:STX&73:LDY&80:CLC:LDA&73:CMP&8F:BEQBX1:JSRCBX:JMPRET:.BX1:LDA AX%,Y:STA&71:DEC&71:LDA&71:STA AX%,Y:JMPRET 
bn.CBX:CLC:LDA AX%,Y:CMP#7:BEQCBX1:CLC:LDA&8E:CMP#1:BEQCBX2:.CBX1:JSRBLIP:LDA#1:STAX1%,Y:JMPRET:.CBX2:JMPBX1
l�.DY:CLC:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA#10:JSR&FFEE:LDA#135:JSR&FFF4:STX&73:LDY&80:CLC:LDA&73:CMP&8F:BEQDY1:JSRCDY:JMPRET2:.DY1:LDAAY%,Y:STA&71:INC&71:LDA&71:STA AY%,Y:JMPRET2
vp.CDY:CLC:LDA AY%,Y:CMP#25:BEQCDY1:CLC:LDA&8E:CMP#1:BEQCDY2:.CDY1:JSRBLIP:LDA#2:STAY1%,Y:JMPRET2:.CDY2:JMPDY1
��.UY:CLC:LDA#31:JSR&FFEE:LDA AX%,Y:JSR&FFEE:LDA AY%,Y:JSR&FFEE:LDA#11:JSR&FFEE:LDA#135:JSR&FFF4:STX&73:LDY&80:CLC:LDA&73:CMP&8F:BEQUY1:JSRCUY:JMPRET2:.UY1:LDAAY%,Y:STA&71:DEC&71:LDA&71:STAAY%,Y:JMPRET2  
�o.CUY:CLC:LDA AY%,Y:CMP#6:BEQCUY1:CLC:LDA&8E:CMP#1:BEQCUY2:.CUY1:JSRBLIP:LDA#1:STAY1%,Y:JMPRET2:.CUY2:JMPUY1
�8.BLIP:STY&80:LDA#7:LDX#X%:LDY#Y%:JSR&FFF1:LDY&80:RTS
�RTS
�]
��
�U��W(x%,y%,a$):�T%:� T%=1� �(a$):�x%+T%,y%);�a$,T%,1);:�1,-8,125,1:�1,-9,50,1:�:�
�c��RND:S%=�(�(1)*?&70+1):E%=�((AX%?S%)-SX%):D%=�((AY%?S%)-SY%):X1%?S%=�MIN(E%):Y1%?S%=�MIN(D%):�
�/ݤMIN(c%):� c%=-1 c%=1:=c% � � c%=1c%=2:=c%
�=c%
��
�(��RNDCHAR(c%):� A$,B$,C$,D$,D%:C$=""
�!� S%=1� 4:A$="":B$="":�T%=1�4
$� �(1)<.25 A$=A$+"1" � A$=A$+"0"
J�:B$=A$:� T%=4�1�-1:B$=B$+�A$,T%,1):�:D$=�BIN(B$):D%=�(D$):C$=C$+�(D%)
)�:A$=C$:� T%=4�1�-1:A$=A$+�C$,T%,1):�
 � A$=�8,�0):C$="":�dxB
*�23,c%:�A$
4�
>BݤBIN(a$):�R%,M%:M%=0:� R%=1�8:� �a$,R%,1)="1"M%=M%+(2^(8-R%))
H�:a$=�(M%):=a$
R%��SC:�3:�23-�(�(SR%)),28);SR%;:�
\���INITSCREEN:�20,19,2,4;0;:�0,2:�T%=0�100:�69,�(1280),�(1023):�:�5:�0,1:�608,540:�"by":�T%=1�3:�0,T%:�320+T%*4,452+T%*4:�"Simon Phipps (1984)":�480+T%*4,580+T%*4:�"Gridd Worz":�
]�4
f�
p���END:�19,1,1;0;19,0,15;0;29,640;512;18,0,0,19,0,0;0;:�0,-15,7,255:�T%=436�640�4:�&11,-1,640-T%,1:�BOX(T%):�19,2,0;0;:�(26)+6,�(20)+5)" ";:�19,2,4;0;:�:�26:�&11,0,0,0:�&10,0,0,0
q�
z:��BOX(T%):A=T%:B=0.8*T%:�A,B:�A,-B:�-A,-B:�-A,B:�A,B:�
����HIGH:�28,1,30,38,1,12,26,17,3:�W(14,4,"GOOD SCORE"):�-1,202,0,0:�-1,257,0,0:�W(8,8,"PLEASE ENTER YOUR NAME"):�-1,241,0,0:�-1,192,0,0:�-1,290,0,0:�-1,223,0,0:�10,15)"--------------------"
�*FX12,0
�HI$="":�10,15);:*FX15,1
�/A$=�:� �(HI$)=20 � A$<>�127 � A$<>�13 �tXC
�� A$=�13�d^C
�L� A$=�127 � A$=�13 � A$=�32 � (�(A$)>64 � �(A$)<91)�A$; � A$="":�7:�tXC
�&� A$<>�13 � A$<>�127 �-1,�(A$),0,0
�"� �(HI$)>=20 � A$<>�127 �tXC 
�%� A$=�127HI$=�HI$,�(HI$)-1):�tXC
�+� �(HI$)<20 HI$=HI$+A$:�tXC � �7:�tXC
��
���DED:�24,192;156;1088;860;:�0,-15,7,250:J%=(SX%+X2%)*32+16:K%=(32-SY%+Y2%)*32-16:�T=0�200�8:�69,J%+T/2,K%+T/2:�69,J%+T/2,K%-T/2:�69,J%-T/2,K%-T/2:�69,J%-T/2,K%+T/2:�69,J%,K%+T:�69,J%,K%-T
��69,J%+T,K%
��69,J%-T,K%:�3,�(3):�&11,-1,T,1:�69,�(T)*�(�)+J%,�(T)*�(�)+K%:�:�T=0�30:�69,�(1280),�(1023):�:�&10,2,6,10:� T%=0�1500:�:�:�26:�T=0�1500:�:�
���GRIDD:� SC%�10<>0� 
0� SC%�10=0 �23,224,24,24,24,255,255,24,24,24
0� SC%�20=0 �23,224,129,66,36,24,24,36,66,129
2� SC%�30=0 �23,224,0,126,126,126,126,126,126,0
$6� SC%�40=0 �23,224,255,153,153,255,255,153,153,255
.�
�
00000000  0d 00 0a a2 e2 33 2c 35  2c 32 30 2c 2d 32 30 2c  |.....3,5,20,-20,|
00000010  32 30 2c 31 2c 32 2c 31  2c 31 30 30 2c 30 2c 30  |20,1,2,1,100,0,0|
00000020  2c 30 2c 35 30 2c 30 3a  48 49 25 3d 30 3a 48 49  |,0,50,0:HI%=0:HI|
00000030  24 3d 22 22 3a ef 32 33  2c 32 32 34 2c 32 34 2c  |$="":.23,224,24,|
00000040  32 34 2c 32 34 2c 32 35  35 2c 32 35 35 2c 32 34  |24,24,255,255,24|
00000050  2c 32 34 2c 32 34 2c 32  33 2c 32 35 34 2c 31 35  |,24,24,23,254,15|
00000060  33 2c 36 36 2c 36 30 2c  30 2c 30 2c 36 30 2c 36  |3,66,60,0,0,60,6|
00000070  36 2c 31 35 33 2c 32 33  2c 32 35 33 2c 30 2c 31  |6,153,23,253,0,1|
00000080  32 39 2c 31 30 32 2c 36  30 2c 36 30 2c 31 30 32  |29,102,60,60,102|
00000090  2c 31 32 39 2c 30 3a ee  20 85 20 e5 20 8d 64 64  |,129,0:. . . .dd|
000000a0  42 20 0d 00 14 26 eb 31  3a ef 32 33 3b 38 32 30  |B ...&.1:.23;820|
000000b0  32 3b 30 3b 30 3b 30 3b  3a fb 30 3a f2 49 4e 49  |2;0;0;0;:.0:.INI|
000000c0  54 3a 2a 46 58 34 2c 30  0d 00 1e 7b 20 db 3a f2  |T:*FX4,0...{ .:.|
000000d0  49 4e 49 54 53 43 52 45  45 4e 3a 41 25 3d a6 35  |INITSCREEN:A%=.5|
000000e0  30 30 3a e7 20 41 25 3d  2d 31 20 80 20 48 49 24  |00:. A%=-1 . HI$|
000000f0  3c 3e 22 22 20 e5 8d 64  7a 40 20 8b 20 e7 20 41  |<>"" ..dz@ . . A|
00000100  25 3d 2d 31 20 80 20 48  49 24 3d 22 22 20 f5 3a  |%=-1 . HI$="" .:|
00000110  d4 31 2c 32 34 36 2c 30  2c 32 30 3a d4 31 2c 31  |.1,246,0,20:.1,1|
00000120  36 38 2c 30 2c 32 30 3a  d4 31 2c 31 30 37 2c 30  |68,0,20:.1,107,0|
00000130  2c 32 30 3a 41 25 3d a6  35 30 30 3a fd 41 25 3c  |,20:A%=.500:.A%<|
00000140  3e 2d 31 0d 00 28 36 4c  49 25 3d 33 3a 4b 49 25  |>-1..(6LI%=3:KI%|
00000150  3d 30 3a 53 43 25 3d 30  3a 53 52 25 3d 30 3a eb  |=0:SC%=0:SR%=0:.|
00000160  31 3a ef 32 33 3b 38 32  30 32 3b 30 3b 30 3b 30  |1:.23;8202;0;0;0|
00000170  3b 3a 2a 46 58 31 32 2c  31 0d 00 32 0b 2a 46 58  |;:*FX12,1..2.*FX|
00000180  31 31 2c 31 0d 00 3c 0c  2a 46 58 31 30 2c 31 30  |11,1..<.*FX10,10|
00000190  0d 00 46 0a 2a 46 58 39  2c 33 0d 00 50 41 f2 43  |..F.*FX9,3..PA.C|
000001a0  48 41 52 53 3a 53 43 25  3d 53 43 25 2b 31 3a db  |HARS:SC%=SC%+1:.|
000001b0  3a fb 33 3a f2 57 28 36  2c 31 35 2c 22 45 4e 54  |:.3:.W(6,15,"ENT|
000001c0  45 52 49 4e 47 20 47 52  49 44 44 20 4c 45 56 45  |ERING GRIDD LEVE|
000001d0  4c 20 22 2b c3 28 53 43  25 29 29 0d 00 5a 12 f2  |L "+.(SC%))..Z..|
000001e0  47 52 49 44 44 3a f2 53  43 52 45 45 4e 0d 00 64  |GRIDD:.SCREEN..d|
000001f0  87 f2 56 41 52 49 3a 3f  26 37 30 3d 53 43 25 83  |..VARI:?&70=SC%.|
00000200  34 3a d6 41 4c 49 45 4e  3a ef 31 39 2c 33 2c 33  |4:.ALIEN:.19,3,3|
00000210  3b 30 3b 3a d4 30 2c 2d  31 35 2c 37 2c 32 35 35  |;0;:.0,-15,7,255|
00000220  3a e3 54 25 3d 32 35 35  b8 30 88 2d 32 3a d4 26  |:.T%=255.0.-2:.&|
00000230  31 31 2c 2d 31 2c 54 25  2c 31 3a ef 31 39 2c 31  |11,-1,T%,1:.19,1|
00000240  2c 35 3b 30 3b 31 39 2c  31 2c 31 3b 30 3b 31 39  |,5;0;19,1,1;0;19|
00000250  2c 32 2c 30 3b 30 3b 31  39 2c 32 2c 34 3b 30 3b  |,2,0;0;19,2,4;0;|
00000260  31 39 2c 30 2c 34 3b 30  3b 31 39 2c 30 2c 30 3b  |19,0,4;0;19,0,0;|
00000270  30 3b 3a ed 0d 00 6e 17  d1 3d 30 3a d4 26 31 30  |0;:...n..=0:.&10|
00000280  2c 2d 33 2c 38 2c 32 35  35 3a f5 0d 00 78 1a 48  |,-3,8,255:...x.H|
00000290  25 3d 48 25 2b 31 3a e7  20 48 25 3d 32 33 31 48  |%=H%+1:. H%=231H|
000002a0  25 3d 32 32 39 0d 00 82  2e 3f 26 37 34 3d 48 25  |%=229....?&74=H%|
000002b0  3a e7 53 43 25 3c 35 3f  26 37 30 3d 53 43 25 20  |:.SC%<5?&70=SC% |
000002c0  8b 20 3f 26 37 30 3d 28  91 20 81 31 30 30 29 83  |. ?&70=(. .100).|
000002d0  34 2b 31 0d 00 8c 1c e7  20 b3 28 31 30 29 3c 3d  |4+1..... .(10)<=|
000002e0  53 43 25 84 3f 26 38 45  3d 31 20 f2 52 4e 44 0d  |SC%.?&8E=1 .RND.|
000002f0  00 96 0f d6 59 55 4b 3a  f2 53 4e 41 4b 45 0d 00  |....YUK:.SNAKE..|
00000300  a0 2b e7 20 94 28 31 30  30 2d 43 4f 25 29 3c 35  |.+. .(100-CO%)<5|
00000310  20 ef 31 39 2c 31 2c 31  34 3b 30 3b 3a d4 20 33  | .19,1,14;0;:. 3|
00000320  2c 33 2c 32 30 30 2c 31  20 0d 00 aa 15 fd 20 4b  |,3,200,1 ..... K|
00000330  49 25 3d 31 20 84 20 43  4f 25 3c 3d 30 20 0d 00  |I%=1 . CO%<=0 ..|
00000340  b4 2f d4 26 31 33 2c 30  2c 30 2c 30 3a d4 26 31  |./.&13,0,0,0:.&1|
00000350  31 2c 30 2c 30 2c 30 3a  d4 26 31 32 2c 30 2c 30  |1,0,0,0:.&12,0,0|
00000360  2c 30 3a ef 31 39 2c 31  2c 31 3b 30 3b 0d 00 be  |,0:.19,1,1;0;...|
00000370  0b 2a 46 58 31 35 2c 30  0d 00 c8 56 e7 20 43 4f  |.*FX15,0...V. CO|
00000380  25 3c 3d 30 f2 45 4e 44  3a db 3a fb 33 3a f2 57  |%<=0.END:.:.3:.W|
00000390  28 36 2c 34 2c 22 47 52  49 44 44 20 46 4f 52 43  |(6,4,"GRIDD FORC|
000003a0  45 20 22 2b c3 28 53 43  25 29 2b 22 20 45 4c 49  |E "+.(SC%)+" ELI|
000003b0  4d 49 4e 41 54 45 44 22  29 3a e3 20 54 25 3d 30  |MINATED"):. T%=0|
000003c0  b8 32 30 30 30 3a ed 3a  e5 8d 44 50 40 20 0d 00  |.2000:.:..DP@ ..|
000003d0  d2 7e 4c 49 25 3d 4c 49  25 2d 31 3a 4b 49 25 3d  |.~LI%=LI%-1:KI%=|
000003e0  30 3a 53 58 25 3d 53 58  25 2d 28 58 32 25 20 80  |0:SX%=SX%-(X2% .|
000003f0  20 53 58 25 2b 58 32 25  3c 33 33 20 80 20 53 58  | SX%+X2%<33 . SX|
00000400  25 2b 58 32 25 3e 36 29  3a 53 59 25 3d 53 59 25  |%+X2%>6):SY%=SY%|
00000410  2d 28 59 32 25 20 80 20  53 59 25 2b 59 32 25 3c  |-(Y2% . SY%+Y2%<|
00000420  32 35 20 80 20 53 59 25  2b 59 32 25 3e 35 29 3a  |25 . SY%+Y2%>5):|
00000430  58 32 25 3d 30 3a 59 32  25 3d 30 3a f2 44 45 44  |X2%=0:Y2%=0:.DED|
00000440  3a e7 4c 49 25 3d 30 e5  8d 64 70 40 0d 00 dc 0c  |:.LI%=0..dp@....|
00000450  20 db 3a e5 8d 44 5a 40  0d 00 e6 0b 2a 46 58 31  | .:..DZ@....*FX1|
00000460  35 2c 30 0d 00 f0 53 ef  31 39 2c 31 2c 31 3b 30  |5,0...S.19,1,1;0|
00000470  3b 32 38 2c 31 2c 33 30  2c 33 38 2c 31 2c 31 32  |;28,1,30,38,1,12|
00000480  2c 32 36 2c 31 37 2c 33  3a f2 57 28 31 35 2c 31  |,26,17,3:.W(15,1|
00000490  35 2c 22 47 41 4d 45 20  4f 56 45 52 22 29 3a e7  |5,"GAME OVER"):.|
000004a0  20 53 52 25 3e 48 49 25  20 48 49 25 3d 53 52 25  | SR%>HI% HI%=SR%|
000004b0  3a f2 48 49 47 48 0d 00  fa 9b ef 32 36 2c 31 32  |:.HIGH.....26,12|
000004c0  2c 31 38 2c 30 2c 32 2c  31 39 2c 33 2c 33 3b 30  |,18,0,2,19,3,3;0|
000004d0  3b 3a e3 20 54 25 3d 30  b8 31 30 30 3a f0 36 39  |;:. T%=0.100:.69|
000004e0  2c b3 28 31 32 38 30 29  2c b3 28 31 30 32 33 29  |,.(1280),.(1023)|
000004f0  3a ed 3a fb 33 3a f2 57  28 31 33 2c 38 2c 22 48  |:.:.3:.W(13,8,"H|
00000500  49 47 48 20 53 43 4f 52  45 52 22 29 3a f2 57 28  |IGH SCORER"):.W(|
00000510  28 34 30 2d a9 28 48 49  24 29 29 81 32 2d 31 2c  |(40-.(HI$)).2-1,|
00000520  31 35 2c 48 49 24 29 3a  f2 57 28 31 37 2c 31 38  |15,HI$):.W(17,18|
00000530  2c 22 57 49 54 48 22 29  3a f2 57 28 31 37 2c 32  |,"WITH"):.W(17,2|
00000540  30 2c c3 28 48 49 25 29  29 3a 41 25 3d a6 35 30  |0,.(HI%)):A%=.50|
00000550  30 0d 00 fb 09 e5 8d 54  5e 40 0d 01 04 29 dd f2  |0......T^@...)..|
00000560  43 48 41 52 53 3a f2 52  4e 44 43 48 41 52 28 32  |CHARS:.RNDCHAR(2|
00000570  32 39 29 3a f2 52 4e 44  43 48 41 52 28 32 33 30  |29):.RNDCHAR(230|
00000580  29 3a e1 0d 01 0e 2c dd  f2 53 43 52 45 45 4e 3a  |):....,..SCREEN:|
00000590  ef 31 32 2c 31 39 2c 31  2c 30 3b 30 3b 31 39 2c  |.12,19,1,0;0;19,|
000005a0  32 2c 30 3b 30 3b 31 39  2c 33 2c 30 3b 30 3b 0d  |2,0;0;19,3,0;0;.|
000005b0  01 10 81 ef 32 39 2c 36  34 30 3b 35 31 32 3b 3a  |....29,640;512;:|
000005c0  e6 30 2c 32 3a e3 54 25  3d 2d 35 31 32 b8 35 31  |.0,2:.T%=-512.51|
000005d0  32 88 33 32 3a ec 36 34  30 2c 54 25 3a df 2d 36  |2.32:.640,T%:.-6|
000005e0  34 30 2c 2d 54 25 3a ed  3a e3 54 25 3d 2d 36 34  |40,-T%:.:.T%=-64|
000005f0  30 b8 36 34 30 88 33 32  3a ec 54 25 2c 35 31 32  |0.640.32:.T%,512|
00000600  3a df 2d 54 25 2c 2d 35  31 32 3a ed 3a ef 32 38  |:.-T%,-512:.:.28|
00000610  2c 36 2c 32 35 2c 33 33  2c 35 2c 31 32 2c 32 36  |,6,25,33,5,12,26|
00000620  3a fb 31 3a f1 8a 36 2c  35 29 3b bd 32 34 35 3b  |:.1:..6,5);.245;|
00000630  0d 01 13 11 f1 20 c4 32  36 2c bd 32 34 31 29 3b  |..... .26,.241);|
00000640  20 0d 01 18 80 f1 bd 32  34 36 3a e3 20 54 25 3d  | ......246:. T%=|
00000650  36 b8 32 35 3a f1 8a 36  2c 54 25 29 3b bd 32 34  |6.25:..6,T%);.24|
00000660  32 3b 8a 33 33 2c 54 25  29 3b bd 32 34 32 3a ed  |2;.33,T%);.242:.|
00000670  3a f1 8a 36 2c 32 36 29  3b bd 32 34 34 3b c4 32  |:..6,26);.244;.2|
00000680  36 2c bd 32 34 31 29 3b  bd 32 34 33 3a fb 32 3a  |6,.241);.243:.2:|
00000690  e3 20 54 25 3d 36 b8 32  35 3a f1 8a 37 2c 54 25  |. T%=6.25:..7,T%|
000006a0  29 3b c4 32 36 2c bd 32  32 34 29 3b 3a ed 3a fb  |);.26,.224);:.:.|
000006b0  31 3a f1 8a 31 36 2c 32  37 29 3b bd 32 34 35 3b  |1:..16,27);.245;|
000006c0  20 0d 01 19 1f f1 c4 36  2c bd 32 34 31 29 3b bd  | ......6,.241);.|
000006d0  32 34 36 3b 8a 31 36 2c  32 38 29 3b bd 32 34 32  |246;.16,28);.242|
000006e0  0d 01 22 98 fb 33 3a f1  8a 31 37 2c 32 38 29 22  |.."..3:..17,28)"|
000006f0  30 30 30 30 30 30 22 3b  3a fb 31 3a f1 bd 32 34  |000000";:.1:..24|
00000700  32 3b 8a 31 36 2c 32 39  29 3b bd 32 34 34 3b c4  |2;.16,29);.244;.|
00000710  36 2c bd 32 34 31 29 3b  bd 32 34 33 3a 43 4f 25  |6,.241);.243:CO%|
00000720  3d 35 31 39 3a e3 20 54  25 3d 30 b8 53 43 25 3a  |=519:. T%=0.SC%:|
00000730  f2 42 28 36 2b b3 28 32  36 29 2c 35 2b b3 28 31  |.B(6+.(26),5+.(1|
00000740  39 29 29 3a 43 4f 25 3d  43 4f 25 2d 31 3a ed 3a  |9)):CO%=CO%-1:.:|
00000750  e3 20 54 25 3d 31 b8 34  3a f5 3a 41 58 25 3f 54  |. T%=1.4:.:AX%?T|
00000760  25 3d b3 28 32 36 29 2b  37 3a 41 59 25 3f 54 25  |%=.(26)+7:AY%?T%|
00000770  3d 35 2b b3 28 31 39 29  0d 01 2c 2e fd 20 a4 50  |=5+.(19)..,.. .P|
00000780  45 45 4b 28 41 58 25 3f  54 25 2c 41 59 25 3f 54  |EEK(AX%?T%,AY%?T|
00000790  25 29 3d 32 32 34 3a ed  3a 43 4f 25 3d 43 4f 25  |%)=224:.:CO%=CO%|
000007a0  2d 43 4f 25 81 34 0d 01  36 13 ef 32 30 2c 31 39  |-CO%.4..6..20,19|
000007b0  2c 32 2c 34 3b 30 3b 3a  e1 0d 01 40 4c dd f2 42  |,2,4;0;:...@L..B|
000007c0  28 78 25 2c 79 25 29 3a  ef 33 31 2c 78 25 2c 79  |(x%,y%):.31,x%,y|
000007d0  25 2c 33 32 2c 35 3a e6  30 2c 33 3a ec 78 25 2a  |%,32,5:.0,3:.x%*|
000007e0  33 32 2c 28 33 32 2d 79  25 29 2a 33 32 2d 34 3a  |32,(32-y%)*32-4:|
000007f0  ef 32 35 34 2c 31 38 2c  30 2c 31 2c 38 2c 32 35  |.254,18,0,1,8,25|
00000800  33 2c 34 3a e1 0d 01 4a  52 dd f2 56 41 52 49 3a  |3,4:...JR..VARI:|
00000810  3f 26 37 30 3d 34 3a 53  58 25 3d 37 3a 53 59 25  |?&70=4:SX%=7:SY%|
00000820  3d 32 34 3a fb 33 3a f1  8a 53 58 25 2c 53 59 25  |=24:.3:..SX%,SY%|
00000830  29 3b bd 32 33 32 3b 3a  58 32 25 3d 30 3a 59 32  |);.232;:X2%=0:Y2|
00000840  25 3d 2d 31 3a 41 25 3d  30 3a 42 25 3d 30 3a 48  |%=-1:A%=0:B%=0:H|
00000850  25 3d 32 32 39 3a e1 0d  01 54 0a dd f2 49 4e 49  |%=229:...T...INI|
00000860  54 0d 01 5e 27 de 20 41  58 25 35 3a de 20 41 59  |T..^'. AX%5:. AY|
00000870  25 35 3a de 20 58 31 25  35 3a de 20 59 31 25 35  |%5:. X1%5:. Y1%5|
00000880  3a e3 54 25 3d 30 b8 35  0d 01 5f 12 41 58 25 3f  |:.T%=0.5.._.AX%?|
00000890  54 25 3d b3 28 32 36 29  2b 37 0d 01 60 12 41 59  |T%=.(26)+7..`.AY|
000008a0  25 3f 54 25 3d b3 28 31  39 29 2b 35 0d 01 61 0f  |%?T%=.(19)+5..a.|
000008b0  58 31 25 3f 54 25 3d b3  28 32 29 0d 01 62 11 59  |X1%?T%=.(2)..b.Y|
000008c0  31 25 3f 54 25 3d b3 28  32 29 3a ed 0d 01 68 41  |1%?T%=.(2):...hA|
000008d0  fb 30 3a de 20 43 4f 44  45 25 35 32 35 3a de 20  |.0:. CODE%525:. |
000008e0  53 4f 25 38 3a 58 25 3d  53 4f 25 20 83 32 35 36  |SO%8:X%=SO% .256|
000008f0  3a 59 25 3d 53 4f 25 20  81 32 35 36 3a f2 41 53  |:Y%=SO% .256:.AS|
00000900  53 28 30 29 3a f2 41 53  53 28 32 29 20 0d 01 72  |S(0):.ASS(2) ..r|
00000910  1c f7 3a e3 20 54 25 3d  30 b8 37 3a f3 50 3a 53  |..:. T%=0.7:.P:S|
00000920  4f 25 3f 54 25 3d 50 3a  ed 0d 01 7c 16 dc 26 31  |O%?T%=P:...|..&1|
00000930  31 2c 30 2c 31 2c 30 2c  34 2c 30 2c 31 2c 30 0d  |1,0,1,0,4,0,1,0.|
00000940  01 86 32 3f 26 37 30 3d  34 3a 3f 26 38 45 3d 30  |..2?&70=4:?&8E=0|
00000950  3a e7 20 3f 26 46 46 45  45 3d 31 36 34 20 3f 26  |:. ?&FFEE=164 ?&|
00000960  38 46 3d 32 32 34 20 8b  20 3f 26 38 46 3d 31 32  |8F=224 . ?&8F=12|
00000970  38 0d 01 90 05 e1 0d 01  9a 1a dd f2 53 4e 41 4b  |8...........SNAK|
00000980  45 3a 3f 26 38 45 3d 30  3a 2a 46 58 31 35 2c 31  |E:?&8E=0:*FX15,1|
00000990  0d 01 a4 26 4c 25 3d 28  a6 2d 39 38 29 2d 28 a6  |...&L%=(.-98)-(.|
000009a0  2d 36 37 29 3a 4b 25 3d  28 a6 2d 37 33 29 2d 28  |-67):K%=(.-73)-(|
000009b0  a6 2d 31 30 35 29 0d 01  ae 28 e7 20 4b 25 3c 3e  |.-105)...(. K%<>|
000009c0  59 32 25 20 80 20 4b 25  3c 3e 30 20 59 32 25 3d  |Y2% . K%<>0 Y2%=|
000009d0  4b 25 3a 58 32 25 3d 30  3a e5 8d 64 42 41 0d 01  |K%:X2%=0:..dBA..|
000009e0  b8 22 e7 20 4c 25 3c 3e  58 32 25 20 80 20 4c 25  |.". L%<>X2% . L%|
000009f0  3c 3e 30 20 58 32 25 3d  4c 25 3a 59 32 25 3d 30  |<>0 X2%=L%:Y2%=0|
00000a00  0d 01 c2 42 e7 20 53 58  25 2b 58 32 25 3e 33 32  |...B. SX%+X2%>32|
00000a10  20 84 20 53 58 25 2b 58  32 25 3c 37 20 84 20 53  | . SX%+X2%<7 . S|
00000a20  59 25 2b 59 32 25 3c 36  20 84 20 53 59 25 2b 59  |Y%+Y2%<6 . SY%+Y|
00000a30  32 25 3e 32 35 20 3f 26  38 45 3d 31 3a e5 8d 64  |2%>25 ?&8E=1:..d|
00000a40  56 41 0d 01 cc 51 53 58  25 3d 53 58 25 2b 28 58  |VA...QSX%=SX%+(X|
00000a50  32 25 20 80 20 53 58 25  2b 58 32 25 3c 33 33 20  |2% . SX%+X2%<33 |
00000a60  80 20 53 58 25 2b 58 32  25 3e 36 29 3a 53 59 25  |. SX%+X2%>6):SY%|
00000a70  3d 53 59 25 2b 28 59 32  25 20 80 20 53 59 25 2b  |=SY%+(Y2% . SY%+|
00000a80  59 32 25 3c 32 36 20 80  20 53 59 25 2b 59 32 25  |Y2%<26 . SY%+Y2%|
00000a90  3e 35 29 0d 01 d6 49 7a  25 3d a4 50 45 45 4b 28  |>5)...Iz%=.PEEK(|
00000aa0  53 58 25 2c 53 59 25 29  3a e7 20 7a 25 3d 33 32  |SX%,SY%):. z%=32|
00000ab0  20 80 20 28 58 32 25 3c  3e 30 20 84 20 59 32 25  | . (X2%<>0 . Y2%|
00000ac0  3c 3e 30 29 3f 26 38 45  3d 31 3a 43 4f 25 3d 43  |<>0)?&8E=1:CO%=C|
00000ad0  4f 25 2b b3 28 3f 26 37  30 2d 31 29 0d 01 e0 51  |O%+.(?&70-1)...Q|
00000ae0  e7 20 7a 25 3d 32 32 39  20 84 20 7a 25 3d 32 33  |. z%=229 . z%=23|
00000af0  30 20 84 20 7a 25 3c 3d  30 20 84 20 7a 25 3d 32  |0 . z%<=0 . z%=2|
00000b00  35 35 20 4b 49 25 3d 31  3a e1 20 8b 20 e7 20 7a  |55 KI%=1:. . . z|
00000b10  25 3d 32 32 34 20 43 4f  25 3d 43 4f 25 2d 31 3a  |%=224 CO%=CO%-1:|
00000b20  53 52 25 3d 53 52 25 2b  31 3a f2 53 43 0d 01 ea  |SR%=SR%+1:.SC...|
00000b30  51 fb 31 3a ef 33 31 2c  53 58 25 2d 28 58 32 25  |Q.1:.31,SX%-(X2%|
00000b40  80 20 53 58 25 2d 58 32  25 3c 33 39 20 80 20 53  |. SX%-X2%<39 . S|
00000b50  58 25 2d 58 32 25 3e 30  29 2c 53 59 25 2d 28 59  |X%-X2%>0),SY%-(Y|
00000b60  32 25 80 20 53 59 25 2d  59 32 25 3c 33 31 20 80  |2%. SY%-Y2%<31 .|
00000b70  20 53 59 25 2d 59 32 25  3e 30 29 2c 33 32 0d 01  | SY%-Y2%>0),32..|
00000b80  f4 44 fb 33 3a e7 20 58  32 25 3c 3e 30 20 f1 8a  |.D.3:. X2%<>0 ..|
00000b90  53 58 25 2c 53 59 25 29  bd 28 32 33 32 2b 58 32  |SX%,SY%).(232+X2|
00000ba0  25 29 3b 8b 20 e7 20 59  32 25 3c 3e 30 f1 8a 53  |%);. . Y2%<>0..S|
00000bb0  58 25 2c 53 59 25 29 bd  28 32 33 33 2b 59 32 25  |X%,SY%).(233+Y2%|
00000bc0  29 3b 0d 01 fe 05 e1 0d  02 08 82 dd a4 50 45 45  |);...........PEE|
00000bd0  4b 28 78 25 2c 79 25 29  3a ea 41 25 2c 43 3a ef  |K(x%,y%):.A%,C:.|
00000be0  33 31 2c 78 25 2c 79 25  3a 41 25 3d 31 33 35 3a  |31,x%,y%:A%=135:|
00000bf0  43 3d ba 28 26 46 46 46  34 29 3a 43 3d 43 20 80  |C=.(&FFF4):C=C .|
00000c00  20 26 46 46 46 46 3a 43  3d 43 20 81 26 31 30 30  | &FFFF:C=C .&100|
00000c10  3a e7 3f 26 46 46 46 45  3d 31 36 34 20 84 20 43  |:.?&FFFE=164 . C|
00000c20  3c 31 32 38 20 3d 43 20  8b 20 e7 20 43 3e 31 32  |<128 =C . . C>12|
00000c30  37 20 80 20 3f 26 46 46  46 45 3c 3e 31 36 34 20  |7 . ?&FFFE<>164 |
00000c40  43 3d 43 2b 39 36 3a 3d  43 0d 02 12 a3 dd f2 41  |C=C+96:=C......A|
00000c50  53 53 28 6f 25 29 3a 50  25 3d 43 4f 44 45 25 3a  |SS(o%):P%=CODE%:|
00000c60  5b 3a 4f 50 54 6f 25 3a  2e 41 4c 49 45 4e 3a 4c  |[:OPTo%:.ALIEN:L|
00000c70  44 59 26 37 30 3a 4c 44  41 23 31 37 3a 4a 53 52  |DY&70:LDA#17:JSR|
00000c80  26 46 46 45 45 3a 4c 44  41 23 33 3a 4a 53 52 26  |&FFEE:LDA#3:JSR&|
00000c90  46 46 45 45 3a 2e 4c 31  3a 4c 44 41 23 33 31 3a  |FFEE:.L1:LDA#31:|
00000ca0  4a 53 52 26 46 46 45 45  3a 4c 44 41 20 41 58 25  |JSR&FFEE:LDA AX%|
00000cb0  2c 59 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 20  |,Y:JSR&FFEE:LDA |
00000cc0  41 59 25 2c 59 3a 4a 53  52 26 46 46 45 45 3a 4c  |AY%,Y:JSR&FFEE:L|
00000cd0  44 41 26 37 34 3a 4a 53  52 26 46 46 45 45 3a 44  |DA&74:JSR&FFEE:D|
00000ce0  45 59 3a 42 4e 45 4c 31  3a 52 54 53 0d 02 1c 80  |EY:BNEL1:RTS....|
00000cf0  2e 59 55 4b 3a 4c 44 59  26 37 30 3a 2e 4c 32 3a  |.YUK:LDY&70:.L2:|
00000d00  53 54 59 26 38 30 3a 4c  44 41 23 31 37 3a 4a 53  |STY&80:LDA#17:JS|
00000d10  52 26 46 46 45 45 3a 4c  44 41 23 32 3a 4a 53 52  |R&FFEE:LDA#2:JSR|
00000d20  26 46 46 45 45 3a 4c 44  41 23 33 31 3a 4a 53 52  |&FFEE:LDA#31:JSR|
00000d30  26 46 46 45 45 3a 4c 44  41 20 41 58 25 2c 59 3a  |&FFEE:LDA AX%,Y:|
00000d40  4a 53 52 26 46 46 45 45  3a 4c 44 41 20 41 59 25  |JSR&FFEE:LDA AY%|
00000d50  2c 59 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 23  |,Y:JSR&FFEE:LDA#|
00000d60  32 32 34 3a 4a 53 52 26  46 46 45 45 0d 02 26 d8  |224:JSR&FFEE..&.|
00000d70  4c 44 41 58 31 25 2c 59  3a 43 4d 50 23 31 3a 42  |LDAX1%,Y:CMP#1:B|
00000d80  45 51 20 46 58 3a 42 4d  49 52 45 54 3a 4a 4d 50  |EQ FX:BMIRET:JMP|
00000d90  42 58 3a 2e 52 45 54 3a  43 50 59 23 30 3a 42 45  |BX:.RET:CPY#0:BE|
00000da0  51 52 31 3a 43 4c 43 3a  4c 44 41 59 31 25 2c 59  |QR1:CLC:LDAY1%,Y|
00000db0  3a 43 4d 50 23 31 3a 42  45 51 20 44 59 33 34 3a  |:CMP#1:BEQ DY34:|
00000dc0  42 4d 49 52 45 54 32 3a  4a 4d 50 55 59 3a 2e 52  |BMIRET2:JMPUY:.R|
00000dd0  45 54 32 3a 43 50 59 23  30 3a 42 45 51 52 31 3a  |ET2:CPY#0:BEQR1:|
00000de0  4c 44 41 23 31 37 3a 4a  53 52 26 46 46 45 45 3a  |LDA#17:JSR&FFEE:|
00000df0  4c 44 41 23 33 3a 4a 53  52 26 46 46 45 45 3a 4c  |LDA#3:JSR&FFEE:L|
00000e00  44 41 23 33 31 3a 4a 53  52 26 46 46 45 45 3a 4c  |DA#31:JSR&FFEE:L|
00000e10  44 41 20 41 58 25 2c 59  3a 4a 53 52 26 46 46 45  |DA AX%,Y:JSR&FFE|
00000e20  45 3a 4c 44 41 20 41 59  25 2c 59 3a 4a 53 52 26  |E:LDA AY%,Y:JSR&|
00000e30  46 46 45 45 3a 4c 44 41  26 37 34 3a 4a 53 52 26  |FFEE:LDA&74:JSR&|
00000e40  46 46 45 45 0d 02 30 1d  2e 52 31 3a 4c 44 59 26  |FFEE..0..R1:LDY&|
00000e50  38 30 3a 44 45 59 3a 42  4e 45 20 4c 32 3a 52 54  |80:DEY:BNE L2:RT|
00000e60  53 0d 02 3a 0f 2e 44 59  33 34 3a 4a 4d 50 44 59  |S..:..DY34:JMPDY|
00000e70  0d 02 44 d2 2e 46 58 3a  43 4c 43 3a 4c 44 41 23  |..D..FX:CLC:LDA#|
00000e80  33 31 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 20  |31:JSR&FFEE:LDA |
00000e90  41 58 25 2c 59 3a 4a 53  52 26 46 46 45 45 3a 4c  |AX%,Y:JSR&FFEE:L|
00000ea0  44 41 20 41 59 25 2c 59  3a 4a 53 52 26 46 46 45  |DA AY%,Y:JSR&FFE|
00000eb0  45 3a 4c 44 41 23 39 3a  4a 53 52 26 46 46 45 45  |E:LDA#9:JSR&FFEE|
00000ec0  3a 4c 44 41 23 31 33 35  3a 4a 53 52 26 46 46 46  |:LDA#135:JSR&FFF|
00000ed0  34 3a 43 4c 43 3a 54 58  41 3a 53 54 41 26 37 33  |4:CLC:TXA:STA&73|
00000ee0  3a 4c 44 59 26 38 30 3a  43 4c 43 3a 4c 44 41 26  |:LDY&80:CLC:LDA&|
00000ef0  37 33 3a 43 4d 50 26 38  46 3a 42 45 51 46 58 31  |73:CMP&8F:BEQFX1|
00000f00  3a 4a 53 52 43 46 58 3a  4a 4d 50 52 45 54 3a 2e  |:JSRCFX:JMPRET:.|
00000f10  46 58 31 3a 4c 44 41 20  41 58 25 2c 59 3a 53 54  |FX1:LDA AX%,Y:ST|
00000f20  41 26 37 31 3a 49 4e 43  26 37 31 3a 4c 44 41 26  |A&71:INC&71:LDA&|
00000f30  37 31 3a 53 54 41 41 58  25 2c 59 3a 4a 4d 50 52  |71:STAAX%,Y:JMPR|
00000f40  45 54 0d 02 4e 6e 2e 43  46 58 3a 43 4c 43 3a 4c  |ET..Nn.CFX:CLC:L|
00000f50  44 41 41 58 25 2c 59 3a  43 4d 50 23 33 32 3a 42  |DAAX%,Y:CMP#32:B|
00000f60  45 51 43 46 58 31 3a 43  4c 43 3a 4c 44 41 26 38  |EQCFX1:CLC:LDA&8|
00000f70  45 3a 43 4d 50 23 31 3a  42 45 51 43 46 58 32 3a  |E:CMP#1:BEQCFX2:|
00000f80  2e 43 46 58 31 3a 4a 53  52 42 4c 49 50 3a 4c 44  |.CFX1:JSRBLIP:LD|
00000f90  41 23 32 3a 53 54 41 58  31 25 2c 59 3a 4a 4d 50  |A#2:STAX1%,Y:JMP|
00000fa0  52 45 54 3a 2e 43 46 58  32 3a 4a 4d 50 46 58 31  |RET:.CFX2:JMPFX1|
00000fb0  0d 02 58 cc 2e 42 58 3a  43 4c 43 3a 4c 44 41 23  |..X..BX:CLC:LDA#|
00000fc0  33 31 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 20  |31:JSR&FFEE:LDA |
00000fd0  41 58 25 2c 59 3a 4a 53  52 26 46 46 45 45 3a 4c  |AX%,Y:JSR&FFEE:L|
00000fe0  44 41 20 41 59 25 2c 59  3a 4a 53 52 26 46 46 45  |DA AY%,Y:JSR&FFE|
00000ff0  45 3a 4c 44 41 23 38 3a  4a 53 52 26 46 46 45 45  |E:LDA#8:JSR&FFEE|
00001000  3a 4c 44 41 23 31 33 35  3a 4a 53 52 26 46 46 46  |:LDA#135:JSR&FFF|
00001010  34 3a 53 54 58 26 37 33  3a 4c 44 59 26 38 30 3a  |4:STX&73:LDY&80:|
00001020  43 4c 43 3a 4c 44 41 26  37 33 3a 43 4d 50 26 38  |CLC:LDA&73:CMP&8|
00001030  46 3a 42 45 51 42 58 31  3a 4a 53 52 43 42 58 3a  |F:BEQBX1:JSRCBX:|
00001040  4a 4d 50 52 45 54 3a 2e  42 58 31 3a 4c 44 41 20  |JMPRET:.BX1:LDA |
00001050  41 58 25 2c 59 3a 53 54  41 26 37 31 3a 44 45 43  |AX%,Y:STA&71:DEC|
00001060  26 37 31 3a 4c 44 41 26  37 31 3a 53 54 41 20 41  |&71:LDA&71:STA A|
00001070  58 25 2c 59 3a 4a 4d 50  52 45 54 20 0d 02 62 6e  |X%,Y:JMPRET ..bn|
00001080  2e 43 42 58 3a 43 4c 43  3a 4c 44 41 20 41 58 25  |.CBX:CLC:LDA AX%|
00001090  2c 59 3a 43 4d 50 23 37  3a 42 45 51 43 42 58 31  |,Y:CMP#7:BEQCBX1|
000010a0  3a 43 4c 43 3a 4c 44 41  26 38 45 3a 43 4d 50 23  |:CLC:LDA&8E:CMP#|
000010b0  31 3a 42 45 51 43 42 58  32 3a 2e 43 42 58 31 3a  |1:BEQCBX2:.CBX1:|
000010c0  4a 53 52 42 4c 49 50 3a  4c 44 41 23 31 3a 53 54  |JSRBLIP:LDA#1:ST|
000010d0  41 58 31 25 2c 59 3a 4a  4d 50 52 45 54 3a 2e 43  |AX1%,Y:JMPRET:.C|
000010e0  42 58 32 3a 4a 4d 50 42  58 31 0d 02 6c cd 2e 44  |BX2:JMPBX1..l..D|
000010f0  59 3a 43 4c 43 3a 4c 44  41 23 33 31 3a 4a 53 52  |Y:CLC:LDA#31:JSR|
00001100  26 46 46 45 45 3a 4c 44  41 20 41 58 25 2c 59 3a  |&FFEE:LDA AX%,Y:|
00001110  4a 53 52 26 46 46 45 45  3a 4c 44 41 20 41 59 25  |JSR&FFEE:LDA AY%|
00001120  2c 59 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 23  |,Y:JSR&FFEE:LDA#|
00001130  31 30 3a 4a 53 52 26 46  46 45 45 3a 4c 44 41 23  |10:JSR&FFEE:LDA#|
00001140  31 33 35 3a 4a 53 52 26  46 46 46 34 3a 53 54 58  |135:JSR&FFF4:STX|
00001150  26 37 33 3a 4c 44 59 26  38 30 3a 43 4c 43 3a 4c  |&73:LDY&80:CLC:L|
00001160  44 41 26 37 33 3a 43 4d  50 26 38 46 3a 42 45 51  |DA&73:CMP&8F:BEQ|
00001170  44 59 31 3a 4a 53 52 43  44 59 3a 4a 4d 50 52 45  |DY1:JSRCDY:JMPRE|
00001180  54 32 3a 2e 44 59 31 3a  4c 44 41 41 59 25 2c 59  |T2:.DY1:LDAAY%,Y|
00001190  3a 53 54 41 26 37 31 3a  49 4e 43 26 37 31 3a 4c  |:STA&71:INC&71:L|
000011a0  44 41 26 37 31 3a 53 54  41 20 41 59 25 2c 59 3a  |DA&71:STA AY%,Y:|
000011b0  4a 4d 50 52 45 54 32 0d  02 76 70 2e 43 44 59 3a  |JMPRET2..vp.CDY:|
000011c0  43 4c 43 3a 4c 44 41 20  41 59 25 2c 59 3a 43 4d  |CLC:LDA AY%,Y:CM|
000011d0  50 23 32 35 3a 42 45 51  43 44 59 31 3a 43 4c 43  |P#25:BEQCDY1:CLC|
000011e0  3a 4c 44 41 26 38 45 3a  43 4d 50 23 31 3a 42 45  |:LDA&8E:CMP#1:BE|
000011f0  51 43 44 59 32 3a 2e 43  44 59 31 3a 4a 53 52 42  |QCDY2:.CDY1:JSRB|
00001200  4c 49 50 3a 4c 44 41 23  32 3a 53 54 41 59 31 25  |LIP:LDA#2:STAY1%|
00001210  2c 59 3a 4a 4d 50 52 45  54 32 3a 2e 43 44 59 32  |,Y:JMPRET2:.CDY2|
00001220  3a 4a 4d 50 44 59 31 0d  02 80 ce 2e 55 59 3a 43  |:JMPDY1.....UY:C|
00001230  4c 43 3a 4c 44 41 23 33  31 3a 4a 53 52 26 46 46  |LC:LDA#31:JSR&FF|
00001240  45 45 3a 4c 44 41 20 41  58 25 2c 59 3a 4a 53 52  |EE:LDA AX%,Y:JSR|
00001250  26 46 46 45 45 3a 4c 44  41 20 41 59 25 2c 59 3a  |&FFEE:LDA AY%,Y:|
00001260  4a 53 52 26 46 46 45 45  3a 4c 44 41 23 31 31 3a  |JSR&FFEE:LDA#11:|
00001270  4a 53 52 26 46 46 45 45  3a 4c 44 41 23 31 33 35  |JSR&FFEE:LDA#135|
00001280  3a 4a 53 52 26 46 46 46  34 3a 53 54 58 26 37 33  |:JSR&FFF4:STX&73|
00001290  3a 4c 44 59 26 38 30 3a  43 4c 43 3a 4c 44 41 26  |:LDY&80:CLC:LDA&|
000012a0  37 33 3a 43 4d 50 26 38  46 3a 42 45 51 55 59 31  |73:CMP&8F:BEQUY1|
000012b0  3a 4a 53 52 43 55 59 3a  4a 4d 50 52 45 54 32 3a  |:JSRCUY:JMPRET2:|
000012c0  2e 55 59 31 3a 4c 44 41  41 59 25 2c 59 3a 53 54  |.UY1:LDAAY%,Y:ST|
000012d0  41 26 37 31 3a 44 45 43  26 37 31 3a 4c 44 41 26  |A&71:DEC&71:LDA&|
000012e0  37 31 3a 53 54 41 41 59  25 2c 59 3a 4a 4d 50 52  |71:STAAY%,Y:JMPR|
000012f0  45 54 32 20 20 0d 02 8a  6f 2e 43 55 59 3a 43 4c  |ET2  ...o.CUY:CL|
00001300  43 3a 4c 44 41 20 41 59  25 2c 59 3a 43 4d 50 23  |C:LDA AY%,Y:CMP#|
00001310  36 3a 42 45 51 43 55 59  31 3a 43 4c 43 3a 4c 44  |6:BEQCUY1:CLC:LD|
00001320  41 26 38 45 3a 43 4d 50  23 31 3a 42 45 51 43 55  |A&8E:CMP#1:BEQCU|
00001330  59 32 3a 2e 43 55 59 31  3a 4a 53 52 42 4c 49 50  |Y2:.CUY1:JSRBLIP|
00001340  3a 4c 44 41 23 31 3a 53  54 41 59 31 25 2c 59 3a  |:LDA#1:STAY1%,Y:|
00001350  4a 4d 50 52 45 54 32 3a  2e 43 55 59 32 3a 4a 4d  |JMPRET2:.CUY2:JM|
00001360  50 55 59 31 0d 02 94 38  2e 42 4c 49 50 3a 53 54  |PUY1...8.BLIP:ST|
00001370  59 26 38 30 3a 4c 44 41  23 37 3a 4c 44 58 23 58  |Y&80:LDA#7:LDX#X|
00001380  25 3a 4c 44 59 23 59 25  3a 4a 53 52 26 46 46 46  |%:LDY#Y%:JSR&FFF|
00001390  31 3a 4c 44 59 26 38 30  3a 52 54 53 0d 02 9e 07  |1:LDY&80:RTS....|
000013a0  52 54 53 0d 02 a8 05 5d  0d 02 b2 05 e1 0d 02 bc  |RTS....]........|
000013b0  55 dd f2 57 28 78 25 2c  79 25 2c 61 24 29 3a ea  |U..W(x%,y%,a$):.|
000013c0  54 25 3a e3 20 54 25 3d  31 b8 20 a9 28 61 24 29  |T%:. T%=1. .(a$)|
000013d0  3a f1 8a 78 25 2b 54 25  2c 79 25 29 3b c1 61 24  |:..x%+T%,y%);.a$|
000013e0  2c 54 25 2c 31 29 3b 3a  d4 31 2c 2d 38 2c 31 32  |,T%,1);:.1,-8,12|
000013f0  35 2c 31 3a d4 31 2c 2d  39 2c 35 30 2c 31 3a ed  |5,1:.1,-9,50,1:.|
00001400  3a e1 0d 02 c6 63 dd f2  52 4e 44 3a 53 25 3d a8  |:....c..RND:S%=.|
00001410  28 b3 28 31 29 2a 3f 26  37 30 2b 31 29 3a 45 25  |(.(1)*?&70+1):E%|
00001420  3d b4 28 28 41 58 25 3f  53 25 29 2d 53 58 25 29  |=.((AX%?S%)-SX%)|
00001430  3a 44 25 3d b4 28 28 41  59 25 3f 53 25 29 2d 53  |:D%=.((AY%?S%)-S|
00001440  59 25 29 3a 58 31 25 3f  53 25 3d a4 4d 49 4e 28  |Y%):X1%?S%=.MIN(|
00001450  45 25 29 3a 59 31 25 3f  53 25 3d a4 4d 49 4e 28  |E%):Y1%?S%=.MIN(|
00001460  44 25 29 3a e1 0d 02 d0  2f dd a4 4d 49 4e 28 63  |D%):..../..MIN(c|
00001470  25 29 3a e7 20 63 25 3d  2d 31 20 63 25 3d 31 3a  |%):. c%=-1 c%=1:|
00001480  3d 63 25 20 8b 20 e7 20  63 25 3d 31 63 25 3d 32  |=c% . . c%=1c%=2|
00001490  3a 3d 63 25 0d 02 da 07  3d 63 25 0d 02 e4 05 f9  |:=c%....=c%.....|
000014a0  0d 02 ee 28 dd f2 52 4e  44 43 48 41 52 28 63 25  |...(..RNDCHAR(c%|
000014b0  29 3a ea 20 41 24 2c 42  24 2c 43 24 2c 44 24 2c  |):. A$,B$,C$,D$,|
000014c0  44 25 3a 43 24 3d 22 22  0d 02 f8 21 e3 20 53 25  |D%:C$=""...!. S%|
000014d0  3d 31 b8 20 34 3a 41 24  3d 22 22 3a 42 24 3d 22  |=1. 4:A$="":B$="|
000014e0  22 3a e3 54 25 3d 31 b8  34 0d 03 02 24 e7 20 b3  |":.T%=1.4...$. .|
000014f0  28 31 29 3c 2e 32 35 20  41 24 3d 41 24 2b 22 31  |(1)<.25 A$=A$+"1|
00001500  22 20 8b 20 41 24 3d 41  24 2b 22 30 22 0d 03 0c  |" . A$=A$+"0"...|
00001510  4a ed 3a 42 24 3d 41 24  3a e3 20 54 25 3d 34 b8  |J.:B$=A$:. T%=4.|
00001520  31 88 2d 31 3a 42 24 3d  42 24 2b c1 41 24 2c 54  |1.-1:B$=B$+.A$,T|
00001530  25 2c 31 29 3a ed 3a 44  24 3d a4 42 49 4e 28 42  |%,1):.:D$=.BIN(B|
00001540  24 29 3a 44 25 3d bb 28  44 24 29 3a 43 24 3d 43  |$):D%=.(D$):C$=C|
00001550  24 2b bd 28 44 25 29 0d  03 16 29 ed 3a 41 24 3d  |$+.(D%)...).:A$=|
00001560  43 24 3a e3 20 54 25 3d  34 b8 31 88 2d 31 3a 41  |C$:. T%=4.1.-1:A|
00001570  24 3d 41 24 2b c1 43 24  2c 54 25 2c 31 29 3a ed  |$=A$+.C$,T%,1):.|
00001580  0d 03 20 1b e7 20 41 24  3d c4 38 2c bd 30 29 3a  |.. .. A$=.8,.0):|
00001590  43 24 3d 22 22 3a e5 8d  64 78 42 0d 03 2a 0e ef  |C$="":..dxB..*..|
000015a0  32 33 2c 63 25 3a f1 41  24 0d 03 34 05 e1 0d 03  |23,c%:.A$..4....|
000015b0  3e 42 dd a4 42 49 4e 28  61 24 29 3a ea 52 25 2c  |>B..BIN(a$):.R%,|
000015c0  4d 25 3a 4d 25 3d 30 3a  e3 20 52 25 3d 31 b8 38  |M%:M%=0:. R%=1.8|
000015d0  3a e7 20 c1 61 24 2c 52  25 2c 31 29 3d 22 31 22  |:. .a$,R%,1)="1"|
000015e0  4d 25 3d 4d 25 2b 28 32  5e 28 38 2d 52 25 29 29  |M%=M%+(2^(8-R%))|
000015f0  0d 03 48 12 ed 3a 61 24  3d c3 28 4d 25 29 3a 3d  |..H..:a$=.(M%):=|
00001600  61 24 0d 03 52 25 dd f2  53 43 3a fb 33 3a f1 8a  |a$..R%..SC:.3:..|
00001610  32 33 2d a9 28 c3 28 53  52 25 29 29 2c 32 38 29  |23-.(.(SR%)),28)|
00001620  3b 53 52 25 3b 3a e1 0d  03 5c b5 dd f2 49 4e 49  |;SR%;:...\...INI|
00001630  54 53 43 52 45 45 4e 3a  ef 32 30 2c 31 39 2c 32  |TSCREEN:.20,19,2|
00001640  2c 34 3b 30 3b 3a e6 30  2c 32 3a e3 54 25 3d 30  |,4;0;:.0,2:.T%=0|
00001650  b8 31 30 30 3a f0 36 39  2c b3 28 31 32 38 30 29  |.100:.69,.(1280)|
00001660  2c b3 28 31 30 32 33 29  3a ed 3a ef 35 3a e6 30  |,.(1023):.:.5:.0|
00001670  2c 31 3a ec 36 30 38 2c  35 34 30 3a f1 22 62 79  |,1:.608,540:."by|
00001680  22 3a e3 54 25 3d 31 b8  33 3a e6 30 2c 54 25 3a  |":.T%=1.3:.0,T%:|
00001690  ec 33 32 30 2b 54 25 2a  34 2c 34 35 32 2b 54 25  |.320+T%*4,452+T%|
000016a0  2a 34 3a f1 22 53 69 6d  6f 6e 20 50 68 69 70 70  |*4:."Simon Phipp|
000016b0  73 20 28 31 39 38 34 29  22 3a ec 34 38 30 2b 54  |s (1984)":.480+T|
000016c0  25 2a 34 2c 35 38 30 2b  54 25 2a 34 3a f1 22 47  |%*4,580+T%*4:."G|
000016d0  72 69 64 64 20 57 6f 72  7a 22 3a ed 0d 03 5d 06  |ridd Worz":...].|
000016e0  ef 34 0d 03 66 05 e1 0d  03 70 b7 dd f2 45 4e 44  |.4..f....p...END|
000016f0  3a ef 31 39 2c 31 2c 31  3b 30 3b 31 39 2c 30 2c  |:.19,1,1;0;19,0,|
00001700  31 35 3b 30 3b 32 39 2c  36 34 30 3b 35 31 32 3b  |15;0;29,640;512;|
00001710  31 38 2c 30 2c 30 2c 31  39 2c 30 2c 30 3b 30 3b  |18,0,0,19,0,0;0;|
00001720  3a d4 30 2c 2d 31 35 2c  37 2c 32 35 35 3a e3 54  |:.0,-15,7,255:.T|
00001730  25 3d 34 33 36 b8 36 34  30 88 34 3a d4 26 31 31  |%=436.640.4:.&11|
00001740  2c 2d 31 2c 36 34 30 2d  54 25 2c 31 3a f2 42 4f  |,-1,640-T%,1:.BO|
00001750  58 28 54 25 29 3a ef 31  39 2c 32 2c 30 3b 30 3b  |X(T%):.19,2,0;0;|
00001760  3a f1 8a b3 28 32 36 29  2b 36 2c b3 28 32 30 29  |:...(26)+6,.(20)|
00001770  2b 35 29 22 20 22 3b 3a  ef 31 39 2c 32 2c 34 3b  |+5)" ";:.19,2,4;|
00001780  30 3b 3a ed 3a ef 32 36  3a d4 26 31 31 2c 30 2c  |0;:.:.26:.&11,0,|
00001790  30 2c 30 3a d4 26 31 30  2c 30 2c 30 2c 30 0d 03  |0,0:.&10,0,0,0..|
000017a0  71 05 e1 0d 03 7a 3a dd  f2 42 4f 58 28 54 25 29  |q....z:..BOX(T%)|
000017b0  3a 41 3d 54 25 3a 42 3d  30 2e 38 2a 54 25 3a ec  |:A=T%:B=0.8*T%:.|
000017c0  41 2c 42 3a df 41 2c 2d  42 3a df 2d 41 2c 2d 42  |A,B:.A,-B:.-A,-B|
000017d0  3a df 2d 41 2c 42 3a df  41 2c 42 3a e1 0d 03 84  |:.-A,B:.A,B:....|
000017e0  c1 dd f2 48 49 47 48 3a  ef 32 38 2c 31 2c 33 30  |...HIGH:.28,1,30|
000017f0  2c 33 38 2c 31 2c 31 32  2c 32 36 2c 31 37 2c 33  |,38,1,12,26,17,3|
00001800  3a f2 57 28 31 34 2c 34  2c 22 47 4f 4f 44 20 53  |:.W(14,4,"GOOD S|
00001810  43 4f 52 45 22 29 3a d4  2d 31 2c 32 30 32 2c 30  |CORE"):.-1,202,0|
00001820  2c 30 3a d4 2d 31 2c 32  35 37 2c 30 2c 30 3a f2  |,0:.-1,257,0,0:.|
00001830  57 28 38 2c 38 2c 22 50  4c 45 41 53 45 20 45 4e  |W(8,8,"PLEASE EN|
00001840  54 45 52 20 59 4f 55 52  20 4e 41 4d 45 22 29 3a  |TER YOUR NAME"):|
00001850  d4 2d 31 2c 32 34 31 2c  30 2c 30 3a d4 2d 31 2c  |.-1,241,0,0:.-1,|
00001860  31 39 32 2c 30 2c 30 3a  d4 2d 31 2c 32 39 30 2c  |192,0,0:.-1,290,|
00001870  30 2c 30 3a d4 2d 31 2c  32 32 33 2c 30 2c 30 3a  |0,0:.-1,223,0,0:|
00001880  f1 8a 31 30 2c 31 35 29  22 2d 2d 2d 2d 2d 2d 2d  |..10,15)"-------|
00001890  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 22 0d 03  |-------------"..|
000018a0  85 0b 2a 46 58 31 32 2c  30 0d 03 8e 1c 48 49 24  |..*FX12,0....HI$|
000018b0  3d 22 22 3a f1 8a 31 30  2c 31 35 29 3b 3a 2a 46  |="":..10,15);:*F|
000018c0  58 31 35 2c 31 0d 03 98  2f 41 24 3d be 3a e7 20  |X15,1.../A$=.:. |
000018d0  a9 28 48 49 24 29 3d 32  30 20 80 20 41 24 3c 3e  |.(HI$)=20 . A$<>|
000018e0  bd 31 32 37 20 80 20 41  24 3c 3e bd 31 33 20 e5  |.127 . A$<>.13 .|
000018f0  8d 74 58 43 0d 03 a2 11  e7 20 41 24 3d bd 31 33  |.tXC..... A$=.13|
00001900  e5 8d 64 5e 43 0d 03 ac  4c e7 20 41 24 3d bd 31  |..d^C...L. A$=.1|
00001910  32 37 20 84 20 41 24 3d  bd 31 33 20 84 20 41 24  |27 . A$=.13 . A$|
00001920  3d bd 33 32 20 84 20 28  97 28 41 24 29 3e 36 34  |=.32 . (.(A$)>64|
00001930  20 80 20 97 28 41 24 29  3c 39 31 29 f1 41 24 3b  | . .(A$)<91).A$;|
00001940  20 8b 20 41 24 3d 22 22  3a ef 37 3a e5 8d 74 58  | . A$="":.7:..tX|
00001950  43 0d 03 b6 26 e7 20 41  24 3c 3e bd 31 33 20 80  |C...&. A$<>.13 .|
00001960  20 41 24 3c 3e bd 31 32  37 20 d4 2d 31 2c 97 28  | A$<>.127 .-1,.(|
00001970  41 24 29 2c 30 2c 30 0d  03 c0 22 e7 20 a9 28 48  |A$),0,0...". .(H|
00001980  49 24 29 3e 3d 32 30 20  80 20 41 24 3c 3e bd 31  |I$)>=20 . A$<>.1|
00001990  32 37 20 e5 8d 74 58 43  20 0d 03 ca 25 e7 20 41  |27 ..tXC ...%. A|
000019a0  24 3d bd 31 32 37 48 49  24 3d c0 48 49 24 2c a9  |$=.127HI$=.HI$,.|
000019b0  28 48 49 24 29 2d 31 29  3a e5 8d 74 58 43 0d 03  |(HI$)-1):..tXC..|
000019c0  d4 2b e7 20 a9 28 48 49  24 29 3c 32 30 20 48 49  |.+. .(HI$)<20 HI|
000019d0  24 3d 48 49 24 2b 41 24  3a e5 8d 74 58 43 20 8b  |$=HI$+A$:..tXC .|
000019e0  20 ef 37 3a e5 8d 74 58  43 0d 03 de 05 e1 0d 03  | .7:..tXC.......|
000019f0  e8 c0 dd f2 44 45 44 3a  ef 32 34 2c 31 39 32 3b  |....DED:.24,192;|
00001a00  31 35 36 3b 31 30 38 38  3b 38 36 30 3b 3a d4 30  |156;1088;860;:.0|
00001a10  2c 2d 31 35 2c 37 2c 32  35 30 3a 4a 25 3d 28 53  |,-15,7,250:J%=(S|
00001a20  58 25 2b 58 32 25 29 2a  33 32 2b 31 36 3a 4b 25  |X%+X2%)*32+16:K%|
00001a30  3d 28 33 32 2d 53 59 25  2b 59 32 25 29 2a 33 32  |=(32-SY%+Y2%)*32|
00001a40  2d 31 36 3a e3 54 3d 30  b8 32 30 30 88 38 3a f0  |-16:.T=0.200.8:.|
00001a50  36 39 2c 4a 25 2b 54 2f  32 2c 4b 25 2b 54 2f 32  |69,J%+T/2,K%+T/2|
00001a60  3a f0 36 39 2c 4a 25 2b  54 2f 32 2c 4b 25 2d 54  |:.69,J%+T/2,K%-T|
00001a70  2f 32 3a f0 36 39 2c 4a  25 2d 54 2f 32 2c 4b 25  |/2:.69,J%-T/2,K%|
00001a80  2d 54 2f 32 3a f0 36 39  2c 4a 25 2d 54 2f 32 2c  |-T/2:.69,J%-T/2,|
00001a90  4b 25 2b 54 2f 32 3a f0  36 39 2c 4a 25 2c 4b 25  |K%+T/2:.69,J%,K%|
00001aa0  2b 54 3a f0 36 39 2c 4a  25 2c 4b 25 2d 54 0d 03  |+T:.69,J%,K%-T..|
00001ab0  e9 0f f0 36 39 2c 4a 25  2b 54 2c 4b 25 0d 03 f2  |...69,J%+T,K%...|
00001ac0  8f f0 36 39 2c 4a 25 2d  54 2c 4b 25 3a e6 33 2c  |..69,J%-T,K%:.3,|
00001ad0  b3 28 33 29 3a d4 26 31  31 2c 2d 31 2c 54 2c 31  |.(3):.&11,-1,T,1|
00001ae0  3a f0 36 39 2c b3 28 54  29 2a b4 28 b3 29 2b 4a  |:.69,.(T)*.(.)+J|
00001af0  25 2c b3 28 54 29 2a b4  28 b3 29 2b 4b 25 3a ed  |%,.(T)*.(.)+K%:.|
00001b00  3a e3 54 3d 30 b8 33 30  3a f0 36 39 2c b3 28 31  |:.T=0.30:.69,.(1|
00001b10  32 38 30 29 2c b3 28 31  30 32 33 29 3a ed 3a d4  |280),.(1023):.:.|
00001b20  26 31 30 2c 32 2c 36 2c  31 30 3a e3 20 54 25 3d  |&10,2,6,10:. T%=|
00001b30  30 b8 31 35 30 30 3a ed  3a da 3a ef 32 36 3a e3  |0.1500:.:.:.26:.|
00001b40  54 3d 30 b8 31 35 30 30  3a ed 3a e1 0d 03 fc 19  |T=0.1500:.:.....|
00001b50  dd f2 47 52 49 44 44 3a  e7 20 53 43 25 83 31 30  |..GRIDD:. SC%.10|
00001b60  3c 3e 30 e1 20 0d 04 06  30 e7 20 53 43 25 83 31  |<>0. ...0. SC%.1|
00001b70  30 3d 30 20 ef 32 33 2c  32 32 34 2c 32 34 2c 32  |0=0 .23,224,24,2|
00001b80  34 2c 32 34 2c 32 35 35  2c 32 35 35 2c 32 34 2c  |4,24,255,255,24,|
00001b90  32 34 2c 32 34 0d 04 10  30 e7 20 53 43 25 83 32  |24,24...0. SC%.2|
00001ba0  30 3d 30 20 ef 32 33 2c  32 32 34 2c 31 32 39 2c  |0=0 .23,224,129,|
00001bb0  36 36 2c 33 36 2c 32 34  2c 32 34 2c 33 36 2c 36  |66,36,24,24,36,6|
00001bc0  36 2c 31 32 39 0d 04 1a  32 e7 20 53 43 25 83 33  |6,129...2. SC%.3|
00001bd0  30 3d 30 20 ef 32 33 2c  32 32 34 2c 30 2c 31 32  |0=0 .23,224,0,12|
00001be0  36 2c 31 32 36 2c 31 32  36 2c 31 32 36 2c 31 32  |6,126,126,126,12|
00001bf0  36 2c 31 32 36 2c 30 0d  04 24 36 e7 20 53 43 25  |6,126,0..$6. SC%|
00001c00  83 34 30 3d 30 20 ef 32  33 2c 32 32 34 2c 32 35  |.40=0 .23,224,25|
00001c10  35 2c 31 35 33 2c 31 35  33 2c 32 35 35 2c 32 35  |5,153,153,255,25|
00001c20  35 2c 31 35 33 2c 31 35  33 2c 32 35 35 0d 04 2e  |5,153,153,255...|
00001c30  05 e1 0d ff                                       |....|
00001c34
GAMES1/WORZ.m0
GAMES1/WORZ.m1
GAMES1/WORZ.m2
GAMES1/WORZ.m4
GAMES1/WORZ.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .