�1
7 � �0,30)"ABCDEFGHIJKLMNOPQRSTUVWXYZZZZZZZZZZZZZZZ"
 line=30
( osword=&FFF1
2 shift=&7B:row=&7C:col=&7D
< � pass=0 � 2 � 2
F P%=&A00
P
 [OPTpass
d. LDA#mess �256:STA&70:LDA#mess �256:STA&71
n .mainloop
xG LDY#0:LDA(&70),Y:BNEcont:RTS:.cont STA&72:LDX#&72:LDA#&A:JSRosword
� LDA#2:STAshift
� .charloop
� LDA#0:STArow
�T LDA#((&3000+line/32*&5000) �256):STA&80:LDA#((&3000+line/32*&5000) �256):STA&81
� .downloop
� LDA#82:STAcol
�  LDA&80:STA&8C:LDA&81:STA&8D
� LDXrow
� LDAshift:CMP#2:BNEoldvalue
�L LDY&73,X:TYA:�#&F0:STA&82:TYA:LSR A:LSR A:LSR A:LSR A:CLC:ADC&82:STA&84
� JMPlineloop

U .oldvalue LDY&73,X:TYA:�#&F:STA&82:TYA:ASL A:ASL A:ASL A:ASL A:CLC:ADC&82:STA&84

 .lineloop

& LDY#8:LDA(&8C),Y:LDY#0:STA(&8C),Y

"P DECcol:CLC:LDA&8C:ADC#8:STA&8C:LDA&8D:ADC#0:STA&8D:LDAcol:CMP#4:BCSlineloop

, LDA&84:STA(&8C),Y

T; INC&80:INCrow:LDArow:CMP#8:BEQcont2:JMPdownloop:.cont2

Y9 LDY#10:.loop1:LDX#0:.loop2:DEX:BNEloop2:DEY:BNEloop1

^) DECshift:BEQcont3:JMPcharloop:.cont3

h& INC&70:BNEa:INC&71:.a JMPmainloop

r ]

|q mess=&C00:A$="HELLO ABCDEFGHIJKLMNOPQRSTUVWXYZ ZYXWVUTSRQPONMLKJIHGFEDCBA GOODBYE!":$mess=A$:?(mess+�(A$))=0

� �

�	 A$=�

�
 �&A00
�

