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 53 48 4F 57 46 49 4C 45 20 |ND..TO SHOWFILE |
000000A0: 3A 46 49 4C 45 0D 20 52 45 41 44 54 45 58 54 20 |:FILE. READTEXT |
000000B0: 3A 46 49 4C 45 0D 20 53 48 4F 57 54 45 58 54 0D |:FILE. SHOWTEXT.|
000000C0: 45 4E 44 0D 0D 54 4F 20 50 52 49 4E 54 46 49 4C |END..TO PRINTFIL|
000000D0: 45 20 3A 46 49 4C 45 0D 20 2E 4F 50 54 49 4F 4E |E :FILE. .OPTION|
000000E0: 20 22 50 52 49 4E 54 45 52 20 31 20 37 0D 20 50 | "PRINTER 1 7. P|
000000F0: 52 49 4E 54 45 52 0D 20 53 48 4F 57 46 49 4C 45 |RINTER. SHOWFILE|
00000100: 20 3A 46 49 4C 45 0D 20 4E 4F 50 52 49 4E 54 45 | :FILE. NOPRINTE|
00000110: 52 0D 20 2E 4F 50 54 49 4F 4E 20 22 50 52 49 4E |R. .OPTION "PRIN|
00000120: 54 45 52 20 31 20 30 0D 45 4E 44 0D 0D 54 4F 20 |TER 1 0.END..TO |
00000130: 53 48 4F 57 54 45 58 54 0D 20 50 52 49 4E 54 2E |SHOWTEXT. PRINT.|
00000140: 4D 45 4D 20 38 31 39 32 20 28 20 2E 45 58 41 4D |MEM 8192 ( .EXAM|
00000150: 49 4E 45 20 3A 45 4E 44 42 55 46 20 29 20 2B 20 |INE :ENDBUF ) + |
00000160: 32 35 36 20 2A 20 28 20 2E 45 58 41 4D 49 4E 45 |256 * ( .EXAMINE|
00000170: 20 3A 45 4E 44 42 55 46 20 2B 20 31 20 29 0D 45 | :ENDBUF + 1 ).E|
00000180: 4E 44 0D 0D 54 4F 20 50 52 49 4E 54 54 45 58 54 |ND..TO PRINTTEXT|
00000190: 0D 20 2E 4F 50 54 49 4F 4E 20 22 50 52 49 4E 54 |. .OPTION "PRINT|
000001A0: 45 52 20 31 20 37 0D 20 50 52 49 4E 54 45 52 0D |ER 1 7. PRINTER.|
000001B0: 20 53 48 4F 57 54 45 58 54 0D 20 4E 4F 50 52 49 | SHOWTEXT. NOPRI|
000001C0: 4E 54 45 52 0D 20 2E 4F 50 54 49 4F 4E 20 22 50 |NTER. .OPTION "P|
000001D0: 52 49 4E 54 45 52 20 31 20 30 0D 45 4E 44 0D 0D |RINTER 1 0.END..|
000001E0: 54 4F 20 50 52 49 4E 54 2E 4D 45 4D 20 3A 46 52 |TO PRINT.MEM :FR|
000001F0: 4F 4D 20 3A 45 4E 44 0D 20 49 46 20 3A 46 52 4F |OM :END. IF :FRO|
00000200: 4D 20 3D 20 3A 45 4E 44 20 53 54 4F 50 0D 20 50 |M = :END STOP. P|
00000210: 52 49 4E 54 31 20 43 48 41 52 20 2E 45 58 41 4D |RINT1 CHAR .EXAM|
00000220: 49 4E 45 20 3A 46 52 4F 4D 0D 20 50 52 49 4E 54 |INE :FROM. PRINT|
00000230: 2E 4D 45 4D 20 3A 46 52 4F 4D 20 2B 20 31 20 3A |.MEM :FROM + 1 :|
00000240: 45 4E 44 0D 45 4E 44 0D 0D 4D 41 4B 45 20 22 45 |END.END..MAKE "E|
00000250: 4E 44 42 55 46 20 28 38 36 29 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 SHOWFILE
:FILE. READTEXT :FILE. SHOWTEXT.END..TO
PRINTFILE :FILE. .OPTION "PRINTER 1 7. P
RINTER. SHOWFILE :FILE. NOPRINTER. .OPTI
ON "PRINTER 1 0.END..TO SHOWTEXT. PRINT.
MEM 8192 ( .EXAMINE :ENDBUF ) + 256 * (
.EXAMINE :ENDBUF + 1 ).END..TO PRINTTEXT
. .OPTION "PRINTER 1 7. PRINTER. SHOWTEX
T. NOPRINTER. .OPTION "PRINTER 1 0.END..
TO PRINT.MEM :FROM :END. IF :FROM = :END
STOP. PRINT1 CHAR .EXAMINE :FROM. PRINT
.MEM :FROM + 1 :END.END..MAKE "ENDBUF (8
6).
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL