�6:�ass
^A$="DEL.170,9999"+�13+"GOTO40"+�6+�13:�21:� char=1 � �(A$):�"FX138,0,"+�(�(�A$,char,1))):�
�
( �2:�=&2000:*LO. BLOCDAT 2000
2�c%(9):�r=0�9:�c%(r):�
<��23,1,0;0;0;0;:x=0:y=0:�3,3:�:�&A00:�x*128,1024-y*64:�x*128,960-y*64:�85,(x*128)+128,1024-y*64:�85,(x*128)+128,960-y*64:k$=�
FO�k$="Z"�x<>0�x=x-1��k$="X"�x<>9�x=x+1��k$="K"�y<>0�y=y-1��k$="M"�y<>9�y=y+1
P�(k$)>90��(k$)<123��set
Z� �
d	��set
n.?(�ad)=(?(�ad) � &3F)+&40*((�(k$)-91) � 3)
x3?(�ad+1)=(?(�ad+1) � &3F)+&10*((�(k$)-91) � 12)
���x �2=0�?(�ad-c%(x)+5*c%(x � 2)+4)=((?(�ad-c%(x)+5*c%(x � 2)+4))�&BF)+4*((�(k$)-91) � &10) �?(�ad-c%(x)+5*c%(x � 2)+4)=((?(�ad-c%(x)+5*c%(x � 2)+4))�&7F)+8*((�(k$)-91) � &10)
��
�<ݤad=&3000+256*((?(!&9FC))+16*(?((!&9FC)+1)))+25*y+c%(x)
��0,2,5,7,10,12,15,17,20,22
�:
�	��ass
��pass=0�2�2:P%=&9FC
�
[OPT pass
�
EQUD xscr
܈.screen LDA#&30:CLC:ADCxscr:STA&71:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADC&71:STAscrno:LDA#&FF:STAyset:.ylop LDA#&FF:STAxset:INCyset
�u.xlop LDAscrno:STA&71:INCxset:LDAyset:PHA:STA&70:PLA:ASL A:ASL A:ASL A:PHA:CLC:ADC&70:STA&70:PLA:ASL A:CLC:ADC&70
�uSTA&70:LDYxset:LDAxdata,Y:TAY:LDA(&70),Y:ROL A:ROL A:ROL A:�#3:STA&72:INY:LDA(&70),Y:LSR A:LSR A:LSR A:LSR A:�#12
�~CLC:ADC&72:STA&72:LDAxset:LSR A:TAY:LDAhbdat,Y:TAY:LDA(&70),Y:STA&73:LDAxset:�#1:BNEbit2:LDA&73:ASL A:ROL A:ROL A:JMPfbgot

.bit2 LDA&73:ASL A:ROL A

>.fbgot �#1:ASL A:ASL A:ASL A:ASL A:CLC:ADC&72:ASL A:STA&72

�LDAxset:ASL A:ASL A:ASL A:ASL A:ASL A:ASL A:STA&70:LDAxset:LSR A:LSR A:CLC:ADC#&30:STA&71:LDAyset:CLC:ADC&71:STA&71:LDAyset:ASL A:ASL A:CLC:ADC&71:STA&71

"ULDA&72:LSR A:LSR A:CLC:ADC#&20:STA&73:LDA&72:LSR A:ROR A:ROR A:�#&C0:STA&72:LDY#0

,�.transtop LDA(&70),Y:�#&C0:CLC:ADC(&72),Y:STA(&70),Y:INY:CPY#&40:BNEtranstop:LDY#0:LDA&72:CLC:ADC#&40:STA&72:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71

6P.transbot LDA(&70),Y:�#&C0:CLC:ADC(&72),Y:STA(&70),Y:INY:CPY#&40:BNEtransbot

@"LDAxset:CMP#9:BEQnexty:JMPxlop

J*.nexty LDAyset:CMP#9:BEQscrend:JMPylop

T.scrend RTS

^L.xdata EQUB0:EQUB2:EQUB5:EQUB7:EQUB10:EQUB12:EQUB15:EQUB17:EQUB20:EQUB22

h+.hbdat EQUB4:EQUB9:EQUB14:EQUB19:EQUB24

rK.xset EQUB0:.yset EQUB0:.xscr EQUB0:.yscr EQUB0:.xpos EQUB0:.ypos EQUB0

|.scrno EQUB 0

�]:�

��
�

00000000  0d 00 0a 0b eb 36 3a f2  61 73 73 0d 00 14 5e 41  |.....6:.ass...^A|
00000010  24 3d 22 44 45 4c 2e 31  37 30 2c 39 39 39 39 22  |$="DEL.170,9999"|
00000020  2b bd 31 33 2b 22 47 4f  54 4f 34 30 22 2b bd 36  |+.13+"GOTO40"+.6|
00000030  2b bd 31 33 3a ef 32 31  3a e3 20 63 68 61 72 3d  |+.13:.21:. char=|
00000040  31 20 b8 20 a9 28 41 24  29 3a ff 22 46 58 31 33  |1 . .(A$):."FX13|
00000050  38 2c 30 2c 22 2b c3 28  97 28 c1 41 24 2c 63 68  |8,0,"+.(.(.A$,ch|
00000060  61 72 2c 31 29 29 29 3a  ed 0d 00 1e 05 e0 0d 00  |ar,1))):........|
00000070  28 20 eb 32 3a d3 3d 26  32 30 30 30 3a 2a 4c 4f  |( .2:.=&2000:*LO|
00000080  2e 20 42 4c 4f 43 44 41  54 20 32 30 30 30 0d 00  |. BLOCDAT 2000..|
00000090  32 1a de 63 25 28 39 29  3a e3 72 3d 30 b8 39 3a  |2..c%(9):.r=0.9:|
000000a0  f3 63 25 28 72 29 3a ed  0d 00 3c 80 ef 32 33 2c  |.c%(r):...<..23,|
000000b0  31 2c 30 3b 30 3b 30 3b  30 3b 3a 78 3d 30 3a 79  |1,0;0;0;0;:x=0:y|
000000c0  3d 30 3a e6 33 2c 33 3a  f5 3a d6 26 41 30 30 3a  |=0:.3,3:.:.&A00:|
000000d0  ec 78 2a 31 32 38 2c 31  30 32 34 2d 79 2a 36 34  |.x*128,1024-y*64|
000000e0  3a ec 78 2a 31 32 38 2c  39 36 30 2d 79 2a 36 34  |:.x*128,960-y*64|
000000f0  3a f0 38 35 2c 28 78 2a  31 32 38 29 2b 31 32 38  |:.85,(x*128)+128|
00000100  2c 31 30 32 34 2d 79 2a  36 34 3a f0 38 35 2c 28  |,1024-y*64:.85,(|
00000110  78 2a 31 32 38 29 2b 31  32 38 2c 39 36 30 2d 79  |x*128)+128,960-y|
00000120  2a 36 34 3a 6b 24 3d be  0d 00 46 4f e7 6b 24 3d  |*64:k$=...FO.k$=|
00000130  22 5a 22 80 78 3c 3e 30  8c 78 3d 78 2d 31 8b e7  |"Z".x<>0.x=x-1..|
00000140  6b 24 3d 22 58 22 80 78  3c 3e 39 8c 78 3d 78 2b  |k$="X".x<>9.x=x+|
00000150  31 8b e7 6b 24 3d 22 4b  22 80 79 3c 3e 30 8c 79  |1..k$="K".y<>0.y|
00000160  3d 79 2d 31 8b e7 6b 24  3d 22 4d 22 80 79 3c 3e  |=y-1..k$="M".y<>|
00000170  39 8c 79 3d 79 2b 31 0d  00 50 1c e7 97 28 6b 24  |9.y=y+1..P...(k$|
00000180  29 3e 39 30 80 97 28 6b  24 29 3c 31 32 33 8c f2  |)>90..(k$)<123..|
00000190  73 65 74 0d 00 5a 07 fd  20 a3 0d 00 64 09 dd f2  |set..Z.. ...d...|
000001a0  73 65 74 0d 00 6e 2e 3f  28 a4 61 64 29 3d 28 3f  |set..n.?(.ad)=(?|
000001b0  28 a4 61 64 29 20 80 20  26 33 46 29 2b 26 34 30  |(.ad) . &3F)+&40|
000001c0  2a 28 28 97 28 6b 24 29  2d 39 31 29 20 80 20 33  |*((.(k$)-91) . 3|
000001d0  29 0d 00 78 33 3f 28 a4  61 64 2b 31 29 3d 28 3f  |)..x3?(.ad+1)=(?|
000001e0  28 a4 61 64 2b 31 29 20  80 20 26 33 46 29 2b 26  |(.ad+1) . &3F)+&|
000001f0  31 30 2a 28 28 97 28 6b  24 29 2d 39 31 29 20 80  |10*((.(k$)-91) .|
00000200  20 31 32 29 0d 00 82 b2  e7 78 20 83 32 3d 30 8c  | 12).....x .2=0.|
00000210  3f 28 a4 61 64 2d 63 25  28 78 29 2b 35 2a 63 25  |?(.ad-c%(x)+5*c%|
00000220  28 78 20 81 20 32 29 2b  34 29 3d 28 28 3f 28 a4  |(x . 2)+4)=((?(.|
00000230  61 64 2d 63 25 28 78 29  2b 35 2a 63 25 28 78 20  |ad-c%(x)+5*c%(x |
00000240  81 20 32 29 2b 34 29 29  80 26 42 46 29 2b 34 2a  |. 2)+4)).&BF)+4*|
00000250  28 28 97 28 6b 24 29 2d  39 31 29 20 80 20 26 31  |((.(k$)-91) . &1|
00000260  30 29 20 8b 3f 28 a4 61  64 2d 63 25 28 78 29 2b  |0) .?(.ad-c%(x)+|
00000270  35 2a 63 25 28 78 20 81  20 32 29 2b 34 29 3d 28  |5*c%(x . 2)+4)=(|
00000280  28 3f 28 a4 61 64 2d 63  25 28 78 29 2b 35 2a 63  |(?(.ad-c%(x)+5*c|
00000290  25 28 78 20 81 20 32 29  2b 34 29 29 80 26 37 46  |%(x . 2)+4)).&7F|
000002a0  29 2b 38 2a 28 28 97 28  6b 24 29 2d 39 31 29 20  |)+8*((.(k$)-91) |
000002b0  80 20 26 31 30 29 0d 00  8c 05 e1 0d 00 96 3c dd  |. &10)........<.|
000002c0  a4 61 64 3d 26 33 30 30  30 2b 32 35 36 2a 28 28  |.ad=&3000+256*((|
000002d0  3f 28 21 26 39 46 43 29  29 2b 31 36 2a 28 3f 28  |?(!&9FC))+16*(?(|
000002e0  28 21 26 39 46 43 29 2b  31 29 29 29 2b 32 35 2a  |(!&9FC)+1)))+25*|
000002f0  79 2b 63 25 28 78 29 0d  00 a0 1e dc 30 2c 32 2c  |y+c%(x).....0,2,|
00000300  35 2c 37 2c 31 30 2c 31  32 2c 31 35 2c 31 37 2c  |5,7,10,12,15,17,|
00000310  32 30 2c 32 32 0d 00 aa  05 3a 0d 00 b4 09 dd f2  |20,22....:......|
00000320  61 73 73 0d 00 be 17 e3  70 61 73 73 3d 30 b8 32  |ass.....pass=0.2|
00000330  88 32 3a 50 25 3d 26 39  46 43 0d 00 c8 0d 5b 4f  |.2:P%=&9FC....[O|
00000340  50 54 20 70 61 73 73 0d  00 d2 0d 45 51 55 44 20  |PT pass....EQUD |
00000350  78 73 63 72 0d 00 dc 88  2e 73 63 72 65 65 6e 20  |xscr.....screen |
00000360  4c 44 41 23 26 33 30 3a  43 4c 43 3a 41 44 43 78  |LDA#&30:CLC:ADCx|
00000370  73 63 72 3a 53 54 41 26  37 31 3a 4c 44 41 79 73  |scr:STA&71:LDAys|
00000380  63 72 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  |cr:ASL A:ASL A:A|
00000390  53 4c 20 41 3a 41 53 4c  20 41 3a 43 4c 43 3a 41  |SL A:ASL A:CLC:A|
000003a0  44 43 26 37 31 3a 53 54  41 73 63 72 6e 6f 3a 4c  |DC&71:STAscrno:L|
000003b0  44 41 23 26 46 46 3a 53  54 41 79 73 65 74 3a 2e  |DA#&FF:STAyset:.|
000003c0  79 6c 6f 70 20 4c 44 41  23 26 46 46 3a 53 54 41  |ylop LDA#&FF:STA|
000003d0  78 73 65 74 3a 49 4e 43  79 73 65 74 0d 00 e6 75  |xset:INCyset...u|
000003e0  2e 78 6c 6f 70 20 4c 44  41 73 63 72 6e 6f 3a 53  |.xlop LDAscrno:S|
000003f0  54 41 26 37 31 3a 49 4e  43 78 73 65 74 3a 4c 44  |TA&71:INCxset:LD|
00000400  41 79 73 65 74 3a 50 48  41 3a 53 54 41 26 37 30  |Ayset:PHA:STA&70|
00000410  3a 50 4c 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |:PLA:ASL A:ASL A|
00000420  3a 41 53 4c 20 41 3a 50  48 41 3a 43 4c 43 3a 41  |:ASL A:PHA:CLC:A|
00000430  44 43 26 37 30 3a 53 54  41 26 37 30 3a 50 4c 41  |DC&70:STA&70:PLA|
00000440  3a 41 53 4c 20 41 3a 43  4c 43 3a 41 44 43 26 37  |:ASL A:CLC:ADC&7|
00000450  30 0d 00 f0 75 53 54 41  26 37 30 3a 4c 44 59 78  |0...uSTA&70:LDYx|
00000460  73 65 74 3a 4c 44 41 78  64 61 74 61 2c 59 3a 54  |set:LDAxdata,Y:T|
00000470  41 59 3a 4c 44 41 28 26  37 30 29 2c 59 3a 52 4f  |AY:LDA(&70),Y:RO|
00000480  4c 20 41 3a 52 4f 4c 20  41 3a 52 4f 4c 20 41 3a  |L A:ROL A:ROL A:|
00000490  80 23 33 3a 53 54 41 26  37 32 3a 49 4e 59 3a 4c  |.#3:STA&72:INY:L|
000004a0  44 41 28 26 37 30 29 2c  59 3a 4c 53 52 20 41 3a  |DA(&70),Y:LSR A:|
000004b0  4c 53 52 20 41 3a 4c 53  52 20 41 3a 4c 53 52 20  |LSR A:LSR A:LSR |
000004c0  41 3a 80 23 31 32 0d 00  fa 7e 43 4c 43 3a 41 44  |A:.#12...~CLC:AD|
000004d0  43 26 37 32 3a 53 54 41  26 37 32 3a 4c 44 41 78  |C&72:STA&72:LDAx|
000004e0  73 65 74 3a 4c 53 52 20  41 3a 54 41 59 3a 4c 44  |set:LSR A:TAY:LD|
000004f0  41 68 62 64 61 74 2c 59  3a 54 41 59 3a 4c 44 41  |Ahbdat,Y:TAY:LDA|
00000500  28 26 37 30 29 2c 59 3a  53 54 41 26 37 33 3a 4c  |(&70),Y:STA&73:L|
00000510  44 41 78 73 65 74 3a 80  23 31 3a 42 4e 45 62 69  |DAxset:.#1:BNEbi|
00000520  74 32 3a 4c 44 41 26 37  33 3a 41 53 4c 20 41 3a  |t2:LDA&73:ASL A:|
00000530  52 4f 4c 20 41 3a 52 4f  4c 20 41 3a 4a 4d 50 66  |ROL A:ROL A:JMPf|
00000540  62 67 6f 74 0d 01 04 1c  2e 62 69 74 32 20 4c 44  |bgot.....bit2 LD|
00000550  41 26 37 33 3a 41 53 4c  20 41 3a 52 4f 4c 20 41  |A&73:ASL A:ROL A|
00000560  0d 01 0e 3e 2e 66 62 67  6f 74 20 80 23 31 3a 41  |...>.fbgot .#1:A|
00000570  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00000580  3a 41 53 4c 20 41 3a 43  4c 43 3a 41 44 43 26 37  |:ASL A:CLC:ADC&7|
00000590  32 3a 41 53 4c 20 41 3a  53 54 41 26 37 32 0d 01  |2:ASL A:STA&72..|
000005a0  18 9d 4c 44 41 78 73 65  74 3a 41 53 4c 20 41 3a  |..LDAxset:ASL A:|
000005b0  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
000005c0  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 53 54  |A:ASL A:ASL A:ST|
000005d0  41 26 37 30 3a 4c 44 41  78 73 65 74 3a 4c 53 52  |A&70:LDAxset:LSR|
000005e0  20 41 3a 4c 53 52 20 41  3a 43 4c 43 3a 41 44 43  | A:LSR A:CLC:ADC|
000005f0  23 26 33 30 3a 53 54 41  26 37 31 3a 4c 44 41 79  |#&30:STA&71:LDAy|
00000600  73 65 74 3a 43 4c 43 3a  41 44 43 26 37 31 3a 53  |set:CLC:ADC&71:S|
00000610  54 41 26 37 31 3a 4c 44  41 79 73 65 74 3a 41 53  |TA&71:LDAyset:AS|
00000620  4c 20 41 3a 41 53 4c 20  41 3a 43 4c 43 3a 41 44  |L A:ASL A:CLC:AD|
00000630  43 26 37 31 3a 53 54 41  26 37 31 0d 01 22 55 4c  |C&71:STA&71.."UL|
00000640  44 41 26 37 32 3a 4c 53  52 20 41 3a 4c 53 52 20  |DA&72:LSR A:LSR |
00000650  41 3a 43 4c 43 3a 41 44  43 23 26 32 30 3a 53 54  |A:CLC:ADC#&20:ST|
00000660  41 26 37 33 3a 4c 44 41  26 37 32 3a 4c 53 52 20  |A&73:LDA&72:LSR |
00000670  41 3a 52 4f 52 20 41 3a  52 4f 52 20 41 3a 80 23  |A:ROR A:ROR A:.#|
00000680  26 43 30 3a 53 54 41 26  37 32 3a 4c 44 59 23 30  |&C0:STA&72:LDY#0|
00000690  0d 01 2c 9e 2e 74 72 61  6e 73 74 6f 70 20 4c 44  |..,..transtop LD|
000006a0  41 28 26 37 30 29 2c 59  3a 80 23 26 43 30 3a 43  |A(&70),Y:.#&C0:C|
000006b0  4c 43 3a 41 44 43 28 26  37 32 29 2c 59 3a 53 54  |LC:ADC(&72),Y:ST|
000006c0  41 28 26 37 30 29 2c 59  3a 49 4e 59 3a 43 50 59  |A(&70),Y:INY:CPY|
000006d0  23 26 34 30 3a 42 4e 45  74 72 61 6e 73 74 6f 70  |#&40:BNEtranstop|
000006e0  3a 4c 44 59 23 30 3a 4c  44 41 26 37 32 3a 43 4c  |:LDY#0:LDA&72:CL|
000006f0  43 3a 41 44 43 23 26 34  30 3a 53 54 41 26 37 32  |C:ADC#&40:STA&72|
00000700  3a 4c 44 41 26 37 30 3a  43 4c 43 3a 41 44 43 23  |:LDA&70:CLC:ADC#|
00000710  26 38 30 3a 53 54 41 26  37 30 3a 4c 44 41 26 37  |&80:STA&70:LDA&7|
00000720  31 3a 41 44 43 23 32 3a  53 54 41 26 37 31 0d 01  |1:ADC#2:STA&71..|
00000730  36 50 2e 74 72 61 6e 73  62 6f 74 20 4c 44 41 28  |6P.transbot LDA(|
00000740  26 37 30 29 2c 59 3a 80  23 26 43 30 3a 43 4c 43  |&70),Y:.#&C0:CLC|
00000750  3a 41 44 43 28 26 37 32  29 2c 59 3a 53 54 41 28  |:ADC(&72),Y:STA(|
00000760  26 37 30 29 2c 59 3a 49  4e 59 3a 43 50 59 23 26  |&70),Y:INY:CPY#&|
00000770  34 30 3a 42 4e 45 74 72  61 6e 73 62 6f 74 0d 01  |40:BNEtransbot..|
00000780  40 22 4c 44 41 78 73 65  74 3a 43 4d 50 23 39 3a  |@"LDAxset:CMP#9:|
00000790  42 45 51 6e 65 78 74 79  3a 4a 4d 50 78 6c 6f 70  |BEQnexty:JMPxlop|
000007a0  0d 01 4a 2a 2e 6e 65 78  74 79 20 4c 44 41 79 73  |..J*.nexty LDAys|
000007b0  65 74 3a 43 4d 50 23 39  3a 42 45 51 73 63 72 65  |et:CMP#9:BEQscre|
000007c0  6e 64 3a 4a 4d 50 79 6c  6f 70 0d 01 54 0f 2e 73  |nd:JMPylop..T..s|
000007d0  63 72 65 6e 64 20 52 54  53 0d 01 5e 4c 2e 78 64  |crend RTS..^L.xd|
000007e0  61 74 61 20 45 51 55 42  30 3a 45 51 55 42 32 3a  |ata EQUB0:EQUB2:|
000007f0  45 51 55 42 35 3a 45 51  55 42 37 3a 45 51 55 42  |EQUB5:EQUB7:EQUB|
00000800  31 30 3a 45 51 55 42 31  32 3a 45 51 55 42 31 35  |10:EQUB12:EQUB15|
00000810  3a 45 51 55 42 31 37 3a  45 51 55 42 32 30 3a 45  |:EQUB17:EQUB20:E|
00000820  51 55 42 32 32 0d 01 68  2b 2e 68 62 64 61 74 20  |QUB22..h+.hbdat |
00000830  45 51 55 42 34 3a 45 51  55 42 39 3a 45 51 55 42  |EQUB4:EQUB9:EQUB|
00000840  31 34 3a 45 51 55 42 31  39 3a 45 51 55 42 32 34  |14:EQUB19:EQUB24|
00000850  0d 01 72 4b 2e 78 73 65  74 20 45 51 55 42 30 3a  |..rK.xset EQUB0:|
00000860  2e 79 73 65 74 20 45 51  55 42 30 3a 2e 78 73 63  |.yset EQUB0:.xsc|
00000870  72 20 45 51 55 42 30 3a  2e 79 73 63 72 20 45 51  |r EQUB0:.yscr EQ|
00000880  55 42 30 3a 2e 78 70 6f  73 20 45 51 55 42 30 3a  |UB0:.xpos EQUB0:|
00000890  2e 79 70 6f 73 20 45 51  55 42 30 0d 01 7c 11 2e  |.ypos EQUB0..|..|
000008a0  73 63 72 6e 6f 20 45 51  55 42 20 30 0d 01 86 07  |scrno EQUB 0....|
000008b0  5d 3a ed 0d 01 90 05 e1  0d ff                    |]:........|
000008ba