00000000: 8C 04 A5 04 CC 04 00 0A 40 00 20 53 45 51 55 45 |........@. SEQUE|
00000010: 4E 54 49 41 4C 20 46 49 4C 45 20 54 4F 20 53 43 |NTIAL FILE TO SC|
00000020: 52 45 45 4E 20 41 20 50 41 47 45 20 41 54 20 41 |REEN A PAGE AT A|
00000030: 20 54 49 4D 45 20 2D 20 42 59 20 4C 45 4E 20 4C | TIME - BY LEN L|
00000040: 49 4E 44 53 41 59 00 14 3B 00 20 53 45 45 27 50 |INDSAY..;. SEE'P|
00000050: 41 47 45 28 22 53 43 52 45 45 4E 2E 54 45 53 54 |AGE("SCREEN.TEST|
00000060: 2E 57 22 29 20 3C 2D 2D 2D 20 43 41 4C 4C 20 50 |.W") <--- CALL P|
00000070: 52 4F 43 20 53 45 45 20 4C 49 4B 45 20 54 48 49 |ROC SEE LIKE THI|
00000080: 53 00 1E 04 00 00 28 1C 5F 02 00 0E 4B 65 60 61 |S.....(._...Ke`a|
00000090: 00 20 4C 4F 57 45 52 20 43 41 53 45 20 4D 4F 44 |. LOWER CASE MOD|
000000A0: 45 00 32 14 7F 01 03 0C 49 4E 46 4F 52 4D 41 54 |E.2.....INFORMAT|
000000B0: 49 4F 4E 2A 15 00 3C 04 00 00 46 1E 00 20 52 45 |ION*..<...F.. RE|
000000C0: 53 54 20 4F 46 20 50 52 4F 47 52 41 4D 20 47 4F |ST OF PROGRAM GO|
000000D0: 45 53 20 48 45 52 45 00 50 04 00 00 5A 0B 70 01 |ES HERE.P...Z.p.|
000000E0: 00 00 01 74 02 7C 00 64 34 8C 8F 03 00 02 00 50 |...t.|.d4......P|
000000F0: 93 C5 00 20 41 4C 4C 4F 57 20 52 4F 4F 4D 20 46 |... ALLOW ROOM F|
00000100: 4F 52 20 4F 4E 45 20 53 43 52 45 45 4E 20 4C 49 |OR ONE SCREEN LI|
00000110: 4E 45 20 4F 46 20 54 45 58 54 00 6E 42 07 04 02 |NE OF TEXT.nB...|
00000120: 00 6C 3A 00 20 46 49 4C 45 20 4E 55 4D 42 45 52 |.l:. FILE NUMBER|
00000130: 20 2D 20 52 45 53 54 20 4F 46 20 50 52 4F 47 52 | - REST OF PROGR|
00000140: 41 4D 20 53 48 4F 55 4C 44 4E 27 54 20 55 53 45 |AM SHOULDN'T USE|
00000150: 20 53 41 4D 45 20 4E 55 4D 42 45 52 00 78 21 CF | SAME NUMBER.x!.|
00000160: 04 04 D0 00 20 4D 41 4B 45 20 53 55 52 45 20 46 |.... MAKE SURE F|
00000170: 49 4C 45 20 49 53 20 43 4C 4F 53 45 44 00 82 0B |ILE IS CLOSED...|
00000180: DB 04 04 DC 06 02 DD DE 00 8C 19 5F 02 00 93 4B |..........._...K|
00000190: 65 66 61 00 20 43 4C 45 41 52 20 53 43 52 45 45 |efa. CLEAR SCREE|
000001A0: 4E 00 96 1C 07 05 02 00 01 3A 00 20 49 4E 49 54 |N........:. INIT|
000001B0: 20 4C 49 4E 45 20 43 4F 55 4E 54 45 52 00 A0 04 | LINE COUNTER...|
000001C0: 95 00 AA 31 68 04 05 02 00 16 30 69 00 00 00 20 |...1h.....0i... |
000001D0: 32 33 20 4C 49 4E 45 53 20 50 52 49 4E 54 45 44 |23 LINES PRINTED|
000001E0: 20 4F 4E 20 53 43 52 45 45 4E 20 41 4C 52 45 41 | ON SCREEN ALREA|
000001F0: 44 59 00 B4 12 5F 60 61 00 20 42 4C 41 4E 4B 20 |DY..._`a. BLANK |
00000200: 4C 49 4E 45 00 BE 37 B5 03 1A 48 49 54 20 3C 52 |LINE..7...HIT <R|
00000210: 45 54 55 52 4E 3E 20 46 4F 52 20 4E 45 58 54 20 |ETURN> FOR NEXT |
00000220: 50 41 47 45 B7 09 03 BA BC 00 20 32 35 54 48 20 |PAGE...... 25TH |
00000230: 4C 49 4E 45 20 50 52 4F 4D 50 54 00 C8 1D 07 05 |LINE PROMPT.....|
00000240: 02 00 01 3A 00 20 52 45 53 45 54 20 4C 49 4E 45 |...:. RESET LINE|
00000250: 20 43 4F 55 4E 54 45 52 00 D2 27 5F 02 00 93 4B | COUNTER..'_...K|
00000260: 65 66 61 00 20 43 4C 45 41 52 20 53 43 52 45 45 |efa. CLEAR SCREE|
00000270: 4E 20 46 4F 52 20 4E 45 58 54 20 50 41 47 45 00 |N FOR NEXT PAGE.|
00000280: DC 04 6F 00 E6 24 B5 04 04 C8 CB CC 09 03 BA BB |..o..$..........|
00000290: 00 20 47 45 54 20 4E 45 58 54 20 4C 49 4E 45 20 |. GET NEXT LINE |
000002A0: 4F 46 20 54 45 58 54 00 F0 39 00 20 4E 45 58 54 |OF TEXT..9. NEXT|
000002B0: 20 4C 49 4E 45 20 52 45 4D 4F 56 45 53 20 41 20 | LINE REMOVES A |
000002C0: 43 55 52 53 4F 52 20 44 4F 57 4E 20 43 48 41 52 |CURSOR DOWN CHAR|
000002D0: 41 43 54 45 52 20 2D 20 43 48 52 24 28 31 37 29 |ACTER - CHR$(17)|
000002E0: 00 FA 42 00 20 57 48 49 43 48 20 49 53 20 55 53 |..B. WHICH IS US|
000002F0: 45 44 20 42 59 20 54 48 45 20 43 42 4D 20 50 52 |ED BY THE CBM PR|
00000300: 49 4E 54 45 52 20 54 4F 20 53 57 49 54 43 48 20 |INTER TO SWITCH |
00000310: 54 4F 20 4C 4F 57 45 52 20 43 41 53 45 20 4D 4F |TO LOWER CASE MO|
00000320: 44 45 01 04 1B 68 02 00 11 4B 06 03 36 6A 0C 03 |DE...h...K..6j..|
00000330: 02 00 11 4B 06 03 36 19 02 00 00 4B 3C 01 0E 34 |...K..6....K<..4|
00000340: 00 20 46 49 58 20 53 51 55 41 52 45 20 42 52 41 |. FIX SQUARE BRA|
00000350: 43 4B 45 54 53 20 3A 3A 3A 20 43 48 52 24 28 32 |CKETS ::: CHR$(2|
00000360: 31 39 29 20 41 4E 44 20 43 48 52 24 28 32 32 31 |19) AND CHR$(221|
00000370: 29 01 18 1C 97 02 00 DB 4B 06 03 36 99 0C 03 02 |).......K..6....|
00000380: 00 DB 4B 06 03 36 19 02 00 5B 4B 3C 9A 01 22 1C |..K..6...[K<..".|
00000390: 97 02 00 DD 4B 06 03 36 99 0C 03 02 00 DD 4B 06 |....K..6......K.|
000003A0: 03 36 19 02 00 5D 4B 3C 9A 01 2C 15 5F 06 03 65 |.6...]K<..,._..e|
000003B0: 60 61 00 20 50 52 49 4E 54 20 4C 49 4E 45 01 36 |`a. PRINT LINE.6|
000003C0: 1F 07 05 02 00 01 3D 00 20 49 4E 43 52 45 4D 45 |......=. INCREME|
000003D0: 4E 54 20 4C 49 4E 45 20 43 4F 55 4E 54 01 40 31 |NT LINE COUNT.@1|
000003E0: DA 04 04 5D 96 00 00 00 20 55 4E 54 49 4C 20 48 |...].... UNTIL H|
000003F0: 49 54 20 45 4E 44 20 4F 46 20 53 45 51 55 45 4E |IT END OF SEQUEN|
00000400: 54 49 41 4C 20 54 45 58 54 20 46 49 4C 45 01 4A |TIAL TEXT FILE.J|
00000410: 17 CF 04 04 D0 00 20 43 4C 4F 53 45 20 54 48 45 |...... CLOSE THE|
00000420: 20 46 49 4C 45 01 54 40 B5 03 28 45 4E 44 20 4F | FILE.T@..(END O|
00000430: 46 20 44 4F 43 55 4D 45 4E 54 2C 20 48 49 54 20 |F DOCUMENT, HIT |
00000440: 3C 52 45 54 55 52 4E 3E 20 57 48 45 4E 20 52 45 |<RETURN> WHEN RE|
00000450: 41 44 59 B7 09 03 BA BC 00 20 45 4E 44 20 4F 46 |ADY...... END OF|
00000460: 20 50 52 4F 43 01 5E 28 5F 02 00 93 4B 65 66 61 | PROC.^(_...Kefa|
00000470: 00 20 43 4C 45 41 52 20 53 43 52 45 45 4E 20 42 |. CLEAR SCREEN B|
00000480: 45 46 4F 52 45 20 4C 45 41 56 49 4E 47 01 68 05 |EFORE LEAVING.h.|
00000490: 7D 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |}...............|
000004A0: 00 00 00 00 00 00 00 00 00 00 00 08 53 45 45 27 |............SEE'|
000004B0: 50 41 47 45 09 46 49 4C 45 27 4E 41 4D 45 04 54 |PAGE.FILE'NAME.T|
000004C0: 45 58 54 08 53 45 45 27 46 49 4C 45 04 4C 49 4E |EXT.SEE'FILE.LIN|
000004D0: 45 00 00 |E.. |
....L...@. SEQUENTIAL FILE TO SCREEN A P
AGE AT A TIME - BY LEN LINDSAY..;. SEE'P
AGE("SCREEN.TEST.W") <--- CALL PROC SEE
LIKE THIS.....(._...KE`A. LOWER CASE MOD
E.2....INFORMATION*..<...F.. REST OF PR
OGRAM GOES HERE.P...Z.P....T.|.D4......P
.E. ALLOW ROOM FOR ONE SCREEN LINE OF TE
XT.NB....L:. FILE NUMBER - REST OF PROGR
AM SHOULDN'T USE SAME NUMBER.X!O..P. MAK
E SURE FILE IS CLOSED.............._...K
EFA. CLEAR SCREEN........:. INIT LINE CO
UNTER. ....1H.....0I... 23 LINES PRINTED
ON SCREEN ALREADY..._`A. BLANK LINE..7.
..HIT <RETURN> FOR NEXT PAGE...... 25TH
LINE PROMPT.H......:. RESET LINE COUNTER
.R'_...KEFA. CLEAR SCREEN FOR NEXT PAGE.
..O..$...HKL..... GET NEXT LINE OF TEXT.
.9. NEXT LINE REMOVES A CURSOR DOWN CHAR
ACTER - CHR$(17)..B. WHICH IS USED BY TH
E CBM PRINTER TO SWITCH TO LOWER CASE MO
DE...H...K..6J.....K..6....K<..4. FIX SQ
UARE BRACKETS ::: CHR$(219) AND CHR$(221
).......K..6......K..6...[K<..".....K..6
......K..6...]K<..,._..E`A. PRINT LINE.6
......=. INCREMENT LINE COUNT.@1Z..]....
UNTIL HIT END OF SEQUENTIAL TEXT FILE.J
.O..P. CLOSE THE FILE.T@..(END OF DOCUME
NT, HIT <RETURN> WHEN READY...... END OF
PROC.^(_...KEFA. CLEAR SCREEN BEFORE LE
AVING.H.}...........................SEE'
PAGE.FILE'NAME.TEXT.SEE'FILE.LINE..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL