�2:�=&2800:�asschar
" � Put your program code here!
7 �r=0�100:?xoff=r �3:?yoff=r �7:?xc=r � 4:?yc=r � 8
  �ZZ=0�15:� display:�
! �
# �
( :
2 ��asschar
<  start=&2800:file$="Snooker"
F �pass=0 � 2 � 2
P P%=start:[OPTpass
Z� .display LDAyc:�#1:TAY:LDAlorow,Y:STA&70:LDAyc:LSR A:CLC:ADCyc:ADCyc:ADC#&30:STA&71:LDAxc:ASL A:STA&72:LDA#0:ROL A:STA&73:ASL&72:ROL&73:ASL&72:ROL&73:ASL&72:ROL&73:ASL&72:ROL&73:LDA&70:CLC:ADC&72:STA&70:LDA&71:ADC&73:STA&71
dr LDA&70:CLC:ADCyoff:STA&70:LDA&71:ADC#0:STA&71:LDAxoff:ASL A:ASL A:ASL A:CLC:ADC&70:STA&70:LDA&71:ADC#0:STA&71
n� LDAchar:ASL A:ASL A:ASL A:STA&72:LDA#0:ROL A:STA&73:ASL&72:ROL&73:ASL&72:ROL&73:LDA&72:CLC:ADC#(bitmap � 256):STA&72:LDA&73:ADC#(bitmap � 256):STA&73
x� LDA#8:PHA:.col LDX#3:.row TXA:ASL A:ASL A:ASL A:TAY:LDA(&70),Y:.settype LDA(&72),Y:STA(&70),Y:DEX:BPLrow:PLA:TAX:DEX:CPX#0:BEQfindisp:TXA:PHA:INC&72:LDA&70:CLC:ADC#1:PHA:STA&70:LDA&71:ADC#0:STA&71:PLA:�#7:BNEcol
�9 LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71:JMPcol
� .findisp RTS
�Q .lorow EQUB0:EQUB&80:.xc EQUB0:.yc EQUB0:.xoff EQUB0:.yoff EQUB0:.char EQUB0
� .bitmap
�$ ]:�:�"LOAD "+file$+" "+�~bitmap
� �
�

00000000  0d 00 0a 18 20 eb 32 3a  d3 3d 26 32 38 30 30 3a  |.... .2:.=&2800:|
00000010  f2 61 73 73 63 68 61 72  0d 00 14 22 20 f4 20 50  |.asschar..." . P|
00000020  75 74 20 79 6f 75 72 20  70 72 6f 67 72 61 6d 20  |ut your program |
00000030  63 6f 64 65 20 68 65 72  65 21 0d 00 1e 37 20 e3  |code here!...7 .|
00000040  72 3d 30 b8 31 30 30 3a  3f 78 6f 66 66 3d 72 20  |r=0.100:?xoff=r |
00000050  80 33 3a 3f 79 6f 66 66  3d 72 20 80 37 3a 3f 78  |.3:?yoff=r .7:?x|
00000060  63 3d 72 20 81 20 34 3a  3f 79 63 3d 72 20 81 20  |c=r . 4:?yc=r . |
00000070  38 0d 00 20 19 20 e3 5a  5a 3d 30 b8 31 35 3a d6  |8.. . .ZZ=0.15:.|
00000080  20 64 69 73 70 6c 61 79  3a ed 0d 00 21 06 20 ed  | display:...!. .|
00000090  0d 00 23 06 20 e0 0d 00  28 06 20 3a 0d 00 32 0e  |..#. ...(. :..2.|
000000a0  20 dd f2 61 73 73 63 68  61 72 0d 00 3c 20 20 73  | ..asschar..<  s|
000000b0  74 61 72 74 3d 26 32 38  30 30 3a 66 69 6c 65 24  |tart=&2800:file$|
000000c0  3d 22 53 6e 6f 6f 6b 65  72 22 0d 00 46 14 20 e3  |="Snooker"..F. .|
000000d0  70 61 73 73 3d 30 20 b8  20 32 20 88 20 32 0d 00  |pass=0 . 2 . 2..|
000000e0  50 16 20 50 25 3d 73 74  61 72 74 3a 5b 4f 50 54  |P. P%=start:[OPT|
000000f0  70 61 73 73 0d 00 5a e4  20 2e 64 69 73 70 6c 61  |pass..Z. .displa|
00000100  79 20 4c 44 41 79 63 3a  80 23 31 3a 54 41 59 3a  |y LDAyc:.#1:TAY:|
00000110  4c 44 41 6c 6f 72 6f 77  2c 59 3a 53 54 41 26 37  |LDAlorow,Y:STA&7|
00000120  30 3a 4c 44 41 79 63 3a  4c 53 52 20 41 3a 43 4c  |0:LDAyc:LSR A:CL|
00000130  43 3a 41 44 43 79 63 3a  41 44 43 79 63 3a 41 44  |C:ADCyc:ADCyc:AD|
00000140  43 23 26 33 30 3a 53 54  41 26 37 31 3a 4c 44 41  |C#&30:STA&71:LDA|
00000150  78 63 3a 41 53 4c 20 41  3a 53 54 41 26 37 32 3a  |xc:ASL A:STA&72:|
00000160  4c 44 41 23 30 3a 52 4f  4c 20 41 3a 53 54 41 26  |LDA#0:ROL A:STA&|
00000170  37 33 3a 41 53 4c 26 37  32 3a 52 4f 4c 26 37 33  |73:ASL&72:ROL&73|
00000180  3a 41 53 4c 26 37 32 3a  52 4f 4c 26 37 33 3a 41  |:ASL&72:ROL&73:A|
00000190  53 4c 26 37 32 3a 52 4f  4c 26 37 33 3a 41 53 4c  |SL&72:ROL&73:ASL|
000001a0  26 37 32 3a 52 4f 4c 26  37 33 3a 4c 44 41 26 37  |&72:ROL&73:LDA&7|
000001b0  30 3a 43 4c 43 3a 41 44  43 26 37 32 3a 53 54 41  |0:CLC:ADC&72:STA|
000001c0  26 37 30 3a 4c 44 41 26  37 31 3a 41 44 43 26 37  |&70:LDA&71:ADC&7|
000001d0  33 3a 53 54 41 26 37 31  0d 00 64 72 20 4c 44 41  |3:STA&71..dr LDA|
000001e0  26 37 30 3a 43 4c 43 3a  41 44 43 79 6f 66 66 3a  |&70:CLC:ADCyoff:|
000001f0  53 54 41 26 37 30 3a 4c  44 41 26 37 31 3a 41 44  |STA&70:LDA&71:AD|
00000200  43 23 30 3a 53 54 41 26  37 31 3a 4c 44 41 78 6f  |C#0:STA&71:LDAxo|
00000210  66 66 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  |ff:ASL A:ASL A:A|
00000220  53 4c 20 41 3a 43 4c 43  3a 41 44 43 26 37 30 3a  |SL A:CLC:ADC&70:|
00000230  53 54 41 26 37 30 3a 4c  44 41 26 37 31 3a 41 44  |STA&70:LDA&71:AD|
00000240  43 23 30 3a 53 54 41 26  37 31 0d 00 6e 9a 20 4c  |C#0:STA&71..n. L|
00000250  44 41 63 68 61 72 3a 41  53 4c 20 41 3a 41 53 4c  |DAchar:ASL A:ASL|
00000260  20 41 3a 41 53 4c 20 41  3a 53 54 41 26 37 32 3a  | A:ASL A:STA&72:|
00000270  4c 44 41 23 30 3a 52 4f  4c 20 41 3a 53 54 41 26  |LDA#0:ROL A:STA&|
00000280  37 33 3a 41 53 4c 26 37  32 3a 52 4f 4c 26 37 33  |73:ASL&72:ROL&73|
00000290  3a 41 53 4c 26 37 32 3a  52 4f 4c 26 37 33 3a 4c  |:ASL&72:ROL&73:L|
000002a0  44 41 26 37 32 3a 43 4c  43 3a 41 44 43 23 28 62  |DA&72:CLC:ADC#(b|
000002b0  69 74 6d 61 70 20 83 20  32 35 36 29 3a 53 54 41  |itmap . 256):STA|
000002c0  26 37 32 3a 4c 44 41 26  37 33 3a 41 44 43 23 28  |&72:LDA&73:ADC#(|
000002d0  62 69 74 6d 61 70 20 81  20 32 35 36 29 3a 53 54  |bitmap . 256):ST|
000002e0  41 26 37 33 0d 00 78 d8  20 4c 44 41 23 38 3a 50  |A&73..x. LDA#8:P|
000002f0  48 41 3a 2e 63 6f 6c 20  4c 44 58 23 33 3a 2e 72  |HA:.col LDX#3:.r|
00000300  6f 77 20 54 58 41 3a 41  53 4c 20 41 3a 41 53 4c  |ow TXA:ASL A:ASL|
00000310  20 41 3a 41 53 4c 20 41  3a 54 41 59 3a 4c 44 41  | A:ASL A:TAY:LDA|
00000320  28 26 37 30 29 2c 59 3a  2e 73 65 74 74 79 70 65  |(&70),Y:.settype|
00000330  20 4c 44 41 28 26 37 32  29 2c 59 3a 53 54 41 28  | LDA(&72),Y:STA(|
00000340  26 37 30 29 2c 59 3a 44  45 58 3a 42 50 4c 72 6f  |&70),Y:DEX:BPLro|
00000350  77 3a 50 4c 41 3a 54 41  58 3a 44 45 58 3a 43 50  |w:PLA:TAX:DEX:CP|
00000360  58 23 30 3a 42 45 51 66  69 6e 64 69 73 70 3a 54  |X#0:BEQfindisp:T|
00000370  58 41 3a 50 48 41 3a 49  4e 43 26 37 32 3a 4c 44  |XA:PHA:INC&72:LD|
00000380  41 26 37 30 3a 43 4c 43  3a 41 44 43 23 31 3a 50  |A&70:CLC:ADC#1:P|
00000390  48 41 3a 53 54 41 26 37  30 3a 4c 44 41 26 37 31  |HA:STA&70:LDA&71|
000003a0  3a 41 44 43 23 30 3a 53  54 41 26 37 31 3a 50 4c  |:ADC#0:STA&71:PL|
000003b0  41 3a 80 23 37 3a 42 4e  45 63 6f 6c 0d 00 82 39  |A:.#7:BNEcol...9|
000003c0  20 4c 44 41 26 37 30 3a  43 4c 43 3a 41 44 43 23  | LDA&70:CLC:ADC#|
000003d0  26 38 30 3a 53 54 41 26  37 30 3a 4c 44 41 26 37  |&80:STA&70:LDA&7|
000003e0  31 3a 41 44 43 23 32 3a  53 54 41 26 37 31 3a 4a  |1:ADC#2:STA&71:J|
000003f0  4d 50 63 6f 6c 0d 00 8c  11 20 2e 66 69 6e 64 69  |MPcol.... .findi|
00000400  73 70 20 52 54 53 0d 00  96 51 20 2e 6c 6f 72 6f  |sp RTS...Q .loro|
00000410  77 20 45 51 55 42 30 3a  45 51 55 42 26 38 30 3a  |w EQUB0:EQUB&80:|
00000420  2e 78 63 20 45 51 55 42  30 3a 2e 79 63 20 45 51  |.xc EQUB0:.yc EQ|
00000430  55 42 30 3a 2e 78 6f 66  66 20 45 51 55 42 30 3a  |UB0:.xoff EQUB0:|
00000440  2e 79 6f 66 66 20 45 51  55 42 30 3a 2e 63 68 61  |.yoff EQUB0:.cha|
00000450  72 20 45 51 55 42 30 0d  00 a0 0c 20 2e 62 69 74  |r EQUB0.... .bit|
00000460  6d 61 70 0d 00 aa 24 20  5d 3a ed 3a ff 22 4c 4f  |map...$ ]:.:."LO|
00000470  41 44 20 22 2b 66 69 6c  65 24 2b 22 20 22 2b c3  |AD "+file$+" "+.|
00000480  7e 62 69 74 6d 61 70 0d  00 b4 06 20 e1 0d ff     |~bitmap.... ...|
0000048f