00000000  0d 00 0a 07 20 eb 31 0d  00 14 37 20 f1 20 8a 30  |.... .1...7 . .0|
00000010  2c 33 30 29 22 41 42 43  44 45 46 47 48 49 4a 4b  |,30)"ABCDEFGHIJK|
00000020  4c 4d 4e 4f 50 51 52 53  54 55 56 57 58 59 5a 5a  |LMNOPQRSTUVWXYZZ|
00000030  5a 5a 5a 5a 5a 5a 5a 5a  5a 5a 5a 5a 5a 22 0d 00  |ZZZZZZZZZZZZZ"..|
00000040  1e 0c 20 6c 69 6e 65 3d  33 30 0d 00 28 11 20 6f  |.. line=30..(. o|
00000050  73 77 6f 72 64 3d 26 46  46 46 31 0d 00 32 1e 20  |sword=&FFF1..2. |
00000060  73 68 69 66 74 3d 26 37  42 3a 72 6f 77 3d 26 37  |shift=&7B:row=&7|
00000070  43 3a 63 6f 6c 3d 26 37  44 0d 00 3c 15 20 e3 20  |C:col=&7D..<. . |
00000080  70 61 73 73 3d 30 20 b8  20 32 20 88 20 32 0d 00  |pass=0 . 2 . 2..|
00000090  46 0c 20 50 25 3d 26 41  30 30 0d 00 50 0d 20 5b  |F. P%=&A00..P. [|
000000a0  4f 50 54 70 61 73 73 0d  00 64 2e 20 4c 44 41 23  |OPTpass..d. LDA#|
000000b0  6d 65 73 73 20 83 32 35  36 3a 53 54 41 26 37 30  |mess .256:STA&70|
000000c0  3a 4c 44 41 23 6d 65 73  73 20 81 32 35 36 3a 53  |:LDA#mess .256:S|
000000d0  54 41 26 37 31 0d 00 6e  0e 20 2e 6d 61 69 6e 6c  |TA&71..n. .mainl|
000000e0  6f 6f 70 0d 00 78 47 20  4c 44 59 23 30 3a 4c 44  |oop..xG LDY#0:LD|
000000f0  41 28 26 37 30 29 2c 59  3a 42 4e 45 63 6f 6e 74  |A(&70),Y:BNEcont|
00000100  3a 52 54 53 3a 2e 63 6f  6e 74 20 53 54 41 26 37  |:RTS:.cont STA&7|
00000110  32 3a 4c 44 58 23 26 37  32 3a 4c 44 41 23 26 41  |2:LDX#&72:LDA#&A|
00000120  3a 4a 53 52 6f 73 77 6f  72 64 0d 00 82 13 20 4c  |:JSRosword.... L|
00000130  44 41 23 32 3a 53 54 41  73 68 69 66 74 0d 00 8c  |DA#2:STAshift...|
00000140  0e 20 2e 63 68 61 72 6c  6f 6f 70 0d 00 96 11 20  |. .charloop.... |
00000150  4c 44 41 23 30 3a 53 54  41 72 6f 77 0d 00 a0 54  |LDA#0:STArow...T|
00000160  20 4c 44 41 23 28 28 26  33 30 30 30 2b 6c 69 6e  | LDA#((&3000+lin|
00000170  65 2f 33 32 2a 26 35 30  30 30 29 20 83 32 35 36  |e/32*&5000) .256|
00000180  29 3a 53 54 41 26 38 30  3a 4c 44 41 23 28 28 26  |):STA&80:LDA#((&|
00000190  33 30 30 30 2b 6c 69 6e  65 2f 33 32 2a 26 35 30  |3000+line/32*&50|
000001a0  30 30 29 20 81 32 35 36  29 3a 53 54 41 26 38 31  |00) .256):STA&81|
000001b0  0d 00 aa 0e 20 2e 64 6f  77 6e 6c 6f 6f 70 0d 00  |.... .downloop..|
000001c0  b4 12 20 4c 44 41 23 38  32 3a 53 54 41 63 6f 6c  |.. LDA#82:STAcol|
000001d0  0d 00 c8 20 20 4c 44 41  26 38 30 3a 53 54 41 26  |...  LDA&80:STA&|
000001e0  38 43 3a 4c 44 41 26 38  31 3a 53 54 41 26 38 44  |8C:LDA&81:STA&8D|
000001f0  0d 00 d2 0b 20 4c 44 58  72 6f 77 0d 00 dc 1f 20  |.... LDXrow.... |
00000200  4c 44 41 73 68 69 66 74  3a 43 4d 50 23 32 3a 42  |LDAshift:CMP#2:B|
00000210  4e 45 6f 6c 64 76 61 6c  75 65 0d 00 e6 4c 20 4c  |NEoldvalue...L L|
00000220  44 59 26 37 33 2c 58 3a  54 59 41 3a 80 23 26 46  |DY&73,X:TYA:.#&F|
00000230  30 3a 53 54 41 26 38 32  3a 54 59 41 3a 4c 53 52  |0:STA&82:TYA:LSR|
00000240  20 41 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 4c  | A:LSR A:LSR A:L|
00000250  53 52 20 41 3a 43 4c 43  3a 41 44 43 26 38 32 3a  |SR A:CLC:ADC&82:|
00000260  53 54 41 26 38 34 0d 00  fa 10 20 4a 4d 50 6c 69  |STA&84.... JMPli|
00000270  6e 65 6c 6f 6f 70 0d 01  04 55 20 2e 6f 6c 64 76  |neloop...U .oldv|
00000280  61 6c 75 65 20 4c 44 59  26 37 33 2c 58 3a 54 59  |alue LDY&73,X:TY|
00000290  41 3a 80 23 26 46 3a 53  54 41 26 38 32 3a 54 59  |A:.#&F:STA&82:TY|
000002a0  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |A:ASL A:ASL A:AS|
000002b0  4c 20 41 3a 41 53 4c 20  41 3a 43 4c 43 3a 41 44  |L A:ASL A:CLC:AD|
000002c0  43 26 38 32 3a 53 54 41  26 38 34 0d 01 0e 0e 20  |C&82:STA&84.... |
000002d0  2e 6c 69 6e 65 6c 6f 6f  70 0d 01 18 26 20 4c 44  |.lineloop...& LD|
000002e0  59 23 38 3a 4c 44 41 28  26 38 43 29 2c 59 3a 4c  |Y#8:LDA(&8C),Y:L|
000002f0  44 59 23 30 3a 53 54 41  28 26 38 43 29 2c 59 0d  |DY#0:STA(&8C),Y.|
00000300  01 22 50 20 44 45 43 63  6f 6c 3a 43 4c 43 3a 4c  |."P DECcol:CLC:L|
00000310  44 41 26 38 43 3a 41 44  43 23 38 3a 53 54 41 26  |DA&8C:ADC#8:STA&|
00000320  38 43 3a 4c 44 41 26 38  44 3a 41 44 43 23 30 3a  |8C:LDA&8D:ADC#0:|
00000330  53 54 41 26 38 44 3a 4c  44 41 63 6f 6c 3a 43 4d  |STA&8D:LDAcol:CM|
00000340  50 23 34 3a 42 43 53 6c  69 6e 65 6c 6f 6f 70 0d  |P#4:BCSlineloop.|
00000350  01 2c 16 20 4c 44 41 26  38 34 3a 53 54 41 28 26  |.,. LDA&84:STA(&|
00000360  38 43 29 2c 59 0d 01 54  3b 20 49 4e 43 26 38 30  |8C),Y..T; INC&80|
00000370  3a 49 4e 43 72 6f 77 3a  4c 44 41 72 6f 77 3a 43  |:INCrow:LDArow:C|
00000380  4d 50 23 38 3a 42 45 51  63 6f 6e 74 32 3a 4a 4d  |MP#8:BEQcont2:JM|
00000390  50 64 6f 77 6e 6c 6f 6f  70 3a 2e 63 6f 6e 74 32  |Pdownloop:.cont2|
000003a0  0d 01 59 39 20 4c 44 59  23 31 30 3a 2e 6c 6f 6f  |..Y9 LDY#10:.loo|
000003b0  70 31 3a 4c 44 58 23 30  3a 2e 6c 6f 6f 70 32 3a  |p1:LDX#0:.loop2:|
000003c0  44 45 58 3a 42 4e 45 6c  6f 6f 70 32 3a 44 45 59  |DEX:BNEloop2:DEY|
000003d0  3a 42 4e 45 6c 6f 6f 70  31 0d 01 5e 29 20 44 45  |:BNEloop1..^) DE|
000003e0  43 73 68 69 66 74 3a 42  45 51 63 6f 6e 74 33 3a  |Cshift:BEQcont3:|
000003f0  4a 4d 50 63 68 61 72 6c  6f 6f 70 3a 2e 63 6f 6e  |JMPcharloop:.con|
00000400  74 33 0d 01 68 26 20 49  4e 43 26 37 30 3a 42 4e  |t3..h& INC&70:BN|
00000410  45 61 3a 49 4e 43 26 37  31 3a 2e 61 20 4a 4d 50  |Ea:INC&71:.a JMP|
00000420  6d 61 69 6e 6c 6f 6f 70  0d 01 72 06 20 5d 0d 01  |mainloop..r. ]..|
00000430  7c 71 20 6d 65 73 73 3d  26 43 30 30 3a 41 24 3d  ||q mess=&C00:A$=|
00000440  22 48 45 4c 4c 4f 20 41  42 43 44 45 46 47 48 49  |"HELLO ABCDEFGHI|
00000450  4a 4b 4c 4d 4e 4f 50 51  52 53 54 55 56 57 58 59  |JKLMNOPQRSTUVWXY|
00000460  5a 20 5a 59 58 57 56 55  54 53 52 51 50 4f 4e 4d  |Z ZYXWVUTSRQPONM|
00000470  4c 4b 4a 49 48 47 46 45  44 43 42 41 20 47 4f 4f  |LKJIHGFEDCBA GOO|
00000480  44 42 59 45 21 22 3a 24  6d 65 73 73 3d 41 24 3a  |DBYE!":$mess=A$:|
00000490  3f 28 6d 65 73 73 2b a9  28 41 24 29 29 3d 30 0d  |?(mess+.(A$))=0.|
000004a0  01 86 06 20 ed 0d 01 90  09 20 41 24 3d be 0d 01  |... ..... A$=...|
000004b0  9a 0a 20 d6 26 41 30 30  0d ff                    |.. .&A00..|
000004ba