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: 0D 20 4E 4F 50 52 49 4E 54 45 52 0D 20 2E 4F 50 |. NOPRINTER. .OP|
00000110: 54 49 4F 4E 20 22 50 52 49 4E 54 45 52 20 31 20 |TION "PRINTER 1 |
00000120: 30 0D 45 4E 44 0D 0D 54 4F 20 50 52 49 4E 54 54 |0.END..TO PRINTT|
00000130: 45 58 54 0D 20 2E 4F 50 54 49 4F 4E 20 22 50 52 |EXT. .OPTION "PR|
00000140: 49 4E 54 45 52 20 31 20 37 0D 20 50 52 49 4E 54 |INTER 1 7. PRINT|
00000150: 45 52 0D 20 53 48 4F 57 54 45 58 54 0D 20 4E 4F |ER. SHOWTEXT. NO|
00000160: 50 52 49 4E 54 45 52 0D 20 2E 4F 50 54 49 4F 4E |PRINTER. .OPTION|
00000170: 20 22 50 52 49 4E 54 45 52 20 31 20 30 0D 45 4E | "PRINTER 1 0.EN|
00000180: 44 0D 0D 54 4F 20 53 48 4F 57 54 45 58 54 0D 20 |D..TO SHOWTEXT. |
00000190: 50 52 49 4E 54 2E 4D 45 4D 20 38 31 39 32 20 28 |PRINT.MEM 8192 (|
000001A0: 20 2E 45 58 41 4D 49 4E 45 20 3A 45 4E 44 42 55 | .EXAMINE :ENDBU|
000001B0: 46 20 29 20 2B 20 32 35 36 20 2A 20 28 20 2E 45 |F ) + 256 * ( .E|
000001C0: 58 41 4D 49 4E 45 20 3A 45 4E 44 42 55 46 20 2B |XAMINE :ENDBUF +|
000001D0: 20 31 20 29 0D 45 4E 44 0D 0D 54 4F 20 50 52 49 | 1 ).END..TO PRI|
000001E0: 4E 54 2E 4D 45 4D 20 3A 46 52 4F 4D 20 3A 45 4E |NT.MEM :FROM :EN|
000001F0: 44 0D 20 49 46 20 3A 46 52 4F 4D 20 3D 20 3A 45 |D. IF :FROM = :E|
00000200: 4E 44 20 53 54 4F 50 0D 20 50 52 49 4E 54 31 20 |ND STOP. PRINT1 |
00000210: 43 48 41 52 20 2E 45 58 41 4D 49 4E 45 20 3A 46 |CHAR .EXAMINE :F|
00000220: 52 4F 4D 0D 20 50 52 49 4E 54 2E 4D 45 4D 20 3A |ROM. PRINT.MEM :|
00000230: 46 52 4F 4D 20 2B 20 31 20 3A 45 4E 44 0D 45 4E |FROM + 1 :END.EN|
00000240: 44 0D 0D 4D 41 4B 45 20 22 45 4E 44 42 55 46 20 |D..MAKE "ENDBUF |
00000250: 28 38 36 29 0D |(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. NOPRINTER. .OPTION "PR
INTER 1 0.END..TO PRINTTEXT. .OPTION "PR
INTER 1 7. PRINTER. SHOWTEXT. NOPRINTER.
.OPTION "PRINTER 1 0.END..TO SHOWTEXT.
PRINT.MEM 8192 ( .EXAMINE :ENDBUF ) + 25
6 * ( .EXAMINE :ENDBUF + 1 ).END..TO PRI
NT.MEM :FROM :END. IF :FROM = :END STOP.
PRINT1 CHAR .EXAMINE :FROM. PRINT.MEM :
FROM + 1 :END.END..MAKE "ENDBUF (86).
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL