�1
7 � �0,30)"ABCDEFGHIJKLMNOPQRSTUVWXYZZZZZZZZZZZZZZZ"
 line=30
 osword=&FFF1
( shift=&7B:row=&7C:col=&7D
2 � pass=0 � 2 � 2
< P%=&A00
F
 [OPTpass
P. LDA#mess �256:STA&70:LDA#mess �256:STA&71
Z .mainloop
dG LDY#0:LDA(&70),Y:BNEcont:RTS:.cont STA&72:LDX#&72:LDA#&A:JSRosword
n LDA#8:STAshift
x .charloop
� LDA#0:STArow
�T LDA#((&3000+line/32*&5000) �256):STA&80:LDA#((&3000+line/32*&5000) �256):STA&81
� .downloop
�S LDXrow:LDY&73,X:TYA:�#&F0:STA&82:TYA:LSR A:LSR A:LSR A:LSR A:CLC:ADC&82:STA&85
�B TYA:�#&F:STA&82:TYA:ASL A:ASL A:ASL A:ASL A:CLC:ADC&82:STA&84
� LDA#0:STA&83
� LDA#82:STAcol
� .lineloop
�T JSRright:LSR A:LSR A:LSR A:�#&11:STA&82:JSRleft:ASL A:�#&EE:CLC:ADC&82:JSRstore
� DECcol:BNElineloop
�+ INC&80:INCrow:LDArow:CMP#8:BNEdownloop
� DECshift:BNEcharloop
�& INC&70:BNEa:INC&71:.a JMPmainloop

" .left LDAcol:CMP#3:BCCnewchar

� LDA#0:STA&87:LDA#82:SEC:SBCcol:ASL A:ROL&87:ASL A:ROL&87:ASL A:ROL&87:ADC&80:STA&88:LDA&87:ADC&81:STA&89:LDY#0:LDA(&88),Y:RTS

 .newchar TAX:LDA&83,X:RTS

"$ .right LDAcol:CMP#4:BCCnewchar2

,� LDA#0:STA&87:LDA#83:SEC:SBCcol:ASL A:ROL&87:ASL A:ROL&87:ASL A:ROL&87:ADC&80:STA&88:LDA&87:ADC&81:STA&89:LDY#0:LDA(&88),Y:RTS

6 .newchar2 TAX:LDA&82,X:RTS

@( .store PHA:LDAcol:CMP#3:BCCnewchar3

J� LDA#0:STA&87:LDA#82:SEC:SBCcol:ASL A:ROL&87:ASL A:ROL&87:ASL A:ROL&87:ADC&80:STA&88:LDA&87:ADC&81:STA&89:LDY#0:PLA:STA(&88),Y:RTS

T# .newchar3 TAX:PLA:STA&83,X:RTS

^ ]

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

r �

|	 A$=�

�
 �&A00
�

00000000  0d 00 05 07 20 eb 31 0d  00 06 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  14 0c 20 6c 69 6e 65 3d  33 30 0d 00 1e 11 20 6f  |.. line=30.... o|
00000050  73 77 6f 72 64 3d 26 46  46 46 31 0d 00 28 1e 20  |sword=&FFF1..(. |
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 32 15 20 e3 20  |C:col=&7D..2. . |
00000080  70 61 73 73 3d 30 20 b8  20 32 20 88 20 32 0d 00  |pass=0 . 2 . 2..|
00000090  3c 0c 20 50 25 3d 26 41  30 30 0d 00 46 0d 20 5b  |<. P%=&A00..F. [|
000000a0  4f 50 54 70 61 73 73 0d  00 50 2e 20 4c 44 41 23  |OPTpass..P. 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 5a  0e 20 2e 6d 61 69 6e 6c  |TA&71..Z. .mainl|
000000e0  6f 6f 70 0d 00 64 47 20  4c 44 59 23 30 3a 4c 44  |oop..dG 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 6e 13 20 4c  |:JSRosword..n. L|
00000130  44 41 23 38 3a 53 54 41  73 68 69 66 74 0d 00 78  |DA#8:STAshift..x|
00000140  0e 20 2e 63 68 61 72 6c  6f 6f 70 0d 00 82 11 20  |. .charloop.... |
00000150  4c 44 41 23 30 3a 53 54  41 72 6f 77 0d 00 8c 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 96 0e 20 2e 64 6f  77 6e 6c 6f 6f 70 0d 00  |.... .downloop..|
000001c0  a0 53 20 4c 44 58 72 6f  77 3a 4c 44 59 26 37 33  |.S LDXrow:LDY&73|
000001d0  2c 58 3a 54 59 41 3a 80  23 26 46 30 3a 53 54 41  |,X:TYA:.#&F0:STA|
000001e0  26 38 32 3a 54 59 41 3a  4c 53 52 20 41 3a 4c 53  |&82:TYA:LSR A:LS|
000001f0  52 20 41 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |R A:LSR A:LSR A:|
00000200  43 4c 43 3a 41 44 43 26  38 32 3a 53 54 41 26 38  |CLC:ADC&82:STA&8|
00000210  35 0d 00 aa 42 20 54 59  41 3a 80 23 26 46 3a 53  |5...B TYA:.#&F:S|
00000220  54 41 26 38 32 3a 54 59  41 3a 41 53 4c 20 41 3a  |TA&82:TYA:ASL A:|
00000230  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
00000240  41 3a 43 4c 43 3a 41 44  43 26 38 32 3a 53 54 41  |A:CLC:ADC&82:STA|
00000250  26 38 34 0d 00 b4 11 20  4c 44 41 23 30 3a 53 54  |&84.... LDA#0:ST|
00000260  41 26 38 33 0d 00 be 12  20 4c 44 41 23 38 32 3a  |A&83.... LDA#82:|
00000270  53 54 41 63 6f 6c 0d 00  c8 0e 20 2e 6c 69 6e 65  |STAcol.... .line|
00000280  6c 6f 6f 70 0d 00 d2 54  20 4a 53 52 72 69 67 68  |loop...T JSRrigh|
00000290  74 3a 4c 53 52 20 41 3a  4c 53 52 20 41 3a 4c 53  |t:LSR A:LSR A:LS|
000002a0  52 20 41 3a 80 23 26 31  31 3a 53 54 41 26 38 32  |R A:.#&11:STA&82|
000002b0  3a 4a 53 52 6c 65 66 74  3a 41 53 4c 20 41 3a 80  |:JSRleft:ASL A:.|
000002c0  23 26 45 45 3a 43 4c 43  3a 41 44 43 26 38 32 3a  |#&EE:CLC:ADC&82:|
000002d0  4a 53 52 73 74 6f 72 65  0d 00 dc 17 20 44 45 43  |JSRstore.... DEC|
000002e0  63 6f 6c 3a 42 4e 45 6c  69 6e 65 6c 6f 6f 70 0d  |col:BNElineloop.|
000002f0  00 e6 2b 20 49 4e 43 26  38 30 3a 49 4e 43 72 6f  |..+ INC&80:INCro|
00000300  77 3a 4c 44 41 72 6f 77  3a 43 4d 50 23 38 3a 42  |w:LDArow:CMP#8:B|
00000310  4e 45 64 6f 77 6e 6c 6f  6f 70 0d 00 f0 19 20 44  |NEdownloop.... D|
00000320  45 43 73 68 69 66 74 3a  42 4e 45 63 68 61 72 6c  |ECshift:BNEcharl|
00000330  6f 6f 70 0d 00 fa 26 20  49 4e 43 26 37 30 3a 42  |oop...& INC&70:B|
00000340  4e 45 61 3a 49 4e 43 26  37 31 3a 2e 61 20 4a 4d  |NEa:INC&71:.a JM|
00000350  50 6d 61 69 6e 6c 6f 6f  70 0d 01 04 22 20 2e 6c  |Pmainloop..." .l|
00000360  65 66 74 20 4c 44 41 63  6f 6c 3a 43 4d 50 23 33  |eft LDAcol:CMP#3|
00000370  3a 42 43 43 6e 65 77 63  68 61 72 0d 01 0e 82 20  |:BCCnewchar.... |
00000380  4c 44 41 23 30 3a 53 54  41 26 38 37 3a 4c 44 41  |LDA#0:STA&87:LDA|
00000390  23 38 32 3a 53 45 43 3a  53 42 43 63 6f 6c 3a 41  |#82:SEC:SBCcol:A|
000003a0  53 4c 20 41 3a 52 4f 4c  26 38 37 3a 41 53 4c 20  |SL A:ROL&87:ASL |
000003b0  41 3a 52 4f 4c 26 38 37  3a 41 53 4c 20 41 3a 52  |A:ROL&87:ASL A:R|
000003c0  4f 4c 26 38 37 3a 41 44  43 26 38 30 3a 53 54 41  |OL&87:ADC&80:STA|
000003d0  26 38 38 3a 4c 44 41 26  38 37 3a 41 44 43 26 38  |&88:LDA&87:ADC&8|
000003e0  31 3a 53 54 41 26 38 39  3a 4c 44 59 23 30 3a 4c  |1:STA&89:LDY#0:L|
000003f0  44 41 28 26 38 38 29 2c  59 3a 52 54 53 0d 01 18  |DA(&88),Y:RTS...|
00000400  1e 20 2e 6e 65 77 63 68  61 72 20 54 41 58 3a 4c  |. .newchar TAX:L|
00000410  44 41 26 38 33 2c 58 3a  52 54 53 0d 01 22 24 20  |DA&83,X:RTS.."$ |
00000420  2e 72 69 67 68 74 20 4c  44 41 63 6f 6c 3a 43 4d  |.right LDAcol:CM|
00000430  50 23 34 3a 42 43 43 6e  65 77 63 68 61 72 32 0d  |P#4:BCCnewchar2.|
00000440  01 2c 82 20 4c 44 41 23  30 3a 53 54 41 26 38 37  |.,. LDA#0:STA&87|
00000450  3a 4c 44 41 23 38 33 3a  53 45 43 3a 53 42 43 63  |:LDA#83:SEC:SBCc|
00000460  6f 6c 3a 41 53 4c 20 41  3a 52 4f 4c 26 38 37 3a  |ol:ASL A:ROL&87:|
00000470  41 53 4c 20 41 3a 52 4f  4c 26 38 37 3a 41 53 4c  |ASL A:ROL&87:ASL|
00000480  20 41 3a 52 4f 4c 26 38  37 3a 41 44 43 26 38 30  | A:ROL&87:ADC&80|
00000490  3a 53 54 41 26 38 38 3a  4c 44 41 26 38 37 3a 41  |:STA&88:LDA&87:A|
000004a0  44 43 26 38 31 3a 53 54  41 26 38 39 3a 4c 44 59  |DC&81:STA&89:LDY|
000004b0  23 30 3a 4c 44 41 28 26  38 38 29 2c 59 3a 52 54  |#0:LDA(&88),Y:RT|
000004c0  53 0d 01 36 1f 20 2e 6e  65 77 63 68 61 72 32 20  |S..6. .newchar2 |
000004d0  54 41 58 3a 4c 44 41 26  38 32 2c 58 3a 52 54 53  |TAX:LDA&82,X:RTS|
000004e0  0d 01 40 28 20 2e 73 74  6f 72 65 20 50 48 41 3a  |..@( .store PHA:|
000004f0  4c 44 41 63 6f 6c 3a 43  4d 50 23 33 3a 42 43 43  |LDAcol:CMP#3:BCC|
00000500  6e 65 77 63 68 61 72 33  0d 01 4a 86 20 4c 44 41  |newchar3..J. LDA|
00000510  23 30 3a 53 54 41 26 38  37 3a 4c 44 41 23 38 32  |#0:STA&87:LDA#82|
00000520  3a 53 45 43 3a 53 42 43  63 6f 6c 3a 41 53 4c 20  |:SEC:SBCcol:ASL |
00000530  41 3a 52 4f 4c 26 38 37  3a 41 53 4c 20 41 3a 52  |A:ROL&87:ASL A:R|
00000540  4f 4c 26 38 37 3a 41 53  4c 20 41 3a 52 4f 4c 26  |OL&87:ASL A:ROL&|
00000550  38 37 3a 41 44 43 26 38  30 3a 53 54 41 26 38 38  |87:ADC&80:STA&88|
00000560  3a 4c 44 41 26 38 37 3a  41 44 43 26 38 31 3a 53  |:LDA&87:ADC&81:S|
00000570  54 41 26 38 39 3a 4c 44  59 23 30 3a 50 4c 41 3a  |TA&89:LDY#0:PLA:|
00000580  53 54 41 28 26 38 38 29  2c 59 3a 52 54 53 0d 01  |STA(&88),Y:RTS..|
00000590  54 23 20 2e 6e 65 77 63  68 61 72 33 20 54 41 58  |T# .newchar3 TAX|
000005a0  3a 50 4c 41 3a 53 54 41  26 38 33 2c 58 3a 52 54  |:PLA:STA&83,X:RT|
000005b0  53 0d 01 5e 06 20 5d 0d  01 68 71 20 6d 65 73 73  |S..^. ]..hq mess|
000005c0  3d 26 43 30 30 3a 41 24  3d 22 48 45 4c 4c 4f 20  |=&C00:A$="HELLO |
000005d0  41 42 43 44 45 46 47 48  49 4a 4b 4c 4d 4e 4f 50  |ABCDEFGHIJKLMNOP|
000005e0  51 52 53 54 55 56 57 58  59 5a 20 5a 59 58 57 56  |QRSTUVWXYZ ZYXWV|
000005f0  55 54 53 52 51 50 4f 4e  4d 4c 4b 4a 49 48 47 46  |UTSRQPONMLKJIHGF|
00000600  45 44 43 42 41 20 47 4f  4f 44 42 59 45 21 22 3a  |EDCBA GOODBYE!":|
00000610  24 6d 65 73 73 3d 41 24  3a 3f 28 6d 65 73 73 2b  |$mess=A$:?(mess+|
00000620  a9 28 41 24 29 29 3d 30  0d 01 72 06 20 ed 0d 01  |.(A$))=0..r. ...|
00000630  7c 09 20 41 24 3d be 0d  01 86 0a 20 d6 26 41 30  ||. A$=..... .&A0|
00000640  30 0d ff                                          |0..|
00000643