0 � PASS=4 � 6 � 2:P%=&8000:O%=&C00:[OPT PASS
< EQUD&4C000000:EQUD&0B828014:EQUD0:EQUS"(C)":EQUD0:EQUB0
� PHP:CMP#1:BNEend:TXA:PHA:TYA:PHA:LDX#7:LDY#0:.loop LDAstring,Y:JSR&FFEE:INY:DEX:BNEloop:LDA#1:STA&3000:LDA#0:STA&3001:STA&3005:STA&3007:LDA#&F1:STA&3002:LDA#&FF:STA&3003:LDA#10:STA&3006
 � LDA#0:STA&70:.loop2 LDX&70:CPX#8:BEQout:LDAdata,X:STA&3004:LDY#&30:LDX#0:LDA#7:JSR&FFF1:INC&70:BNEloop2:.data EQUD&50645064:EQUD&64645044
#f .out LDX#5:LDA#152:JSR&FFF4:BCCout:PLA:TAY:PLA:TAX:LDA#1:.end PLP:RTS:.string EQUS"Hello!":EQUB13
( ]:�
2+ ?&FCDC=0:�"MOVE C00 "+�~(O%)+" 8000 2"
�

00000000  0d 00 0a 30 20 e3 20 50  41 53 53 3d 34 20 b8 20  |...0 . PASS=4 . |
00000010  36 20 88 20 32 3a 50 25  3d 26 38 30 30 30 3a 4f  |6 . 2:P%=&8000:O|
00000020  25 3d 26 43 30 30 3a 5b  4f 50 54 20 50 41 53 53  |%=&C00:[OPT PASS|
00000030  0d 00 14 3c 20 45 51 55  44 26 34 43 30 30 30 30  |...< EQUD&4C0000|
00000040  30 30 3a 45 51 55 44 26  30 42 38 32 38 30 31 34  |00:EQUD&0B828014|
00000050  3a 45 51 55 44 30 3a 45  51 55 53 22 28 43 29 22  |:EQUD0:EQUS"(C)"|
00000060  3a 45 51 55 44 30 3a 45  51 55 42 30 0d 00 1e be  |:EQUD0:EQUB0....|
00000070  20 50 48 50 3a 43 4d 50  23 31 3a 42 4e 45 65 6e  | PHP:CMP#1:BNEen|
00000080  64 3a 54 58 41 3a 50 48  41 3a 54 59 41 3a 50 48  |d:TXA:PHA:TYA:PH|
00000090  41 3a 4c 44 58 23 37 3a  4c 44 59 23 30 3a 2e 6c  |A:LDX#7:LDY#0:.l|
000000a0  6f 6f 70 20 4c 44 41 73  74 72 69 6e 67 2c 59 3a  |oop LDAstring,Y:|
000000b0  4a 53 52 26 46 46 45 45  3a 49 4e 59 3a 44 45 58  |JSR&FFEE:INY:DEX|
000000c0  3a 42 4e 45 6c 6f 6f 70  3a 4c 44 41 23 31 3a 53  |:BNEloop:LDA#1:S|
000000d0  54 41 26 33 30 30 30 3a  4c 44 41 23 30 3a 53 54  |TA&3000:LDA#0:ST|
000000e0  41 26 33 30 30 31 3a 53  54 41 26 33 30 30 35 3a  |A&3001:STA&3005:|
000000f0  53 54 41 26 33 30 30 37  3a 4c 44 41 23 26 46 31  |STA&3007:LDA#&F1|
00000100  3a 53 54 41 26 33 30 30  32 3a 4c 44 41 23 26 46  |:STA&3002:LDA#&F|
00000110  46 3a 53 54 41 26 33 30  30 33 3a 4c 44 41 23 31  |F:STA&3003:LDA#1|
00000120  30 3a 53 54 41 26 33 30  30 36 0d 00 20 8e 20 4c  |0:STA&3006.. . L|
00000130  44 41 23 30 3a 53 54 41  26 37 30 3a 2e 6c 6f 6f  |DA#0:STA&70:.loo|
00000140  70 32 20 4c 44 58 26 37  30 3a 43 50 58 23 38 3a  |p2 LDX&70:CPX#8:|
00000150  42 45 51 6f 75 74 3a 4c  44 41 64 61 74 61 2c 58  |BEQout:LDAdata,X|
00000160  3a 53 54 41 26 33 30 30  34 3a 4c 44 59 23 26 33  |:STA&3004:LDY#&3|
00000170  30 3a 4c 44 58 23 30 3a  4c 44 41 23 37 3a 4a 53  |0:LDX#0:LDA#7:JS|
00000180  52 26 46 46 46 31 3a 49  4e 43 26 37 30 3a 42 4e  |R&FFF1:INC&70:BN|
00000190  45 6c 6f 6f 70 32 3a 2e  64 61 74 61 20 45 51 55  |Eloop2:.data EQU|
000001a0  44 26 35 30 36 34 35 30  36 34 3a 45 51 55 44 26  |D&50645064:EQUD&|
000001b0  36 34 36 34 35 30 34 34  0d 00 23 66 20 2e 6f 75  |64645044..#f .ou|
000001c0  74 20 4c 44 58 23 35 3a  4c 44 41 23 31 35 32 3a  |t LDX#5:LDA#152:|
000001d0  4a 53 52 26 46 46 46 34  3a 42 43 43 6f 75 74 3a  |JSR&FFF4:BCCout:|
000001e0  50 4c 41 3a 54 41 59 3a  50 4c 41 3a 54 41 58 3a  |PLA:TAY:PLA:TAX:|
000001f0  4c 44 41 23 31 3a 2e 65  6e 64 20 50 4c 50 3a 52  |LDA#1:.end PLP:R|
00000200  54 53 3a 2e 73 74 72 69  6e 67 20 45 51 55 53 22  |TS:.string EQUS"|
00000210  48 65 6c 6c 6f 21 22 3a  45 51 55 42 31 33 0d 00  |Hello!":EQUB13..|
00000220  28 08 20 5d 3a ed 0d 00  32 2b 20 3f 26 46 43 44  |(. ]:...2+ ?&FCD|
00000230  43 3d 30 3a ff 22 4d 4f  56 45 20 43 30 30 20 22  |C=0:."MOVE C00 "|
00000240  2b c3 7e 28 4f 25 29 2b  22 20 38 30 30 30 20 32  |+.~(O%)+" 8000 2|
00000250  22 0d ff                                          |"..|
00000253