00000000: 84 06 BB 06 0A 07 00 0A 2E 00 28 43 29 31 39 38 |..........(C)198|
00000010: 34 20 C3 CF CD C1 CC 20 D5 53 45 52 53 20 C7 52 |4 ..... .SERS .R|
00000020: 4F 55 50 2C 20 D5 2E D3 2E C1 2E 2C 20 CC 49 4D |OUP, ......, .IM|
00000030: 49 54 45 44 00 14 0B FF 20 02 00 00 47 FF 21 00 |ITED.... ...G.!.|
00000040: 1E 0B FF 46 02 00 0C 47 FF 47 00 28 0B FF 1E 02 |...F...G.G.(....|
00000050: 00 0C 47 FF 1F 00 32 1C 5F 02 00 0E 4B 65 66 61 |..G...2._...Kefa|
00000060: 00 20 4C 4F 57 45 52 20 43 41 53 45 20 4D 4F 44 |. LOWER CASE MOD|
00000070: 45 00 3C 18 5F 02 00 93 4B 65 66 61 00 43 4C 45 |E.<._...Kefa.CLE|
00000080: 41 52 20 53 43 52 45 45 4E 00 46 04 00 00 50 0C |AR SCREEN.F...P.|
00000090: 8C 8F 04 00 02 00 01 93 C5 00 5A 04 95 00 64 1B |..........Z...d.|
000000A0: 5F 03 12 C8 45 4C 50 20 52 45 51 55 45 53 54 45 |_...ELP REQUESTE|
000000B0: 44 20 21 21 21 65 60 61 00 6E 06 5F 60 61 00 78 |D !!!e`a.n._`a.x|
000000C0: 1B 5F 03 12 C3 20 2D 20 C3 CF CD C1 CC 20 4B 45 |._... - ..... KE|
000000D0: 59 57 4F 52 44 53 65 60 61 00 82 28 5F 03 1F C7 |YWORDSe`a..(_...|
000000E0: 20 2D 20 C7 52 41 50 48 49 43 53 20 28 49 4E 43 | - .RAPHICS (INC|
000000F0: 4C 55 44 49 4E 47 20 54 55 52 54 4C 45 29 65 60 |LUDING TURTLE)e`|
00000100: 61 00 8C 1E 5F 03 15 D3 20 2D 20 D3 50 52 49 54 |a..._... - .PRIT|
00000110: 45 20 53 54 41 54 45 4D 45 4E 54 53 65 60 61 00 |E STATEMENTSe`a.|
00000120: 96 06 5F 60 61 00 A0 20 B5 03 15 D7 48 49 43 48 |.._`a.. ....HICH|
00000130: 20 C8 C5 CC D0 20 54 4F 20 53 45 45 3F 20 BF 9D | .... TO SEE? ..|
00000140: B7 09 04 BA BB 00 AA 09 A1 06 04 A3 81 8A 00 B4 |................|
00000150: 11 A4 03 8B 03 01 C3 A6 03 01 43 A6 A7 A4 8A 00 |..........C.....|
00000160: BE 12 7F 05 03 0A 48 45 4C 50 2D 43 4F 4D 41 4C |......HELP-COMAL|
00000170: 15 00 C8 11 A4 03 8B 03 01 47 A6 03 01 C7 A6 A7 |.........G......|
00000180: CA 8A 00 D2 15 7F 05 03 0D 48 45 4C 50 2D 47 52 |.........HELP-GR|
00000190: 41 50 48 49 43 53 15 00 DC 11 A4 03 8B 03 01 D3 |APHICS..........|
000001A0: A6 03 01 53 A6 A7 EF 8A 00 E6 14 7F 05 03 0C 48 |...S...........H|
000001B0: 45 4C 50 2D 53 50 52 49 54 45 53 15 00 F0 06 A8 |ELP-SPRITES.....|
000001C0: 03 8B 00 FA 0E 5F 03 05 D7 48 41 54 3F 65 60 61 |....._...HAT?e`a|
000001D0: 01 04 04 A9 01 0E 13 DA 43 44 2C 96 CC 89 00 20 |........CD,.... |
000001E0: 46 4F 52 45 56 45 52 01 18 23 00 20 2D 2D 2D 2D |FOREVER..#. ----|
000001F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 01 22 39 00 20 53 |----------."9. S|
00000210: 45 51 55 45 4E 54 49 41 4C 20 46 49 4C 45 20 54 |EQUENTIAL FILE T|
00000220: 4F 20 53 43 52 45 45 4E 20 53 43 52 4F 4C 4C 49 |O SCREEN SCROLLI|
00000230: 4E 47 20 2D 20 42 59 20 4C 45 4E 20 4C 49 4E 44 |NG - BY LEN LIND|
00000240: 53 41 59 01 2C 40 00 20 53 45 45 27 52 4F 4C 4C |SAY.,@. SEE'ROLL|
00000250: 28 22 53 43 52 45 45 4E 2E 54 45 53 54 2E 57 22 |("SCREEN.TEST.W"|
00000260: 29 20 3C 2D 2D 2D 20 43 41 4C 4C 20 50 52 4F 43 |) <--- CALL PROC|
00000270: 20 53 45 45 27 52 4F 4C 4C 20 4C 49 4B 45 20 54 | SEE'ROLL LIKE T|
00000280: 48 49 53 01 36 0B 70 05 19 8F 01 74 06 7C 01 40 |HIS.6.p....t.|.@|
00000290: 36 00 20 20 49 4D 50 4F 52 54 20 53 48 49 46 54 |6. IMPORT SHIFT|
000002A0: 27 57 41 49 54 20 2F 2F 20 4E 45 45 44 45 44 20 |'WAIT // NEEDED |
000002B0: 4F 4E 4C 59 20 49 4E 20 56 45 52 53 49 4F 4E 20 |ONLY IN VERSION |
000002C0: 32 2E 30 30 01 4A 34 8C 8F 07 00 02 00 50 93 C5 |2.00.J4......P..|
000002D0: 00 20 41 4C 4C 4F 57 20 52 4F 4F 4D 20 46 4F 52 |. ALLOW ROOM FOR|
000002E0: 20 4F 4E 45 20 53 43 52 45 45 4E 20 4C 49 4E 45 | ONE SCREEN LINE|
000002F0: 20 4F 46 20 54 45 58 54 01 54 42 07 08 02 00 6A | OF TEXT.TB....j|
00000300: 3A 00 20 46 49 4C 45 20 4E 55 4D 42 45 52 20 2D |:. FILE NUMBER -|
00000310: 20 52 45 53 54 20 4F 46 20 50 52 4F 47 52 41 4D | REST OF PROGRAM|
00000320: 20 53 48 4F 55 4C 44 4E 27 54 20 55 53 45 20 53 | SHOULDN'T USE S|
00000330: 41 4D 45 20 4E 55 4D 42 45 52 01 5E 21 CF 04 08 |AME NUMBER.^!...|
00000340: D0 00 20 4D 41 4B 45 20 53 55 52 45 20 46 49 4C |.. MAKE SURE FIL|
00000350: 45 20 49 53 20 43 4C 4F 53 45 44 01 68 0B DB 04 |E IS CLOSED.h...|
00000360: 08 DC 06 06 DD DE 01 72 37 5F 03 01 93 65 60 61 |.......r7_...e`a|
00000370: 00 20 43 4C 45 41 52 20 53 43 52 45 45 4E 20 57 |. CLEAR SCREEN W|
00000380: 49 54 48 4F 55 54 20 43 4F 4D 4D 41 20 2D 20 45 |ITHOUT COMMA - E|
00000390: 4E 44 53 20 4F 4E 20 4C 49 4E 45 20 32 01 7C 04 |NDS ON LINE 2.|.|
000003A0: 95 01 86 24 B5 04 08 C8 CB CC 09 07 BA BB 00 20 |...$........... |
000003B0: 47 45 54 20 4E 45 58 54 20 4C 49 4E 45 20 4F 46 |GET NEXT LINE OF|
000003C0: 20 54 45 58 54 01 90 45 00 20 4D 41 44 45 20 54 | TEXT..E. MADE T|
000003D0: 4F 20 52 45 41 44 20 57 4F 52 44 50 52 4F 20 50 |O READ WORDPRO P|
000003E0: 52 49 4E 54 45 52 20 46 49 4C 45 53 20 4D 41 44 |RINTER FILES MAD|
000003F0: 45 20 55 4E 44 45 52 20 43 42 4D 20 50 52 49 4E |E UNDER CBM PRIN|
00000400: 54 45 52 20 43 48 4F 49 43 45 01 9A 39 00 20 4E |TER CHOICE..9. N|
00000410: 45 58 54 20 4C 49 4E 45 20 52 45 4D 4F 56 45 53 |EXT LINE REMOVES|
00000420: 20 41 20 43 55 52 53 4F 52 20 44 4F 57 4E 20 43 | A CURSOR DOWN C|
00000430: 48 41 52 41 43 54 45 52 20 2D 20 43 48 52 24 28 |HARACTER - CHR$(|
00000440: 31 37 29 01 A4 42 00 20 57 48 49 43 48 20 49 53 |17)..B. WHICH IS|
00000450: 20 55 53 45 44 20 42 59 20 54 48 45 20 43 42 4D | USED BY THE CBM|
00000460: 20 50 52 49 4E 54 45 52 20 54 4F 20 53 57 49 54 | PRINTER TO SWIT|
00000470: 43 48 20 54 4F 20 4C 4F 57 45 52 20 43 41 53 45 |CH TO LOWER CASE|
00000480: 20 4D 4F 44 45 01 AE 3C 00 20 41 4C 53 4F 20 53 | MODE..<. ALSO S|
00000490: 51 55 41 52 45 20 42 52 41 43 4B 45 54 53 20 41 |QUARE BRACKETS A|
000004A0: 52 45 20 46 49 58 45 44 20 3A 3A 20 43 48 52 24 |RE FIXED :: CHR$|
000004B0: 28 32 31 39 29 20 26 20 43 48 52 24 28 32 32 31 |(219) & CHR$(221|
000004C0: 29 01 B8 1B 68 02 00 11 4B 06 07 36 6A 0C 07 02 |)...h...K..6j...|
000004D0: 00 11 4B 06 07 36 19 02 00 00 4B 3C 01 C2 1C 97 |..K..6....K<....|
000004E0: 02 00 DB 4B 06 07 36 99 0C 07 02 00 DB 4B 06 07 |...K..6......K..|
000004F0: 36 19 02 00 5B 4B 3C 9A 01 CC 1C 97 02 00 DD 4B |6...[K<........K|
00000500: 06 07 36 99 0C 07 02 00 DD 4B 06 07 36 19 02 00 |..6......K..6...|
00000510: 5D 4B 3C 9A 01 D6 35 7F 09 81 00 20 43 41 4C 4C |]K<...5.... CALL|
00000520: 20 50 52 4F 43 20 54 4F 20 57 41 49 54 20 46 4F | PROC TO WAIT FO|
00000530: 52 20 53 48 49 46 54 20 42 45 46 4F 52 45 20 43 |R SHIFT BEFORE C|
00000540: 4F 4E 54 49 4E 55 49 4E 47 01 E0 15 5F 06 07 65 |ONTINUING..._..e|
00000550: 60 61 00 20 50 52 49 4E 54 20 4C 49 4E 45 01 EA |`a. PRINT LINE..|
00000560: 31 DA 04 08 5D 96 D0 8C 00 20 55 4E 54 49 4C 20 |1...].... UNTIL |
00000570: 48 49 54 20 45 4E 44 20 4F 46 20 53 45 51 55 45 |HIT END OF SEQUE|
00000580: 4E 54 49 41 4C 20 54 45 58 54 20 46 49 4C 45 01 |NTIAL TEXT FILE.|
00000590: F4 17 CF 04 08 D0 00 20 43 4C 4F 53 45 20 54 48 |....... CLOSE TH|
000005A0: 45 20 46 49 4C 45 01 FE 3A B5 03 22 46 49 4E 49 |E FILE..:.."FINI|
000005B0: 53 48 45 44 20 2D 20 48 49 54 20 3C 52 45 54 55 |SHED - HIT <RETU|
000005C0: 52 4E 3E 20 57 48 45 4E 20 52 45 41 44 59 B7 09 |RN> WHEN READY..|
000005D0: 07 BA BC 00 20 45 4E 44 20 4F 46 20 50 52 4F 43 |.... END OF PROC|
000005E0: 02 08 06 5F 60 61 02 12 05 7D 05 02 1C 04 00 02 |..._`a...}......|
000005F0: 26 09 70 09 B8 8F 00 7C 02 30 31 07 0A 02 02 8D |&.p....|.01.....|
00000600: 3A 00 31 35 32 20 52 4F 4D 20 4C 4F 43 41 54 49 |:.152 ROM LOCATI|
00000610: 4F 4E 20 46 4F 52 20 53 48 49 46 54 20 53 54 41 |ON FOR SHIFT STA|
00000620: 54 55 53 20 2D 20 50 45 54 02 3A 0B 97 04 0A D8 |TUS - PET.:.....|
00000630: 37 98 B2 8F 02 44 27 5F 03 0C 50 52 45 53 53 20 |7....D'_..PRESS |
00000640: 53 48 49 46 54 91 65 60 61 00 20 43 55 52 53 4F |SHIFT.e`a. CURSO|
00000650: 52 20 55 50 20 41 54 20 45 4E 44 02 4E 24 5F 03 |R UP AT END.N$_.|
00000660: 0C 20 20 20 20 20 20 20 20 20 20 20 91 65 60 61 |. .e`a|
00000670: 00 20 45 52 41 53 45 20 4D 45 53 53 41 47 45 02 |. ERASE MESSAGE.|
00000680: 58 06 9B 5C 8F 02 62 05 7D 09 00 00 00 00 00 00 |X..\..b.}.......|
00000690: 00 00 00 00 00 00 00 00 00 12 FC AF 00 00 14 B6 |................|
000006A0: 8B 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
000006B0: 00 00 14 22 8F 00 00 00 00 00 00 00 00 00 00 00 |..."............|
000006C0: 00 05 52 45 50 4C 59 07 4D 45 53 53 41 47 45 01 |..REPLY.MESSAGE.|
000006D0: 58 01 43 08 53 45 45 27 52 4F 4C 4C 09 46 49 4C |X.C.SEE'ROLL.FIL|
000006E0: 45 27 4E 41 4D 45 04 54 45 58 54 08 53 45 45 27 |E'NAME.TEXT.SEE'|
000006F0: 46 49 4C 45 0A 53 48 49 46 54 27 57 41 49 54 0A |FILE.SHIFT'WAIT.|
00000700: 53 48 49 46 54 27 46 4C 41 47 04 4C 49 44 54 00 |SHIFT'FLAG.LIDT.|
00000710: 00 |. |
..........(C)1984 COMAL USERS GROUP, U.S
.A., LIMITED.... ...G.!....F...G.G.(....
..G...2._...KEFA. LOWER CASE MODE.<._...
KEFA.CLEAR SCREEN.F...P.........E.Z...D.
_..HELP REQUESTED !!!E`A.N._`A.X._..C -
COMAL KEYWORDSE`A..(_..G - GRAPHICS (INC
LUDING TURTLE)E`A..._..S - SPRITE STATEM
ENTSE`A..._`A. ...WHICH HELP TO SEE? ..
......................C...C..........HE
LP-COMAL..H......G...G..J..R....HELP-GR
APHICS.........S...S..........HELP-SPRI
TES.........._..WHAT?E`A.......ZCD,.L..
FOREVER..#. ----------------------------
--."9. SEQUENTIAL FILE TO SCREEN SCROLLI
NG - BY LEN LINDSAY.,@. SEE'ROLL("SCREEN
.TEST.W") <--- CALL PROC SEE'ROLL LIKE T
HIS.6.P....T.|.@6. IMPORT SHIFT'WAIT //
NEEDED ONLY IN VERSION 2.00.J4......P.E
. ALLOW ROOM FOR ONE SCREEN LINE OF TEXT
.TB....J:. FILE NUMBER - REST OF PROGRAM
SHOULDN'T USE SAME NUMBER.^!O..P. MAKE
SURE FILE IS CLOSED.H..........R7_...E`A
. CLEAR SCREEN WITHOUT COMMA - ENDS ON L
INE 2.|....$...HKL..... GET NEXT LINE OF
TEXT..E. MADE TO READ WORDPRO PRINTER F
ILES MADE UNDER CBM PRINTER CHOICE..9. N
EXT LINE REMOVES A CURSOR DOWN CHARACTER
- CHR$(17)..B. WHICH IS USED BY THE CBM
PRINTER TO SWITCH TO LOWER CASE MODE..<
. ALSO SQUARE BRACKETS ARE FIXED :: CHR$
(219) & CHR$(221)...H...K..6J.....K..6..
..K<.B.....K..6......K..6...[K<..L.....K
..6......K..6...]K<..V5... CALL PROC TO
WAIT FOR SHIFT BEFORE CONTINUING..._..E
`A. PRINT LINE..1Z..].P.. UNTIL HIT END
OF SEQUENTIAL TEXT FILE...O..P. CLOSE TH
E FILE..:.."FINISHED - HIT <RETURN> WHEN
READY...... END OF PROC..._`A...}......
&.P....|.01.....:.152 ROM LOCATION FOR S
HIFT STATUS - PET.:....X7....D'_..PRESS
SHIFT.E`A. CURSOR UP AT END.N$_..
.E`A. ERASE MESSAGE.X..\..B.}.......
..................................."....
..........REPLY.MESSAGE.X.C.SEE'ROLL.FIL
E'NAME.TEXT.SEE'FILE.SHIFT'WAIT.SHIFT'FL
AG.LIDT..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL