00000000  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 00 00 00 00  |NNNNNNNNNNNN....|
00000010  00 00 00 00 00 00 00 00  f5 f5 f5 fe 4f 00 09 01  |............O...|
00000020  f7 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |.NNNNNNNNNNNNNNN|
00000030  4e 4e 4e 4e 4e 4e 4e 00  00 00 00 00 00 00 00 00  |NNNNNNN.........|
00000040  00 00 00 f5 f5 f5 fb 6c  6c 6c 6c 6c 6c 6c 6c 6c  |.......lllllllll|
00000050  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
00000140  6c 6c 6c 6c 6c 6c 6c f7  4e 4e 4e 4e 4e 4e 4e 4e  |lllllll.NNNNNNNN|
00000150  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
00000170  4e 4e 4e 4e 00 00 00 00  00 00 00 00 00 00 00 00  |NNNN............|
00000180  f5 f5 f5 fe 4f 00 0a 01  f7 4e 4e 4e 4e 4e 4e 4e  |....O....NNNNNNN|
00000190  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 00  |NNNNNNNNNNNNNNN.|
000001a0  00 00 00 00 00 00 00 00  00 00 00 f5 f5 f5 fb 6c  |...............l|
000001b0  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
000002a0  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c f7  |lllllllllllllll.|
000002b0  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
000002d0  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 00 00 00 00  |NNNNNNNNNNNN....|
000002e0  00 00 00 00 00 00 00 00  f5 f5 f5 fe 4f 00 0b 01  |............O...|
000002f0  f7 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |.NNNNNNNNNNNNNNN|
00000300  4e 4e 4e 4e 4e 4e 4e 00  00 00 00 00 00 00 00 00  |NNNNNNN.........|
00000310  00 00 00 f5 f5 f5 fb 6c  6c 6c 6c 6c 6c 6c 6c 6c  |.......lllllllll|
00000320  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
00000410  6c 6c 6c 6c 6c 6c 6c f7  4e 4e 4e 4e 4e 4e 4e 4e  |lllllll.NNNNNNNN|
00000420  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
00000440  4e 4e 4e 4e 00 00 00 00  00 00 00 00 00 00 00 00  |NNNN............|
00000450  f5 f5 f5 fe 4f 00 0c 01  f7 4e 4e 4e 4e 4e 4e 4e  |....O....NNNNNNN|
00000460  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 00  |NNNNNNNNNNNNNNN.|
00000470  00 00 00 00 00 00 00 00  00 00 00 f5 f5 f5 fb 6c  |...............l|
00000480  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
00000570  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c f7  |lllllllllllllll.|
00000580  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
000005a0  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 00 00 00 00  |NNNNNNNNNNNN....|
000005b0  00 00 00 00 00 00 00 00  f5 f5 f5 fe 4f 00 0d 01  |............O...|
000005c0  f7 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |.NNNNNNNNNNNNNNN|
000005d0  4e 4e 4e 4e 4e 4e 4e 00  00 00 00 00 00 00 00 00  |NNNNNNN.........|
000005e0  00 00 00 f5 f5 f5 fb 6c  6c 6c 6c 6c 6c 6c 6c 6c  |.......lllllllll|
000005f0  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
000006e0  6c 6c 6c 6c 6c 6c 6c f7  4e 4e 4e 4e 4e 4e 4e 4e  |lllllll.NNNNNNNN|
000006f0  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
00000710  4e 4e 4e 4e 00 00 00 00  00 00 00 00 00 00 00 00  |NNNN............|
00000720  f5 f5 f5 fe 4f 00 0e 01  f7 4e 4e 4e 4e 4e 4e 4e  |....O....NNNNNNN|
00000730  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 00  |NNNNNNNNNNNNNNN.|
00000740  00 00 00 00 00 00 00 00  00 00 00 f5 f5 f5 fb 6c  |...............l|
00000750  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
00000840  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c f7  |lllllllllllllll.|
00000850  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
00000870  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 00 00 00 00  |NNNNNNNNNNNN....|
00000880  00 00 00 00 00 00 00 00  f5 f5 f5 fe 4f 00 0f 01  |............O...|
00000890  f7 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |.NNNNNNNNNNNNNNN|
000008a0  4e 4e 4e 4e 4e 4e 4e 00  00 00 00 00 00 00 00 00  |NNNNNNN.........|
000008b0  00 00 00 f5 f5 f5 fb 6c  6c 6c 6c 6c 6c 6c 6c 6c  |.......lllllllll|
000008c0  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
000009b0  6c 6c 6c 6c 6c 6c 6c f7  4e 4e 4e 4e 4e 4e 4e 4e  |lllllll.NNNNNNNN|
000009c0  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
000009e0  4e 4e 4e 4e 00 00 00 00  00 00 00 00 00 00 00 00  |NNNN............|
000009f0  f5 f5 f5 fe 4f 00 00 01  f7 4e 4e 4e 4e 4e 4e 4e  |....O....NNNNNNN|
00000a00  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 00  |NNNNNNNNNNNNNNN.|
00000a10  00 00 00 00 00 00 00 00  00 00 00 f5 f5 f5 fb 6c  |...............l|
00000a20  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
00000b10  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c f7  |lllllllllllllll.|
00000b20  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
00000b40  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 00 00 00 00  |NNNNNNNNNNNN....|
00000b50  00 00 00 00 00 00 00 00  f5 f5 f5 fe 4f 00 01 01  |............O...|
00000b60  f7 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |.NNNNNNNNNNNNNNN|
00000b70  4e 4e 4e 4e 4e 4e 4e 00  00 00 00 00 00 00 00 00  |NNNNNNN.........|
00000b80  00 00 00 f5 f5 f5 fb 6c  6c 6c 6c 6c 6c 6c 6c 6c  |.......lllllllll|
00000b90  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
00000c80  6c 6c 6c 6c 6c 6c 6c f7  4e 4e 4e 4e 4e 4e 4e 4e  |lllllll.NNNNNNNN|
00000c90  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
00000cb0  4e 4e 4e 4e 00 00 00 00  00 00 00 00 00 00 00 00  |NNNN............|
00000cc0  f5 f5 f5 fe 4f 00 02 01  f7 4e 4e 4e 4e 4e 4e 4e  |....O....NNNNNNN|
00000cd0  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 00  |NNNNNNNNNNNNNNN.|
00000ce0  00 00 00 00 00 00 00 00  00 00 00 f5 f5 f5 fb 6c  |...............l|
00000cf0  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
00000de0  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c f7  |lllllllllllllll.|
00000df0  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
00000e10  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 00 00 00 00  |NNNNNNNNNNNN....|
00000e20  00 00 00 00 00 00 00 00  f5 f5 f5 fe 4f 00 03 01  |............O...|
00000e30  f7 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |.NNNNNNNNNNNNNNN|
00000e40  4e 4e 4e 4e 4e 4e 4e 00  00 00 00 00 00 00 00 00  |NNNNNNN.........|
00000e50  00 00 00 f5 f5 f5 fb 6c  6c 6c 6c 6c 6c 6c 6c 6c  |.......lllllllll|
00000e60  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
00000f50  6c 6c 6c 6c 6c 6c 6c f7  4e 4e 4e 4e 4e 4e 4e 4e  |lllllll.NNNNNNNN|
00000f60  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
00000f80  4e 4e 4e 4e 00 00 00 00  00 00 00 00 00 00 00 00  |NNNN............|
00000f90  f5 f5 f5 fe 4f 00 04 01  f7 4e 4e 4e 4e 4e 4e 4e  |....O....NNNNNNN|
00000fa0  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 00  |NNNNNNNNNNNNNNN.|
00000fb0  00 00 00 00 00 00 00 00  00 00 00 f5 f5 f5 fb 6c  |...............l|
00000fc0  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
000010b0  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c f7  |lllllllllllllll.|
000010c0  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
000010e0  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 00 00 00 00  |NNNNNNNNNNNN....|
000010f0  00 00 00 00 00 00 00 00  f5 f5 f5 fe 4f 00 05 01  |............O...|
00001100  f7 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |.NNNNNNNNNNNNNNN|
00001110  4e 4e 4e 4e 4e 4e 4e 00  00 00 00 00 00 00 00 00  |NNNNNNN.........|
00001120  00 00 00 f5 f5 f5 fb 6c  6c 6c 6c 6c 6c 6c 6c 6c  |.......lllllllll|
00001130  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
00001220  6c 6c 6c 6c 6c 6c 6c f7  4e 4e 4e 4e 4e 4e 4e 4e  |lllllll.NNNNNNNN|
00001230  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
00001250  4e 4e 4e 4e 00 00 00 00  00 00 00 00 00 00 00 00  |NNNN............|
00001260  f5 f5 f5 fe 4f 00 06 01  f7 4e 4e 4e 4e 4e 4e 4e  |....O....NNNNNNN|
00001270  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 00  |NNNNNNNNNNNNNNN.|
00001280  00 00 00 00 00 00 00 00  00 00 00 f5 f5 f5 fb 6c  |...............l|
00001290  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c 6c  |llllllllllllllll|
*
00001380  6c 6c 6c 6c 6c 6c 6c 6c  6c 6c 6c 6c 6c 6c 6c f7  |lllllllllllllll.|
00001390  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e 4e 4e 4e 4e  |NNNNNNNNNNNNNNNN|
*
000013b0  4e 4e 4e 4e 4e 4e 4e 4e  4e 4e 4e 4e ff 6d 61 6e  |NNNNNNNNNNNN.man|
000013c0  64 2c 59 0d 0d 34 17 53  54 41 20 63 6f 6d 6d 61  |d,Y..4.STA comma|
000013d0  6e 64 73 74 72 69 6e 67  2c 59 0d 0d 3e 19 44 45  |ndstring,Y..>.DE|
000013e0  59 3a 42 50 4c 20 73 74  6f 72 65 63 6f 6d 6d 61  |Y:BPL storecomma|
000013f0  6e 64 31 0d 0d 48 0f 4a  53 52 20 65 78 65 63 75  |nd1..H.JSR execu|
00001400  74 65 0d 0d 52 13 4a 4d  50 20 64 65 6c 65 74 65  |te..R.JMP delete|
00001410  66 69 6c 65 73 0d 0d 5c  0f 2e 64 69 72 63 6f 6d  |files..\..dircom|
00001420  6d 61 6e 64 0d 0d 66 0e  45 51 55 53 22 44 49 52  |mand..f.EQUS"DIR|
00001430  20 22 0d 0d 70 05 3a 0d  0d 7a 0c 2e 65 78 65 63  | "..p.:..z..exec|
00001440  75 74 65 0d 0d 84 16 4c  44 58 20 23 63 6f 6d 6d  |ute....LDX #comm|
00001450  61 6e 64 73 74 72 69 6e  67 0d 0d 8e 0a 4c 44 59  |andstring....LDY|
00001460  20 23 30 0d 0d 98 11 4a  53 52 20 6f 73 63 6c 69  | #0....JSR oscli|
00001470  3a 52 54 53 0d 0d a2 05  3a 0d 0d ac 11 2e 63 68  |:RTS....:.....ch|
00001480  61 6e 67 65 61 63 63 65  73 73 0d 0d b6 0f 4a 53  |angeaccess....JS|
00001490  52 20 77 69 6e 64 6f 77  33 0d 0d c0 19 4c 44 41  |R window3....LDA|
000014a0  20 23 61 63 63 65 73 73  6d 65 73 73 20 83 20 32  | #accessmess . 2|
000014b0  35 36 0d 0d ca 0b 53 54  41 20 26 46 38 0d 0d d4  |56....STA &F8...|
000014c0  19 4c 44 41 20 23 61 63  63 65 73 73 6d 65 73 73  |.LDA #accessmess|
000014d0  20 81 20 32 35 36 0d 0d  de 0b 53 54 41 20 26 46  | . 256....STA &F|
000014e0  39 0d 0d e8 0d 4a 53 52  20 70 72 69 6e 74 0d 0d  |9....JSR print..|
000014f0  f2 13 4a 53 52 20 67 65  74 66 69 6c 65 6e 61 6d  |..JSR getfilenam|
00001500  65 0d 0d fc 0a 4c 44 59  20 23 33 0d 0e 06 12 2e  |e....LDY #3.....|
00001510  73 74 6f 72 65 63 6f 6d  6d 61 6e 64 32 0d 0e 10  |storecommand2...|
00001520  14 4c 44 41 20 61 63 63  65 73 73 63 6f 6d 6d 2c  |.LDA accesscomm,|
00001530  59 0d 0e 1a 17 53 54 41  20 63 6f 6d 6d 61 6e 64  |Y....STA command|
00001540  73 74 72 69 6e 67 2c 59  0d 0e 24 19 44 45 59 3a  |string,Y..$.DEY:|
00001550  42 50 4c 20 73 74 6f 72  65 63 6f 6d 6d 61 6e 64  |BPL storecommand|
00001560  32 0d 0e 2e 0f 4a 53 52  20 65 78 65 63 75 74 65  |2....JSR execute|
00001570  0d 0e 38 13 4a 4d 50 20  64 65 6c 65 74 65 66 69  |..8.JMP deletefi|
00001580  6c 65 73 0d 0e 42 0f 2e  61 63 63 65 73 73 63 6f  |les..B..accessco|
00001590  6d 6d 0d 0e 4c 0e 45 51  55 53 22 41 43 43 2e 22  |mm..L.EQUS"ACC."|
000015a0  0d 0e 56 05 3a 0d 0e 60  10 2e 65 72 72 6f 72 6f  |..V.:..`..erroro|
000015b0  75 74 69 6e 65 0d 0e 6a  0f 2e 72 65 73 65 74 73  |utine..j..resets|
000015c0  74 61 63 6b 0d 0e 74 10  4c 44 58 20 23 26 46 46  |tack..t.LDX #&FF|
000015d0  3a 54 58 53 0d 0e 7e 0f  4a 53 52 20 77 69 6e 64  |:TXS..~.JSR wind|
000015e0  6f 77 32 0d 0e 88 18 4c  44 59 20 23 30 3a 4a 53  |ow2....LDY #0:JS|
000015f0  52 20 63 75 72 73 6f 72  6f 66 66 0d 0e 92 1b 4c  |R cursoroff....L|
00001600  44 41 20 23 65 72 72 6f  72 6d 65 73 73 61 67 65  |DA #errormessage|
00001610  20 83 20 32 35 36 0d 0e  9c 0b 53 54 41 20 26 46  | . 256....STA &F|
00001620  38 0d 0e a6 1b 4c 44 41  20 23 65 72 72 6f 72 6d  |8....LDA #errorm|
00001630  65 73 73 61 67 65 20 81  20 32 35 36 0d 0e b0 0b  |essage . 256....|
00001640  53 54 41 20 26 46 39 0d  0e ba 0d 4a 53 52 20 70  |STA &F9....JSR p|
00001650  72 69 6e 74 0d 0e c4 0f  2e 70 72 69 6e 74 65 72  |rint.....printer|
00001660  72 6f 72 0d 0e ce 0a 4c  44 59 20 23 31 0d 0e d8  |ror....LDY #1...|
00001670  0a 2e 65 72 72 6f 72 0d  0e e2 1d 4c 44 41 20 28  |..error....LDA (|
00001680  26 46 44 29 2c 59 3a 42  45 51 20 67 65 74 65 73  |&FD),Y:BEQ getes|
00001690  63 61 70 65 0d 0e ec 0e  4a 53 52 20 6f 73 77 72  |cape....JSR oswr|
000016a0  63 68 0d 0e f6 11 49 4e  59 3a 4a 4d 50 20 65 72  |ch....INY:JMP er|
000016b0  72 6f 72 0d 0f 00 0e 2e  67 65 74 65 73 63 61 70  |ror.....getescap|
000016c0  65 0d 0f 0a 0e 4a 53 52  20 6f 73 72 64 63 68 0d  |e....JSR osrdch.|
000016d0  0f 14 19 43 4d 50 20 23  32 37 3a 42 4e 45 20 67  |...CMP #27:BNE g|
000016e0  65 74 65 73 63 61 70 65  0d 0f 1e 12 4a 4d 50 20  |etescape....JMP |
000016f0  6d 65 6e 75 72 65 6e 74  72 79 0d 0f 28 05 3a 0d  |menurentry..(.:.|
00001700  0f 32 0c 2e 64 65 73 74  72 6f 79 0d 0f 3c 10 2e  |.2..destroy..<..|
00001710  7a 65 72 6f 62 75 66 66  65 72 73 0d 0f 46 12 4c  |zerobuffers..F.L|
00001720  44 58 20 23 33 34 3a 4c  44 41 20 23 30 0d 0f 50  |DX #34:LDA #0..P|
00001730  14 2e 66 6c 75 73 68 3a  53 54 41 20 26 37 30 2c  |..flush:STA &70,|
00001740  58 0d 0f 5a 11 44 45 58  3a 42 50 4c 20 66 6c 75  |X..Z.DEX:BPL flu|
00001750  73 68 0d 0f 64 0d 2e 6d  61 69 6e 6c 6f 6f 70 0d  |sh..d..mainloop.|
00001760  0f 6e 14 2e 73 61 76 65  66 69 6c 65 63 6f 75 6e  |.n..savefilecoun|
00001770  74 65 72 0d 0f 78 18 4c  44 41 20 62 6c 6f 63 6b  |ter..x.LDA block|
00001780  2b 39 3a 53 54 41 20 74  65 6d 70 0d 0f 82 1b 4c  |+9:STA temp....L|
00001790  44 41 20 62 6c 6f 63 6b  2b 31 30 3a 53 54 41 20  |DA block+10:STA |
000017a0  74 65 6d 70 2b 31 0d 0f  8c 10 2e 73 65 74 70 61  |temp+1.....setpa|
000017b0  72 61 6d 62 6c 6b 0d 0f  96 18 4c 44 41 20 23 63  |ramblk....LDA #c|
000017c0  6f 6d 6d 61 6e 64 73 74  72 69 6e 67 2b 33 0d 0f  |ommandstring+3..|
000017d0  a0 0f 53 54 41 20 62 6c  6f 63 6b 2b 31 0d 0f aa  |..STA block+1...|
000017e0  16 4c 44 41 20 23 30 3a  53 54 41 20 62 6c 6f 63  |.LDA #0:STA bloc|
000017f0  6b 2b 32 0d 0f b4 16 4c  44 41 20 23 31 3a 53 54  |k+2....LDA #1:ST|
00001800  41 20 62 6c 6f 63 6b 2b  35 0d 0f be 11 2e 72 65  |A block+5.....re|
00001810  61 64 69 72 65 63 74 6f  72 79 0d 0f c8 15 4c 44  |adirectory....LD|
00001820  58 20 23 62 6c 6f 63 6b  3a 4c 44 59 20 23 30 0d  |X #block:LDY #0.|
00001830  0f d2 15 4c 44 41 20 23  38 3a 4a 53 52 20 6f 73  |...LDA #8:JSR os|
00001840  67 62 70 62 0d 0f dc 12  2e 63 68 65 63 6b 66 6f  |gbpb.....checkfo|
00001850  72 66 69 6c 65 73 0d 0f  e6 16 4c 44 41 20 23 31  |rfiles....LDA #1|
00001860  3a 43 4d 50 20 62 6c 6f  63 6b 2b 35 0d 0f f0 0e  |:CMP block+5....|
00001870  42 4e 45 20 64 65 6c 65  74 65 0d 0f fa 10 2e 6e  |BNE delete.....n|
00001880  6f 6d 6f 72 65 73 6f 65  6e 64 0d 10 04 13 4a 4d  |omoresoend....JM|
00001890  50 20 64 65 6c 65 74 65  66 69 6c 65 73 0d 10 0e  |P deletefiles...|
000018a0  12 2e 64 65 6c 65 74 65  3a 4c 44 59 20 23 31 0d  |..delete:LDY #1.|
000018b0  10 18 12 2e 70 72 69 6e  74 66 69 6c 65 6e 61 6d  |....printfilenam|
000018c0  65 0d 10 22 19 4c 44 41  20 63 6f 6d 6d 61 6e 64  |e..".LDA command|
000018d0  73 74 72 69 6e 67 2b 33  2c 59 0d 10 2c 0e 4a 53  |string+3,Y..,.JS|
000018e0  52 20 6f 73 77 72 63 68  0d 10 36 1b 49 4e 59 3a  |R oswrch..6.INY:|
000018f0  44 45 43 20 63 6f 6d 6d  61 6e 64 73 74 72 69 6e  |DEC commandstrin|
00001900  67 2b 33 0d 10 40 15 42  4e 45 20 70 72 69 6e 74  |g+3..@.BNE print|
00001910  66 69 6c 65 6e 61 6d 65  0d 10 4a 18 4c 44 41 20  |filename..J.LDA |
00001920  23 97 22 3a 22 3a 4a 53  52 20 6f 73 77 72 63 68  |#.":":JSR oswrch|
00001930  0d 10 54 0b 2e 73 65 74  72 65 74 0d 10 5e 0b 4c  |..T..setret..^.L|
00001940  44 41 20 23 31 33 0d 10  68 19 53 54 41 20 63 6f  |DA #13..h.STA co|
00001950  6d 6d 61 6e 64 73 74 72  69 6e 67 2b 33 2c 59 0d  |mmandstring+3,Y.|
00001960  10 72 0a 4c 44 59 20 23  33 0d 10 7c 0b 2e 73 65  |.r.LDY #3..|..se|
00001970  74 64 65 6c 0d 10 86 14  4c 44 41 20 64 65 6c 63  |tdel....LDA delc|
00001980  6f 6d 6d 61 6e 64 2c 59  0d 10 90 17 53 54 41 20  |ommand,Y....STA |
00001990  63 6f 6d 6d 61 6e 64 73  74 72 69 6e 67 2c 59 0d  |commandstring,Y.|
000019a0  10 9a 12 44 45 59 3a 42  50 4c 20 73 65 74 64 65  |...DEY:BPL setde|
000019b0  6c 0d 10 a4 0a 2e 67 65  74 59 4e 0d 10 ae 0e 4a  |l.....getYN....J|
000019c0  53 52 20 6f 73 72 64 63  68 0d 10 b8 0d 2e 63 68  |SR osrdch.....ch|
000019d0  65 63 6b 65 73 63 0d 10  c2 13 43 4d 50 20 23 32  |eckesc....CMP #2|
000019e0  37 3a 42 45 51 20 65 73  63 0d 10 cc 0a 80 20 23  |7:BEQ esc..... #|
000019f0  26 44 46 0d 10 d6 1a 43  4d 50 20 23 97 22 59 22  |&DF....CMP #."Y"|
00001a00  3a 42 45 51 20 67 6f 64  65 6c 65 74 65 0d 10 e0  |:BEQ godelete...|
00001a10  15 43 4d 50 20 23 97 22  4e 22 3a 42 45 51 20 6e  |.CMP #."N":BEQ n|
00001a20  6f 74 0d 10 ea 0d 4a 4d  50 20 67 65 74 59 4e 0d  |ot....JMP getYN.|
00001a30  10 f4 0d 2e 67 6f 64 65  6c 65 74 65 0d 10 fe 18  |....godelete....|
00001a40  4c 44 41 20 23 97 22 59  22 3a 4a 53 52 20 6f 73  |LDA #."Y":JSR os|
00001a50  77 72 63 68 0d 11 08 0f  4a 53 52 20 65 78 65 63  |wrch....JSR exec|
00001a60  75 74 65 0d 11 12 17 2e  72 65 73 74 6f 72 65 66  |ute.....restoref|
00001a70  69 6c 65 63 6f 75 6e 74  65 72 0d 11 1c 18 4c 44  |ilecounter....LD|
00001a80  41 20 74 65 6d 70 3a 53  54 41 20 62 6c 6f 63 6b  |A temp:STA block|
00001a90  2b 39 0d 11 26 1b 4c 44  41 20 74 65 6d 70 2b 31  |+9..&.LDA temp+1|
00001aa0  3a 53 54 41 20 62 6c 6f  63 6b 2b 31 30 0d 11 30  |:STA block+10..0|
00001ab0  0e 4a 4d 50 20 72 65 70  65 61 74 0d 11 3a 08 2e  |.JMP repeat..:..|
00001ac0  6e 6f 74 0d 11 44 18 4c  44 41 20 23 97 22 4e 22  |not..D.LDA #."N"|
00001ad0  3a 4a 53 52 20 6f 73 77  72 63 68 0d 11 4e 0b 2e  |:JSR oswrch..N..|
00001ae0  72 65 70 65 61 74 0d 11  58 1b 4a 53 52 20 6f 73  |repeat..X.JSR os|
00001af0  6e 65 77 6c 3a 4a 4d 50  20 6d 61 69 6e 6c 6f 6f  |newl:JMP mainloo|
00001b00  70 0d 11 62 08 2e 65 73  63 0d 11 6c 12 4a 4d 50  |p..b..esc..l.JMP|
00001b10  20 6d 65 6e 75 72 65 6e  74 72 79 0d 11 76 0f 2e  | menurentry..v..|
00001b20  64 65 6c 63 6f 6d 6d 61  6e 64 0d 11 80 0e 45 51  |delcommand....EQ|
00001b30  55 53 22 44 45 4c 2e 22  0d 11 8a 05 3a 0d 11 94  |US"DEL."....:...|
00001b40  10 2e 67 65 74 66 69 6c  65 6e 61 6d 65 0d 11 9e  |..getfilename...|
00001b50  17 4c 44 59 20 23 31 3a  4a 53 52 20 63 75 72 73  |.LDY #1:JSR curs|
00001b60  6f 72 6f 6e 0d 11 a8 0a  4c 44 58 20 23 30 0d 11  |oron....LDX #0..|
00001b70  b2 0d 2e 67 65 74 69 6e  70 75 74 0d 11 bc 0e 4a  |...getinput....J|
00001b80  53 52 20 6f 73 72 64 63  68 0d 11 c6 0d 2e 63 68  |SR osrdch.....ch|
00001b90  65 63 6b 65 73 63 0d 11  d0 13 43 4d 50 20 23 32  |eckesc....CMP #2|
00001ba0  37 3a 42 45 51 20 65 73  63 0d 11 da 0b 43 4d 50  |7:BEQ esc....CMP|
00001bb0  20 23 31 33 0d 11 e4 13  42 4e 45 20 63 68 65 63  | #13....BNE chec|
00001bc0  6b 64 65 6c 65 74 65 0d  11 ee 12 2e 72 65 74 75  |kdelete.....retu|
00001bd0  72 6e 70 72 65 73 73 65  64 0d 11 f8 19 53 54 41  |rnpressed....STA|
00001be0  20 63 6f 6d 6d 61 6e 64  73 74 72 69 6e 67 2b 34  | commandstring+4|
00001bf0  2c 58 0d 12 02 13 2e 65  6e 64 72 6f 75 74 69 6e  |,X.....endroutin|
00001c00  65 3a 52 54 53 0d 12 0c  10 2e 63 68 65 63 6b 64  |e:RTS.....checkd|
00001c10  65 6c 65 74 65 0d 12 16  1a 43 4d 50 20 23 31 32  |elete....CMP #12|
00001c20  37 3a 42 4e 45 20 63 68  65 63 6b 63 68 61 72 0d  |7:BNE checkchar.|
00001c30  12 20 12 2e 64 65 6c 65  74 65 70 72 65 73 73 65  |. ..deletepresse|
00001c40  64 0d 12 2a 19 43 50 58  20 23 30 3a 42 45 51 20  |d..*.CPX #0:BEQ |
00001c50  6f 75 74 6f 66 72 61 6e  67 65 0d 12 34 1b 2e 64  |outofrange..4..d|
00001c60  65 6c 6f 6e 73 63 72 65  65 6e 3a 4a 53 52 20 6f  |elonscreen:JSR o|
00001c70  73 77 72 63 68 0d 12 3e  14 44 45 58 3a 4a 4d 50  |swrch..>.DEX:JMP|
00001c80  20 67 65 74 69 6e 70 75  74 0d 12 48 0e 2e 63 68  | getinput..H..ch|
00001c90  65 63 6b 63 68 61 72 0d  12 52 1a 43 50 58 20 23  |eckchar..R.CPX #|
00001ca0  31 34 3a 42 45 51 20 6f  75 74 6f 66 72 61 6e 67  |14:BEQ outofrang|
00001cb0  65 0d 12 5c 1a 43 4d 50  20 23 33 32 3a 42 43 43  |e..\.CMP #32:BCC|
00001cc0  20 6f 75 74 6f 66 72 61  6e 67 65 0d 12 66 19 43  | outofrange..f.C|
00001cd0  4d 50 20 23 31 32 37 3a  42 43 43 20 76 61 6c 69  |MP #127:BCC vali|
00001ce0  64 63 68 72 0d 12 70 0f  2e 6f 75 74 6f 66 72 61  |dchr..p..outofra|
00001cf0  6e 67 65 0d 12 7a 1b 2e  62 65 65 70 3a 4c 44 41  |nge..z..beep:LDA|
00001d00  20 23 37 3a 4a 53 52 20  6f 73 77 72 63 68 0d 12  | #7:JSR oswrch..|
00001d10  84 10 4a 4d 50 20 67 65  74 69 6e 70 75 74 0d 12  |..JMP getinput..|
00001d20  8e 0d 2e 76 61 6c 69 64  63 68 72 0d 12 98 1c 2e  |...validchr.....|
00001d30  70 72 69 6e 74 6f 73 63  72 65 65 6e 3a 4a 53 52  |printoscreen:JSR|
00001d40  20 6f 73 77 72 63 68 0d  12 a2 11 2e 73 61 76 65  | oswrch.....save|
00001d50  69 6e 62 75 66 66 65 72  0d 12 ac 19 53 54 41 20  |inbuffer....STA |
00001d60  63 6f 6d 6d 61 6e 64 73  74 72 69 6e 67 2b 34 2c  |commandstring+4,|
00001d70  58 0d 12 b6 14 49 4e 58  3a 4a 4d 50 20 67 65 74  |X....INX:JMP get|
00001d80  69 6e 70 75 74 0d 12 c0  05 3a 0d 12 ca 0a 2e 74  |input....:.....t|
00001d90  69 74 6c 65 0d 12 d4 1a  45 51 55 42 20 33 31 3a  |itle....EQUB 31:|
00001da0  45 51 55 42 20 31 32 3a  45 51 55 42 20 30 0d 12  |EQUB 12:EQUB 0..|
00001db0  de 1a 45 51 55 53 22 44  49 53 43 20 48 4f 55 53  |..EQUS"DISC HOUS|
00001dc0  45 4b 45 45 50 45 52 22  0d 12 e8 1a 45 51 55 42  |EKEEPER"....EQUB|
00001dd0  20 33 31 3a 45 51 55 42  20 31 32 3a 45 51 55 42  | 31:EQUB 12:EQUB|
00001de0  20 31 0d 12 f2 1a 45 51  55 53 22 7e 7e 7e 7e 20  | 1....EQUS"~~~~ |
00001df0  7e 7e 7e 7e 7e 7e 7e 7e  7e 7e 7e 22 0d 12 fc 1b  |~~~~~~~~~~~"....|
00001e00  45 51 55 42 20 33 31 3a  45 51 55 42 20 31 33 3a  |EQUB 31:EQUB 13:|
00001e10  45 51 55 42 20 33 31 0d  13 06 19 45 51 55 53 22  |EQUB 31....EQUS"|
00001e20  45 53 43 41 50 45 20 66  6f 72 20 4d 65 6e 75 22  |ESCAPE for Menu"|
00001e30  0d 13 10 0c 45 51 55 42  20 26 46 46 0d 13 1a 05  |....EQUB &FF....|
00001e40  3a 0d 13 24 10 2e 6e 65  77 64 69 73 63 6d 65 73  |:..$..newdiscmes|
00001e50  73 0d 13 2e 1a 45 51 55  42 20 33 31 3a 45 51 55  |s....EQUB 31:EQU|
00001e60  42 20 36 3a 45 51 55 42  20 31 34 0d 13 38 26 45  |B 6:EQUB 14..8&E|
00001e70  51 55 53 22 49 4e 53 45  52 54 20 44 49 53 43 20  |QUS"INSERT DISC |
00001e80  61 6e 64 20 50 52 45 53  53 20 52 45 54 55 52 4e  |and PRESS RETURN|
00001e90  22 0d 13 42 0c 45 51 55  42 20 26 46 46 0d 13 4c  |"..B.EQUB &FF..L|
00001ea0  05 3a 0d 13 56 09 2e 6d  65 6e 75 0d 13 60 1a 45  |.:..V..menu..`.E|
00001eb0  51 55 42 20 33 31 3a 45  51 55 42 20 31 38 3a 45  |QUB 31:EQUB 18:E|
00001ec0  51 55 42 20 35 0d 13 6a  0e 45 51 55 53 22 4d 45  |QUB 5..j.EQUS"ME|
00001ed0  4e 55 22 0d 13 74 1b 45  51 55 42 20 33 31 3a 45  |NU"..t.EQUB 31:E|
00001ee0  51 55 42 20 31 33 3a 45  51 55 42 20 31 30 0d 13  |QUB 13:EQUB 10..|
00001ef0  7e 16 45 51 55 53 22 31  2e 2e 2e 4e 65 77 20 44  |~.EQUS"1...New D|
00001f00  49 53 43 22 0d 13 88 1b  45 51 55 42 20 33 31 3a  |ISC"....EQUB 31:|
00001f10  45 51 55 42 20 31 33 3a  45 51 55 42 20 31 32 0d  |EQUB 13:EQUB 12.|
00001f20  13 92 1a 45 51 55 53 22  32 2e 2e 2e 44 65 6c 65  |...EQUS"2...Dele|
00001f30  74 65 20 46 69 6c 65 73  22 0d 13 9c 1b 45 51 55  |te Files"....EQU|
00001f40  42 20 33 31 3a 45 51 55  42 20 31 33 3a 45 51 55  |B 31:EQUB 13:EQU|
00001f50  42 20 31 34 0d 13 a6 1a  45 51 55 53 22 33 2e 2e  |B 14....EQUS"3..|
00001f60  2e 43 6f 6d 70 61 63 74  20 44 69 73 63 22 0d 13  |.Compact Disc"..|
00001f70  b0 0c 45 51 55 42 20 26  46 46 0d 13 ba 05 3a 0d  |..EQUB &FF....:.|
00001f80  13 c4 0f 2e 64 65 6c 65  74 65 6d 65 73 73 0d 13  |....deletemess..|
00001f90  ce 1a 45 51 55 42 20 33  31 3a 45 51 55 42 20 31  |..EQUB 31:EQUB 1|
00001fa0  34 3a 45 51 55 42 20 31  0d 13 d8 16 45 51 55 53  |4:EQUB 1....EQUS|
00001fb0  22 44 45 4c 45 54 45 20  46 49 4c 45 53 22 0d 13  |"DELETE FILES"..|
00001fc0  e2 19 45 51 55 42 20 33  31 3a 45 51 55 42 20 31  |..EQUB 31:EQUB 1|
00001fd0  3a 45 51 55 42 20 34 0d  13 ec 30 45 51 55 53 22  |:EQUB 4...0EQUS"|
00001fe0  31 2e 2e 2e 44 65 6c 65  74 65 20 66 72 6f 6d 20  |1...Delete from |
00001ff0  43 53 44 20 20 20 20 20  32 2e 2e 2e 43 68 61 6e  |CSD     2...Chan|
00002000  67 65 20 44 49 52 22 0d  13 f6 1a 45 51 55 42 20  |ge DIR"....EQUB |
00002010  33 31 3a 45 51 55 42 20  31 32 3a 45 51 55 42 20  |31:EQUB 12:EQUB |
00002020  36 0d 14 00 1b 45 51 55  53 22 33 2e 2e 2e 43 68  |6....EQUS"3...Ch|
00002030  61 6e 67 65 20 41 43 43  45 53 53 22 0d 14 0a 0c  |ange ACCESS"....|
00002040  45 51 55 42 20 26 46 46  0d 14 14 05 3a 0d 14 1e  |EQUB &FF....:...|
00002050  10 2e 64 65 6c 65 74 65  6f 72 6e 6f 74 0d 14 28  |..deleteornot..(|
00002060  19 45 51 55 42 20 33 31  3a 45 51 55 42 20 35 3a  |.EQUB 31:EQUB 5:|
00002070  45 51 55 42 20 32 0d 14  32 15 45 51 55 53 22 44  |EQUB 2..2.EQUS"D|
00002080  65 6c 65 74 65 20 59 2f  4e 3f 22 0d 14 3c 0c 45  |elete Y/N?"..<.E|
00002090  51 55 42 20 26 46 46 0d  14 46 05 3a 0d 14 50 0f  |QUB &FF..F.:..P.|
000020a0  2e 63 6f 6d 70 61 63 74  69 6e 67 0d 14 5a 1a 45  |.compacting..Z.E|
000020b0  51 55 42 20 33 31 3a 45  51 55 42 20 31 35 3a 45  |QUB 31:EQUB 15:E|
000020c0  51 55 42 20 31 0d 14 64  14 45 51 55 53 22 43 4f  |QUB 1..d.EQUS"CO|
000020d0  4d 50 41 43 54 49 4e 47  22 0d 14 6e 1a 45 51 55  |MPACTING"..n.EQU|
000020e0  42 20 33 31 3a 45 51 55  42 20 31 36 3a 45 51 55  |B 31:EQUB 16:EQU|
000020f0  42 20 34 0d 14 78 12 45  51 55 53 22 47 4f 20 59  |B 4..x.EQUS"GO Y|
00002100  2f 4e 3f 20 22 0d 14 82  0c 45 51 55 42 20 26 46  |/N? "....EQUB &F|
00002110  46 0d 14 8c 05 3a 0d 14  96 09 2e 64 6f 6e 65 0d  |F....:.....done.|
00002120  14 a0 1a 45 51 55 42 20  33 31 3a 45 51 55 42 20  |...EQUB 31:EQUB |
00002130  31 38 3a 45 51 55 42 20  31 0d 14 aa 0e 45 51 55  |18:EQUB 1....EQU|
00002140  53 22 44 6f 6e 65 22 0d  14 b4 0a 45 51 55 42 20  |S"Done"....EQUB |
00002150  37 0d 14 be 0c 45 51 55  42 20 26 46 46 0d 14 c8  |7....EQUB &FF...|
00002160  05 3a 0d 14 d2 0c 2e 64  69 72 6d 65 73 73 0d 14  |.:.....dirmess..|
00002170  dc 19 45 51 55 42 20 33  31 3a 45 51 55 42 20 34  |..EQUB 31:EQUB 4|
00002180  3a 45 51 55 42 20 31 0d  14 e6 0f 45 51 55 53 22  |:EQUB 1....EQUS"|
00002190  2a 44 49 52 20 22 0d 14  f0 0c 45 51 55 42 20 26  |*DIR "....EQUB &|
000021a0  46 46 0d 14 fa 05 3a 0d  15 04 0f 2e 61 63 63 65  |FF....:.....acce|
000021b0  73 73 6d 65 73 73 0d 15  0e 19 45 51 55 42 20 33  |ssmess....EQUB 3|
000021c0  31 3a 45 51 55 42 20 34  3a 45 51 55 42 20 31 0d  |1:EQUB 4:EQUB 1.|
000021d0  15 18 12 45 51 55 53 22  2a 41 43 43 45 53 53 20  |...EQUS"*ACCESS |
000021e0  22 0d 15 22 0c 45 51 55  42 20 26 46 46 0d 15 2c  |"..".EQUB &FF..,|
000021f0  11 2e 65 72 72 6f 72 6d  65 73 73 61 67 65 0d 15  |..errormessage..|
00002200  36 19 45 51 55 42 20 33  31 3a 45 51 55 42 20 30  |6.EQUB 31:EQUB 0|
00002210  3a 45 51 55 42 20 33 0d  15 40 11 45 51 55 53 22  |:EQUB 3..@.EQUS"|
00002220  45 52 52 4f 52 3a 20 22  0d 15 4a 0a 45 51 55 42  |ERROR: "..J.EQUB|
00002230  20 37 0d 15 54 0c 45 51  55 42 20 26 46 46 0d 15  | 7..T.EQUB &FF..|
00002240  5e 07 5d 3a ed 0d 15 68  05 3a 0d 15 72 1f 63 6f  |^.]:...h.:..r.co|
00002250  6d 6d 24 3d 22 53 41 56  45 20 21 48 4b 20 38 38  |mm$="SAVE !HK 88|
00002260  30 20 22 2b c3 7e 50 25  20 0d 15 7c 0b ff 20 63  |0 "+.~P% ..|.. c|
00002270  6f 6d 6d 24 0d 15 86 05  20 0d 15 90 1b f4 20 2a  |omm$.... ..... *|
00002280  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002290  2a 2a 2a 2a 0d 15 9a 1b  f4 20 2a 20 42 41 53 49  |****..... * BASI|
000022a0  43 20 50 61 63 6b 65 72  20 30 2e 33 20 20 2a 0d  |C Packer 0.3  *.|
000022b0  15 a4 1b f4 20 2a 20 20  62 79 20 43 68 72 69 73  |.... *  by Chris|
000022c0  20 4e 69 78 6f 6e 20 20  20 2a 0d 15 ae 1b f4 20  | Nixon   *..... |
000022d0  2a 20 28 63 29 20 45 6c  65 63 74 72 6f 6e 20 55  |* (c) Electron U|
000022e0  73 65 72 20 2a 0d 15 b8  1b f4 20 2a 2a 2a 2a 2a  |ser *..... *****|
000022f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002300  0d 15 c2 05 f4 0d 15 cc  20 eb 37 3a 70 74 72 3d  |........ .7:ptr=|
00002310  26 37 30 3a 70 74 72 31  3d 26 37 32 3a 70 74 72  |&70:ptr1=&72:ptr|
00002320  32 3d 26 37 34 0d 15 d6  26 6c 65 6e 3d 26 37 36  |2=&74...&len=&76|
00002330  3a 6c 65 6e 31 3d 26 37  37 3a 6e 75 6d 31 3d 26  |:len1=&77:num1=&|
00002340  37 38 3a 6e 75 6d 32 3d  26 37 39 0d 15 e0 26 6e  |78:num2=&79...&n|
00002350  75 6d 33 3d 26 37 41 3a  6c 6f 3d 26 37 42 3a 68  |um3=&7A:lo=&7B:h|
00002360  69 3d 26 37 43 3a 74 65  6e 74 68 6f 75 3d 26 37  |i=&7C:tenthou=&7|
00002370  44 0d 15 ea 25 74 68 6f  75 3d 26 37 45 3a 68 75  |D...%thou=&7E:hu|
00002380  6e 64 3d 26 37 46 3a 74  65 6e 3d 26 38 30 3a 6e  |nd=&7F:ten=&80:n|
00002390  75 6d 3d 26 38 31 0d 15  f4 20 73 69 7a 65 3d 26  |um=&81... size=&|
000023a0  38 32 3a 63 68 61 72 70  74 72 3d 26 38 34 3a 74  |82:charptr=&84:t|
000023b0  6f 70 3d 26 31 32 0d 15  fe 17 e3 50 41 53 53 3d  |op=&12.....PASS=|
000023c0  30 b8 32 88 32 3a 50 25  3d 26 39 30 30 0d 16 08  |0.2.2:P%=&900...|
000023d0  0d 5b 4f 50 54 20 50 41  53 53 0d 16 12 1c 4c 44  |.[OPT PASS....LD|
000023e0  41 20 23 69 6e 74 72 6f  20 83 20 32 35 36 3a 53  |A #intro . 256:S|
000023f0  54 41 20 26 35 30 0d 16  1c 1c 4c 44 41 20 23 69  |TA &50....LDA #i|
00002400  6e 74 72 6f 20 81 20 32  35 36 3a 53 54 41 20 26  |ntro . 256:STA &|
00002410  35 31 0d 16 26 19 4a 53  52 20 6d 65 73 73 61 67  |51..&.JSR messag|
00002420  65 3a 4a 53 52 20 26 46  46 45 37 0d 16 30 1c 4c  |e:JSR &FFE7..0.L|
00002430  44 41 20 23 6d 65 73 73  31 20 83 20 32 35 36 3a  |DA #mess1 . 256:|
00002440  53 54 41 20 26 35 30 0d  16 3a 1c 4c 44 41 20 23  |STA &50..:.LDA #|
00002450  6d 65 73 73 31 20 81 20  32 35 36 3a 53 54 41 20  |mess1 . 256:STA |
00002460  26 35 31 0d 16 44 23 4a  53 52 20 6d 65 73 73 61  |&51..D#JSR messa|
00002470  67 65 3a 4a 53 52 20 73  65 74 75 70 3a 4a 53 52  |ge:JSR setup:JSR|
00002480  20 73 74 72 69 70 0d 16  4e 15 4c 44 41 20 23 31  | strip..N.LDA #1|
00002490  33 3a 4a 53 52 20 26 46  46 45 45 0d 16 58 1c 4c  |3:JSR &FFEE..X.L|
000024a0  44 41 20 23 6d 65 73 73  32 20 83 20 32 35 36 3a  |DA #mess2 . 256:|
000024b0  53 54 41 20 26 35 30 0d  16 62 1c 4c 44 41 20 23  |STA &50..b.LDA #|
000024c0  6d 65 73 73 32 20 81 20  32 35 36 3a 53 54 41 20  |mess2 . 256:STA |
000024d0  26 35 31 0d 16 6c 22 4a  53 52 20 6d 65 73 73 61  |&51..l"JSR messa|
000024e0  67 65 3a 4a 53 52 20 73  65 74 75 70 3a 4a 4d 50  |ge:JSR setup:JMP|
000024f0  20 70 61 63 6b 0d 16 76  0a 2e 73 74 72 69 70 0d  | pack..v..strip.|
00002500  16 80 1d 4a 53 52 20 67  65 74 6c 65 6e 3a 42 43  |...JSR getlen:BC|
00002510  43 20 64 6f 6c 69 6e 65  3a 52 54 53 0d 16 8a 0b  |C doline:RTS....|
00002520  2e 64 6f 6c 69 6e 65 0d  16 94 17 4a 53 52 20 67  |.doline....JSR g|
00002530  65 74 63 68 61 72 3a 43  4d 50 20 23 33 32 0d 16  |etchar:CMP #32..|
00002540  9e 1f 42 4e 45 20 63 68  65 63 6b 63 6f 6c 6f 6e  |..BNE checkcolon|
00002550  3a 4a 53 52 20 66 69 6e  64 6c 65 61 64 0d 16 a8  |:JSR findlead...|
00002560  1e 42 43 43 20 6e 65 78  74 63 68 61 72 3a 4a 53  |.BCC nextchar:JS|
00002570  52 20 66 69 6e 64 74 72  61 69 6c 0d 16 b2 10 4a  |R findtrail....J|
00002580  4d 50 20 6e 65 78 74 63  68 61 72 0d 16 bc 0f 2e  |MP nextchar.....|
00002590  63 68 65 63 6b 63 6f 6c  6f 6e 0d 16 c6 1b 43 4d  |checkcolon....CM|
000025a0  50 20 23 97 22 3a 22 3a  42 4e 45 20 63 68 65 63  |P #.":":BNE chec|
000025b0  6b 73 65 6d 69 0d 16 d0  1e 4a 53 52 20 66 69 6e  |ksemi....JSR fin|
000025c0  64 63 6f 6c 6f 6e 3a 4a  4d 50 20 6e 65 78 74 63  |dcolon:JMP nextc|
000025d0  68 61 72 0d 16 da 0e 2e  63 68 65 63 6b 73 65 6d  |har.....checksem|
000025e0  69 0d 16 e4 1a 43 4d 50  20 23 97 22 3b 22 3a 42  |i....CMP #.";":B|
000025f0  4e 45 20 6e 65 78 74 63  68 61 72 0d 16 ee 10 4a  |NE nextchar....J|
00002600  53 52 20 66 69 6e 64 73  65 6d 69 0d 16 f8 0d 2e  |SR findsemi.....|
00002610  6e 65 78 74 63 68 61 72  0d 17 02 23 49 4e 43 20  |nextchar...#INC |
00002620  63 68 61 72 70 74 72 3a  4c 44 41 20 63 68 61 72  |charptr:LDA char|
00002630  70 74 72 3a 43 4d 50 20  6c 65 6e 0d 17 0c 22 42  |ptr:CMP len..."B|
00002640  43 43 20 64 6f 6c 69 6e  65 3a 43 4c 43 3a 41 44  |CC doline:CLC:AD|
00002650  43 20 70 74 72 3a 53 54  41 20 70 74 72 0d 17 16  |C ptr:STA ptr...|
00002660  1e 4c 44 41 20 70 74 72  2b 31 3a 41 44 43 20 23  |.LDA ptr+1:ADC #|
00002670  30 3a 53 54 41 20 70 74  72 2b 31 0d 17 20 0d 4a  |0:STA ptr+1.. .J|
00002680  4d 50 20 73 74 72 69 70  0d 17 2a 0b 2e 67 65 74  |MP strip..*..get|
00002690  6c 65 6e 0d 17 34 1f 4c  44 59 20 23 31 3a 4c 44  |len..4.LDY #1:LD|
000026a0  41 20 28 70 74 72 29 2c  59 3a 43 4d 50 20 23 26  |A (ptr),Y:CMP #&|
000026b0  46 46 0d 17 3e 16 42 4e  45 20 6e 6f 74 65 6e 64  |FF..>.BNE notend|
000026c0  3a 53 45 43 3a 52 54 53  0d 17 48 0b 2e 6e 6f 74  |:SEC:RTS..H..not|
000026d0  65 6e 64 0d 17 52 22 4c  44 59 20 23 33 3a 4c 44  |end..R"LDY #3:LD|
000026e0  41 20 28 70 74 72 29 2c  59 3a 53 54 41 20 6c 65  |A (ptr),Y:STA le|
000026f0  6e 3a 49 4e 59 0d 17 5c  17 53 54 59 20 63 68 61  |n:INY..\.STY cha|
00002700  72 70 74 72 3a 43 4c 43  3a 52 54 53 0d 17 66 0c  |rptr:CLC:RTS..f.|
00002710  2e 67 65 74 63 68 61 72  0d 17 70 1f 4c 44 59 20  |.getchar..p.LDY |
00002720  63 68 61 72 70 74 72 3a  4c 44 41 20 28 70 74 72  |charptr:LDA (ptr|
00002730  29 2c 59 3a 52 54 53 0d  17 7a 0d 2e 66 69 6e 64  |),Y:RTS..z..find|
00002740  6c 65 61 64 0d 17 84 1b  49 4e 43 20 63 68 61 72  |lead....INC char|
00002750  70 74 72 3a 4a 53 52 20  67 65 74 63 68 61 72 0d  |ptr:JSR getchar.|
00002760  17 8e 18 44 45 43 20 63  68 61 72 70 74 72 3a 43  |...DEC charptr:C|
00002770  4d 50 20 23 26 38 30 0d  17 98 19 42 43 53 20 6c  |MP #&80....BCS l|
00002780  65 61 64 66 6f 75 6e 64  3a 53 45 43 3a 52 54 53  |eadfound:SEC:RTS|
00002790  0d 17 a2 0e 2e 6c 65 61  64 66 6f 75 6e 64 0d 17  |.....leadfound..|
000027a0  ac 18 4a 53 52 20 63 6f  6d 70 72 65 73 73 3a 43  |..JSR compress:C|
000027b0  4c 43 3a 52 54 53 0d 17  b6 0e 2e 66 69 6e 64 74  |LC:RTS.....findt|
000027c0  72 61 69 6c 0d 17 c0 25  4c 44 41 20 63 68 61 72  |rail...%LDA char|
000027d0  70 74 72 3a 43 4d 50 20  23 34 3a 42 4e 45 20 74  |ptr:CMP #4:BNE t|
000027e0  72 61 69 6c 31 3a 52 54  53 0d 17 ca 0b 2e 74 72  |rail1:RTS.....tr|
000027f0  61 69 6c 31 0d 17 d4 1b  44 45 43 20 63 68 61 72  |ail1....DEC char|
00002800  70 74 72 3a 4a 53 52 20  67 65 74 63 68 61 72 0d  |ptr:JSR getchar.|
00002810  17 de 18 49 4e 43 20 63  68 61 72 70 74 72 3a 43  |...INC charptr:C|
00002820  4d 50 20 23 26 38 30 0d  17 e8 16 42 43 53 20 74  |MP #&80....BCS t|
00002830  72 61 69 6c 66 6f 75 6e  64 3a 52 54 53 0d 17 f2  |railfound:RTS...|
00002840  0f 2e 74 72 61 69 6c 66  6f 75 6e 64 0d 17 fc 10  |..trailfound....|
00002850  4a 4d 50 20 63 6f 6d 70  72 65 73 73 0d 18 06 0e  |JMP compress....|
00002860  2e 66 69 6e 64 63 6f 6c  6f 6e 0d 18 10 1b 44 45  |.findcolon....DE|
00002870  43 20 63 68 61 72 70 74  72 3a 4a 53 52 20 67 65  |C charptr:JSR ge|
00002880  74 63 68 61 72 0d 18 1a  18 49 4e 43 20 63 68 61  |tchar....INC cha|
00002890  72 70 74 72 3a 43 4d 50  20 23 26 46 35 0d 18 24  |rptr:CMP #&F5..$|
000028a0  16 42 45 51 20 63 6f 6c  6f 6e 66 6f 75 6e 64 3a  |.BEQ colonfound:|
000028b0  52 54 53 0d 18 2e 0f 2e  63 6f 6c 6f 6e 66 6f 75  |RTS.....colonfou|
000028c0  6e 64 0d 18 38 10 4a 4d  50 20 63 6f 6d 70 72 65  |nd..8.JMP compre|
000028d0  73 73 0d 18 42 0d 2e 66  69 6e 64 73 65 6d 69 0d  |ss..B..findsemi.|
000028e0  18 4c 1b 49 4e 43 20 63  68 61 72 70 74 72 3a 4a  |.L.INC charptr:J|
000028f0  53 52 20 67 65 74 63 68  61 72 0d 18 56 18 44 45  |SR getchar..V.DE|
00002900  43 20 63 68 61 72 70 74  72 3a 43 4d 50 20 23 26  |C charptr:CMP #&|
00002910  38 41 0d 18 60 1f 42 4e  45 20 66 69 6e 64 71 75  |8A..`.BNE findqu|
00002920  6f 74 65 31 3a 4a 4d 50  20 63 6f 6d 70 72 65 73  |ote1:JMP compres|
00002930  73 0d 18 6a 0f 2e 66 69  6e 64 71 75 6f 74 65 31  |s..j..findquote1|
00002940  0d 18 74 1c 43 4d 50 20  23 33 34 3a 42 45 51 20  |..t.CMP #34:BEQ |
00002950  63 6f 6d 70 72 65 73 73  3a 52 54 53 0d 18 7e 0d  |compress:RTS..~.|
00002960  2e 63 6f 6d 70 72 65 73  73 0d 18 88 22 44 45 43  |.compress..."DEC|
00002970  20 6c 65 6e 3a 4c 44 59  20 23 33 3a 4c 44 41 20  | len:LDY #3:LDA |
00002980  28 70 74 72 29 2c 59 3a  53 45 43 0d 18 92 1a 53  |(ptr),Y:SEC....S|
00002990  42 43 20 23 31 3a 53 54  41 20 28 70 74 72 29 2c  |BC #1:STA (ptr),|
000029a0  59 3a 43 4c 43 0d 18 9c  20 4c 44 41 20 63 68 61  |Y:CLC... LDA cha|
000029b0  72 70 74 72 3a 41 44 43  20 70 74 72 3a 53 54 41  |rptr:ADC ptr:STA|
000029c0  20 70 74 72 31 0d 18 a6  1f 4c 44 41 20 70 74 72  | ptr1....LDA ptr|
000029d0  2b 31 3a 41 44 43 20 23  30 3a 53 54 41 20 70 74  |+1:ADC #0:STA pt|
000029e0  72 31 2b 31 0d 18 b0 0b  2e 73 71 75 61 73 68 0d  |r1+1.....squash.|
000029f0  18 ba 1b 4c 44 59 20 23  31 3a 4c 44 41 20 28 70  |...LDY #1:LDA (p|
00002a00  74 72 31 29 2c 59 3a 44  45 59 0d 18 c4 22 53 54  |tr1),Y:DEY..."ST|
00002a10  41 20 28 70 74 72 31 29  2c 59 3a 49 4e 43 20 70  |A (ptr1),Y:INC p|
00002a20  74 72 31 3a 42 4e 45 20  73 6b 69 70 0d 18 ce 0e  |tr1:BNE skip....|
00002a30  49 4e 43 20 70 74 72 31  2b 31 0d 18 d8 09 2e 73  |INC ptr1+1.....s|
00002a40  6b 69 70 0d 18 e2 23 4c  44 41 20 70 74 72 31 2b  |kip...#LDA ptr1+|
00002a50  31 3a 43 4d 50 20 74 6f  70 2b 31 3a 42 4e 45 20  |1:CMP top+1:BNE |
00002a60  73 71 75 61 73 68 0d 18  ec 23 4c 44 41 20 70 74  |squash...#LDA pt|
00002a70  72 31 3a 43 4d 50 20 74  6f 70 3a 42 4e 45 20 73  |r1:CMP top:BNE s|
00002a80  71 75 61 73 68 3a 53 45  43 0d 18 f6 24 4c 44 41  |quash:SEC...$LDA|
00002a90  20 74 6f 70 3a 53 42 43  20 23 31 3a 53 54 41 20  | top:SBC #1:STA |
00002aa0  74 6f 70 3a 4c 44 41 20  74 6f 70 2b 31 0d 19 00  |top:LDA top+1...|
00002ab0  18 53 42 43 20 23 30 3a  53 54 41 20 74 6f 70 2b  |.SBC #0:STA top+|
00002ac0  31 3a 52 54 53 0d 19 0a  0a 2e 73 65 74 75 70 0d  |1:RTS.....setup.|
00002ad0  19 14 24 4c 44 41 20 23  30 3a 53 54 41 20 70 74  |..$LDA #0:STA pt|
00002ae0  72 3a 4c 44 41 20 26 31  38 3a 53 54 41 20 70 74  |r:LDA &18:STA pt|
00002af0  72 2b 31 0d 19 1e 07 52  54 53 0d 19 28 09 2e 70  |r+1....RTS..(..p|
00002b00  61 63 6b 0d 19 32 1f 4c  44 59 20 23 31 3a 4c 44  |ack..2.LDY #1:LD|
00002b10  41 20 28 70 74 72 29 2c  59 3a 43 4d 50 20 23 32  |A (ptr),Y:CMP #2|
00002b20  35 35 0d 19 3c 16 42 4e  45 20 63 6f 6e 74 3a 4a  |55..<.BNE cont:J|
00002b30  4d 50 20 26 46 46 45 37  0d 19 46 09 2e 63 6f 6e  |MP &FFE7..F..con|
00002b40  74 0d 19 50 22 4c 44 59  20 23 33 3a 4c 44 41 20  |t..P"LDY #3:LDA |
00002b50  28 70 74 72 29 2c 59 3a  53 54 41 20 6c 65 6e 3a  |(ptr),Y:STA len:|
00002b60  43 4c 43 0d 19 5a 25 41  44 43 20 70 74 72 3a 53  |CLC..Z%ADC ptr:S|
00002b70  54 41 20 70 74 72 31 3a  4c 44 41 20 70 74 72 2b  |TA ptr1:LDA ptr+|
00002b80  31 3a 41 44 43 20 23 30  0d 19 64 22 53 54 41 20  |1:ADC #0..d"STA |
00002b90  70 74 72 31 2b 31 3a 4c  44 59 20 23 31 3a 4c 44  |ptr1+1:LDY #1:LD|
00002ba0  41 20 28 70 74 72 31 29  2c 59 0d 19 6e 20 43 4d  |A (ptr1),Y..n CM|
00002bb0  50 20 23 32 35 35 3a 42  4e 45 20 63 6f 6e 74 31  |P #255:BNE cont1|
00002bc0  3a 4a 4d 50 20 26 46 46  45 37 0d 19 78 0a 2e 63  |:JMP &FFE7..x..c|
00002bd0  6f 6e 74 31 0d 19 82 1e  4c 44 59 20 23 32 3a 4c  |ont1....LDY #2:L|
00002be0  44 41 20 28 70 74 72 31  29 2c 59 3a 53 54 41 20  |DA (ptr1),Y:STA |
00002bf0  6c 6f 0d 19 8c 25 44 45  59 3a 4c 44 41 20 28 70  |lo...%DEY:LDA (p|
00002c00  74 72 31 29 2c 59 3a 53  54 41 20 68 69 3a 4a 53  |tr1),Y:STA hi:JS|
00002c10  52 20 70 72 69 6e 74 0d  19 96 20 4c 44 59 20 23  |R print... LDY #|
00002c20  33 3a 4c 44 41 20 28 70  74 72 31 29 2c 59 3a 53  |3:LDA (ptr1),Y:S|
00002c30  54 41 20 6c 65 6e 31 0d  19 a0 66 43 4c 43 3a 41  |TA len1...fCLC:A|
00002c40  44 43 20 6c 65 6e 3a 53  54 41 20 73 69 7a 65 3a  |DC len:STA size:|
00002c50  4c 44 41 20 23 30 3a 41  44 43 20 23 30 3a 53 54  |LDA #0:ADC #0:ST|
00002c60  41 20 73 69 7a 65 2b 31  3a 4c 44 41 20 73 69 7a  |A size+1:LDA siz|
00002c70  65 2b 31 3a 42 4e 45 20  6e 65 77 6c 69 6e 65 3a  |e+1:BNE newline:|
00002c80  4c 44 41 20 73 69 7a 65  3a 43 4d 50 20 23 32 33  |LDA size:CMP #23|
00002c90  38 3a 42 43 53 20 6e 65  77 6c 69 6e 65 0d 19 aa  |8:BCS newline...|
00002ca0  1c 49 4e 59 3a 4c 44 41  20 28 70 74 72 29 2c 59  |.INY:LDA (ptr),Y|
00002cb0  3a 43 4d 50 20 23 26 44  43 0d 19 b4 23 42 45 51  |:CMP #&DC...#BEQ|
00002cc0  20 6e 65 77 6c 69 6e 65  3a 43 4d 50 20 23 34 32  | newline:CMP #42|
00002cd0  3a 42 45 51 20 6e 65 77  6c 69 6e 65 0d 19 be 25  |:BEQ newline...%|
00002ce0  43 4d 50 20 23 26 46 34  3a 42 45 51 20 6e 65 77  |CMP #&F4:BEQ new|
00002cf0  6c 69 6e 65 3a 4c 44 41  20 28 70 74 72 31 29 2c  |line:LDA (ptr1),|
00002d00  59 0d 19 c8 18 43 4d 50  20 23 26 44 44 3a 42 45  |Y....CMP #&DD:BE|
00002d10  51 20 6e 65 77 6c 69 6e  65 0d 19 d2 0e 2e 63 68  |Q newline.....ch|
00002d20  65 63 6b 44 41 54 41 0d  19 dc 17 43 4d 50 20 23  |eckDATA....CMP #|
00002d30  26 44 43 3a 42 45 51 20  72 65 6a 65 63 74 0d 19  |&DC:BEQ reject..|
00002d40  e6 22 50 48 41 3a 4a 53  52 20 66 69 6e 64 49 46  |."PHA:JSR findIF|
00002d50  3a 50 4c 41 3a 42 43 53  20 6e 65 77 6c 69 6e 65  |:PLA:BCS newline|
00002d60  0d 19 f0 0d 2e 63 68 65  63 6b 52 45 4d 0d 19 fa  |.....checkREM...|
00002d70  19 43 4d 50 20 23 26 46  34 3a 42 4e 45 20 63 68  |.CMP #&F4:BNE ch|
00002d80  65 63 6b 52 45 46 0d 1a  04 0b 2e 72 65 6a 65 63  |eckREF.....rejec|
00002d90  74 0d 1a 0e 23 4a 53 52  20 66 69 6e 64 65 6e 64  |t...#JSR findend|
00002da0  6c 69 6e 65 3a 4a 53 52  20 66 69 6e 64 65 6e 64  |line:JSR findend|
00002db0  6c 69 6e 65 0d 1a 18 0c  4a 4d 50 20 70 61 63 6b  |line....JMP pack|
00002dc0  0d 1a 22 0d 2e 63 68 65  63 6b 52 45 46 0d 1a 2c  |.."..checkREF..,|
00002dd0  1c 4a 53 52 20 66 69 6e  64 47 4f 54 4f 3a 42 43  |.JSR findGOTO:BC|
00002de0  53 20 6e 65 77 6c 69 6e  65 0d 1a 36 1c 4a 53 52  |S newline..6.JSR|
00002df0  20 63 6f 6e 63 61 74 65  6e 61 74 65 3a 4a 4d 50  | concatenate:JMP|
00002e00  20 70 61 63 6b 0d 1a 40  0c 2e 6e 65 77 6c 69 6e  | pack..@..newlin|
00002e10  65 0d 1a 4a 1f 43 4c 43  3a 4c 44 41 20 6c 65 6e  |e..J.CLC:LDA len|
00002e20  3a 41 44 43 20 70 74 72  3a 53 54 41 20 70 74 72  |:ADC ptr:STA ptr|
00002e30  0d 1a 54 1e 4c 44 41 20  70 74 72 2b 31 3a 41 44  |..T.LDA ptr+1:AD|
00002e40  43 20 23 30 3a 53 54 41  20 70 74 72 2b 31 0d 1a  |C #0:STA ptr+1..|
00002e50  5e 0c 4a 4d 50 20 70 61  63 6b 0d 1a 68 10 2e 63  |^.JMP pack..h..c|
00002e60  6f 6e 63 61 74 65 6e 61  74 65 0d 1a 72 23 43 4c  |oncatenate..r#CL|
00002e70  43 3a 4c 44 41 20 6c 65  6e 3a 41 44 43 20 6c 65  |C:LDA len:ADC le|
00002e80  6e 31 3a 53 45 43 3a 53  42 43 20 23 33 0d 1a 7c  |n1:SEC:SBC #3..||
00002e90  20 4c 44 59 20 23 33 3a  53 54 41 20 28 70 74 72  | LDY #3:STA (ptr|
00002ea0  29 2c 59 3a 4c 44 41 20  23 97 22 3a 22 0d 1a 86  |),Y:LDA #.":"...|
00002eb0  24 4c 44 59 20 23 30 3a  53 54 41 20 28 70 74 72  |$LDY #0:STA (ptr|
00002ec0  31 29 2c 59 3a 43 4c 43  3a 4c 44 41 20 70 74 72  |1),Y:CLC:LDA ptr|
00002ed0  31 0d 1a 90 25 41 44 43  20 23 31 3a 53 54 41 20  |1...%ADC #1:STA |
00002ee0  70 74 72 31 3a 4c 44 41  20 70 74 72 31 2b 31 3a  |ptr1:LDA ptr1+1:|
00002ef0  41 44 43 20 23 30 0d 1a  9a 19 53 54 41 20 70 74  |ADC #0....STA pt|
00002f00  72 31 2b 31 3a 4a 53 52  20 70 61 63 6b 69 74 0d  |r1+1:JSR packit.|
00002f10  1a a4 19 4a 53 52 20 70  61 63 6b 69 74 3a 4a 4d  |...JSR packit:JM|
00002f20  50 20 70 61 63 6b 69 74  0d 1a ae 10 2e 66 69 6e  |P packit.....fin|
00002f30  64 65 6e 64 6c 69 6e 65  0d 1a b8 22 4c 44 59 20  |dendline..."LDY |
00002f40  23 33 3a 4c 44 41 20 28  70 74 72 29 2c 59 3a 43  |#3:LDA (ptr),Y:C|
00002f50  4c 43 3a 41 44 43 20 70  74 72 0d 1a c2 1c 53 54  |LC:ADC ptr....ST|
00002f60  41 20 70 74 72 3a 4c 44  41 20 70 74 72 2b 31 3a  |A ptr:LDA ptr+1:|
00002f70  41 44 43 20 23 30 0d 1a  cc 11 53 54 41 20 70 74  |ADC #0....STA pt|
00002f80  72 2b 31 3a 52 54 53 0d  1a d6 0b 2e 70 61 63 6b  |r+1:RTS.....pack|
00002f90  69 74 0d 1a e0 15 4c 44  41 20 70 74 72 31 3a 53  |it....LDA ptr1:S|
00002fa0  54 41 20 70 74 72 32 0d  1a ea 19 4c 44 41 20 70  |TA ptr2....LDA p|
00002fb0  74 72 31 2b 31 3a 53 54  41 20 70 74 72 32 2b 31  |tr1+1:STA ptr2+1|
00002fc0  0d 1a f4 0a 2e 73 68 75  6e 74 0d 1a fe 1b 4c 44  |.....shunt....LD|
00002fd0  59 20 23 31 3a 4c 44 41  20 28 70 74 72 32 29 2c  |Y #1:LDA (ptr2),|
00002fe0  59 3a 44 45 59 0d 1b 08  23 53 54 41 20 28 70 74  |Y:DEY...#STA (pt|
00002ff0  72 32 29 2c 59 3a 49 4e  43 20 70 74 72 32 3a 42  |r2),Y:INC ptr2:B|
00003000  4e 45 20 73 6b 69 70 31  0d 1b 12 0e 49 4e 43 20  |NE skip1....INC |
00003010  70 74 72 32 2b 31 0d 1b  1c 0a 2e 73 6b 69 70 31  |ptr2+1.....skip1|
00003020  0d 1b 26 22 4c 44 41 20  70 74 72 32 2b 31 3a 43  |..&"LDA ptr2+1:C|
00003030  4d 50 20 74 6f 70 2b 31  3a 42 4e 45 20 73 68 75  |MP top+1:BNE shu|
00003040  6e 74 0d 1b 30 1e 4c 44  41 20 70 74 72 32 3a 43  |nt..0.LDA ptr2:C|
00003050  4d 50 20 74 6f 70 3a 42  4e 45 20 73 68 75 6e 74  |MP top:BNE shunt|
00003060  0d 1b 3a 1e 53 45 43 3a  4c 44 41 20 74 6f 70 3a  |..:.SEC:LDA top:|
00003070  53 42 43 20 23 31 3a 53  54 41 20 74 6f 70 0d 1b  |SBC #1:STA top..|
00003080  44 22 4c 44 41 20 74 6f  70 2b 31 3a 53 42 43 20  |D"LDA top+1:SBC |
00003090  23 30 3a 53 54 41 20 74  6f 70 2b 31 3a 52 54 53  |#0:STA top+1:RTS|
000030a0  0d 1b 4e 0b 2e 66 69 6e  64 49 46 0d 1b 58 0a 4c  |..N..findIF..X.L|
000030b0  44 59 20 23 34 0d 1b 62  0b 2e 69 66 6c 6f 6f 70  |DY #4..b..ifloop|
000030c0  0d 1b 6c 24 4c 44 41 20  28 70 74 72 29 2c 59 3a  |..l$LDA (ptr),Y:|
000030d0  43 4d 50 20 23 26 45 37  3a 42 45 51 20 66 6f 75  |CMP #&E7:BEQ fou|
000030e0  6e 64 49 46 0d 1b 76 20  43 4d 50 20 23 34 32 3a  |ndIF..v CMP #42:|
000030f0  42 45 51 20 66 6f 75 6e  64 49 46 3a 43 4d 50 20  |BEQ foundIF:CMP |
00003100  23 26 46 34 0d 1b 80 26  42 45 51 20 66 6f 75 6e  |#&F4...&BEQ foun|
00003110  64 49 46 3a 49 4e 59 3a  43 50 59 20 6c 65 6e 3a  |dIF:INY:CPY len:|
00003120  42 43 43 20 69 66 6c 6f  6f 70 0d 1b 8a 0b 43 4c  |BCC ifloop....CL|
00003130  43 3a 52 54 53 0d 1b 94  0c 2e 66 6f 75 6e 64 49  |C:RTS.....foundI|
00003140  46 0d 1b 9e 0b 53 45 43  3a 52 54 53 0d 1b a8 0d  |F....SEC:RTS....|
00003150  2e 66 69 6e 64 47 4f 54  4f 0d 1b b2 22 4c 44 59  |.findGOTO..."LDY|
00003160  20 23 31 3a 4c 44 41 20  28 70 74 72 31 29 2c 59  | #1:LDA (ptr1),Y|
00003170  3a 53 54 41 20 68 69 3a  49 4e 59 0d 1b bc 1f 4c  |:STA hi:INY....L|
00003180  44 41 20 28 70 74 72 31  29 2c 59 3a 53 54 41 20  |DA (ptr1),Y:STA |
00003190  6c 6f 3a 4c 44 41 20 23  36 34 0d 1b c6 1e 53 54  |lo:LDA #64....ST|
000031a0  41 20 6e 75 6d 31 3a 53  54 41 20 6e 75 6d 32 3a  |A num1:STA num2:|
000031b0  53 54 41 20 6e 75 6d 33  0d 1b d0 21 4c 44 41 20  |STA num3...!LDA |
000031c0  6c 6f 3a 80 20 23 36 33  3a 84 41 20 6e 75 6d 32  |lo:. #63:.A num2|
000031d0  3a 53 54 41 20 6e 75 6d  32 0d 1b da 21 4c 44 41  |:STA num2...!LDA|
000031e0  20 68 69 3a 80 20 23 36  33 3a 84 41 20 6e 75 6d  | hi:. #63:.A num|
000031f0  33 3a 53 54 41 20 6e 75  6d 33 0d 1b e4 1d 4c 44  |3:STA num3....LD|
00003200  41 20 6c 6f 3a 80 20 23  31 39 32 3a 82 20 23 36  |A lo:. #192:. #6|
00003210  34 3a 4c 53 52 20 41 0d  1b ee 1a 4c 53 52 20 41  |4:LSR A....LSR A|
00003220  3a 84 41 20 6e 75 6d 31  3a 53 54 41 20 6e 75 6d  |:.A num1:STA num|
00003230  31 0d 1b f8 1d 4c 44 41  20 68 69 3a 80 20 23 31  |1....LDA hi:. #1|
00003240  39 32 3a 82 20 23 36 34  3a 4c 53 52 20 41 0d 1c  |92:. #64:LSR A..|
00003250  02 1d 4c 53 52 20 41 3a  4c 53 52 20 41 3a 4c 53  |..LSR A:LSR A:LS|
00003260  52 20 41 3a 84 41 20 6e  75 6d 31 0d 1c 0c 1c 53  |R A:.A num1....S|
00003270  54 41 20 6e 75 6d 31 3a  4c 44 41 20 23 30 3a 53  |TA num1:LDA #0:S|
00003280  54 41 20 70 74 72 32 0d  1c 16 16 4c 44 41 20 26  |TA ptr2....LDA &|
00003290  31 38 3a 53 54 41 20 70  74 72 32 2b 31 0d 1c 20  |18:STA ptr2+1.. |
000032a0  0e 2e 66 69 6e 64 6d 61  74 63 68 0d 1c 2a 20 4c  |..findmatch..* L|
000032b0  44 59 20 23 30 3a 4c 44  41 20 28 70 74 72 32 29  |DY #0:LDA (ptr2)|
000032c0  2c 59 3a 43 4d 50 20 23  26 38 44 0d 1c 34 1d 42  |,Y:CMP #&8D..4.B|
000032d0  4e 45 20 6e 65 78 74 3a  49 4e 59 3a 4c 44 41 20  |NE next:INY:LDA |
000032e0  28 70 74 72 32 29 2c 59  0d 1c 3e 26 43 4d 50 20  |(ptr2),Y..>&CMP |
000032f0  6e 75 6d 31 3a 42 4e 45  20 6e 65 78 74 3a 49 4e  |num1:BNE next:IN|
00003300  59 3a 4c 44 41 20 28 70  74 72 32 29 2c 59 0d 1c  |Y:LDA (ptr2),Y..|
00003310  48 26 43 4d 50 20 6e 75  6d 32 3a 42 4e 45 20 6e  |H&CMP num2:BNE n|
00003320  65 78 74 3a 49 4e 59 3a  4c 44 41 20 28 70 74 72  |ext:INY:LDA (ptr|
00003330  32 29 2c 59 0d 1c 52 1d  43 4d 50 20 6e 75 6d 33  |2),Y..R.CMP num3|
00003340  3a 42 4e 45 20 6e 65 78  74 3a 53 45 43 3a 52 54  |:BNE next:SEC:RT|
00003350  53 0d 1c 5c 09 2e 6e 65  78 74 0d 1c 66 20 43 4c  |S..\..next..f CL|
00003360  43 3a 4c 44 41 20 70 74  72 32 3a 41 44 43 20 23  |C:LDA ptr2:ADC #|
00003370  31 3a 53 54 41 20 70 74  72 32 0d 1c 70 20 4c 44  |1:STA ptr2..p LD|
00003380  41 20 70 74 72 32 2b 31  3a 41 44 43 20 23 30 3a  |A ptr2+1:ADC #0:|
00003390  53 54 41 20 70 74 72 32  2b 31 0d 1c 7a 24 43 4d  |STA ptr2+1..z$CM|
000033a0  50 20 74 6f 70 2b 31 3a  42 4e 45 20 66 69 6e 64  |P top+1:BNE find|
000033b0  6d 61 74 63 68 3a 4c 44  41 20 70 74 72 32 0d 1c  |match:LDA ptr2..|
000033c0  84 21 43 4d 50 20 74 6f  70 3a 42 4e 45 20 66 69  |.!CMP top:BNE fi|
000033d0  6e 64 6d 61 74 63 68 3a  43 4c 43 3a 52 54 53 0d  |ndmatch:CLC:RTS.|
000033e0  1c 8e 0a 2e 70 72 69 6e  74 0d 1c 98 1e 4c 44 41  |....print....LDA|
000033f0  20 23 38 3a 4a 53 52 20  26 46 46 45 45 3a 4a 53  | #8:JSR &FFEE:JS|
00003400  52 20 26 46 46 45 45 0d  1c a2 21 4a 53 52 20 26  |R &FFEE...!JSR &|
00003410  46 46 45 45 3a 4a 53 52  20 26 46 46 45 45 3a 4a  |FFEE:JSR &FFEE:J|
00003420  53 52 20 26 46 46 45 45  0d 1c ac 1f 4c 44 41 20  |SR &FFEE....LDA |
00003430  23 30 3a 53 54 41 20 74  65 6e 74 68 6f 75 3a 53  |#0:STA tenthou:S|
00003440  54 41 20 74 68 6f 75 0d  1c b6 14 53 54 41 20 68  |TA thou....STA h|
00003450  75 6e 64 3a 53 54 41 20  74 65 6e 0d 1c c0 0e 2e  |und:STA ten.....|
00003460  64 6f 74 65 6e 74 68 6f  75 0d 1c ca 1f 53 45 43  |dotenthou....SEC|
00003470  3a 4c 44 41 20 6c 6f 3a  53 42 43 20 23 31 30 30  |:LDA lo:SBC #100|
00003480  30 30 20 83 20 32 35 36  0d 1c d4 23 53 54 41 20  |00 . 256...#STA |
00003490  6e 75 6d 3a 4c 44 41 20  68 69 3a 53 42 43 20 23  |num:LDA hi:SBC #|
000034a0  31 30 30 30 30 20 81 20  32 35 36 0d 1c de 24 42  |10000 . 256...$B|
000034b0  43 43 20 64 6f 74 68 6f  75 3a 53 54 41 20 68 69  |CC dothou:STA hi|
000034c0  3a 4c 44 41 20 6e 75 6d  3a 53 54 41 20 6c 6f 0d  |:LDA num:STA lo.|
000034d0  1c e8 1d 49 4e 43 20 74  65 6e 74 68 6f 75 3a 4a  |...INC tenthou:J|
000034e0  4d 50 20 64 6f 74 65 6e  74 68 6f 75 0d 1c f2 0b  |MP dotenthou....|
000034f0  2e 64 6f 74 68 6f 75 0d  1c fc 1e 53 45 43 3a 4c  |.dothou....SEC:L|
00003500  44 41 20 6c 6f 3a 53 42  43 20 23 31 30 30 30 20  |DA lo:SBC #1000 |
00003510  83 20 32 35 36 0d 1d 06  22 53 54 41 20 6e 75 6d  |. 256..."STA num|
00003520  3a 4c 44 41 20 68 69 3a  53 42 43 20 23 31 30 30  |:LDA hi:SBC #100|
00003530  30 20 81 20 32 35 36 0d  1d 10 24 42 43 43 20 64  |0 . 256...$BCC d|
00003540  6f 68 75 6e 64 3a 53 54  41 20 68 69 3a 4c 44 41  |ohund:STA hi:LDA|
00003550  20 6e 75 6d 3a 53 54 41  20 6c 6f 0d 1d 1a 17 49  | num:STA lo....I|
00003560  4e 43 20 74 68 6f 75 3a  4a 4d 50 20 64 6f 74 68  |NC thou:JMP doth|
00003570  6f 75 0d 1d 24 0b 2e 64  6f 68 75 6e 64 0d 1d 2e  |ou..$..dohund...|
00003580  1f 53 45 43 3a 4c 44 41  20 6c 6f 3a 53 42 43 20  |.SEC:LDA lo:SBC |
00003590  23 31 30 30 3a 53 54 41  20 6e 75 6d 0d 1d 38 22  |#100:STA num..8"|
000035a0  4c 44 41 20 68 69 3a 53  42 43 20 23 30 3a 42 43  |LDA hi:SBC #0:BC|
000035b0  43 20 64 6f 74 65 6e 3a  53 54 41 20 68 69 0d 1d  |C doten:STA hi..|
000035c0  42 26 4c 44 41 20 6e 75  6d 3a 53 54 41 20 6c 6f  |B&LDA num:STA lo|
000035d0  3a 49 4e 43 20 68 75 6e  64 3a 4a 4d 50 20 64 6f  |:INC hund:JMP do|
000035e0  68 75 6e 64 0d 1d 4c 0a  2e 64 6f 74 65 6e 0d 1d  |hund..L..doten..|
000035f0  56 1e 53 45 43 3a 4c 44  41 20 6c 6f 3a 53 42 43  |V.SEC:LDA lo:SBC|
00003600  20 23 31 30 3a 53 54 41  20 6e 75 6d 0d 1d 60 23  | #10:STA num..`#|
00003610  4c 44 41 20 68 69 3a 53  42 43 20 23 30 3a 42 43  |LDA hi:SBC #0:BC|
00003620  43 20 6f 75 74 70 75 74  3a 53 54 41 20 68 69 0d  |C output:STA hi.|
00003630  1d 6a 24 4c 44 41 20 6e  75 6d 3a 53 54 41 20 6c  |.j$LDA num:STA l|
00003640  6f 3a 49 4e 43 20 74 65  6e 3a 4a 4d 50 20 64 6f  |o:INC ten:JMP do|
00003650  74 65 6e 0d 1d 74 0b 2e  6f 75 74 70 75 74 0d 1d  |ten..t..output..|
00003660  7e 25 4c 44 41 20 74 65  6e 74 68 6f 75 3a 43 4c  |~%LDA tenthou:CL|
00003670  43 3a 41 44 43 20 23 34  38 3a 4a 53 52 20 26 46  |C:ADC #48:JSR &F|
00003680  46 45 45 0d 1d 88 22 4c  44 41 20 74 68 6f 75 3a  |FEE..."LDA thou:|
00003690  43 4c 43 3a 41 44 43 20  23 34 38 3a 4a 53 52 20  |CLC:ADC #48:JSR |
000036a0  26 46 46 45 45 0d 1d 92  22 4c 44 41 20 68 75 6e  |&FFEE..."LDA hun|
000036b0  64 3a 43 4c 43 3a 41 44  43 20 23 34 38 3a 4a 53  |d:CLC:ADC #48:JS|
000036c0  52 20 26 46 46 45 45 0d  1d 9c 21 4c 44 41 20 74  |R &FFEE...!LDA t|
000036d0  65 6e 3a 43 4c 43 3a 41  44 43 20 23 34 38 3a 4a  |en:CLC:ADC #48:J|
000036e0  53 52 20 26 46 46 45 45  0d 1d a6 20 4c 44 41 20  |SR &FFEE... LDA |
000036f0  6c 6f 3a 43 4c 43 3a 41  44 43 20 23 34 38 3a 4a  |lo:CLC:ADC #48:J|
00003700  4d 50 20 26 46 46 45 45  0d 1d b0 0c 2e 6d 65 73  |MP &FFEE.....mes|
00003710  73 61 67 65 0d 1d ba 0a  4c 44 59 20 23 30 0d 1d  |sage....LDY #0..|
00003720  c4 0d 2e 6d 65 73 73 6c  6f 6f 70 0d 1d ce 24 4c  |...messloop...$L|
00003730  44 41 20 28 26 35 30 29  2c 59 3a 43 4d 50 20 23  |DA (&50),Y:CMP #|
00003740  31 33 3a 42 45 51 20 65  78 69 74 6d 65 73 73 0d  |13:BEQ exitmess.|
00003750  1d d8 1e 4a 53 52 20 26  46 46 45 45 3a 49 4e 59  |...JSR &FFEE:INY|
00003760  3a 4a 4d 50 20 6d 65 73  73 6c 6f 6f 70 0d 1d e2  |:JMP messloop...|
00003770  0d 2e 65 78 69 74 6d 65  73 73 0d 1d ec 07 52 54  |..exitmess....RT|
00003780  53 0d 1d f6 3e 2e 69 6e  74 72 6f 3a 4f 50 54 20  |S...>.intro:OPT |
00003790  a4 65 71 75 73 28 22 42  41 53 49 43 20 70 61 63  |.equs("BASIC pac|
000037a0  6b 65 72 20 76 65 72 73  69 6f 6e 20 31 2e 33 20  |ker version 1.3 |
000037b0  28 63 29 20 32 39 2f 36  2f 31 39 39 31 22 29 0d  |(c) 29/6/1991").|
000037c0  1e 00 2b 2e 6d 65 73 73  31 3a 4f 50 54 20 a4 65  |..+.mess1:OPT .e|
000037d0  71 75 73 28 22 53 74 72  69 70 70 69 6e 67 20 73  |qus("Stripping s|
000037e0  70 61 63 65 73 2e 2e 2e  22 29 0d 1e 0a 2b 2e 6d  |paces...")...+.m|
000037f0  65 73 73 32 3a 4f 50 54  20 a4 65 71 75 73 28 22  |ess2:OPT .equs("|
00003800  50 61 63 6b 69 6e 67 20  6c 69 6e 65 3a 20 30 30  |Packing line: 00|
00003810  30 30 30 22 29 0d 1e 14  07 5d 3a ed 0d 1e 1e 21  |000")....]:....!|
00003820  24 26 37 30 30 30 3d 22  53 41 56 45 20 21 50 41  |$&7000="SAVE !PA|
00003830  43 4b 20 39 30 30 20 22  2b c3 7e 50 25 0d 1e 28  |CK 900 "+.~P%..(|
00003840  16 58 25 3d 30 3a 59 25  3d 26 37 30 3a d6 26 46  |.X%=0:Y%=&70:.&F|
00003850  46 46 37 0d 1e 32 05 f9  0d 1e 3c 0f dd 20 a4 65  |FF7..2....<.. .e|
00003860  71 75 73 28 41 24 29 0d  1e 46 16 24 50 25 3d 41  |qus(A$)..F.$P%=A|
00003870  24 3a 50 25 3d 50 25 2b  a9 41 24 2b 31 0d 1e 50  |$:P%=P%+.A$+1..P|
00003880  09 3d 50 41 53 53 0d ff  25 3d 50 41 53 53 0d ff  |.=PASS..%=PASS..|
00003890  25 00 83 00 00 00 00 a2  58 74 72 31 00 87 24 00  |%.......Xtr1..$.|
000038a0  00 00 bb 58 74 72 32 00  87 28 00 00 00 0b 59 6b  |...Xtr2..(....Yk|
000038b0  69 70 76 65 63 00 8c 12  10 00 00 00 00 61 74 63  |ipvec........atc|
000038c0  68 00 8c 12 a0 00 00 00  00 6f 72 64 6c 70 00 8c  |h........ordlp..|
000038d0  13 00 00 00 42 59 79 74  65 6c 70 00 8c 13 70 00  |....BYytelp...p.|
000038e0  00 f0 58 65 78 74 77 6f  72 64 00 8c 14 90 00 00  |..Xextword......|
000038f0