00000000: 30 05 4E 05 86 05 00 0A 39 00 20 53 45 51 55 45 |0.N.....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 14 7F 01 03 0C 49 4E 46 4F 52 |MODE.2.....INFOR|
000000C0: 4D 41 54 49 4F 4E 2A 15 00 3C 04 00 00 46 2F 00 |MATION*..<...F/.|
000000D0: 20 48 45 52 45 20 49 53 20 57 48 45 52 45 20 59 | HERE IS WHERE Y|
000000E0: 4F 55 20 43 48 41 49 4E 20 54 4F 20 54 48 45 20 |OU CHAIN TO THE |
000000F0: 4E 45 58 54 20 4D 4F 44 55 4C 45 00 50 04 00 00 |NEXT MODULE.P...|
00000100: 5A 0A D2 03 02 48 49 D4 D3 00 64 04 00 00 6E 0B |Z....HI...d...n.|
00000110: 70 01 00 00 01 74 02 7C 00 78 36 00 20 20 49 4D |p....t.|.x6. IM|
00000120: 50 4F 52 54 20 53 48 49 46 54 27 57 41 49 54 20 |PORT SHIFT'WAIT |
00000130: 2F 2F 20 4E 45 45 44 45 44 20 4F 4E 4C 59 20 49 |// NEEDED ONLY I|
00000140: 4E 20 56 45 52 53 49 4F 4E 20 32 2E 30 30 00 82 |N VERSION 2.00..|
00000150: 34 8C 8F 03 00 02 00 50 93 C5 00 20 41 4C 4C 4F |4......P... ALLO|
00000160: 57 20 52 4F 4F 4D 20 46 4F 52 20 4F 4E 45 20 53 |W ROOM FOR ONE S|
00000170: 43 52 45 45 4E 20 4C 49 4E 45 20 4F 46 20 54 45 |CREEN LINE OF TE|
00000180: 58 54 00 8C 42 07 04 02 00 6A 3A 00 20 46 49 4C |XT..B....j:. FIL|
00000190: 45 20 4E 55 4D 42 45 52 20 2D 20 52 45 53 54 20 |E NUMBER - REST |
000001A0: 4F 46 20 50 52 4F 47 52 41 4D 20 53 48 4F 55 4C |OF PROGRAM SHOUL|
000001B0: 44 4E 27 54 20 55 53 45 20 53 41 4D 45 20 4E 55 |DN'T USE SAME NU|
000001C0: 4D 42 45 52 00 96 21 CF 04 04 D0 00 20 4D 41 4B |MBER..!..... MAK|
000001D0: 45 20 53 55 52 45 20 46 49 4C 45 20 49 53 20 43 |E SURE FILE IS C|
000001E0: 4C 4F 53 45 44 00 A0 0B DB 04 04 DC 06 02 DD DE |LOSED...........|
000001F0: 00 AA 37 5F 03 01 93 65 60 61 00 20 43 4C 45 41 |..7_...e`a. CLEA|
00000200: 52 20 53 43 52 45 45 4E 20 57 49 54 48 4F 55 54 |R SCREEN WITHOUT|
00000210: 20 43 4F 4D 4D 41 20 2D 20 45 4E 44 53 20 4F 4E | COMMA - ENDS ON|
00000220: 20 4C 49 4E 45 20 32 00 B4 04 95 00 BE 24 B5 04 | LINE 2......$..|
00000230: 04 C8 CB CC 09 03 BA BB 00 20 47 45 54 20 4E 45 |......... GET NE|
00000240: 58 54 20 4C 49 4E 45 20 4F 46 20 54 45 58 54 00 |XT LINE OF TEXT.|
00000250: C8 45 00 20 4D 41 44 45 20 54 4F 20 52 45 41 44 |.E. MADE TO READ|
00000260: 20 57 4F 52 44 50 52 4F 20 50 52 49 4E 54 45 52 | WORDPRO PRINTER|
00000270: 20 46 49 4C 45 53 20 4D 41 44 45 20 55 4E 44 45 | FILES MADE UNDE|
00000280: 52 20 43 42 4D 20 50 52 49 4E 54 45 52 20 43 48 |R CBM PRINTER CH|
00000290: 4F 49 43 45 00 D2 39 00 20 4E 45 58 54 20 4C 49 |OICE..9. NEXT LI|
000002A0: 4E 45 20 52 45 4D 4F 56 45 53 20 41 20 43 55 52 |NE REMOVES A CUR|
000002B0: 53 4F 52 20 44 4F 57 4E 20 43 48 41 52 41 43 54 |SOR DOWN CHARACT|
000002C0: 45 52 20 2D 20 43 48 52 24 28 31 37 29 00 DC 42 |ER - CHR$(17)..B|
000002D0: 00 20 57 48 49 43 48 20 49 53 20 55 53 45 44 20 |. WHICH IS USED |
000002E0: 42 59 20 54 48 45 20 43 42 4D 20 50 52 49 4E 54 |BY THE CBM PRINT|
000002F0: 45 52 20 54 4F 20 53 57 49 54 43 48 20 54 4F 20 |ER TO SWITCH TO |
00000300: 4C 4F 57 45 52 20 43 41 53 45 20 4D 4F 44 45 00 |LOWER CASE MODE.|
00000310: E6 3C 00 20 41 4C 53 4F 20 53 51 55 41 52 45 20 |.<. ALSO SQUARE |
00000320: 42 52 41 43 4B 45 54 53 20 41 52 45 20 46 49 58 |BRACKETS ARE FIX|
00000330: 45 44 20 3A 3A 20 43 48 52 24 28 32 31 39 29 20 |ED :: CHR$(219) |
00000340: 26 20 43 48 52 24 28 32 32 31 29 00 F0 1B 68 02 |& CHR$(221)...h.|
00000350: 00 11 4B 06 03 36 6A 0C 03 02 00 11 4B 06 03 36 |..K..6j.....K..6|
00000360: 19 02 00 00 4B 3C 00 FA 1C 97 02 00 DB 4B 06 03 |....K<.......K..|
00000370: 36 99 0C 03 02 00 DB 4B 06 03 36 19 02 00 5B 4B |6......K..6...[K|
00000380: 3C 9A 01 04 1C 97 02 00 DD 4B 06 03 36 99 0C 03 |<........K..6...|
00000390: 02 00 DD 4B 06 03 36 19 02 00 5D 4B 3C 9A 01 0E |...K..6...]K<...|
000003A0: 35 7F 05 81 00 20 43 41 4C 4C 20 50 52 4F 43 20 |5.... CALL PROC |
000003B0: 54 4F 20 57 41 49 54 20 46 4F 52 20 53 48 49 46 |TO WAIT FOR SHIF|
000003C0: 54 20 42 45 46 4F 52 45 20 43 4F 4E 54 49 4E 55 |T BEFORE CONTINU|
000003D0: 49 4E 47 01 18 15 5F 06 03 65 60 61 00 20 50 52 |ING..._..e`a. PR|
000003E0: 49 4E 54 20 4C 49 4E 45 01 22 31 DA 04 04 5D 96 |INT LINE."1...].|
000003F0: 00 00 00 20 55 4E 54 49 4C 20 48 49 54 20 45 4E |... UNTIL HIT EN|
00000400: 44 20 4F 46 20 53 45 51 55 45 4E 54 49 41 4C 20 |D OF SEQUENTIAL |
00000410: 54 45 58 54 20 46 49 4C 45 01 2C 17 CF 04 04 D0 |TEXT FILE.,.....|
00000420: 00 20 43 4C 4F 53 45 20 54 48 45 20 46 49 4C 45 |. CLOSE THE FILE|
00000430: 01 36 3A B5 03 22 46 49 4E 49 53 48 45 44 20 2D |.6:.."FINISHED -|
00000440: 20 48 49 54 20 3C 52 45 54 55 52 4E 3E 20 57 48 | HIT <RETURN> WH|
00000450: 45 4E 20 52 45 41 44 59 B7 09 03 BA BC 00 20 45 |EN READY...... E|
00000460: 4E 44 20 4F 46 20 50 52 4F 43 01 40 28 5F 02 00 |ND OF PROC.@(_..|
00000470: 93 4B 65 66 61 00 20 43 4C 45 41 52 20 53 43 52 |.Kefa. CLEAR SCR|
00000480: 45 45 4E 20 42 45 46 4F 52 45 20 4C 45 41 56 49 |EEN BEFORE LEAVI|
00000490: 4E 47 01 4A 05 7D 01 01 54 04 00 01 5E 09 70 05 |NG.J.}..T...^.p.|
000004A0: 00 00 00 7C 01 68 31 07 06 02 02 8D 3A 00 31 35 |...|.h1.....:.15|
000004B0: 32 20 52 4F 4D 20 4C 4F 43 41 54 49 4F 4E 20 46 |2 ROM LOCATION F|
000004C0: 4F 52 20 53 48 49 46 54 20 53 54 41 54 55 53 20 |OR SHIFT STATUS |
000004D0: 2D 20 50 45 54 01 72 0B 97 04 06 D8 37 98 00 00 |- PET.r.....7...|
000004E0: 01 7C 27 5F 03 0C 50 52 45 53 53 20 53 48 49 46 |.|'_..PRESS SHIF|
000004F0: 54 91 65 60 61 00 20 43 55 52 53 4F 52 20 55 50 |T.e`a. CURSOR UP|
00000500: 20 41 54 20 45 4E 44 01 86 24 5F 03 0C 20 20 20 | AT END..$_.. |
00000510: 20 20 20 20 20 20 20 20 91 65 60 61 00 20 45 52 | .e`a. ER|
00000520: 41 53 45 20 4D 45 53 53 41 47 45 01 90 06 9B 00 |ASE MESSAGE.....|
00000530: 00 01 9A 05 7D 05 00 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 08 53 45 45 27 52 4F 4C 4C 09 46 49 |.....SEE'ROLL.FI|
00000560: 4C 45 27 4E 41 4D 45 04 54 45 58 54 08 53 45 45 |LE'NAME.TEXT.SEE|
00000570: 27 46 49 4C 45 0A 53 48 49 46 54 27 57 41 49 54 |'FILE.SHIFT'WAIT|
00000580: 0A 53 48 49 46 54 27 46 4C 41 47 00 00 ED |.SHIFT'FLAG... |
0.N.....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....INFORMATION*.
.<...F/. HERE IS WHERE YOU CHAIN TO THE
NEXT MODULE.P...Z.R..HITS.D...N.P....T.|
.X6. IMPORT SHIFT'WAIT // NEEDED ONLY I
N VERSION 2.00..4......P.E. ALLOW ROOM F
OR ONE SCREEN LINE OF TEXT..B....J:. FIL
E NUMBER - REST OF PROGRAM SHOULDN'T USE
SAME NUMBER..!O..P. MAKE SURE FILE IS C
LOSED. ...........7_...E`A. CLEAR SCREEN
WITHOUT COMMA - ENDS ON LINE 2......$..
.HKL..... GET NEXT LINE OF TEXT.HE. MADE
TO READ WORDPRO PRINTER FILES MADE UNDE
R CBM PRINTER CHOICE.R9. NEXT LINE REMOV
ES A CURSOR DOWN CHARACTER - CHR$(17)..B
. WHICH IS USED BY THE CBM PRINTER TO SW
ITCH TO LOWER CASE MODE..<. ALSO SQUARE
BRACKETS ARE FIXED :: CHR$(219) & CHR$(2
21)...H...K..6J.....K..6....K<.......K..
6......K..6...[K<........K..6......K..6.
..]K<...5... CALL PROC TO WAIT FOR SHIF
T BEFORE CONTINUING..._..E`A. PRINT LINE
."1Z..].... UNTIL HIT END OF SEQUENTIAL
TEXT FILE.,.O..P. CLOSE THE FILE.6:.."FI
NISHED - HIT <RETURN> WHEN READY...... E
ND OF PROC.@(_...KEFA. CLEAR SCREEN BEFO
RE LEAVING.J.}..T...^.P....|.H1.....:.15
2 ROM LOCATION FOR SHIFT STATUS - PET.R.
...X7....|'_..PRESS SHIFT.E`A. CURSOR UP
AT END..$_.. .E`A. ERASE MESS
AGE.........}...........................
.....SEE'ROLL.FILE'NAME.TEXT.SEE'FILE.SH
IFT'WAIT.SHIFT'FLAG...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL