00000000: 22 05 40 05 78 05 00 0A 39 00 20 53 45 51 55 45 |".@.x...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 0B 70 01 00 00 01 74 02 7C 00 64 36 00 20 20 |Z.p....t.|.d6. |
00000110: 49 4D 50 4F 52 54 20 53 48 49 46 54 27 57 41 49 |IMPORT SHIFT'WAI|
00000120: 54 20 2F 2F 20 4E 45 45 44 45 44 20 4F 4E 4C 59 |T // NEEDED ONLY|
00000130: 20 49 4E 20 56 45 52 53 49 4F 4E 20 32 2E 30 30 | IN VERSION 2.00|
00000140: 00 6E 34 8C 8F 03 00 02 00 50 93 C5 00 20 41 4C |.n4......P... AL|
00000150: 4C 4F 57 20 52 4F 4F 4D 20 46 4F 52 20 4F 4E 45 |LOW ROOM FOR ONE|
00000160: 20 53 43 52 45 45 4E 20 4C 49 4E 45 20 4F 46 20 | SCREEN LINE OF |
00000170: 54 45 58 54 00 78 42 07 04 02 00 6A 3A 00 20 46 |TEXT.xB....j:. F|
00000180: 49 4C 45 20 4E 55 4D 42 45 52 20 2D 20 52 45 53 |ILE NUMBER - RES|
00000190: 54 20 4F 46 20 50 52 4F 47 52 41 4D 20 53 48 4F |T OF PROGRAM SHO|
000001A0: 55 4C 44 4E 27 54 20 55 53 45 20 53 41 4D 45 20 |ULDN'T USE SAME |
000001B0: 4E 55 4D 42 45 52 00 82 21 CF 04 04 D0 00 20 4D |NUMBER..!..... M|
000001C0: 41 4B 45 20 53 55 52 45 20 46 49 4C 45 20 49 53 |AKE SURE FILE IS|
000001D0: 20 43 4C 4F 53 45 44 00 8C 0B DB 04 04 DC 06 02 | CLOSED.........|
000001E0: DD DE 00 96 37 5F 03 01 93 65 60 61 00 20 43 4C |....7_...e`a. CL|
000001F0: 45 41 52 20 53 43 52 45 45 4E 20 57 49 54 48 4F |EAR SCREEN WITHO|
00000200: 55 54 20 43 4F 4D 4D 41 20 2D 20 45 4E 44 53 20 |UT COMMA - ENDS |
00000210: 4F 4E 20 4C 49 4E 45 20 32 00 A0 04 95 00 AA 24 |ON LINE 2......$|
00000220: B5 04 04 C8 CB CC 09 03 BA BB 00 20 47 45 54 20 |........... GET |
00000230: 4E 45 58 54 20 4C 49 4E 45 20 4F 46 20 54 45 58 |NEXT LINE OF TEX|
00000240: 54 00 B4 45 00 20 4D 41 44 45 20 54 4F 20 52 45 |T..E. MADE TO RE|
00000250: 41 44 20 57 4F 52 44 50 52 4F 20 50 52 49 4E 54 |AD WORDPRO PRINT|
00000260: 45 52 20 46 49 4C 45 53 20 4D 41 44 45 20 55 4E |ER FILES MADE UN|
00000270: 44 45 52 20 43 42 4D 20 50 52 49 4E 54 45 52 20 |DER CBM PRINTER |
00000280: 43 48 4F 49 43 45 00 BE 39 00 20 4E 45 58 54 20 |CHOICE..9. NEXT |
00000290: 4C 49 4E 45 20 52 45 4D 4F 56 45 53 20 41 20 43 |LINE REMOVES A C|
000002A0: 55 52 53 4F 52 20 44 4F 57 4E 20 43 48 41 52 41 |URSOR DOWN CHARA|
000002B0: 43 54 45 52 20 2D 20 43 48 52 24 28 31 37 29 00 |CTER - CHR$(17).|
000002C0: C8 42 00 20 57 48 49 43 48 20 49 53 20 55 53 45 |.B. WHICH IS USE|
000002D0: 44 20 42 59 20 54 48 45 20 43 42 4D 20 50 52 49 |D BY THE CBM PRI|
000002E0: 4E 54 45 52 20 54 4F 20 53 57 49 54 43 48 20 54 |NTER TO SWITCH T|
000002F0: 4F 20 4C 4F 57 45 52 20 43 41 53 45 20 4D 4F 44 |O LOWER CASE MOD|
00000300: 45 00 D2 3C 00 20 41 4C 53 4F 20 53 51 55 41 52 |E..<. ALSO SQUAR|
00000310: 45 20 42 52 41 43 4B 45 54 53 20 41 52 45 20 46 |E BRACKETS ARE F|
00000320: 49 58 45 44 20 3A 3A 20 43 48 52 24 28 32 31 39 |IXED :: CHR$(219|
00000330: 29 20 26 20 43 48 52 24 28 32 32 31 29 00 DC 1B |) & CHR$(221)...|
00000340: 68 02 00 11 4B 06 03 36 6A 0C 03 02 00 11 4B 06 |h...K..6j.....K.|
00000350: 03 36 19 02 00 00 4B 3C 00 E6 1C 97 02 00 DB 4B |.6....K<.......K|
00000360: 06 03 36 99 0C 03 02 00 DB 4B 06 03 36 19 02 00 |..6......K..6...|
00000370: 5B 4B 3C 9A 00 F0 1C 97 02 00 DD 4B 06 03 36 99 |[K<........K..6.|
00000380: 0C 03 02 00 DD 4B 06 03 36 19 02 00 5D 4B 3C 9A |.....K..6...]K<.|
00000390: 00 FA 35 7F 05 81 00 20 43 41 4C 4C 20 50 52 4F |..5.... CALL PRO|
000003A0: 43 20 54 4F 20 57 41 49 54 20 46 4F 52 20 53 48 |C TO WAIT FOR SH|
000003B0: 49 46 54 20 42 45 46 4F 52 45 20 43 4F 4E 54 49 |IFT BEFORE CONTI|
000003C0: 4E 55 49 4E 47 01 04 15 5F 06 03 65 60 61 00 20 |NUING..._..e`a. |
000003D0: 50 52 49 4E 54 20 4C 49 4E 45 01 0E 31 DA 04 04 |PRINT LINE..1...|
000003E0: 5D 96 00 00 00 20 55 4E 54 49 4C 20 48 49 54 20 |].... UNTIL HIT |
000003F0: 45 4E 44 20 4F 46 20 53 45 51 55 45 4E 54 49 41 |END OF SEQUENTIA|
00000400: 4C 20 54 45 58 54 20 46 49 4C 45 01 18 17 CF 04 |L TEXT FILE.....|
00000410: 04 D0 00 20 43 4C 4F 53 45 20 54 48 45 20 46 49 |... CLOSE THE FI|
00000420: 4C 45 01 22 3A B5 03 22 46 49 4E 49 53 48 45 44 |LE.":.."FINISHED|
00000430: 20 2D 20 48 49 54 20 3C 52 45 54 55 52 4E 3E 20 | - HIT <RETURN> |
00000440: 57 48 45 4E 20 52 45 41 44 59 B7 09 03 BA BC 00 |WHEN READY......|
00000450: 20 45 4E 44 20 4F 46 20 50 52 4F 43 01 2C 28 5F | END OF PROC.,(_|
00000460: 02 00 93 4B 65 66 61 00 20 43 4C 45 41 52 20 53 |...Kefa. CLEAR S|
00000470: 43 52 45 45 4E 20 42 45 46 4F 52 45 20 4C 45 41 |CREEN BEFORE LEA|
00000480: 56 49 4E 47 01 36 05 7D 01 01 40 04 00 01 4A 09 |VING.6.}..@...J.|
00000490: 70 05 00 00 00 7C 01 54 31 07 06 02 02 8D 3A 00 |p....|.T1.....:.|
000004A0: 31 35 32 20 52 4F 4D 20 4C 4F 43 41 54 49 4F 4E |152 ROM LOCATION|
000004B0: 20 46 4F 52 20 53 48 49 46 54 20 53 54 41 54 55 | FOR SHIFT STATU|
000004C0: 53 20 2D 20 50 45 54 01 5E 0B 97 04 06 D8 37 98 |S - PET.^.....7.|
000004D0: 00 00 01 68 27 5F 03 0C 50 52 45 53 53 20 53 48 |...h'_..PRESS SH|
000004E0: 49 46 54 91 65 60 61 00 20 43 55 52 53 4F 52 20 |IFT.e`a. CURSOR |
000004F0: 55 50 20 41 54 20 45 4E 44 01 72 24 5F 03 0C 20 |UP AT END.r$_.. |
00000500: 20 20 20 20 20 20 20 20 20 20 91 65 60 61 00 20 | .e`a. |
00000510: 45 52 41 53 45 20 4D 45 53 53 41 47 45 01 7C 06 |ERASE MESSAGE.|.|
00000520: 9B 00 00 01 86 05 7D 05 00 00 00 00 00 00 00 00 |......}.........|
00000530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000540: 00 00 00 00 00 00 08 53 45 45 27 52 4F 4C 4C 09 |.......SEE'ROLL.|
00000550: 46 49 4C 45 27 4E 41 4D 45 04 54 45 58 54 08 53 |FILE'NAME.TEXT.S|
00000560: 45 45 27 46 49 4C 45 0A 53 48 49 46 54 27 57 41 |EE'FILE.SHIFT'WA|
00000570: 49 54 0A 53 48 49 46 54 27 46 4C 41 47 00 00 |IT.SHIFT'FLAG.. |
".@.X...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.P....T.|.D6. IMPORT S
HIFT'WAIT // NEEDED ONLY IN VERSION 2.00
.N4......P.E. ALLOW ROOM FOR ONE SCREEN
LINE OF TEXT.XB....J:. FILE NUMBER - RES
T OF PROGRAM SHOULDN'T USE SAME NUMBER..
!O..P. MAKE SURE FILE IS CLOSED.........
....7_...E`A. CLEAR SCREEN WITHOUT COMMA
- ENDS ON LINE 2. ....$...HKL..... GET
NEXT LINE OF TEXT..E. MADE TO READ WORDP
RO PRINTER FILES MADE UNDER CBM PRINTER
CHOICE..9. NEXT LINE REMOVES A CURSOR DO
WN CHARACTER - CHR$(17).HB. WHICH IS USE
D BY THE CBM PRINTER TO SWITCH TO LOWER
CASE MODE.R<. ALSO SQUARE BRACKETS ARE F
IXED :: CHR$(219) & CHR$(221)...H...K..6
J.....K..6....K<.......K..6......K..6...
[K<........K..6......K..6...]K<...5...
CALL PROC TO WAIT FOR SHIFT BEFORE CONTI
NUING..._..E`A. PRINT LINE..1Z..].... UN
TIL HIT END OF SEQUENTIAL TEXT FILE...O.
.P. CLOSE THE FILE.":.."FINISHED - HIT <
RETURN> WHEN READY...... END OF PROC.,(_
...KEFA. CLEAR SCREEN BEFORE LEAVING.6.}
..@...J.P....|.T1.....:.152 ROM LOCATION
FOR SHIFT STATUS - PET.^....X7....H'_..
PRESS SHIFT.E`A. CURSOR UP AT END.R$_..
.E`A. ERASE MESSAGE.|.......}.
...............................SEE'ROLL.
FILE'NAME.TEXT.SEE'FILE.SHIFT'WAIT.SHIFT
'FLAG..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL