00000000: 01 1C 08 1C 0A 00 DE 9C 00 1C 1C 14 00 8B C2 28 |...............(|
00000010: 32 31 35 29 B3 B1 31 32 38 A7 37 30 00 32 1C 1E |215)..128.70.2..|
00000020: 00 DE 35 3A FE 1A 30 2C 30 2C 37 39 2C 32 34 3A |..5:..0,0,79,24:|
00000030: FE 25 00 8E 1C 28 00 99 22 93 05 12 0E 20 20 20 |.%...(..".... |
00000040: 20 20 20 20 20 20 20 C6 49 4C 45 20 D2 45 41 44 | .ILE .EAD|
00000050: 45 52 2F D0 52 49 4E 54 45 52 2F C3 4F 4E 56 45 |ER/.RINTER/.ONVE|
00000060: 52 54 45 52 20 20 20 20 20 20 20 20 20 20 20 42 |RTER B|
00000070: 59 20 CA 4F 48 4E 20 C3 52 4F 4F 4B 53 48 41 4E |Y .OHN .ROOKSHAN|
00000080: 4B 20 20 20 20 20 20 20 20 20 20 20 20 22 00 97 |K "..|
00000090: 1C 32 00 89 31 30 30 00 9D 1C 3C 00 90 00 B3 1C |.2..100...<.....|
000000A0: 46 00 DE 30 3A FE 1A 30 2C 30 2C 33 39 2C 32 34 |F..0:..0,0,39,24|
000000B0: 3A FE 26 00 E7 1C 50 00 99 22 93 12 05 0E 20 20 |:.&...P..".... |
000000C0: 20 20 20 20 C6 49 4C 45 20 D2 45 41 44 45 52 2F | .ILE .EADER/|
000000D0: D0 52 49 4E 54 45 52 2F C3 4F 4E 56 45 52 54 45 |.RINTER/.ONVERTE|
000000E0: 52 20 20 20 20 20 22 00 18 1D 5A 00 99 22 20 20 |R "...Z.." |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 42 59 20 CA 4F | BY .O|
00000100: 48 4E 20 C3 52 4F 4F 4B 53 48 41 4E 4B 20 20 20 |HN .ROOKSHANK |
00000110: 20 20 20 20 20 20 99 22 00 37 1D 64 00 99 22 9E | .".7.d..".|
00000120: 09 11 11 20 20 20 20 20 20 20 D3 45 4C 45 43 54 |... .ELECT|
00000130: 20 CF 4E 45 3A 99 22 00 58 1D 6E 00 99 22 11 11 | .NE:.".X.n.."..|
00000140: 09 31 3A 20 D2 45 41 44 20 46 49 4C 45 20 54 4F |.1: .EAD FILE TO|
00000150: 20 53 43 52 45 45 4E 22 00 78 1D 78 00 99 22 09 | SCREEN".x.x..".|
00000160: 32 3A 20 D3 45 4E 44 20 46 49 4C 45 20 54 4F 20 |2: .END FILE TO |
00000170: 50 52 49 4E 54 45 52 22 00 9A 1D 82 00 99 22 09 |PRINTER"......".|
00000180: 33 3A 20 C5 58 50 41 4E 44 20 46 49 4C 45 20 54 |3: .XPAND FILE T|
00000190: 4F 20 50 52 49 4E 54 45 52 22 00 B9 1D 8C 00 99 |O PRINTER"......|
000001A0: 22 09 34 3A 20 C5 58 50 41 4E 44 20 46 49 4C 45 |".4: .XPAND FILE|
000001B0: 20 54 4F 20 44 49 53 4B 22 00 D6 1D 96 00 99 22 | TO DISK"......"|
000001C0: 09 35 3A 20 D2 45 41 44 20 50 52 4F 47 52 41 4D |.5: .EAD PROGRAM|
000001D0: 20 C4 CF C3 53 22 00 0A 1E A0 00 57 B2 C2 28 32 | ...S".....W..(2|
000001E0: 31 35 29 3A 57 24 B2 22 38 30 20 43 4F 4C 55 4D |15):W$."80 COLUM|
000001F0: 4E 53 22 3A 8B 57 B2 31 32 38 A7 57 24 B2 22 34 |NS":.W.128.W$."4|
00000200: 30 20 43 4F 4C 55 4D 4E 53 22 00 22 1E AA 00 99 |0 COLUMNS"."....|
00000210: 22 09 36 3A 20 C3 48 41 4E 47 45 20 54 4F 20 22 |".6: .HANGE TO "|
00000220: 57 24 00 41 1E B4 00 99 22 09 37 3A 20 D2 45 41 |W$.A....".7: .EA|
00000230: 44 20 44 49 53 4B 20 44 49 52 45 43 54 4F 52 59 |D DISK DIRECTORY|
00000240: 22 00 59 1E BE 00 99 22 09 38 3A 20 C5 58 49 54 |".Y....".8: .XIT|
00000250: 20 50 52 4F 47 52 41 4D 22 00 CB 1E C8 00 8B C2 | PROGRAM".......|
00000260: 28 32 38 31 36 29 B3 B1 33 32 B0 C2 28 32 38 31 |(2816)..32..(281|
00000270: 37 29 B3 B1 31 36 33 A7 99 22 11 11 09 20 20 CC |7)..163.."... .|
00000280: 4F 41 44 49 4E 47 20 D2 45 41 44 45 52 2E CD CC |OADING .EADER...|
00000290: 2E 2E 2E 22 3A FE 11 22 52 45 41 44 45 52 2E 4D |...":.."READER.M|
000002A0: 4C 22 2C 42 30 2C 50 32 38 31 36 3A 99 22 91 09 |L",B0,P2816:."..|
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 20 20 20 20 20 20 20 22 00 F9 1E D2 00 | ".....|
000002D0: 97 33 32 34 39 2C 30 3A 97 33 32 35 30 2C 34 3A |.3249,0:.3250,4:|
000002E0: 97 33 30 33 31 2C 32 31 3A 97 33 32 35 31 2C 30 |.3031,21:.3251,0|
000002F0: 3A 97 32 38 32 35 2C 32 34 00 0C 1F DC 00 A0 32 |:.2825,24......2|
00000300: 3A A0 31 35 3A A0 34 3A 58 B2 44 53 00 28 1F E6 |:.15:.4:X.DS.(..|
00000310: 00 A1 F9 49 24 3A 8B 49 24 B3 22 31 22 B0 49 24 |...I$:.I$."1".I$|
00000320: B1 22 38 22 A7 32 33 30 00 57 1F F0 00 49 B2 C5 |."8".230.W...I..|
00000330: 28 49 24 29 3A 91 49 89 33 30 30 2C 34 30 30 2C |(I$):.I.300,400,|
00000340: 34 31 30 2C 35 30 30 2C 32 39 30 2C 32 37 30 2C |410,500,290,270,|
00000350: 35 36 30 2C 32 36 30 00 5F 1F FA 00 89 32 30 00 |560,260._....20.|
00000360: 68 1F 04 01 FE 0F 3A 80 00 B5 1F 0E 01 8B 57 B2 |h.....:.......W.|
00000370: 31 32 38 A7 FE 26 3A DE 30 3A 99 22 93 22 3A DE |128..&:.0:.".":.|
00000380: 35 3A 99 22 93 11 11 11 11 11 11 11 11 11 11 D3 |5:."............|
00000390: 57 49 54 43 48 20 4D 4F 4E 49 54 4F 52 20 54 4F |WITCH MONITOR TO|
000003A0: 20 34 30 20 43 4F 4C 55 4D 4E 20 4D 4F 44 45 21 | 40 COLUMN MODE!|
000003B0: 22 3A 89 37 30 00 FC 1F 18 01 DE 35 3A 99 22 93 |":.70......5:.".|
000003C0: 22 3A DE 30 3A 99 22 93 11 11 11 11 11 11 11 11 |":.0:.".........|
000003D0: 11 11 D3 57 49 54 43 48 20 4D 4F 4E 49 54 4F 52 |...WITCH MONITOR|
000003E0: 20 54 4F 20 38 30 20 43 4F 4C 55 4D 4E 20 4D 4F | TO 80 COLUMN MO|
000003F0: 44 45 21 22 3A FE 0B 32 3A 89 33 30 00 15 20 22 |DE!":..2:.30.. "|
00000400: 01 46 24 B2 22 52 45 41 44 45 52 2E 44 4F 43 22 |.F$."READER.DOC"|
00000410: 3A 89 33 31 30 00 3A 20 2C 01 46 24 B2 22 22 3A |:.310.: ,.F$."":|
00000420: 85 22 11 11 C6 49 4C 45 4E 41 4D 45 22 3B 46 24 |."...ILENAME";F$|
00000430: 3A 8B 46 24 B2 22 22 A7 32 30 00 50 20 36 01 FE |:.F$."".20.P 6..|
00000440: 0F 3A FE 0D 23 32 2C 28 46 24 29 3A 8D 35 39 30 |.:..#2,(F$):.590|
00000450: 00 65 20 40 01 8B C2 28 32 31 35 29 B3 B1 31 32 |.e @...(215)..12|
00000460: 38 A7 33 35 30 00 CC 20 4A 01 99 22 13 11 11 11 |8.350.. J.."....|
00000470: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000480: 11 11 11 11 11 05 20 20 20 20 20 20 20 C6 37 20 |...... .7 |
00000490: 2D 20 C3 4F 4E 54 49 4E 55 45 20 52 45 41 44 49 |- .ONTINUE READI|
000004A0: 4E 47 20 46 49 4C 45 2E 20 20 20 20 20 20 20 20 |NG FILE. |
000004B0: 20 20 C6 31 20 2D 20 C1 42 4F 52 54 20 52 45 41 | .1 - .BORT REA|
000004C0: 44 49 4E 47 20 46 49 4C 45 13 99 22 00 E5 20 54 |DING FILE..".. T|
000004D0: 01 FE 1A 30 2C 30 2C 37 39 2C 32 33 3A 97 32 38 |...0,0,79,23:.28|
000004E0: 32 35 2C 32 33 00 01 21 5E 01 99 22 93 22 3B 3A |25,23..!^..".";:|
000004F0: FE 02 31 35 3A 9E 32 38 31 36 3A FE 02 30 3A FE |..15:.2816:..0:.|
00000500: 0F 00 37 21 68 01 8B C2 28 33 32 35 31 29 B2 38 |..7!h...(3251).8|
00000510: 38 A7 32 30 3A D5 99 22 05 C5 4E 44 20 4F 46 20 |8.20:.."..ND OF |
00000520: 46 49 4C 45 2E 20 D0 52 45 53 53 20 41 4E 59 20 |FILE. .RESS ANY |
00000530: 4B 45 59 2E 2E 2E 22 00 4B 21 72 01 A1 49 24 3A |KEY...".K!r..I$:|
00000540: 8B 49 24 B3 B1 22 22 A7 33 37 30 00 5E 21 7C 01 |.I$.."".370.^!|.|
00000550: A1 49 24 3A 8B 49 24 B2 22 22 A7 33 38 30 00 66 |.I$:.I$."".380.f|
00000560: 21 86 01 89 32 30 00 74 21 90 01 50 B2 32 31 3A |!...20.t!..P.21:|
00000570: 89 34 32 30 00 81 21 9A 01 50 B2 32 3A 89 34 32 |.420..!..P.2:.42|
00000580: 30 00 A6 21 A4 01 46 24 B2 22 22 3A 85 22 11 11 |0..!..F$."":."..|
00000590: C6 49 4C 45 4E 41 4D 45 22 3B 46 24 3A 8B 46 24 |.ILENAME";F$:.F$|
000005A0: B2 22 22 A7 32 30 00 BC 21 AE 01 FE 0F 3A FE 0D |."".20..!....:..|
000005B0: 23 32 2C 28 46 24 29 3A 8D 35 39 30 00 F4 21 B8 |#2,(F$):.590..!.|
000005C0: 01 99 22 11 C9 4E 50 55 54 20 53 45 43 4F 4E 44 |.."..NPUT SECOND|
000005D0: 41 52 59 20 41 44 44 52 45 53 53 20 46 4F 52 20 |ARY ADDRESS FOR |
000005E0: 50 52 49 4E 54 45 52 20 20 20 37 9D 9D 9D 22 3B |PRINTER 7...";|
000005F0: 3A 85 53 41 00 24 22 C2 01 99 22 11 D4 55 52 4E |:.SA.$"..."..URN|
00000600: 20 4F 4E 20 50 52 49 4E 54 45 52 20 41 4E 44 20 | ON PRINTER AND |
00000610: 50 52 45 53 53 20 D2 C5 D4 D5 D2 CE 22 3A 97 32 |PRESS ......":.2|
00000620: 30 38 2C 30 00 49 22 CC 01 99 22 28 D0 52 45 53 |08,0.I"..."(.RES|
00000630: 53 20 41 4E 59 20 4F 54 48 45 52 20 4B 45 59 20 |S ANY OTHER KEY |
00000640: 54 4F 20 45 58 49 54 29 22 00 5C 22 D6 01 A1 49 |TO EXIT)".\"...I|
00000650: 24 3A 8B 49 24 B2 22 22 A7 34 37 30 00 6E 22 E0 |$:.I$."".470.n".|
00000660: 01 8B 49 24 B3 B1 C7 28 31 33 29 A7 32 30 00 9F |..I$...(13).20..|
00000670: 22 EA 01 9F 34 2C 34 2C 53 41 3A FE 02 30 3A 97 |"...4,4,SA:..0:.|
00000680: 33 30 33 31 2C 50 3A FE 02 31 35 3A 9E 32 39 37 |3031,P:..15:.297|
00000690: 37 3A FE 02 30 3A 98 34 3A A0 34 3A 89 32 30 00 |7:..0:.4:.4:.20.|
000006A0: D1 22 F4 01 4F 46 24 B2 22 22 3A 85 22 11 11 C5 |."..OF$."":."...|
000006B0: 58 49 53 54 49 4E 47 20 46 49 4C 45 20 4E 41 4D |XISTING FILE NAM|
000006C0: 45 22 3B 4F 46 24 3A 8B 4F 46 24 B2 22 22 A7 32 |E";OF$:.OF$."".2|
000006D0: 30 00 04 23 FE 01 4E 46 24 B2 22 22 3A 85 22 11 |0..#..NF$."":.".|
000006E0: 11 C3 4F 4E 56 45 52 54 45 44 20 46 49 4C 45 20 |..ONVERTED FILE |
000006F0: 4E 41 4D 45 22 3B 4E 46 24 3A 8B 4E 46 24 B2 22 |NAME";NF$:.NF$."|
00000700: 22 A7 32 30 00 23 23 08 02 97 33 32 35 30 2C 33 |".20.##...3250,3|
00000710: 3A FE 0F 3A FE 0D 23 32 2C 28 4F 46 24 29 3A 8D |:..:..#2,(OF$):.|
00000720: 35 39 30 00 39 23 12 02 FE 0D 23 33 2C 28 4E 46 |590.9#....#3,(NF|
00000730: 24 29 2C 57 3A 8D 35 39 30 00 67 23 1C 02 99 22 |$),W:.590.g#..."|
00000740: 11 05 D7 52 49 54 49 4E 47 20 4E 45 57 20 46 49 |...RITING NEW FI|
00000750: 4C 45 20 22 C7 28 33 34 29 4E 46 24 C7 28 33 34 |LE ".(34)NF$.(34|
00000760: 29 22 2E 2E 2E 99 22 00 90 23 26 02 97 33 30 33 |)"...."..#&..303|
00000770: 31 2C 32 3A FE 02 31 35 3A 9E 32 39 37 37 3A FE |1,2:..15:.2977:.|
00000780: 02 30 3A A0 32 3A A0 33 3A A0 31 35 3A 89 32 30 |.0:.2:.3:.15:.20|
00000790: 00 BA 23 30 02 99 22 93 22 3B 3A FE 15 3A 8D 35 |..#0..".";:..:.5|
000007A0: 39 30 3A EE 3A 99 22 05 D0 52 45 53 53 20 41 4E |90:.:."..RESS AN|
000007B0: 59 20 4B 45 59 2E 2E 2E 9A 22 00 CE 23 3A 02 A1 |Y KEY...."..#:..|
000007C0: 49 24 3A 8B 49 24 B3 B1 22 22 A7 35 37 30 00 E6 |I$:.I$.."".570..|
000007D0: 23 44 02 A1 49 24 3A 8B 49 24 B2 22 22 A7 35 38 |#D..I$:.I$."".58|
000007E0: 30 3A D5 89 32 30 00 F2 23 4E 02 8B 44 53 B2 30 |0:..20..#N..DS.0|
000007F0: A7 8E 00 1A 24 58 02 99 22 11 11 05 C4 49 53 4B |....$X.."....ISK|
00000800: 20 45 52 52 4F 52 21 22 3A 99 44 53 24 3B C7 28 | ERROR!":.DS$;.(|
00000810: 37 29 3A FE 0B 34 3A 89 32 30 00 00 00 |7):..4:.20... |
..............B(215)..128.70.2....5:..0,
0,79,24:.%...(..".... FILE READ
ER/PRINTER/CONVERTER BY JOHN C
ROOKSHANK "...2..100...<.....
F..0:..0,0,39,24:.&...P..".... FILE
READER/PRINTER/CONVERTER "...Z.."
BY JOHN CROOKSHANK ."
.7.D..".... SELECT ONE:.".X.N.."..
.1: READ FILE TO SCREEN".X.X..".2: SEND
FILE TO PRINTER"......".3: EXPAND FILE T
O PRINTER"......".4: EXPAND FILE TO DISK
".V....".5: READ PROGRAM DOCS"... .W.B(2
15):W$."80 COLUMNS":.W.128.W$."40 COLUMN
S"."....".6: CHANGE TO "W$.A....".7: REA
D DISK DIRECTORY".Y....".8: EXIT PROGRAM
".K.H..B(2816)..32.B(2817)..163.."... L
OADING READER.ML...":.."READER.ML",B0,P2
816:.".. "...R.
.3249,0:.3250,4:.3031,21:.3251,0:.2825,2
4..... 2: 15: 4:X.DS.(.....I$:.I$."1".I$
."8".230.W...I.E(I$):.I.300,400,410,500,
290,270,560,260._....20.H.....:.......W.
128..&:.0:.".":.5:."...........SWITCH MO
NITOR TO 40 COLUMN MODE!":.70......5:.".
":.0:."...........SWITCH MONITOR TO 80 C
OLUMN MODE!":..2:.30.. ".F$."READER.DOC"
:.310.: ,.F$."":."..FILENAME";F$:.F$."".
20.P 6...:..#2,(F$):.590.E @..B(215)..12
8.350.L J.."..........................
F7 - CONTINUE READING FILE.
F1 - ABORT READING FILE..".. T...0,0,7
9,23:.2825,23..!^..".";:..15:.2816:..0:.
..7!H..B(3251).88.20:U.".END OF FILE. PR
ESS ANY KEY...".K!R..I$:.I$.."".370.^!|.
.I$:.I$."".380.F!...20.T!..P.21:.420..!.
.P.2:.420..!..F$."":."..FILENAME";F$:.F$
."".20..!....:..#2,(F$):.590..!...".INPU
T SECONDARY ADDRESS FOR PRINTER 7...";
:.SA.$"B..".TURN ON PRINTER AND PRESS RE
TURN":.208,0.I"L.."(PRESS ANY OTHER KEY
TO EXIT)".\"V..I$:.I$."".470.N"...I$..G(
13).20.."...4,4,SA:..0:.3031,P:..15:.297
7:..0:.4: 4:.20.Q"..OF$."":."..EXISTING
FILE NAME";OF$:.OF$."".20..#..NF$."":.".
.CONVERTED FILE NAME";NF$:.NF$."".20.##.
..3250,3:..:..#2,(OF$):.590.9#....#3,(NF
$),W:.590.G#..."..WRITING NEW FILE "G(34
)NF$G(34)"...."..#&..3031,2:..15:.2977:.
.0: 2: 3: 15:.20..#0..".";:..:.590:.:.".
PRESS ANY KEY....".N#:..I$:.I$.."".570..
#D..I$:.I$."".580:U.20..#N..DS.0....$X..
"...DISK ERROR!":.DS$;G(7):..4:.20...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL