00000000: 00 20 54 4F 20 53 41 56 45 54 45 58 54 20 3A 46 |. TO SAVETEXT :F|
00000010: 49 4C 45 0D 20 2E 4F 50 54 49 4F 4E 20 22 53 41 |ILE. .OPTION "SA|
00000020: 56 45 20 30 20 31 0D 20 53 41 56 45 20 3A 46 49 |VE 0 1. SAVE :FI|
00000030: 4C 45 0D 20 2E 4F 50 54 49 4F 4E 20 22 53 41 56 |LE. .OPTION "SAV|
00000040: 45 20 30 20 30 0D 45 4E 44 0D 0D 54 4F 20 52 45 |E 0 0.END..TO RE|
00000050: 41 44 54 45 58 54 20 3A 46 49 4C 45 0D 20 2E 4F |ADTEXT :FILE. .O|
00000060: 50 54 49 4F 4E 20 22 52 45 41 44 20 30 20 31 0D |PTION "READ 0 1.|
00000070: 20 52 45 41 44 20 3A 46 49 4C 45 0D 20 2E 4F 50 | READ :FILE. .OP|
00000080: 54 49 4F 4E 20 22 52 45 41 44 20 30 20 30 0D 45 |TION "READ 0 0.E|
00000090: 4E 44 0D 0D 54 4F 20 50 52 49 4E 54 46 49 4C 45 |ND..TO PRINTFILE|
000000A0: 20 3A 46 49 4C 45 0D 20 2E 4F 50 54 49 4F 4E 20 | :FILE. .OPTION |
000000B0: 22 50 52 49 4E 54 45 52 20 31 20 37 0D 20 50 52 |"PRINTER 1 7. PR|
000000C0: 49 4E 54 45 52 0D 20 53 48 4F 57 46 49 4C 45 20 |INTER. SHOWFILE |
000000D0: 3A 46 49 4C 45 0D 20 4E 4F 50 52 49 4E 54 45 52 |:FILE. NOPRINTER|
000000E0: 0D 20 2E 4F 50 54 49 4F 4E 20 22 50 52 49 4E 54 |. .OPTION "PRINT|
000000F0: 45 52 20 31 20 30 0D 45 4E 44 0D 0D 54 4F 20 53 |ER 1 0.END..TO S|
00000100: 48 4F 57 54 45 58 54 0D 20 50 52 49 4E 54 2E 4D |HOWTEXT. PRINT.M|
00000110: 45 4D 20 38 31 39 32 20 28 20 2E 45 58 41 4D 49 |EM 8192 ( .EXAMI|
00000120: 4E 45 20 3A 45 4E 44 42 55 46 20 29 20 2B 20 32 |NE :ENDBUF ) + 2|
00000130: 35 36 20 2A 20 28 20 2E 45 58 41 4D 49 4E 45 20 |56 * ( .EXAMINE |
00000140: 3A 45 4E 44 42 55 46 20 2B 20 31 20 29 0D 45 4E |:ENDBUF + 1 ).EN|
00000150: 44 0D 0D 54 4F 20 50 52 49 4E 54 54 45 58 54 0D |D..TO PRINTTEXT.|
00000160: 20 2E 4F 50 54 49 4F 4E 20 22 50 52 49 4E 54 45 | .OPTION "PRINTE|
00000170: 52 20 31 20 37 0D 20 50 52 49 4E 54 45 52 0D 20 |R 1 7. PRINTER. |
00000180: 53 48 4F 57 54 45 58 54 0D 20 4E 4F 50 52 49 4E |SHOWTEXT. NOPRIN|
00000190: 54 45 52 0D 20 2E 4F 50 54 49 4F 4E 20 22 50 52 |TER. .OPTION "PR|
000001A0: 49 4E 54 45 52 20 31 20 30 0D 45 4E 44 0D 0D 54 |INTER 1 0.END..T|
000001B0: 4F 20 50 52 49 4E 54 2E 4D 45 4D 20 3A 46 52 4F |O PRINT.MEM :FRO|
000001C0: 4D 20 3A 45 4E 44 0D 20 49 46 20 3A 46 52 4F 4D |M :END. IF :FROM|
000001D0: 20 3D 20 3A 45 4E 44 20 53 54 4F 50 0D 20 50 52 | = :END STOP. PR|
000001E0: 49 4E 54 31 20 43 48 41 52 20 2E 45 58 41 4D 49 |INT1 CHAR .EXAMI|
000001F0: 4E 45 20 3A 46 52 4F 4D 0D 20 50 52 49 4E 54 2E |NE :FROM. PRINT.|
00000200: 4D 45 4D 20 3A 46 52 4F 4D 20 2B 20 31 20 3A 45 |MEM :FROM + 1 :E|
00000210: 4E 44 0D 45 4E 44 0D 0D 54 4F 20 53 48 4F 57 46 |ND.END..TO SHOWF|
00000220: 49 4C 45 20 3A 46 49 4C 45 0D 20 52 45 41 44 54 |ILE :FILE. READT|
00000230: 45 58 54 20 3A 46 49 4C 45 0D 20 53 48 4F 57 54 |EXT :FILE. SHOWT|
00000240: 45 58 54 0D 45 4E 44 0D 0D 4D 41 4B 45 20 22 45 |EXT.END..MAKE "E|
00000250: 4E 44 42 55 46 20 28 38 36 29 0D 0D |NDBUF (86).. |
. TO SAVETEXT :FILE. .OPTION "SAVE 0 1.
SAVE :FILE. .OPTION "SAVE 0 0.END..TO RE
ADTEXT :FILE. .OPTION "READ 0 1. READ :F
ILE. .OPTION "READ 0 0.END..TO PRINTFILE
:FILE. .OPTION "PRINTER 1 7. PRINTER. S
HOWFILE :FILE. NOPRINTER. .OPTION "PRINT
ER 1 0.END..TO SHOWTEXT. PRINT.MEM 8192
( .EXAMINE :ENDBUF ) + 256 * ( .EXAMINE
:ENDBUF + 1 ).END..TO PRINTTEXT. .OPTION
"PRINTER 1 7. PRINTER. SHOWTEXT. NOPRIN
TER. .OPTION "PRINTER 1 0.END..TO PRINT.
MEM :FROM :END. IF :FROM = :END STOP. PR
INT1 CHAR .EXAMINE :FROM. PRINT.MEM :FRO
M + 1 :END.END..TO SHOWFILE :FILE. READT
EXT :FILE. SHOWTEXT.END..MAKE "ENDBUF (8
6)..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL