00000000: 00 20 54 4F 20 50 52 49 4E 54 54 45 58 54 0D 20 |. TO PRINTTEXT. |
00000010: 2E 4F 50 54 49 4F 4E 20 22 50 52 49 4E 54 45 52 |.OPTION "PRINTER|
00000020: 20 31 20 37 0D 20 50 52 49 4E 54 45 52 0D 20 53 | 1 7. PRINTER. S|
00000030: 48 4F 57 54 45 58 54 0D 20 4E 4F 50 52 49 4E 54 |HOWTEXT. NOPRINT|
00000040: 45 52 0D 20 2E 4F 50 54 49 4F 4E 20 22 50 52 49 |ER. .OPTION "PRI|
00000050: 4E 54 45 52 20 31 20 30 0D 45 4E 44 0D 0D 54 4F |NTER 1 0.END..TO|
00000060: 20 50 52 49 4E 54 2E 4D 45 4D 20 3A 46 52 4F 4D | PRINT.MEM :FROM|
00000070: 20 3A 45 4E 44 0D 20 49 46 20 3A 46 52 4F 4D 20 | :END. IF :FROM |
00000080: 3D 20 3A 45 4E 44 20 53 54 4F 50 0D 20 50 52 49 |= :END STOP. PRI|
00000090: 4E 54 31 20 43 48 41 52 20 2E 45 58 41 4D 49 4E |NT1 CHAR .EXAMIN|
000000A0: 45 20 3A 46 52 4F 4D 0D 20 50 52 49 4E 54 2E 4D |E :FROM. PRINT.M|
000000B0: 45 4D 20 3A 46 52 4F 4D 20 2B 20 31 20 3A 45 4E |EM :FROM + 1 :EN|
000000C0: 44 0D 45 4E 44 0D 0D 54 4F 20 50 52 49 4E 54 46 |D.END..TO PRINTF|
000000D0: 49 4C 45 20 3A 46 49 4C 45 0D 20 2E 4F 50 54 49 |ILE :FILE. .OPTI|
000000E0: 4F 4E 20 22 50 52 49 4E 54 45 52 20 31 20 37 0D |ON "PRINTER 1 7.|
000000F0: 20 50 52 49 4E 54 45 52 0D 20 53 48 4F 57 46 49 | PRINTER. SHOWFI|
00000100: 4C 45 20 3A 46 49 4C 45 0D 20 4E 4F 50 52 49 4E |LE :FILE. NOPRIN|
00000110: 54 45 52 0D 20 2E 4F 50 54 49 4F 4E 20 22 50 52 |TER. .OPTION "PR|
00000120: 49 4E 54 45 52 20 31 20 30 0D 45 4E 44 0D 0D 54 |INTER 1 0.END..T|
00000130: 4F 20 53 48 4F 57 54 45 58 54 0D 20 50 52 49 4E |O SHOWTEXT. PRIN|
00000140: 54 2E 4D 45 4D 20 38 31 39 32 20 28 20 2E 45 58 |T.MEM 8192 ( .EX|
00000150: 41 4D 49 4E 45 20 3A 45 4E 44 42 55 46 20 29 20 |AMINE :ENDBUF ) |
00000160: 2B 20 32 35 36 20 2A 20 28 20 2E 45 58 41 4D 49 |+ 256 * ( .EXAMI|
00000170: 4E 45 20 3A 45 4E 44 42 55 46 20 2B 20 31 20 29 |NE :ENDBUF + 1 )|
00000180: 0D 45 4E 44 0D 0D 54 4F 20 53 48 4F 57 46 49 4C |.END..TO SHOWFIL|
00000190: 45 20 3A 46 49 4C 45 0D 20 52 45 41 44 54 45 58 |E :FILE. READTEX|
000001A0: 54 20 3A 46 49 4C 45 0D 20 53 48 4F 57 54 45 58 |T :FILE. SHOWTEX|
000001B0: 54 0D 45 4E 44 0D 0D 54 4F 20 52 45 41 44 54 45 |T.END..TO READTE|
000001C0: 58 54 20 3A 46 49 4C 45 0D 20 2E 4F 50 54 49 4F |XT :FILE. .OPTIO|
000001D0: 4E 20 22 52 45 41 44 20 30 20 31 0D 20 52 45 41 |N "READ 0 1. REA|
000001E0: 44 20 3A 46 49 4C 45 0D 20 2E 4F 50 54 49 4F 4E |D :FILE. .OPTION|
000001F0: 20 22 52 45 41 44 20 30 20 30 0D 45 4E 44 0D 0D | "READ 0 0.END..|
00000200: 54 4F 20 53 41 56 45 54 45 58 54 20 3A 46 49 4C |TO SAVETEXT :FIL|
00000210: 45 0D 20 2E 4F 50 54 49 4F 4E 20 22 53 41 56 45 |E. .OPTION "SAVE|
00000220: 20 30 20 31 0D 20 53 41 56 45 20 3A 46 49 4C 45 | 0 1. SAVE :FILE|
00000230: 0D 20 2E 4F 50 54 49 4F 4E 20 22 53 41 56 45 20 |. .OPTION "SAVE |
00000240: 30 20 30 0D 45 4E 44 0D 0D 4D 41 4B 45 20 22 45 |0 0.END..MAKE "E|
00000250: 4E 44 42 55 46 20 28 38 36 29 0D |NDBUF (86). |
. TO PRINTTEXT. .OPTION "PRINTER 1 7. PR
INTER. SHOWTEXT. NOPRINTER. .OPTION "PRI
NTER 1 0.END..TO PRINT.MEM :FROM :END. I
F :FROM = :END STOP. PRINT1 CHAR .EXAMIN
E :FROM. PRINT.MEM :FROM + 1 :END.END..T
O PRINTFILE :FILE. .OPTION "PRINTER 1 7.
PRINTER. SHOWFILE :FILE. NOPRINTER. .OP
TION "PRINTER 1 0.END..TO SHOWTEXT. PRIN
T.MEM 8192 ( .EXAMINE :ENDBUF ) + 256 *
( .EXAMINE :ENDBUF + 1 ).END..TO SHOWFIL
E :FILE. READTEXT :FILE. SHOWTEXT.END..T
O READTEXT :FILE. .OPTION "READ 0 1. REA
D :FILE. .OPTION "READ 0 0.END..TO SAVET
EXT :FILE. .OPTION "SAVE 0 1. SAVE :FILE
. .OPTION "SAVE 0 0.END..MAKE "ENDBUF (8
6).
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL