00000000: 31 05 4F 05 87 05 00 0A 39 00 20 53 45 51 55 45 |1.O.....9. 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 53 43 52 4F 4C 4C 49 4E 47 20 2D |REEN SCROLLING -|
00000030: 20 42 59 20 4C 45 4E 20 4C 49 4E 44 53 41 59 00 | BY LEN LINDSAY.|
00000040: 14 40 00 20 53 45 45 27 52 4F 4C 4C 28 22 53 43 |.@. SEE'ROLL("SC|
00000050: 52 45 45 4E 2E 54 45 53 54 2E 57 22 29 20 3C 2D |REEN.TEST.W") <-|
00000060: 2D 2D 20 43 41 4C 4C 20 50 52 4F 43 20 53 45 45 |-- CALL PROC SEE|
00000070: 27 52 4F 4C 4C 20 4C 49 4B 45 20 54 48 49 53 00 |'ROLL LIKE THIS.|
00000080: 1E 19 5F 02 00 93 4B 65 66 61 00 20 43 4C 45 41 |.._...Kefa. CLEA|
00000090: 52 20 53 43 52 45 45 4E 00 28 1C 5F 02 00 0E 4B |R SCREEN.(._...K|
000000A0: 65 60 61 00 20 4C 4F 57 45 52 20 43 41 53 45 20 |e`a. LOWER CASE |
000000B0: 4D 4F 44 45 00 32 15 7F 01 03 0D 49 4E 53 54 52 |MODE.2.....INSTR|
000000C0: 55 43 54 49 4F 4E 53 2A 15 00 3C 04 00 00 46 2F |UCTIONS*..<...F/|
000000D0: 00 20 48 45 52 45 20 49 53 20 57 48 45 52 45 20 |. HERE IS WHERE |
000000E0: 59 4F 55 20 43 48 41 49 4E 20 54 4F 20 54 48 45 |YOU CHAIN TO THE|
000000F0: 20 4E 45 58 54 20 4D 4F 44 55 4C 45 00 50 04 00 | NEXT MODULE.P..|
00000100: 00 5A 0A D2 03 02 48 49 D4 D3 00 64 04 00 00 6E |.Z....HI...d...n|
00000110: 0B 70 01 00 00 01 74 02 7C 00 78 36 00 20 20 49 |.p....t.|.x6. I|
00000120: 4D 50 4F 52 54 20 53 48 49 46 54 27 57 41 49 54 |MPORT SHIFT'WAIT|
00000130: 20 2F 2F 20 4E 45 45 44 45 44 20 4F 4E 4C 59 20 | // NEEDED ONLY |
00000140: 49 4E 20 56 45 52 53 49 4F 4E 20 32 2E 30 30 00 |IN VERSION 2.00.|
00000150: 82 34 8C 8F 03 00 02 00 50 93 C5 00 20 41 4C 4C |.4......P... ALL|
00000160: 4F 57 20 52 4F 4F 4D 20 46 4F 52 20 4F 4E 45 20 |OW ROOM FOR ONE |
00000170: 53 43 52 45 45 4E 20 4C 49 4E 45 20 4F 46 20 54 |SCREEN LINE OF T|
00000180: 45 58 54 00 8C 42 07 04 02 00 6A 3A 00 20 46 49 |EXT..B....j:. FI|
00000190: 4C 45 20 4E 55 4D 42 45 52 20 2D 20 52 45 53 54 |LE NUMBER - REST|
000001A0: 20 4F 46 20 50 52 4F 47 52 41 4D 20 53 48 4F 55 | OF PROGRAM SHOU|
000001B0: 4C 44 4E 27 54 20 55 53 45 20 53 41 4D 45 20 4E |LDN'T USE SAME N|
000001C0: 55 4D 42 45 52 00 96 21 CF 04 04 D0 00 20 4D 41 |UMBER..!..... MA|
000001D0: 4B 45 20 53 55 52 45 20 46 49 4C 45 20 49 53 20 |KE SURE FILE IS |
000001E0: 43 4C 4F 53 45 44 00 A0 0B DB 04 04 DC 06 02 DD |CLOSED..........|
000001F0: DE 00 AA 37 5F 03 01 93 65 60 61 00 20 43 4C 45 |...7_...e`a. CLE|
00000200: 41 52 20 53 43 52 45 45 4E 20 57 49 54 48 4F 55 |AR SCREEN WITHOU|
00000210: 54 20 43 4F 4D 4D 41 20 2D 20 45 4E 44 53 20 4F |T COMMA - ENDS O|
00000220: 4E 20 4C 49 4E 45 20 32 00 B4 04 95 00 BE 24 B5 |N LINE 2......$.|
00000230: 04 04 C8 CB CC 09 03 BA BB 00 20 47 45 54 20 4E |.......... GET N|
00000240: 45 58 54 20 4C 49 4E 45 20 4F 46 20 54 45 58 54 |EXT LINE OF TEXT|
00000250: 00 C8 45 00 20 4D 41 44 45 20 54 4F 20 52 45 41 |..E. MADE TO REA|
00000260: 44 20 57 4F 52 44 50 52 4F 20 50 52 49 4E 54 45 |D WORDPRO PRINTE|
00000270: 52 20 46 49 4C 45 53 20 4D 41 44 45 20 55 4E 44 |R FILES MADE UND|
00000280: 45 52 20 43 42 4D 20 50 52 49 4E 54 45 52 20 43 |ER CBM PRINTER C|
00000290: 48 4F 49 43 45 00 D2 39 00 20 4E 45 58 54 20 4C |HOICE..9. NEXT L|
000002A0: 49 4E 45 20 52 45 4D 4F 56 45 53 20 41 20 43 55 |INE REMOVES A CU|
000002B0: 52 53 4F 52 20 44 4F 57 4E 20 43 48 41 52 41 43 |RSOR DOWN CHARAC|
000002C0: 54 45 52 20 2D 20 43 48 52 24 28 31 37 29 00 DC |TER - CHR$(17)..|
000002D0: 42 00 20 57 48 49 43 48 20 49 53 20 55 53 45 44 |B. WHICH IS USED|
000002E0: 20 42 59 20 54 48 45 20 43 42 4D 20 50 52 49 4E | BY THE CBM PRIN|
000002F0: 54 45 52 20 54 4F 20 53 57 49 54 43 48 20 54 4F |TER TO SWITCH TO|
00000300: 20 4C 4F 57 45 52 20 43 41 53 45 20 4D 4F 44 45 | LOWER CASE MODE|
00000310: 00 E6 3C 00 20 41 4C 53 4F 20 53 51 55 41 52 45 |..<. ALSO SQUARE|
00000320: 20 42 52 41 43 4B 45 54 53 20 41 52 45 20 46 49 | BRACKETS ARE FI|
00000330: 58 45 44 20 3A 3A 20 43 48 52 24 28 32 31 39 29 |XED :: CHR$(219)|
00000340: 20 26 20 43 48 52 24 28 32 32 31 29 00 F0 1B 68 | & CHR$(221)...h|
00000350: 02 00 11 4B 06 03 36 6A 0C 03 02 00 11 4B 06 03 |...K..6j.....K..|
00000360: 36 19 02 00 00 4B 3C 00 FA 1C 97 02 00 DB 4B 06 |6....K<.......K.|
00000370: 03 36 99 0C 03 02 00 DB 4B 06 03 36 19 02 00 5B |.6......K..6...[|
00000380: 4B 3C 9A 01 04 1C 97 02 00 DD 4B 06 03 36 99 0C |K<........K..6..|
00000390: 03 02 00 DD 4B 06 03 36 19 02 00 5D 4B 3C 9A 01 |....K..6...]K<..|
000003A0: 0E 35 7F 05 81 00 20 43 41 4C 4C 20 50 52 4F 43 |.5.... CALL PROC|
000003B0: 20 54 4F 20 57 41 49 54 20 46 4F 52 20 53 48 49 | TO WAIT FOR SHI|
000003C0: 46 54 20 42 45 46 4F 52 45 20 43 4F 4E 54 49 4E |FT BEFORE CONTIN|
000003D0: 55 49 4E 47 01 18 15 5F 06 03 65 60 61 00 20 50 |UING..._..e`a. P|
000003E0: 52 49 4E 54 20 4C 49 4E 45 01 22 31 DA 04 04 5D |RINT LINE."1...]|
000003F0: 96 00 00 00 20 55 4E 54 49 4C 20 48 49 54 20 45 |.... UNTIL HIT E|
00000400: 4E 44 20 4F 46 20 53 45 51 55 45 4E 54 49 41 4C |ND OF SEQUENTIAL|
00000410: 20 54 45 58 54 20 46 49 4C 45 01 2C 17 CF 04 04 | TEXT FILE.,....|
00000420: D0 00 20 43 4C 4F 53 45 20 54 48 45 20 46 49 4C |.. CLOSE THE FIL|
00000430: 45 01 36 3A B5 03 22 46 49 4E 49 53 48 45 44 20 |E.6:.."FINISHED |
00000440: 2D 20 48 49 54 20 3C 52 45 54 55 52 4E 3E 20 57 |- HIT <RETURN> W|
00000450: 48 45 4E 20 52 45 41 44 59 B7 09 03 BA BC 00 20 |HEN READY...... |
00000460: 45 4E 44 20 4F 46 20 50 52 4F 43 01 40 28 5F 02 |END OF PROC.@(_.|
00000470: 00 93 4B 65 66 61 00 20 43 4C 45 41 52 20 53 43 |..Kefa. CLEAR SC|
00000480: 52 45 45 4E 20 42 45 46 4F 52 45 20 4C 45 41 56 |REEN BEFORE LEAV|
00000490: 49 4E 47 01 4A 05 7D 01 01 54 04 00 01 5E 09 70 |ING.J.}..T...^.p|
000004A0: 05 00 00 00 7C 01 68 31 07 06 02 02 8D 3A 00 31 |....|.h1.....:.1|
000004B0: 35 32 20 52 4F 4D 20 4C 4F 43 41 54 49 4F 4E 20 |52 ROM LOCATION |
000004C0: 46 4F 52 20 53 48 49 46 54 20 53 54 41 54 55 53 |FOR SHIFT STATUS|
000004D0: 20 2D 20 50 45 54 01 72 0B 97 04 06 D8 37 98 00 | - PET.r.....7..|
000004E0: 00 01 7C 27 5F 03 0C 50 52 45 53 53 20 53 48 49 |..|'_..PRESS SHI|
000004F0: 46 54 91 65 60 61 00 20 43 55 52 53 4F 52 20 55 |FT.e`a. CURSOR U|
00000500: 50 20 41 54 20 45 4E 44 01 86 24 5F 03 0C 20 20 |P AT END..$_.. |
00000510: 20 20 20 20 20 20 20 20 20 91 65 60 61 00 20 45 | .e`a. E|
00000520: 52 41 53 45 20 4D 45 53 53 41 47 45 01 90 06 9B |RASE MESSAGE....|
00000530: 00 00 01 9A 05 7D 05 00 00 00 00 00 00 00 00 00 |.....}..........|
00000540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000550: 00 00 00 00 00 08 53 45 45 27 52 4F 4C 4C 09 46 |......SEE'ROLL.F|
00000560: 49 4C 45 27 4E 41 4D 45 04 54 45 58 54 08 53 45 |ILE'NAME.TEXT.SE|
00000570: 45 27 46 49 4C 45 0A 53 48 49 46 54 27 57 41 49 |E'FILE.SHIFT'WAI|
00000580: 54 0A 53 48 49 46 54 27 46 4C 41 47 00 00 |T.SHIFT'FLAG.. |
1.O.....9. SEQUENTIAL FILE TO SCREEN SCR
OLLING - BY LEN LINDSAY..@. SEE'ROLL("SC
REEN.TEST.W") <--- CALL PROC SEE'ROLL LI
KE THIS..._...KEFA. CLEAR SCREEN.(._...K
E`A. LOWER CASE MODE.2....INSTRUCTIONS*
..<...F/. HERE IS WHERE YOU CHAIN TO THE
NEXT MODULE.P...Z.R..HITS.D...N.P....T.
|.X6. IMPORT SHIFT'WAIT // NEEDED ONLY
IN VERSION 2.00..4......P.E. ALLOW ROOM
FOR ONE SCREEN LINE OF TEXT..B....J:. FI
LE NUMBER - REST OF PROGRAM SHOULDN'T US
E SAME NUMBER..!O..P. MAKE SURE FILE IS
CLOSED. ...........7_...E`A. CLEAR SCREE
N WITHOUT COMMA - ENDS ON LINE 2......$.
..HKL..... GET NEXT LINE OF TEXT.HE. MAD
E TO READ WORDPRO PRINTER FILES MADE UND
ER CBM PRINTER CHOICE.R9. NEXT LINE REMO
VES A CURSOR DOWN CHARACTER - CHR$(17)..
B. WHICH IS USED BY THE CBM PRINTER TO S
WITCH TO LOWER CASE MODE..<. ALSO SQUARE
BRACKETS ARE FIXED :: CHR$(219) & CHR$(
221)...H...K..6J.....K..6....K<.......K.
.6......K..6...[K<........K..6......K..6
...]K<...5... CALL PROC TO WAIT FOR SHI
FT BEFORE CONTINUING..._..E`A. PRINT LIN
E."1Z..].... UNTIL HIT END OF SEQUENTIAL
TEXT FILE.,.O..P. CLOSE THE FILE.6:.."F
INISHED - HIT <RETURN> WHEN READY......
END OF PROC.@(_...KEFA. CLEAR SCREEN BEF
ORE LEAVING.J.}..T...^.P....|.H1.....:.1
52 ROM LOCATION FOR SHIFT STATUS - PET.R
....X7....|'_..PRESS SHIFT.E`A. CURSOR U
P AT END..$_.. .E`A. ERASE MES
SAGE.........}..........................
......SEE'ROLL.FILE'NAME.TEXT.SEE'FILE.S
HIFT'WAIT.SHIFT'FLAG..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL