/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / program / a / compedit / !CompEdit / COMPILER

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 20 f4 20 3e | 43 4f 4d 50 49 4c 45 52 |.... . >|COMPILER|
|00000010| 0d 00 14 06 20 3a 0d 00 | 1e 08 20 eb 31 32 0d 00 |.... :..|.. .12..|
|00000020| 28 21 20 de 20 6c 69 6e | 65 24 28 32 30 30 30 29 |(! . lin|e$(2000)|
|00000030| 2c 70 61 72 61 6d 65 74 | 65 72 25 28 32 30 29 0d |,paramet|er%(20).|
|00000040| 00 32 0f 20 ee 20 85 20 | f2 65 72 72 6f 72 0d 00 |.2. . . |.error..|
|00000050| 3c 0a 20 f2 69 6e 69 74 | 0d 00 46 06 20 f5 0d 00 |<. .init|..F. ...|
|00000060| 50 06 20 f5 0d 00 5a 1a | 20 f1 8a 70 6f 73 25 2c |P. ...Z.| ..pos%,|
|00000070| 6c 69 6e 65 25 2d 73 68 | 69 66 74 25 29 3b 0d 00 |line%-sh|ift%);..|
|00000080| 64 0b 20 6b 65 79 25 3d | a5 0d 00 6e 8b 20 e7 20 |d. key%=|...n. . |
|00000090| 6b 65 79 25 3d 31 33 20 | 80 20 6c 69 6e 65 25 3c |key%=13 |. line%<|
|000000a0| 6d 61 78 25 20 80 20 70 | 6f 73 25 3d 30 20 e3 20 |max% . p|os%=0 . |
|000000b0| 6c 6f 6f 70 25 3d 74 6f | 70 25 20 b8 20 6c 69 6e |loop%=to|p% . lin|
|000000c0| 65 25 20 88 20 2d 31 3a | 6c 69 6e 65 24 28 6c 6f |e% . -1:|line$(lo|
|000000d0| 6f 70 25 2b 31 29 3d 6c | 69 6e 65 24 28 6c 6f 6f |op%+1)=l|ine$(loo|
|000000e0| 70 25 29 3a ed 20 6c 6f | 6f 70 25 3a 6c 69 6e 65 |p%):. lo|op%:line|
|000000f0| 24 28 6c 69 6e 65 25 29 | 3d 22 22 3a 6c 69 6e 65 |$(line%)|="":line|
|00000100| 25 2b 3d 31 3a 74 6f 70 | 25 2b 3d 31 3a f2 72 65 |%+=1:top|%+=1:.re|
|00000110| 64 72 61 77 0d 00 78 aa | 20 e7 20 6b 65 79 25 3d |draw..x.| . key%=|
|00000120| 31 33 20 80 20 6c 69 6e | 65 25 3c 6d 61 78 25 20 |13 . lin|e%<max% |
|00000130| 80 20 70 6f 73 25 3d a9 | 28 6c 69 6e 65 24 28 6c |. pos%=.|(line$(l|
|00000140| 69 6e 65 25 29 29 20 80 | 20 70 6f 73 25 3c 3e 30 |ine%)) .| pos%<>0|
|00000150| 20 6c 69 6e 65 25 2b 3d | 31 3a 74 6f 70 25 2b 3d | line%+=|1:top%+=|
|00000160| 31 3a 70 6f 73 25 3d 30 | 3a e3 20 6c 6f 6f 70 25 |1:pos%=0|:. loop%|
|00000170| 3d 74 6f 70 25 20 b8 20 | 6c 69 6e 65 25 20 88 20 |=top% . |line% . |
|00000180| 2d 31 3a 6c 69 6e 65 24 | 28 6c 6f 6f 70 25 2b 31 |-1:line$|(loop%+1|
|00000190| 29 3d 6c 69 6e 65 24 28 | 6c 6f 6f 70 25 29 3a ed |)=line$(|loop%):.|
|000001a0| 20 6c 6f 6f 70 25 3a 6c | 69 6e 65 24 28 6c 69 6e | loop%:l|ine$(lin|
|000001b0| 65 25 29 3d 22 22 3a f2 | 72 65 64 72 61 77 0d 00 |e%)="":.|redraw..|
|000001c0| 82 4e 20 e7 20 6b 65 79 | 25 3d 31 33 39 20 80 20 |.N . key|%=139 . |
|000001d0| 6c 69 6e 65 25 3e 30 20 | 6c 69 6e 65 25 2d 3d 31 |line%>0 |line%-=1|
|000001e0| 3a e7 20 70 6f 73 25 3e | a9 28 6c 69 6e 65 24 28 |:. pos%>|.(line$(|
|000001f0| 6c 69 6e 65 25 29 29 20 | 70 6f 73 25 3d a9 28 6c |line%)) |pos%=.(l|
|00000200| 69 6e 65 24 28 6c 69 6e | 65 25 29 29 0d 00 8c 51 |ine$(lin|e%))...Q|
|00000210| 20 e7 20 6b 65 79 25 3d | 31 33 38 20 80 20 6c 69 | . key%=|138 . li|
|00000220| 6e 65 25 3c 74 6f 70 25 | 20 6c 69 6e 65 25 2b 3d |ne%<top%| line%+=|
|00000230| 31 3a e7 20 70 6f 73 25 | 3e a9 28 6c 69 6e 65 24 |1:. pos%|>.(line$|
|00000240| 28 6c 69 6e 65 25 29 29 | 20 70 6f 73 25 3d a9 28 |(line%))| pos%=.(|
|00000250| 6c 69 6e 65 24 28 6c 69 | 6e 65 25 29 29 0d 00 96 |line$(li|ne%))...|
|00000260| 42 20 e7 20 6b 65 79 25 | 3d 31 33 36 20 80 20 70 |B . key%|=136 . p|
|00000270| 6f 73 25 3d 30 20 80 20 | 6c 69 6e 65 25 3e 30 20 |os%=0 . |line%>0 |
|00000280| 6c 69 6e 65 25 2d 3d 31 | 3a 70 6f 73 25 3d a9 28 |line%-=1|:pos%=.(|
|00000290| 6c 69 6e 65 24 28 6c 69 | 6e 65 25 29 29 2b 31 0d |line$(li|ne%))+1.|
|000002a0| 00 a0 20 20 e7 20 6b 65 | 79 25 3d 31 33 36 20 80 |..  . ke|y%=136 .|
|000002b0| 20 70 6f 73 25 3e 30 20 | 70 6f 73 25 2d 3d 31 0d | pos%>0 |pos%-=1.|
|000002c0| 00 aa 4a 20 e7 20 6b 65 | 79 25 3d 31 33 37 20 80 |..J . ke|y%=137 .|
|000002d0| 20 70 6f 73 25 3d a9 28 | 6c 69 6e 65 24 28 6c 69 | pos%=.(|line$(li|
|000002e0| 6e 65 25 29 29 20 80 20 | 6c 69 6e 65 25 3c 74 6f |ne%)) . |line%<to|
|000002f0| 70 25 20 6c 69 6e 65 25 | 2b 3d 31 3a 70 6f 73 25 |p% line%|+=1:pos%|
|00000300| 3d 30 3a 6b 65 79 25 3d | 30 0d 00 b4 2e 20 e7 20 |=0:key%=|0.... . |
|00000310| 6b 65 79 25 3d 31 33 37 | 20 80 20 70 6f 73 25 3c |key%=137| . pos%<|
|00000320| a9 28 6c 69 6e 65 24 28 | 6c 69 6e 65 25 29 29 20 |.(line$(|line%)) |
|00000330| 70 6f 73 25 2b 3d 31 0d | 00 be 98 20 e7 20 6b 65 |pos%+=1.|... . ke|
|00000340| 79 25 3e 33 31 20 80 20 | 6b 65 79 25 3c 31 32 32 |y%>31 . |key%<122|
|00000350| 20 80 20 a9 28 6c 69 6e | 65 24 28 6c 69 6e 65 25 | . .(lin|e$(line%|
|00000360| 29 29 3c 38 30 20 6c 69 | 6e 65 24 28 6c 69 6e 65 |))<80 li|ne$(line|
|00000370| 25 29 3d c0 6c 69 6e 65 | 24 28 6c 69 6e 65 25 29 |%)=.line|$(line%)|
|00000380| 2c 70 6f 73 25 29 2b bd | 28 6b 65 79 25 29 2b c1 |,pos%)+.|(key%)+.|
|00000390| 6c 69 6e 65 24 28 6c 69 | 6e 65 25 29 2c 70 6f 73 |line$(li|ne%),pos|
|000003a0| 25 2b 31 29 3a f1 8a 30 | 2c 6c 69 6e 65 25 2d 73 |%+1):..0|,line%-s|
|000003b0| 68 69 66 74 25 29 6c 69 | 6e 65 24 28 6c 69 6e 65 |hift%)li|ne$(line|
|000003c0| 25 29 3b 3a 70 6f 73 25 | 3d 70 6f 73 25 2b 31 0d |%);:pos%|=pos%+1.|
|000003d0| 00 c8 b6 20 e7 20 6b 65 | 79 25 3d 31 32 37 20 80 |... . ke|y%=127 .|
|000003e0| 20 70 6f 73 25 3d 30 20 | 80 20 6c 69 6e 65 25 3e | pos%=0 |. line%>|
|000003f0| 30 20 80 20 a9 28 6c 69 | 6e 65 24 28 6c 69 6e 65 |0 . .(li|ne$(line|
|00000400| 25 29 29 3d 30 20 e3 20 | 6c 6f 6f 70 25 3d 6c 69 |%))=0 . |loop%=li|
|00000410| 6e 65 25 20 b8 20 74 6f | 70 25 3a 6c 69 6e 65 24 |ne% . to|p%:line$|
|00000420| 28 6c 6f 6f 70 25 29 3d | 6c 69 6e 65 24 28 6c 6f |(loop%)=|line$(lo|
|00000430| 6f 70 25 2b 31 29 3a ed | 20 6c 6f 6f 70 25 3a 6c |op%+1):.| loop%:l|
|00000440| 69 6e 65 24 28 6c 6f 6f | 70 25 2b 31 29 3d 22 22 |ine$(loo|p%+1)=""|
|00000450| 3a f2 72 65 64 72 61 77 | 3a 74 6f 70 25 2d 3d 31 |:.redraw|:top%-=1|
|00000460| 3a 6c 69 6e 65 25 2d 3d | 31 3a 70 6f 73 25 3d a9 |:line%-=|1:pos%=.|
|00000470| 28 6c 69 6e 65 24 28 6c | 69 6e 65 25 29 29 3a 6b |(line$(l|ine%)):k|
|00000480| 65 79 25 3d 30 0d 00 d2 | 80 20 e7 20 6b 65 79 25 |ey%=0...|. . key%|
|00000490| 3d 31 32 37 20 80 20 70 | 6f 73 25 3e 30 20 6c 69 |=127 . p|os%>0 li|
|000004a0| 6e 65 24 28 6c 69 6e 65 | 25 29 3d c0 6c 69 6e 65 |ne$(line|%)=.line|
|000004b0| 24 28 6c 69 6e 65 25 29 | 2c 70 6f 73 25 2d 31 29 |$(line%)|,pos%-1)|
|000004c0| 2b c1 6c 69 6e 65 24 28 | 6c 69 6e 65 25 29 2c 70 |+.line$(|line%),p|
|000004d0| 6f 73 25 2b 31 29 3a f1 | 8a 30 2c 6c 69 6e 65 25 |os%+1):.|.0,line%|
|000004e0| 2d 73 68 69 66 74 25 29 | 6c 69 6e 65 24 28 6c 69 |-shift%)|line$(li|
|000004f0| 6e 65 25 29 3b 22 20 22 | 3b 3a 70 6f 73 25 3d 70 |ne%);" "|;:pos%=p|
|00000500| 6f 73 25 2d 31 0d 00 dc | 80 20 e7 20 6b 65 79 25 |os%-1...|. . key%|
|00000510| 3d 31 33 35 20 80 20 70 | 6f 73 25 3c a9 28 6c 69 |=135 . p|os%<.(li|
|00000520| 6e 65 24 28 6c 69 6e 65 | 25 29 29 20 6c 69 6e 65 |ne$(line|%)) line|
|00000530| 24 28 6c 69 6e 65 25 29 | 3d c0 6c 69 6e 65 24 28 |$(line%)|=.line$(|
|00000540| 6c 69 6e 65 25 29 2c 70 | 6f 73 25 29 2b c1 6c 69 |line%),p|os%)+.li|
|00000550| 6e 65 24 28 6c 69 6e 65 | 25 29 2c 70 6f 73 25 2b |ne$(line|%),pos%+|
|00000560| 32 29 3a f1 8a 30 2c 6c | 69 6e 65 25 2d 73 68 69 |2):..0,l|ine%-shi|
|00000570| 66 74 25 29 6c 69 6e 65 | 24 28 6c 69 6e 65 25 29 |ft%)line|$(line%)|
|00000580| 3b 22 20 22 3b 0d 00 e6 | 15 20 e7 20 6b 65 79 25 |;" ";...|. . key%|
|00000590| 3d 31 36 31 20 f2 6c 6f | 61 64 0d 00 f0 17 20 e7 |=161 .lo|ad.... .|
|000005a0| 20 6b 65 79 25 3d 31 36 | 32 20 f2 61 70 70 65 6e | key%=16|2 .appen|
|000005b0| 64 0d 00 fa 15 20 e7 20 | 6b 65 79 25 3d 31 36 33 |d.... . |key%=163|
|000005c0| 20 f2 73 61 76 65 0d 01 | 04 18 20 e7 20 6b 65 79 | .save..|.. . key|
|000005d0| 25 3d 31 36 34 20 f2 63 | 6f 6d 70 69 6c 65 0d 01 |%=164 .c|ompile..|
|000005e0| 0e 15 20 e7 20 6b 65 79 | 25 3d 31 36 35 20 f2 68 |.. . key|%=165 .h|
|000005f0| 65 6c 70 0d 01 18 15 20 | e7 20 6b 65 79 25 3d 31 |elp.... |. key%=1|
|00000600| 36 36 20 f2 73 74 61 72 | 0d 01 22 16 20 e7 20 6b |66 .star|..". . k|
|00000610| 65 79 25 3d 31 36 37 20 | f2 63 6c 65 61 72 0d 01 |ey%=167 |.clear..|
|00000620| 2c 0a 20 f2 6c 69 6e 65 | 0d 01 36 0f 20 fd 20 6b |,. .line|..6. . k|
|00000630| 65 79 25 3d 31 36 38 0d | 01 40 0a 20 f2 73 75 72 |ey%=168.|.@. .sur|
|00000640| 65 0d 01 4a 0b 20 fd 20 | 73 75 72 65 0d 01 54 08 |e..J. . |sure..T.|
|00000650| 20 ef 32 36 0d 01 5e 0e | 20 fb 20 37 3a fb 20 31 | .26..^.| . 7:. 1|
|00000660| 32 38 0d 01 68 06 20 db | 0d 01 72 0b 20 2a 46 58 |28..h. .|..r. *FX|
|00000670| 34 2c 30 0d 01 7c 0d 20 | 2a 44 45 53 4b 54 4f 50 |4,0..|. |*DESKTOP|
|00000680| 0d 01 86 06 20 e0 0d 01 | 90 06 20 3a 0d 01 9a 0c |.... ...|.. :....|
|00000690| 20 dd 20 f2 69 6e 69 74 | 0d 01 a4 0c 20 fb 20 31 | . .init|.... . 1|
|000006a0| 33 32 3a db 0d 01 ae 0a | 20 fb 20 31 32 39 0d 01 |32:.....| . 129..|
|000006b0| b8 13 20 f1 8a 30 2c 33 | 30 29 3b 8a 31 35 35 29 |.. ..0,3|0);.155)|
|000006c0| 3b 0d 01 c2 55 20 f1 8a | 30 2c 33 30 29 22 20 20 |;...U ..|0,30)"  |
|000006d0| 20 20 20 20 20 46 31 20 | 2d 20 4c 6f 61 64 20 20 |     F1 |- Load  |
|000006e0| 20 20 20 20 20 46 32 20 | 2d 20 41 70 70 65 6e 64 |     F2 |- Append|
|000006f0| 20 20 20 20 20 20 46 33 | 20 2d 20 53 61 76 65 20 |      F3| - Save |
|00000700| 20 20 20 20 20 20 20 20 | 20 46 34 20 2d 20 43 6f |        | F4 - Co|
|00000710| 6d 70 69 6c 65 22 0d 01 | cc 53 20 f1 8a 30 2c 33 |mpile"..|.S ..0,3|
|00000720| 31 29 22 20 20 20 20 20 | 20 20 46 35 20 2d 20 48 |1)"     |  F5 - H|
|00000730| 65 6c 70 20 20 20 20 20 | 20 20 46 36 20 2d 20 53 |elp     |  F6 - S|
|00000740| 74 61 72 20 20 20 20 20 | 20 20 20 46 37 20 2d 20 |tar     |   F7 - |
|00000750| 43 6c 65 61 72 20 20 20 | 20 20 20 20 20 20 46 38 |Clear   |      F8|
|00000760| 20 2d 20 51 75 69 74 22 | 3b 0d 01 d6 0a 20 fb 20 | - Quit"|;.... . |
|00000770| 31 33 32 0d 01 e0 13 20 | f1 8a 37 36 2c 33 31 29 |132.... |..76,31)|
|00000780| 22 43 49 53 22 3b 0d 01 | ea 12 20 ef 32 38 2c 30 |"CIS";..|.. .28,0|
|00000790| 2c 32 39 2c 37 39 2c 30 | 0d 01 f4 0b 20 2a 46 58 |,29,79,0|.... *FX|
|000007a0| 34 2c 31 0d 01 fe 0d 20 | 2a 4b 45 59 20 31 20 a1 |4,1.... |*KEY 1 .|
|000007b0| 0d 02 08 0d 20 2a 4b 45 | 59 20 32 20 a2 0d 02 12 |.... *KE|Y 2 ....|
|000007c0| 0d 20 2a 4b 45 59 20 33 | 20 a3 0d 02 1c 0d 20 2a |. *KEY 3| ..... *|
|000007d0| 4b 45 59 20 34 20 a4 0d | 02 26 0d 20 2a 4b 45 59 |KEY 4 ..|.&. *KEY|
|000007e0| 20 35 20 a5 0d 02 30 0d | 20 2a 4b 45 59 20 36 20 | 5 ...0.| *KEY 6 |
|000007f0| a6 0d 02 3a 0d 20 2a 4b | 45 59 20 37 20 a7 0d 02 |...:. *K|EY 7 ...|
|00000800| 44 0d 20 2a 4b 45 59 20 | 38 20 a8 0d 02 4e 0d 20 |D. *KEY |8 ...N. |
|00000810| 66 69 6c 65 24 3d 22 22 | 0d 02 58 2d 20 6c 69 6e |file$=""|..X- lin|
|00000820| 65 25 3d 30 3a 70 6f 73 | 25 3d 30 3a 73 68 69 66 |e%=0:pos|%=0:shif|
|00000830| 74 25 3d 30 3a 74 6f 70 | 25 3d 30 3a 6d 61 78 25 |t%=0:top|%=0:max%|
|00000840| 3d 32 30 30 30 0d 02 62 | 06 20 e1 0d 02 6c 06 20 |=2000..b|. ...l. |
|00000850| 3a 0d 02 76 0d 20 dd 20 | f2 65 72 72 6f 72 0d 02 |:..v. . |.error..|
|00000860| 80 08 20 ef 32 36 0d 02 | 8a 0e 20 fb 20 37 3a fb |.. .26..|.. . 7:.|
|00000870| 20 31 32 38 0d 02 94 06 | 20 db 0d 02 9e 0b 20 2a | 128....| ..... *|
|00000880| 46 58 34 2c 30 0d 02 a8 | 15 20 f6 3a f1 22 20 61 |FX4,0...|. .:." a|
|00000890| 74 20 6c 69 6e 65 20 22 | 3b 9e 0d 02 b2 06 20 e0 |t line "|;..... .|
|000008a0| 0d 02 bc 06 20 e1 0d 02 | c6 06 20 3a 0d 02 d0 0c |.... ...|.. :....|
|000008b0| 20 dd 20 f2 6c 69 6e 65 | 0d 02 da 35 20 e7 20 6c | . .line|...5 . l|
|000008c0| 69 6e 65 25 3c 73 68 69 | 66 74 25 20 f1 8a 30 2c |ine%<shi|ft% ..0,|
|000008d0| 30 29 3b bd 31 31 3b 6c | 69 6e 65 24 28 6c 69 6e |0);.11;l|ine$(lin|
|000008e0| 65 25 29 3a 73 68 69 66 | 74 25 2d 3d 31 0d 02 e4 |e%):shif|t%-=1...|
|000008f0| 3a 20 e7 20 6c 69 6e 65 | 25 3e 73 68 69 66 74 25 |: . line|%>shift%|
|00000900| 2b 32 39 20 f1 8a 30 2c | 32 39 29 3b bd 31 30 3b |+29 ..0,|29);.10;|
|00000910| 6c 69 6e 65 24 28 6c 69 | 6e 65 25 29 3b 3a 73 68 |line$(li|ne%);:sh|
|00000920| 69 66 74 25 2b 3d 31 0d | 02 ee 06 20 e1 0d 02 f8 |ift%+=1.|... ....|
|00000930| 06 20 3a 0d 03 02 0c 20 | dd 20 f2 73 61 76 65 0d |. :.... |. .save.|
|00000940| 03 0c 09 20 f2 63 61 74 | 0d 03 16 13 20 f2 74 69 |... .cat|.... .ti|
|00000950| 74 6c 65 28 22 53 41 56 | 45 22 29 0d 03 20 0e 20 |tle("SAV|E").. . |
|00000960| f2 73 65 6e 74 65 6e 63 | 65 0d 03 2a 0e 20 f2 65 |.sentenc|e..*. .e|
|00000970| 6e 64 74 69 74 6c 65 0d | 03 34 0c 20 f2 72 65 64 |ndtitle.|.4. .red|
|00000980| 72 61 77 0d 03 3e 11 20 | e7 20 66 69 6c 65 24 3d |raw..>. |. file$=|
|00000990| 22 22 20 e1 0d 03 48 0b | 20 2a 44 49 52 20 42 0d |"" ...H.| *DIR B.|
|000009a0| 03 52 0e 20 58 3d ae 20 | 66 69 6c 65 24 0d 03 5c |.R. X=. |file$..\|
|000009b0| 1f 20 f1 23 58 2c 6c 69 | 6e 65 25 2c 70 6f 73 25 |. .#X,li|ne%,pos%|
|000009c0| 2c 73 68 69 66 74 25 2c | 74 6f 70 25 0d 03 66 15 |,shift%,|top%..f.|
|000009d0| 20 e3 20 6c 6f 6f 70 25 | 3d 30 20 b8 20 74 6f 70 | . loop%|=0 . top|
|000009e0| 25 0d 03 70 15 20 f1 23 | 58 2c 6c 69 6e 65 24 28 |%..p. .#|X,line$(|
|000009f0| 6c 6f 6f 70 25 29 0d 03 | 7a 0c 20 ed 20 6c 6f 6f |loop%)..|z. . loo|
|00000a00| 70 25 0d 03 84 08 20 d9 | 23 58 0d 03 8e 08 20 2a |p%.... .|#X.... *|
|00000a10| 55 50 0d 03 98 06 20 e1 | 0d 03 a2 06 20 3a 0d 03 |UP.... .|.... :..|
|00000a20| ac 0e 20 dd 20 f2 72 65 | 64 72 61 77 0d 03 b6 06 |.. . .re|draw....|
|00000a30| 20 db 0d 03 c0 22 20 e3 | 20 6c 6f 6f 70 32 25 3d | ...." .| loop2%=|
|00000a40| 73 68 69 66 74 25 20 b8 | 20 28 73 68 69 66 74 25 |shift% .| (shift%|
|00000a50| 2b 32 39 29 0d 03 ca 25 | 20 f1 8a 30 2c 6c 6f 6f |+29)...%| ..0,loo|
|00000a60| 70 32 25 2d 73 68 69 66 | 74 25 29 6c 69 6e 65 24 |p2%-shif|t%)line$|
|00000a70| 28 6c 6f 6f 70 32 25 29 | 3b 0d 03 d4 0d 20 ed 20 |(loop2%)|;.... . |
|00000a80| 6c 6f 6f 70 32 25 0d 03 | de 06 20 e1 0d 03 e8 06 |loop2%..|.. .....|
|00000a90| 20 3a 0d 03 f2 0b 20 dd | 20 f2 63 61 74 0d 03 fc | :.... .| .cat...|
|00000aa0| 06 20 db 0d 04 06 33 20 | f1 27 22 44 69 72 65 63 |. ....3 |.'"Direc|
|00000ab0| 74 6f 72 79 20 6f 66 20 | 63 75 72 72 65 6e 74 6c |tory of |currentl|
|00000ac0| 79 20 73 61 76 65 64 20 | 70 72 6f 67 72 61 6d 73 |y saved |programs|
|00000ad0| 20 3a 22 27 27 27 0d 04 | 10 0b 20 2a 43 41 54 20 | :"'''..|.. *CAT |
|00000ae0| 42 0d 04 1a 06 20 e1 0d | 04 24 06 20 3a 0d 04 2e |B.... ..|.$. :...|
|00000af0| 0c 20 dd 20 f2 6c 6f 61 | 64 0d 04 38 09 20 f2 63 |. . .loa|d..8. .c|
|00000b00| 61 74 0d 04 42 13 20 f2 | 74 69 74 6c 65 28 22 4c |at..B. .|title("L|
|00000b10| 4f 41 44 22 29 0d 04 4c | 0e 20 f2 73 65 6e 74 65 |OAD")..L|. .sente|
|00000b20| 6e 63 65 0d 04 56 0e 20 | f2 65 6e 64 74 69 74 6c |nce..V. |.endtitl|
|00000b30| 65 0d 04 60 0c 20 f2 72 | 65 64 72 61 77 0d 04 6a |e..`. .r|edraw..j|
|00000b40| 11 20 e7 20 66 69 6c 65 | 24 3d 22 22 20 e1 0d 04 |. . file|$="" ...|
|00000b50| 74 0b 20 2a 44 49 52 20 | 42 0d 04 7e 0e 20 58 3d |t. *DIR |B..~. X=|
|00000b60| 8e 20 66 69 6c 65 24 0d | 04 88 1f 20 e8 23 58 2c |. file$.|... .#X,|
|00000b70| 6c 69 6e 65 25 2c 70 6f | 73 25 2c 73 68 69 66 74 |line%,po|s%,shift|
|00000b80| 25 2c 74 6f 70 25 0d 04 | 92 15 20 e3 20 6c 6f 6f |%,top%..|.. . loo|
|00000b90| 70 25 3d 30 20 b8 20 74 | 6f 70 25 0d 04 9c 15 20 |p%=0 . t|op%.... |
|00000ba0| e8 23 58 2c 6c 69 6e 65 | 24 28 6c 6f 6f 70 25 29 |.#X,line|$(loop%)|
|00000bb0| 0d 04 a6 0c 20 ed 20 6c | 6f 6f 70 25 0d 04 b0 08 |.... . l|oop%....|
|00000bc0| 20 d9 23 58 0d 04 ba 08 | 20 2a 55 50 0d 04 c4 0c | .#X....| *UP....|
|00000bd0| 20 f2 72 65 64 72 61 77 | 0d 04 ce 06 20 e1 0d 04 | .redraw|.... ...|
|00000be0| d8 06 20 3a 0d 04 e2 0e | 20 dd 20 f2 61 70 70 65 |.. :....| . .appe|
|00000bf0| 6e 64 0d 04 ec 15 20 f2 | 74 69 74 6c 65 28 22 41 |nd.... .|title("A|
|00000c00| 50 50 45 4e 44 22 29 0d | 04 f6 0e 20 f2 73 65 6e |PPEND").|... .sen|
|00000c10| 74 65 6e 63 65 0d 05 00 | 0e 20 f2 65 6e 64 74 69 |tence...|. .endti|
|00000c20| 74 6c 65 0d 05 0a 11 20 | e7 20 66 69 6c 65 24 3d |tle.... |. file$=|
|00000c30| 22 22 20 e1 0d 05 14 0b | 20 2a 44 49 52 20 42 0d |"" .....| *DIR B.|
|00000c40| 05 1e 0e 20 58 3d 8e 20 | 66 69 6c 65 24 0d 05 28 |... X=. |file$..(|
|00000c50| 1f 20 e8 23 58 2c 6e 75 | 6c 6c 25 2c 6e 75 6c 6c |. .#X,nu|ll%,null|
|00000c60| 25 2c 6e 75 6c 6c 25 2c | 61 64 64 25 0d 05 32 1c |%,null%,|add%..2.|
|00000c70| 20 6f 6c 64 74 6f 70 25 | 3d 74 6f 70 25 3a 74 6f | oldtop%|=top%:to|
|00000c80| 70 25 2b 3d 61 64 64 25 | 0d 05 3c 1b 20 e3 20 6c |p%+=add%|..<. . l|
|00000c90| 6f 6f 70 25 3d 6f 6c 64 | 74 6f 70 25 20 b8 20 74 |oop%=old|top% . t|
|00000ca0| 6f 70 25 0d 05 46 15 20 | e8 23 58 2c 6c 69 6e 65 |op%..F. |.#X,line|
|00000cb0| 24 28 6c 6f 6f 70 25 29 | 0d 05 50 0c 20 ed 20 6c |$(loop%)|..P. . l|
|00000cc0| 6f 6f 70 25 0d 05 5a 08 | 20 d9 23 58 0d 05 64 08 |oop%..Z.| .#X..d.|
|00000cd0| 20 2a 55 50 0d 05 6e 0c | 20 f2 72 65 64 72 61 77 | *UP..n.| .redraw|
|00000ce0| 0d 05 78 06 20 e1 0d 05 | 82 06 20 3a 0d 05 8c 10 |..x. ...|.. :....|
|00000cf0| 20 dd 20 f2 73 65 6e 74 | 65 6e 63 65 0d 05 96 0d | . .sent|ence....|
|00000d00| 20 f1 20 66 69 6c 65 24 | 3b 0d 05 a0 26 20 74 61 | . file$|;...& ta|
|00000d10| 62 25 3d b1 3a 68 65 69 | 67 68 74 25 3d bc 3a 6c |b%=.:hei|ght%=.:l|
|00000d20| 65 6e 67 74 68 25 3d a9 | 28 66 69 6c 65 24 29 0d |ength%=.|(file$).|
|00000d30| 05 aa 06 20 f5 0d 05 b4 | 15 20 ef 33 31 2c 74 61 |... ....|. .31,ta|
|00000d40| 62 25 2c 68 65 69 67 68 | 74 25 0d 05 be 0b 20 6b |b%,heigh|t%.... k|
|00000d50| 65 79 25 3d a5 0d 05 c8 | 5f 20 e7 20 6c 65 6e 67 |ey%=....|_ . leng|
|00000d60| 74 68 25 3c 39 20 80 20 | 6b 65 79 25 3e 33 31 20 |th%<9 . |key%>31 |
|00000d70| 80 20 6b 65 79 25 3c 31 | 32 37 20 66 69 6c 65 24 |. key%<1|27 file$|
|00000d80| 2b 3d bd 28 6b 65 79 25 | 29 3a f1 8a 74 61 62 25 |+=.(key%|):..tab%|
|00000d90| 2c 68 65 69 67 68 74 25 | 29 bd 28 6b 65 79 25 29 |,height%|).(key%)|
|00000da0| 3b 3a 74 61 62 25 2b 3d | 31 3a 6c 65 6e 67 74 68 |;:tab%+=|1:length|
|00000db0| 25 2b 3d 31 0d 05 d2 5d | 20 e7 20 6b 65 79 25 3d |%+=1...]| . key%=|
|00000dc0| 31 32 37 20 80 20 6c 65 | 6e 67 74 68 25 3e 30 20 |127 . le|ngth%>0 |
|00000dd0| 66 69 6c 65 24 3d c0 66 | 69 6c 65 24 2c 28 a9 28 |file$=.f|ile$,(.(|
|00000de0| 66 69 6c 65 24 29 2d 31 | 29 29 3a 74 61 62 25 2d |file$)-1|)):tab%-|
|00000df0| 3d 31 3a 6c 65 6e 67 74 | 68 25 2d 3d 31 3a f1 8a |=1:lengt|h%-=1:..|
|00000e00| 74 61 62 25 2c 68 65 69 | 67 68 74 25 29 22 20 22 |tab%,hei|ght%)" "|
|00000e10| 3b 0d 05 dc 0e 20 fd 20 | 6b 65 79 25 3d 31 33 0d |;.... . |key%=13.|
|00000e20| 05 e6 06 20 e1 0d 05 f0 | 06 20 3a 0d 05 fa 0f 20 |... ....|. :.... |
|00000e30| dd 20 f2 63 6f 6d 70 69 | 6c 65 0d 06 04 06 20 db |. .compi|le.... .|
|00000e40| 0d 06 0e bb 20 f1 27 22 | 54 68 65 20 70 72 6f 67 |.... .'"|The prog|
|00000e50| 72 61 6d 20 77 69 6c 6c | 20 66 69 72 73 74 20 62 |ram will| first b|
|00000e60| 65 20 73 61 76 65 64 20 | 61 73 20 61 20 73 74 61 |e saved |as a sta|
|00000e70| 6e 64 61 72 64 20 66 69 | 6c 65 20 61 66 74 65 72 |ndard fi|le after|
|00000e80| 20 79 6f 75 20 68 61 76 | 65 20 73 65 6c 65 63 74 | you hav|e select|
|00000e90| 65 64 20 74 68 65 20 20 | 66 69 6c 65 6e 61 6d 65 |ed the  |filename|
|00000ea0| 2e 20 54 68 65 20 70 72 | 6f 67 72 61 6d 20 77 69 |. The pr|ogram wi|
|00000eb0| 6c 6c 20 74 68 65 6e 20 | 62 65 20 63 6f 6d 70 69 |ll then |be compi|
|00000ec0| 6c 65 64 20 69 6e 74 6f | 20 61 73 73 65 6d 62 6c |led into| assembl|
|00000ed0| 79 20 6c 61 6e 67 75 61 | 67 65 20 61 6e 64 20 73 |y langua|ge and s|
|00000ee0| 61 76 65 64 20 69 6e 20 | 74 68 65 20 64 69 72 65 |aved in |the dire|
|00000ef0| 63 74 6f 72 79 20 27 41 | 27 2e 22 0d 06 18 8b 20 |ctory 'A|'.".... |
|00000f00| f1 22 20 54 6f 20 6c 6f | 61 64 20 74 68 65 20 70 |." To lo|ad the p|
|00000f10| 72 6f 67 72 61 6d 20 69 | 6e 20 74 68 65 20 64 69 |rogram i|n the di|
|00000f20| 72 65 63 74 6f 72 79 20 | 27 41 27 2c 20 75 73 65 |rectory |'A', use|
|00000f30| 20 2a 45 58 45 43 20 3c | 66 69 6c 65 3e 2e 20 52 | *EXEC <|file>. R|
|00000f40| 75 6e 20 74 68 69 73 20 | 61 6e 64 20 74 68 65 6e |un this |and then|
|00000f50| 20 20 2a 53 41 56 45 20 | 69 6e 74 6f 20 64 69 72 |  *SAVE |into dir|
|00000f60| 65 63 74 6f 72 79 20 27 | 4d 27 20 66 6f 72 20 6d |ectory '|M' for m|
|00000f70| 61 63 68 69 6e 65 20 63 | 6f 64 65 20 70 72 6f 67 |achine c|ode prog|
|00000f80| 72 61 6d 73 2e 22 0d 06 | 22 85 20 f1 22 20 54 6f |rams."..|". ." To|
|00000f90| 20 72 75 6e 20 61 20 6d | 61 63 68 69 6e 65 20 63 | run a m|achine c|
|00000fa0| 6f 64 65 20 70 72 6f 67 | 72 61 6d 2c 20 2a 43 4f |ode prog|ram, *CO|
|00000fb0| 55 4e 54 20 3c 66 69 6c | 65 3e 20 74 6f 20 66 69 |UNT <fil|e> to fi|
|00000fc0| 6e 64 20 74 68 65 20 70 | 72 6f 67 72 61 6d 20 73 |nd the p|rogram s|
|00000fd0| 69 7a 65 2c 20 44 49 4d | 20 63 6f 64 65 3c 73 69 |ize, DIM| code<si|
|00000fe0| 7a 65 3e 2c 20 2a 4c 4f | 41 44 20 3c 66 69 6c 65 |ze>, *LO|AD <file|
|00000ff0| 3e 20 63 6f 64 65 2c 20 | 61 6e 64 20 74 68 65 6e |> code, |and then|
|00001000| 20 43 41 4c 4c 20 63 6f | 64 65 22 0d 06 2c 0a 20 | CALL co|de"..,. |
|00001010| f2 73 61 76 65 0d 06 36 | 19 20 e7 20 66 69 6c 65 |.save..6|. . file|
|00001020| 24 3d 22 22 20 f2 72 65 | 64 72 61 77 3a e1 0d 06 |$="" .re|draw:...|
|00001030| 40 06 20 db 0d 06 4a 17 | 20 f1 20 22 43 6f 6d 70 |@. ...J.| . "Comp|
|00001040| 69 6c 69 6e 67 2e 2e 2e | 22 27 27 0d 06 54 0b 20 |iling...|"''..T. |
|00001050| 2a 44 49 52 20 41 0d 06 | 5e 16 20 ff 28 22 53 50 |*DIR A..|^. .("SP|
|00001060| 4f 4f 4c 20 22 2b 66 69 | 6c 65 24 29 0d 06 68 0c |OOL "+fi|le$)..h.|
|00001070| 20 f1 20 22 4e 45 57 22 | 0d 06 72 1c 20 f1 20 22 | . "NEW"|..r. . "|
|00001080| 31 30 20 44 49 4d 20 63 | 6f 64 65 25 20 32 30 34 |10 DIM c|ode% 204|
|00001090| 38 30 30 22 0d 06 7c 1c | 20 f1 20 22 32 30 20 46 |800"..|.| . "20 F|
|000010a0| 4f 52 20 70 61 73 73 25 | 3d 30 20 54 4f 20 31 22 |OR pass%|=0 TO 1"|
|000010b0| 0d 06 86 14 20 f1 20 22 | 33 30 20 50 25 3d 63 6f |.... . "|30 P%=co|
|000010c0| 64 65 25 22 0d 06 90 16 | 20 f1 20 22 34 30 20 5b |de%"....| . "40 [|
|000010d0| 4f 50 54 20 70 61 73 73 | 25 22 0d 06 9a 0f 20 6e |OPT pass|%".... n|
|000010e0| 75 6d 62 65 72 25 3d 35 | 30 0d 06 a4 15 20 e3 20 |umber%=5|0.... . |
|000010f0| 6c 6f 6f 70 25 3d 30 20 | b8 20 74 6f 70 25 0d 06 |loop%=0 |. top%..|
|00001100| ae 0c 20 f2 64 65 63 6f | 64 65 0d 06 b8 0c 20 ed |.. .deco|de.... .|
|00001110| 20 6c 6f 6f 70 25 0d 06 | c2 16 20 f1 20 c3 28 6e | loop%..|.. . .(n|
|00001120| 75 6d 62 65 72 25 29 2b | 22 20 5d 22 0d 06 cc 22 |umber%)+|" ]"..."|
|00001130| 20 f1 20 c3 28 6e 75 6d | 62 65 72 25 2b 31 30 29 | . .(num|ber%+10)|
|00001140| 2b 22 20 4e 45 58 54 20 | 70 61 73 73 25 22 0d 06 |+" NEXT |pass%"..|
|00001150| d6 1b 20 f1 20 c3 28 6e | 75 6d 62 65 72 25 2b 32 |.. . .(n|umber%+2|
|00001160| 30 29 2b 22 20 2a 55 50 | 22 0d 06 e0 1e 20 f1 20 |0)+" *UP|".... . |
|00001170| c3 28 6e 75 6d 62 65 72 | 25 2b 33 30 29 2b 22 20 |.(number|%+30)+" |
|00001180| 2a 44 49 52 20 4d 22 0d | 06 ea 4e 20 f1 20 c3 28 |*DIR M".|..N . .(|
|00001190| 6e 75 6d 62 65 72 25 2b | 34 30 29 2b 22 20 49 4e |number%+|40)+" IN|
|000011a0| 50 55 54 27 27 22 2b bd | 33 34 2b 22 53 61 76 65 |PUT''"+.|34+"Save|
|000011b0| 20 61 73 73 65 6d 62 6c | 65 64 20 76 65 72 73 69 | assembl|ed versi|
|000011c0| 6f 6e 20 61 73 20 3a 20 | 22 2b bd 33 34 2b 22 66 |on as : |"+.34+"f|
|000011d0| 69 6c 65 24 22 0d 06 f4 | 69 20 f1 20 c3 28 6e 75 |ile$"...|i . .(nu|
|000011e0| 6d 62 65 72 25 2b 35 30 | 29 2b 22 20 4f 53 43 4c |mber%+50|)+" OSCL|
|000011f0| 49 22 2b bd 33 34 2b 22 | 53 41 56 45 20 22 2b bd |I"+.34+"|SAVE "+.|
|00001200| 33 34 2b 22 2b 66 69 6c | 65 24 2b 22 2b bd 33 34 |34+"+fil|e$+"+.34|
|00001210| 2b 22 20 22 2b bd 33 34 | 2b 22 2b 53 54 52 24 7e |+" "+.34|+"+STR$~|
|00001220| 63 6f 64 65 25 2b 22 2b | bd 33 34 2b 22 20 22 2b |code%+"+|.34+" "+|
|00001230| bd 33 34 2b 22 2b 53 54 | 52 24 7e 50 25 22 0d 06 |.34+"+ST|R$~P%"..|
|00001240| fe 1b 20 f1 20 c3 28 6e | 75 6d 62 65 72 25 2b 36 |.. . .(n|umber%+6|
|00001250| 30 29 2b 22 20 45 4e 44 | 22 0d 07 08 0b 20 2a 53 |0)+" END|".... *S|
|00001260| 50 4f 4f 4c 0d 07 12 08 | 20 2a 55 50 0d 07 1c 21 |POOL....| *UP...!|
|00001270| 20 f1 20 27 27 22 43 6f | 6d 70 69 6c 61 74 69 6f | . ''"Co|mpilatio|
|00001280| 6e 20 63 6f 6d 70 6c 65 | 74 65 21 22 27 0d 07 26 |n comple|te!"'..&|
|00001290| 12 20 64 65 6c 61 79 24 | 3d bf 28 35 30 30 29 0d |. delay$|=.(500).|
|000012a0| 07 30 0c 20 f2 72 65 64 | 72 61 77 0d 07 3a 06 20 |.0. .red|raw..:. |
|000012b0| e1 0d 07 44 06 20 3a 0d | 07 4e 0e 20 dd 20 f2 64 |...D. :.|.N. . .d|
|000012c0| 65 63 6f 64 65 0d 07 58 | 17 20 64 61 74 61 24 3d |ecode..X|. data$=|
|000012d0| 6c 69 6e 65 24 28 6c 6f | 6f 70 25 29 0d 07 62 32 |line$(lo|op%)..b2|
|000012e0| 20 e7 20 a7 64 61 74 61 | 24 2c 22 5c 22 29 3e 30 | . .data|$,"\")>0|
|000012f0| 20 64 61 74 61 24 3d c0 | 64 61 74 61 24 2c 28 a7 | data$=.|data$,(.|
|00001300| 64 61 74 61 24 2c 22 5c | 22 29 2d 31 29 29 0d 07 |data$,"\|")-1))..|
|00001310| 6c 40 20 e7 20 c0 64 61 | 74 61 24 2c 31 29 3d 22 |l@ . .da|ta$,1)="|
|00001320| 2e 22 20 f1 20 c3 28 6e | 75 6d 62 65 72 25 29 2b |." . .(n|umber%)+|
|00001330| 22 20 22 2b 64 61 74 61 | 24 3a 64 61 74 61 24 3d |" "+data|$:data$=|
|00001340| 22 22 3a 6e 75 6d 62 65 | 72 25 2b 3d 31 30 0d 07 |"":numbe|r%+=10..|
|00001350| 76 45 20 e7 20 a7 64 61 | 74 61 24 2c 22 53 54 41 |vE . .da|ta$,"STA|
|00001360| 52 54 22 29 3e 30 20 f1 | 20 c3 28 6e 75 6d 62 65 |RT")>0 .| .(numbe|
|00001370| 72 25 29 2b 22 20 53 54 | 4d 46 44 20 52 31 33 21 |r%)+" ST|MFD R13!|
|00001380| 2c 7b 52 31 34 7d 22 3a | 6e 75 6d 62 65 72 25 2b |,{R14}":|number%+|
|00001390| 3d 31 30 0d 07 80 42 20 | e7 20 a7 64 61 74 61 24 |=10...B |. .data$|
|000013a0| 2c 22 45 4e 44 22 29 3e | 30 20 f1 20 c3 28 6e 75 |,"END")>|0 . .(nu|
|000013b0| 6d 62 65 72 25 29 2b 22 | 20 4c 44 4d 46 44 20 52 |mber%)+"| LDMFD R|
|000013c0| 31 33 21 2c 7b 50 43 7d | 22 3a 6e 75 6d 62 65 72 |13!,{PC}|":number|
|000013d0| 25 2b 3d 31 30 0d 07 8a | 42 20 e7 20 a7 64 61 74 |%+=10...|B . .dat|
|000013e0| 61 24 2c 22 52 45 54 55 | 52 4e 22 29 3e 30 20 f1 |a$,"RETU|RN")>0 .|
|000013f0| 20 c3 28 6e 75 6d 62 65 | 72 25 29 2b 22 20 4d 4f | .(numbe|r%)+" MO|
|00001400| 56 53 20 52 31 35 2c 52 | 31 34 22 3a 6e 75 6d 62 |VS R15,R|14":numb|
|00001410| 65 72 25 2b 3d 31 30 0d | 07 94 1e 20 e7 20 a7 64 |er%+=10.|... . .d|
|00001420| 61 74 61 24 2c 22 56 44 | 55 22 29 3e 30 20 f2 76 |ata$,"VD|U")>0 .v|
|00001430| 64 75 28 30 29 0d 07 9e | 33 20 e7 20 a7 64 61 74 |du(0)...|3 . .dat|
|00001440| 61 24 2c 22 43 4c 45 41 | 52 22 29 3e 30 20 84 20 |a$,"CLEA|R")>0 . |
|00001450| a7 64 61 74 61 24 2c 22 | 43 4c 53 22 29 3e 30 20 |.data$,"|CLS")>0 |
|00001460| f2 76 64 75 28 31 32 29 | 0d 07 a8 35 20 e7 20 a7 |.vdu(12)|...5 . .|
|00001470| 64 61 74 61 24 2c 22 43 | 4f 4c 4f 55 52 22 29 3e |data$,"C|OLOUR")>|
|00001480| 30 20 84 20 a7 64 61 74 | 61 24 2c 22 43 4f 4c 2e |0 . .dat|a$,"COL.|
|00001490| 22 29 3e 30 20 f2 76 64 | 75 28 31 37 29 0d 07 b2 |")>0 .vd|u(17)...|
|000014a0| 20 20 e7 20 a7 64 61 74 | 61 24 2c 22 4d 4f 44 45 |  . .dat|a$,"MODE|
|000014b0| 22 29 3e 30 20 f2 76 64 | 75 28 32 32 29 0d 07 bc |")>0 .vd|u(22)...|
|000014c0| 1f 20 e7 20 a7 64 61 74 | 61 24 2c 22 42 45 45 50 |. . .dat|a$,"BEEP|
|000014d0| 22 29 3e 30 20 f2 76 64 | 75 28 37 29 0d 07 c6 1f |")>0 .vd|u(7)....|
|000014e0| 20 e7 20 a7 64 61 74 61 | 24 2c 22 43 4c 47 22 29 | . .data|$,"CLG")|
|000014f0| 3e 30 20 f2 76 64 75 28 | 31 36 29 0d 07 d0 20 20 |>0 .vdu(|16)...  |
|00001500| e7 20 a7 64 61 74 61 24 | 2c 22 47 43 4f 4c 22 29 |. .data$|,"GCOL")|
|00001510| 3e 30 20 f2 76 64 75 28 | 31 38 29 0d 07 da 25 20 |>0 .vdu(|18)...% |
|00001520| e7 20 a7 64 61 74 61 24 | 2c 22 50 52 49 4e 54 45 |. .data$|,"PRINTE|
|00001530| 52 20 4f 4e 22 29 3e 30 | 20 f2 76 64 75 28 32 29 |R ON")>0| .vdu(2)|
|00001540| 0d 07 e4 26 20 e7 20 a7 | 64 61 74 61 24 2c 22 50 |...& . .|data$,"P|
|00001550| 52 49 4e 54 45 52 20 4f | 46 46 22 29 3e 30 20 f2 |RINTER O|FF")>0 .|
|00001560| 76 64 75 28 33 29 0d 07 | ee 20 20 e7 20 a7 64 61 |vdu(3)..|.  . .da|
|00001570| 74 61 24 2c 22 50 4c 4f | 54 22 29 3e 30 20 f2 76 |ta$,"PLO|T")>0 .v|
|00001580| 64 75 28 32 35 29 0d 07 | f8 1f 20 e7 20 a7 64 61 |du(25)..|.. . .da|
|00001590| 74 61 24 2c 22 2a 46 58 | 22 29 3e 30 20 f2 62 79 |ta$,"*FX|")>0 .by|
|000015a0| 74 65 28 30 29 0d 08 02 | 21 20 e7 20 a7 64 61 74 |te(0)...|! . .dat|
|000015b0| 61 24 2c 22 57 41 49 54 | 22 29 3e 30 20 f2 62 79 |a$,"WAIT|")>0 .by|
|000015c0| 74 65 28 31 39 29 0d 08 | 0c 06 20 f7 0d 08 16 06 |te(19)..|.. .....|
|000015d0| 20 f5 0d 08 20 0f 20 f3 | 20 6f 70 65 72 61 6e 64 | ... . .| operand|
|000015e0| 24 0d 08 2a 3c 20 e7 20 | a7 64 61 74 61 24 2c 6f |$..*< . |.data$,o|
|000015f0| 70 65 72 61 6e 64 24 29 | 3e 30 20 f1 20 c3 28 6e |perand$)|>0 . .(n|
|00001600| 75 6d 62 65 72 25 29 2b | 22 20 22 2b 64 61 74 61 |umber%)+|" "+data|
|00001610| 24 3a 6e 75 6d 62 65 72 | 25 2b 3d 31 30 0d 08 34 |$:number|%+=10..4|
|00001620| 15 20 fd 20 6f 70 65 72 | 61 6e 64 24 3d 22 53 57 |. . oper|and$="SW|
|00001630| 49 22 0d 08 3e 19 20 62 | 72 61 6e 63 68 25 3d a7 |I"..>. b|ranch%=.|
|00001640| 64 61 74 61 24 2c 22 42 | 20 22 29 0d 08 48 26 20 |data$,"B| ")..H& |
|00001650| e7 20 62 72 61 6e 63 68 | 25 3d 30 20 62 72 61 6e |. branch|%=0 bran|
|00001660| 63 68 25 3d a7 64 61 74 | 61 24 2c 22 42 4c 20 22 |ch%=.dat|a$,"BL "|
|00001670| 29 0d 08 52 5b 20 e7 20 | 62 72 61 6e 63 68 25 3d |)..R[ . |branch%=|
|00001680| 31 20 84 20 28 62 72 61 | 6e 63 68 25 3e 31 20 80 |1 . (bra|nch%>1 .|
|00001690| 20 c1 64 61 74 61 24 2c | 62 72 61 6e 63 68 25 2d | .data$,|branch%-|
|000016a0| 31 2c 31 29 3d 22 20 22 | 29 20 f1 20 c3 28 6e 75 |1,1)=" "|) . .(nu|
|000016b0| 6d 62 65 72 25 29 2b 22 | 20 22 2b 64 61 74 61 24 |mber%)+"| "+data$|
|000016c0| 3a 6e 75 6d 62 65 72 25 | 2b 3d 31 30 0d 08 5c 06 |:number%|+=10..\.|
|000016d0| 20 e1 0d 08 66 06 20 3a | 0d 08 70 26 20 dc 20 4d | ...f. :|..p& . M|
|000016e0| 4f 56 2c 41 44 52 2c 4c | 44 52 2c 53 54 52 2c 4c |OV,ADR,L|DR,STR,L|
|000016f0| 44 4d 2c 53 54 4d 2c 43 | 4d 50 2c 54 45 51 0d 08 |DM,STM,C|MP,TEQ..|
|00001700| 7a 13 20 dc 20 41 44 44 | 2c 53 55 42 53 2c 4d 55 |z. . ADD|,SUBS,MU|
|00001710| 4c 0d 08 84 33 20 dc 20 | 42 45 51 2c 42 47 54 2c |L...3 . |BEQ,BGT,|
|00001720| 42 4c 54 2c 42 4e 45 2c | 42 4c 45 51 2c 42 4c 47 |BLT,BNE,|BLEQ,BLG|
|00001730| 54 2c 42 4c 4c 54 2c 42 | 4c 4e 45 2c 42 4d 49 2c |T,BLLT,B|LNE,BMI,|
|00001740| 42 4c 4d 49 0d 08 8e 15 | 20 dc 20 45 51 55 53 2c |BLMI....| . EQUS,|
|00001750| 45 51 55 42 2c 45 51 55 | 44 0d 08 98 0a 20 dc 20 |EQUB,EQU|D.... . |
|00001760| 53 57 49 0d 08 a2 06 20 | 3a 0d 08 ac 11 20 dd 20 |SWI.... |:.... . |
|00001770| f2 76 64 75 28 76 64 75 | 25 29 0d 08 b6 17 20 70 |.vdu(vdu|%).... p|
|00001780| 61 72 61 6d 65 74 65 72 | 25 28 30 29 3d 76 64 75 |arameter|%(0)=vdu|
|00001790| 25 0d 08 c0 10 20 f2 70 | 61 72 61 6d 65 74 65 72 |%.... .p|arameter|
|000017a0| 73 0d 08 ca 0d 20 6c 6f | 6f 70 32 25 3d 30 0d 08 |s.... lo|op2%=0..|
|000017b0| d4 17 20 e7 20 76 64 75 | 25 3d 30 20 6c 6f 6f 70 |.. . vdu|%=0 loop|
|000017c0| 32 25 2b 3d 31 0d 08 de | 06 20 f5 0d 08 e8 30 20 |2%+=1...|. ....0 |
|000017d0| f1 20 c3 28 6e 75 6d 62 | 65 72 25 29 2b 22 20 4d |. .(numb|er%)+" M|
|000017e0| 4f 56 20 52 30 2c 23 22 | 3b 70 61 72 61 6d 65 74 |OV R0,#"|;paramet|
|000017f0| 65 72 25 28 6c 6f 6f 70 | 32 25 29 0d 08 f2 30 20 |er%(loop|2%)...0 |
|00001800| f1 20 c3 28 6e 75 6d 62 | 65 72 25 2b 31 30 29 2b |. .(numb|er%+10)+|
|00001810| 22 20 53 57 49 20 22 2b | bd 33 34 2b 22 4f 53 5f |" SWI "+|.34+"OS_|
|00001820| 57 72 69 74 65 43 22 2b | bd 33 34 0d 08 fc 10 20 |WriteC"+|.34.... |
|00001830| 6e 75 6d 62 65 72 25 2b | 3d 32 30 0d 09 06 0e 20 |number%+|=20.... |
|00001840| 6c 6f 6f 70 32 25 2b 3d | 31 0d 09 10 1c 20 fd 20 |loop2%+=|1.... . |
|00001850| 70 61 72 61 6d 65 74 65 | 72 25 28 6c 6f 6f 70 32 |paramete|r%(loop2|
|00001860| 25 29 3d 2d 31 0d 09 1a | 06 20 e1 0d 09 24 06 20 |%)=-1...|. ...$. |
|00001870| 3a 0d 09 2e 12 20 dd 20 | f2 70 61 72 61 6d 65 74 |:.... . |.paramet|
|00001880| 65 72 73 0d 09 38 14 20 | e3 20 6c 6f 6f 70 33 25 |ers..8. |. loop3%|
|00001890| 3d 31 20 b8 20 32 30 0d | 09 42 1a 20 70 61 72 61 |=1 . 20.|.B. para|
|000018a0| 6d 65 74 65 72 25 28 6c | 6f 6f 70 33 25 29 3d 2d |meter%(l|oop3%)=-|
|000018b0| 31 0d 09 4c 0d 20 ed 20 | 6c 6f 6f 70 33 25 0d 09 |1..L. . |loop3%..|
|000018c0| 56 23 20 63 68 61 6e 67 | 65 25 3d 30 3a 63 68 65 |V# chang|e%=0:che|
|000018d0| 63 6b 25 3d 31 3a 63 6f | 6e 74 69 6e 75 65 25 3d |ck%=1:co|ntinue%=|
|000018e0| 30 0d 09 60 06 20 f5 0d | 09 6a 1b 20 63 68 61 72 |0..`. ..|.j. char|
|000018f0| 24 3d c1 64 61 74 61 24 | 2c 63 68 65 63 6b 25 2c |$=.data$|,check%,|
|00001900| 31 29 0d 09 74 43 20 e7 | 20 a7 22 30 31 32 33 34 |1)..tC .| ."01234|
|00001910| 35 36 37 38 39 22 2c 63 | 68 61 72 24 29 3e 30 20 |56789",c|har$)>0 |
|00001920| 80 20 63 6f 6e 74 69 6e | 75 65 25 3d 30 20 63 68 |. contin|ue%=0 ch|
|00001930| 61 6e 67 65 25 2b 3d 31 | 3a 63 6f 6e 74 69 6e 75 |ange%+=1|:continu|
|00001940| 65 25 2b 3d 31 0d 09 7e | 64 20 e7 20 a7 22 30 31 |e%+=1..~|d . ."01|
|00001950| 32 33 34 35 36 37 38 39 | 22 2c 63 68 61 72 24 29 |23456789|",char$)|
|00001960| 3e 30 20 6e 75 6d 62 65 | 72 24 2b 3d 63 68 61 72 |>0 numbe|r$+=char|
|00001970| 24 3a 70 61 72 61 6d 65 | 74 65 72 25 28 63 68 61 |$:parame|ter%(cha|
|00001980| 6e 67 65 25 29 3d bb 28 | 6e 75 6d 62 65 72 24 29 |nge%)=.(|number$)|
|00001990| 20 8b 20 63 6f 6e 74 69 | 6e 75 65 25 3d 30 3a 6e | . conti|nue%=0:n|
|000019a0| 75 6d 62 65 72 24 3d 22 | 22 0d 09 88 0e 20 63 68 |umber$="|".... ch|
|000019b0| 65 63 6b 25 2b 3d 31 0d | 09 92 16 20 fd 20 63 68 |eck%+=1.|... . ch|
|000019c0| 65 63 6b 25 3e a9 28 64 | 61 74 61 24 29 0d 09 9c |eck%>.(d|ata$)...|
|000019d0| 06 20 e1 0d 09 a6 06 20 | 3a 0d 09 b0 13 20 dd 20 |. ..... |:.... . |
|000019e0| f2 62 79 74 65 28 62 79 | 74 65 25 29 0d 09 ba 18 |.byte(by|te%)....|
|000019f0| 20 70 61 72 61 6d 65 74 | 65 72 25 28 30 29 3d 62 | paramet|er%(0)=b|
|00001a00| 79 74 65 25 0d 09 c4 10 | 20 f2 70 61 72 61 6d 65 |yte%....| .parame|
|00001a10| 74 65 72 73 0d 09 ce 4f | 20 e7 20 62 79 74 65 25 |ters...O| . byte%|
|00001a20| 3d 30 20 e3 20 6c 6f 6f | 70 34 25 3d 30 20 b8 20 |=0 . loo|p4%=0 . |
|00001a30| 31 39 3a 70 61 72 61 6d | 65 74 65 72 25 28 6c 6f |19:param|eter%(lo|
|00001a40| 6f 70 34 25 29 3d 70 61 | 72 61 6d 65 74 65 72 25 |op4%)=pa|rameter%|
|00001a50| 28 6c 6f 6f 70 34 25 2b | 31 29 3a ed 20 6c 6f 6f |(loop4%+|1):. loo|
|00001a60| 70 34 25 0d 09 d8 0d 20 | 6c 6f 6f 70 34 25 3d 30 |p4%.... |loop4%=0|
|00001a70| 0d 09 e2 06 20 f5 0d 09 | ec 39 20 f1 20 c3 28 6e |.... ...|.9 . .(n|
|00001a80| 75 6d 62 65 72 25 29 2b | 22 20 4d 4f 56 20 52 22 |umber%)+|" MOV R"|
|00001a90| 3b 6c 6f 6f 70 34 25 3b | 22 2c 23 22 3b 70 61 72 |;loop4%;|",#";par|
|00001aa0| 61 6d 65 74 65 72 25 28 | 6c 6f 6f 70 34 25 29 0d |ameter%(|loop4%).|
|00001ab0| 09 f6 10 20 6e 75 6d 62 | 65 72 25 2b 3d 31 30 0d |... numb|er%+=10.|
|00001ac0| 0a 00 0e 20 6c 6f 6f 70 | 34 25 2b 3d 31 0d 0a 0a |... loop|4%+=1...|
|00001ad0| 1c 20 fd 20 70 61 72 61 | 6d 65 74 65 72 25 28 6c |. . para|meter%(l|
|00001ae0| 6f 6f 70 34 25 29 3d 2d | 31 0d 0a 14 2b 20 f1 20 |oop4%)=-|1...+ . |
|00001af0| c3 28 6e 75 6d 62 65 72 | 25 29 2b 22 20 53 57 49 |.(number|%)+" SWI|
|00001b00| 20 22 2b bd 33 34 2b 22 | 4f 53 5f 42 79 74 65 22 | "+.34+"|OS_Byte"|
|00001b10| 2b bd 33 34 0d 0a 1e 10 | 20 6e 75 6d 62 65 72 25 |+.34....| number%|
|00001b20| 2b 3d 31 30 0d 0a 28 06 | 20 e1 0d 0a 32 06 20 3a |+=10..(.| ...2. :|
|00001b30| 0d 0a 3c 14 20 dd 20 f2 | 74 69 74 6c 65 28 74 79 |..<. . .|title(ty|
|00001b40| 70 65 24 29 0d 0a 46 08 | 20 ef 32 36 0d 0a 50 0a |pe$)..F.| .26..P.|
|00001b50| 20 fb 20 31 32 39 0d 0a | 5a 13 20 f1 8a 30 2c 33 | . 129..|Z. ..0,3|
|00001b60| 30 29 89 28 31 35 39 29 | 3b 0d 0a 64 2f 20 e7 20 |0).(159)|;..d/ . |
|00001b70| 74 79 70 65 24 3d 22 4c | 4f 41 44 22 20 f1 8a 30 |type$="L|OAD" ..0|
|00001b80| 2c 33 31 29 22 20 20 46 | 69 6c 65 20 74 6f 20 6c |,31)"  F|ile to l|
|00001b90| 6f 61 64 20 3a 20 22 3b | 0d 0a 6e 2f 20 e7 20 74 |oad : ";|..n/ . t|
|00001ba0| 79 70 65 24 3d 22 53 41 | 56 45 22 20 f1 8a 30 2c |ype$="SA|VE" ..0,|
|00001bb0| 33 31 29 22 20 20 46 69 | 6c 65 20 74 6f 20 73 61 |31)"  Fi|le to sa|
|00001bc0| 76 65 20 3a 20 22 3b 0d | 0a 78 4d 20 e7 20 74 79 |ve : ";.|.xM . ty|
|00001bd0| 70 65 24 3d 22 43 4c 45 | 41 52 22 20 f1 8a 30 2c |pe$="CLE|AR" ..0,|
|00001be0| 33 31 29 22 20 20 20 20 | 20 41 72 65 20 79 6f 75 |31)"    | Are you|
|00001bf0| 20 73 75 72 65 20 79 6f | 75 20 77 69 73 68 20 74 | sure yo|u wish t|
|00001c00| 6f 20 6c 6f 73 65 20 61 | 6c 6c 20 64 61 74 61 2e |o lose a|ll data.|
|00001c10| 2e 2e 22 3b 0d 0a 82 49 | 20 e7 20 74 79 70 65 24 |..";...I| . type$|
|00001c20| 3d 22 51 55 49 54 22 20 | f1 8a 30 2c 33 31 29 22 |="QUIT" |..0,31)"|
|00001c30| 20 20 20 20 20 41 72 65 | 20 79 6f 75 20 73 75 72 |     Are| you sur|
|00001c40| 65 20 28 61 6c 6c 20 64 | 61 74 61 20 77 69 6c 6c |e (all d|ata will|
|00001c50| 20 62 65 20 6c 6f 73 74 | 29 20 3f 22 3b 0d 0a 8c | be lost|) ?";...|
|00001c60| 4c 20 e7 20 74 79 70 65 | 24 3d 22 48 45 4c 50 22 |L . type|$="HELP"|
|00001c70| 20 f1 8a 30 2c 33 31 29 | 22 20 20 20 20 20 20 20 | ..0,31)|"       |
|00001c80| 20 20 20 20 20 20 20 20 | 20 20 20 50 72 65 73 73 |        |   Press|
|00001c90| 20 3c 53 50 41 43 45 3e | 20 74 6f 20 63 6f 6e 74 | <SPACE>| to cont|
|00001ca0| 69 6e 75 65 2e 2e 2e 22 | 3b 0d 0a 96 33 20 e7 20 |inue..."|;...3 . |
|00001cb0| 74 79 70 65 24 3d 22 41 | 50 50 45 4e 44 22 20 f1 |type$="A|PPEND" .|
|00001cc0| 8a 30 2c 33 31 29 22 20 | 20 46 69 6c 65 20 74 6f |.0,31)" | File to|
|00001cd0| 20 61 70 70 65 6e 64 20 | 3a 20 22 3b 0d 0a a0 06 | append |: ";....|
|00001ce0| 20 e1 0d 0a aa 06 20 3a | 0d 0a b4 10 20 dd 20 f2 | ..... :|.... . .|
|00001cf0| 65 6e 64 74 69 74 6c 65 | 0d 0a be 13 20 f1 8a 30 |endtitle|.... ..0|
|00001d00| 2c 33 30 29 89 28 31 35 | 39 29 3b 0d 0a c8 55 20 |,30).(15|9);...U |
|00001d10| f1 8a 30 2c 33 30 29 22 | 20 20 20 20 20 20 20 46 |..0,30)"|       F|
|00001d20| 31 20 2d 20 4c 6f 61 64 | 20 20 20 20 20 20 20 46 |1 - Load|       F|
|00001d30| 32 20 2d 20 41 70 70 65 | 6e 64 20 20 20 20 20 20 |2 - Appe|nd      |
|00001d40| 46 33 20 2d 20 53 61 76 | 65 20 20 20 20 20 20 20 |F3 - Sav|e       |
|00001d50| 20 20 20 46 34 20 2d 20 | 43 6f 6d 70 69 6c 65 22 |   F4 - |Compile"|
|00001d60| 0d 0a d2 53 20 f1 8a 30 | 2c 33 31 29 22 20 20 20 |...S ..0|,31)"   |
|00001d70| 20 20 20 20 46 35 20 2d | 20 48 65 6c 70 20 20 20 |    F5 -| Help   |
|00001d80| 20 20 20 20 46 36 20 2d | 20 53 74 61 72 20 20 20 |    F6 -| Star   |
|00001d90| 20 20 20 20 20 46 37 20 | 2d 20 43 6c 65 61 72 20 |     F7 |- Clear |
|00001da0| 20 20 20 20 20 20 20 20 | 46 38 20 2d 20 51 75 69 |        |F8 - Qui|
|00001db0| 74 22 3b 0d 0a dc 0a 20 | fb 20 31 33 32 0d 0a e6 |t";.... |. 132...|
|00001dc0| 12 20 ef 32 38 2c 30 2c | 32 39 2c 37 39 2c 30 0d |. .28,0,|29,79,0.|
|00001dd0| 0a f0 06 20 e1 0d 0a fa | 06 20 3a 0d 0b 04 0c 20 |... ....|. :.... |
|00001de0| dd 20 f2 73 75 72 65 0d | 0b 0e 0b 20 73 75 72 65 |. .sure.|... sure|
|00001df0| 3d a3 0d 0b 18 13 20 f2 | 74 69 74 6c 65 28 22 51 |=..... .|title("Q|
|00001e00| 55 49 54 22 29 0d 0b 22 | 0c 20 2a 46 58 31 35 2c |UIT").."|. *FX15,|
|00001e10| 30 0d 0b 2c 21 20 f5 20 | 73 75 72 65 24 3d be 3a |0..,! . |sure$=.:|
|00001e20| fd 20 a7 22 59 79 4e 6e | 22 2c 73 75 72 65 24 29 |. ."YyNn|",sure$)|
|00001e30| 3e 30 0d 0b 36 23 20 e7 | 20 73 75 72 65 24 3d 22 |>0..6# .| sure$="|
|00001e40| 59 22 20 84 20 73 75 72 | 65 24 3d 22 79 22 20 73 |Y" . sur|e$="y" s|
|00001e50| 75 72 65 3d b9 0d 0b 40 | 0e 20 f2 65 6e 64 74 69 |ure=...@|. .endti|
|00001e60| 74 6c 65 0d 0b 4a 06 20 | e1 0d 0b 54 06 20 3a 0d |tle..J. |...T. :.|
|00001e70| 0b 5e 0d 20 dd 20 f2 63 | 6c 65 61 72 0d 0b 68 14 |.^. . .c|lear..h.|
|00001e80| 20 f2 74 69 74 6c 65 28 | 22 43 4c 45 41 52 22 29 | .title(|"CLEAR")|
|00001e90| 0d 0b 72 0c 20 2a 46 58 | 31 35 2c 30 0d 0b 7c 23 |..r. *FX|15,0..|#|
|00001ea0| 20 f5 20 63 6c 65 61 72 | 24 3d be 3a fd 20 a7 22 | . clear|$=.:. ."|
|00001eb0| 59 79 4e 6e 22 2c 63 6c | 65 61 72 24 29 3e 30 0d |YyNn",cl|ear$)>0.|
|00001ec0| 0b 86 0e 20 f2 65 6e 64 | 74 69 74 6c 65 0d 0b 90 |... .end|title...|
|00001ed0| 20 20 e7 20 63 6c 65 61 | 72 24 3d 22 4e 22 20 84 |  . clea|r$="N" .|
|00001ee0| 20 63 6c 65 61 72 24 3d | 22 6e 22 20 e1 0d 0b 9a | clear$=|"n" ....|
|00001ef0| 15 20 e3 20 6c 6f 6f 70 | 25 3d 30 20 b8 20 6d 61 |. . loop|%=0 . ma|
|00001f00| 78 25 0d 0b a4 14 20 6c | 69 6e 65 24 28 6c 6f 6f |x%.... l|ine$(loo|
|00001f10| 70 25 29 3d 22 22 0d 0b | ae 0c 20 ed 20 6c 6f 6f |p%)=""..|.. . loo|
|00001f20| 70 25 0d 0b b8 1a 20 70 | 6f 73 25 3d 30 3a 6c 69 |p%.... p|os%=0:li|
|00001f30| 6e 65 25 3d 30 3a 74 6f | 70 25 3d 30 0d 0b c2 06 |ne%=0:to|p%=0....|
|00001f40| 20 db 0d 0b cc 06 20 e1 | 0d 0b d6 06 20 3a 0d 0b | ..... .|.... :..|
|00001f50| e0 0c 20 dd 20 f2 73 74 | 61 72 0d 0b ea 06 20 db |.. . .st|ar.... .|
|00001f60| 0d 0b f4 27 20 f1 20 22 | 50 72 65 73 73 20 3c 52 |...' . "|Press <R|
|00001f70| 45 54 55 52 4e 3e 20 61 | 6c 6f 6e 65 20 74 6f 20 |ETURN> a|lone to |
|00001f80| 65 6e 64 2e 22 27 27 0d | 0b fe 06 20 f5 0d 0c 08 |end."''.|... ....|
|00001f90| 0d 20 e8 22 2a 22 63 6c | 69 24 0d 0c 12 0c 20 ff |. ."*"cl|i$.... .|
|00001fa0| 28 63 6c 69 24 29 0d 0c | 1c 0e 20 fd 20 63 6c 69 |(cli$)..|.. . cli|
|00001fb0| 24 3d 22 22 0d 0c 26 0c | 20 f2 72 65 64 72 61 77 |$=""..&.| .redraw|
|00001fc0| 0d 0c 30 06 20 e1 0d 0c | 3a 06 20 3a 0d 0c 44 0c |..0. ...|:. :..D.|
|00001fd0| 20 dd 20 f2 68 65 6c 70 | 0d 0c 4e 06 20 db 0d 0c | . .help|..N. ...|
|00001fe0| 58 56 20 f1 27 22 43 6f | 6d 70 69 6c 65 72 20 2f |XV .'"Co|mpiler /|
|00001ff0| 20 41 73 73 65 6d 62 6c | 65 72 20 45 6e 76 69 72 | Assembl|er Envir|
|00002000| 6f 6e 6d 65 6e 74 20 20 | 20 20 20 20 56 65 72 73 |onment  |    Vers|
|00002010| 69 6f 6e 20 31 2e 30 30 | 20 20 20 20 20 20 20 42 |ion 1.00|       B|
|00002020| 79 20 50 68 69 6c 6c 69 | 70 20 54 65 6d 70 6c 65 |y Philli|p Temple|
|00002030| 22 27 27 27 0d 0c 62 ea | 20 f1 22 20 54 68 69 73 |"'''..b.| ." This|
|00002040| 20 70 72 6f 67 72 61 6d | 20 61 6c 6c 6f 77 73 20 | program| allows |
|00002050| 74 68 65 20 70 72 6f 67 | 72 61 6d 6d 65 72 20 74 |the prog|rammer t|
|00002060| 6f 20 77 6f 72 6b 20 69 | 6e 20 61 6e 20 65 6e 76 |o work i|n an env|
|00002070| 69 72 6f 6e 6d 65 6e 74 | 20 77 69 74 68 6f 75 74 |ironment| without|
|00002080| 20 6c 69 6e 65 20 20 20 | 20 20 20 6e 75 6d 62 65 | line   |   numbe|
|00002090| 72 73 20 61 6e 64 20 75 | 73 69 6e 67 20 77 6f 72 |rs and u|sing wor|
|000020a0| 64 70 72 6f 63 65 73 73 | 6f 72 20 73 74 79 6c 65 |dprocess|or style|
|000020b0| 20 65 64 69 74 69 6e 67 | 2e 20 43 6f 6d 6d 65 6e | editing|. Commen|
|000020c0| 74 73 20 6f 6e 20 61 20 | 6c 69 6e 65 2c 20 6f 72 |ts on a |line, or|
|000020d0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 61 20 62 61 63 | followi|ng a bac|
|000020e0| 6b 73 6c 61 73 68 20 27 | 5c 27 2c 20 63 61 6e 20 |kslash '|\', can |
|000020f0| 62 65 20 61 64 64 65 64 | 2c 20 61 6e 64 20 77 69 |be added|, and wi|
|00002100| 6c 6c 20 62 65 20 69 67 | 6e 6f 72 65 64 20 69 6e |ll be ig|nored in|
|00002110| 20 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 2e 22 0d 0c | compila|tion."..|
|00002120| 6c 13 20 f2 74 69 74 6c | 65 28 22 48 45 4c 50 22 |l. .titl|e("HELP"|
|00002130| 29 0d 0c 76 0c 20 2a 46 | 58 31 35 2c 30 0d 0c 80 |)..v. *F|X15,0...|
|00002140| 0d 20 f5 20 fd 20 a5 3d | 33 32 0d 0c 8a 0e 20 f2 |. . . .=|32.... .|
|00002150| 65 6e 64 74 69 74 6c 65 | 0d 0c 94 0c 20 f2 72 65 |endtitle|.... .re|
|00002160| 64 72 61 77 0d 0c 9e 06 | 20 e1 0d ff             |draw....| ...    |
+--------+-------------------------+-------------------------+--------+--------+