TEXT PRINTER
FILE INFORMATION
FILENAME(S): TEXT PRINTER
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 18:12:08
APPEARS ON: 1 disk(s)
FILE HASH
99be577cb99fab0efc49960a28f9b589eb4257955ff8cc1e9e58ec1bc22fafe7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 51 S 3 | TEXT PRINTER | PRG | Sailor, Ganheden | 9 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 00 00 8B 41 B2 2E A7 41 B2 31 3A 93 |.......A...A.1:.|
00000010: 22 54 50 2E 44 49 53 4B 2E 4F 22 2C 38 2C 31 00 |"TP.DISK.O",8,1.|
00000020: 3F 08 01 00 8B 41 B2 31 A7 41 B2 32 3A 93 22 54 |?....A.1.A.2:."T|
00000030: 50 2E 50 52 49 4E 54 31 2E 4F 22 2C 38 2C 31 00 |P.PRINT1.O",8,1.|
00000040: 5F 08 02 00 8B 41 B2 32 A7 41 B2 33 3A 93 22 54 |_....A.2.A.3:."T|
00000050: 50 2E 50 52 49 4E 54 32 2E 4F 22 2C 38 2C 31 00 |P.PRINT2.O",8,1.|
00000060: 68 08 03 00 89 31 31 30 00 6E 08 05 00 3A 00 8E |h....110.n...:..|
00000070: 08 06 00 8F 20 20 20 20 20 20 20 41 4C 54 45 52 |.... ALTER|
00000080: 20 52 4F 4D 20 53 43 52 4F 4C 4C 49 4E 47 00 94 | ROM SCROLLING..|
00000090: 08 07 00 3A 00 C6 08 0A 00 97 37 37 30 2C 31 33 |...:......770,13|
000000A0: 31 3A 97 37 37 31 2C 31 36 34 3A 97 38 38 2C 2E |1:.771,164:.88,.|
000000B0: 3A 97 38 39 2C 31 39 32 3A 97 39 30 2C 2E 3A 97 |:.89,192:.90,.:.|
000000C0: 39 31 2C 31 39 32 00 00 09 14 00 97 37 38 31 2C |91,192......781,|
000000D0: 33 33 3A 97 37 38 32 2C 2E 3A 9E 34 31 39 36 34 |33:.782,.:.41964|
000000E0: 3A 97 38 38 2C 32 35 34 3A 97 38 39 2C 32 35 35 |:.88,254:.89,255|
000000F0: 3A 97 39 30 2C 32 35 34 3A 97 39 31 2C 32 35 35 |:.90,254:.91,255|
00000100: 00 29 09 1E 00 97 37 38 31 2C 33 33 3A 97 37 38 |.)....781,33:.78|
00000110: 32 2C 2E 3A 9E 34 31 39 36 34 3A 97 35 39 36 33 |2,.:.41964:.5963|
00000120: 39 2C 35 3A 97 31 2C 35 33 00 2F 09 28 00 8E 00 |9,5:.1,53./.(...|
00000130: 35 09 64 00 3A 00 50 09 69 00 8F 20 20 20 20 20 |5.d.:.P.i.. |
00000140: 20 20 53 45 54 55 50 20 53 54 55 46 46 2E 2E 2E | SETUP STUFF...|
00000150: 00 56 09 6A 00 3A 00 72 09 6E 00 97 35 35 2C 2E |.V.j.:.r.n..55,.|
00000160: 3A 97 35 36 2C 33 32 3A 9C 3A 51 24 B2 C7 28 33 |:.56,32:.:Q$..(3|
00000170: 34 29 00 93 09 78 00 86 20 46 49 24 28 31 34 34 |4)...x.. FI$(144|
00000180: 29 2C 46 54 25 28 31 34 34 29 2C 4E 42 25 28 31 |),FT%(144),NB%(1|
00000190: 34 34 29 00 BE 09 7A 00 46 54 24 28 30 29 B2 22 |44)...z.FT$(0)."|
000001A0: 22 3A 46 54 24 28 31 29 B2 22 2C 53 22 3A 46 54 |":FT$(1).",S":FT|
000001B0: 24 28 32 29 B2 22 2C 50 22 3A 46 4C B2 30 00 CC |$(2).",P":FL.0..|
000001C0: 09 7D 00 8D 31 30 30 30 3A 8D 31 30 00 00 0A 82 |.}..1000:.10....|
000001D0: 00 99 22 93 11 11 20 20 20 20 20 20 9A C9 4E 53 |.."... ..NS|
000001E0: 45 52 54 20 44 49 53 4B 20 41 4E 44 20 50 52 45 |ERT DISK AND PRE|
000001F0: 53 53 20 D3 D0 C1 C3 C5 22 3A 97 31 39 38 2C 2E |SS .....":.198,.|
00000200: 00 14 0A 8C 00 8B C2 28 32 30 33 29 B3 B1 36 30 |.......(203)..60|
00000210: A7 31 34 30 00 56 0A A0 00 99 22 93 11 20 9A D2 |.140.V....".. ..|
00000220: 45 41 44 49 4E 47 20 41 4C 4C 20 05 22 51 24 22 |EADING ALL ."Q$"|
00000230: D0 D2 C7 22 51 24 22 20 9A 46 49 4C 45 53 20 57 |..."Q$" .FILES W|
00000240: 20 2F 20 05 22 51 24 22 D4 2E 22 51 24 22 20 9A | / ."Q$".."Q$" .|
00000250: 4E 41 4D 45 53 22 00 8B 0A AA 00 99 22 11 20 20 |NAMES"......". |
00000260: 9A D0 52 45 53 53 20 05 C1 20 9A 54 4F 20 41 42 |..RESS .. .TO AB|
00000270: 4F 52 54 20 57 48 49 4C 45 20 50 52 49 4E 54 49 |ORT WHILE PRINTI|
00000280: 4E 47 20 54 45 58 54 2E 11 11 22 00 91 0A B4 00 |NG TEXT...".....|
00000290: 3A 00 AF 0A B9 00 8F 20 20 20 20 20 20 52 45 41 |:...... REA|
000002A0: 44 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 00 |D THE DIRECTORY.|
000002B0: B5 0A BE 00 3A 00 D2 0A C8 00 9F 31 35 2C 38 2C |....:......15,8,|
000002C0: 31 35 2C 22 49 30 22 3A 9F 38 2C 38 2C 38 2C 22 |15,"I0":.8,8,8,"|
000002D0: 23 22 00 E8 0A D2 00 98 31 35 2C 22 55 31 3A 22 |#"......15,"U1:"|
000002E0: 38 3B 30 3B 31 38 3B 31 00 FF 0A DC 00 9E 34 39 |8;0;18;1......49|
000002F0: 31 35 32 2C 46 49 24 2C 46 54 25 2C 4E 42 25 00 |152,FI$,FT%,NB%.|
00000300: 2F 0B E6 00 8B 20 28 C8 28 46 49 24 2C 32 29 B3 |/.... (.(FI$,2).|
00000310: B1 22 54 2E 22 29 20 B0 20 28 46 54 25 B3 B1 31 |."T.") . (FT%..1|
00000320: 33 30 29 20 A7 20 4F 4B B2 2E 3A 89 32 34 30 00 |30) . OK..:.240.|
00000330: 64 0B EB 00 43 4F B2 43 4F AA 31 3A 46 49 24 28 |d...CO.CO.1:FI$(|
00000340: 43 4F 29 B2 46 49 24 3A 46 54 25 28 43 4F 29 B2 |CO).FI$:FT%(CO).|
00000350: 46 54 25 3A 4E 42 25 28 43 4F 29 B2 4E 42 25 3A |FT%:NB%(CO).NB%:|
00000360: 4F 4B B2 31 00 77 0B F0 00 8B 28 4F 4B 29 A7 99 |OK.1.w....(OK)..|
00000370: 22 05 22 3B 46 49 24 00 8B 0B FA 00 41 B2 C2 28 |".";FI$.....A..(|
00000380: 32 29 3A 8B 41 B2 2E A7 32 32 30 00 BC 0B 04 01 |2):.A...220.....|
00000390: 8B 41 B3 B1 32 35 35 A7 98 31 35 2C 22 55 31 3A |.A..255..15,"U1:|
000003A0: 22 38 3B 30 3B 31 38 3B 41 3A 98 31 35 2C 22 42 |"8;0;18;A:.15,"B|
000003B0: 2D 50 3A 22 38 3B 30 3A 89 32 32 30 00 C7 0B 0E |-P:"8;0:.220....|
000003C0: 01 A0 38 3A A0 31 35 00 CD 0B 18 01 3A 00 D3 0B |..8:.15.....:...|
000003D0: 1D 01 3A 00 F0 0B 22 01 8F 20 20 20 20 50 52 49 |..:...".. PRI|
000003E0: 4E 54 20 54 48 4F 53 45 20 46 49 4C 45 53 21 21 |NT THOSE FILES!!|
000003F0: 00 F6 0B 27 01 3A 00 07 0C 2C 01 99 3A 81 20 41 |...'.:...,..:. A|
00000400: B2 31 20 A4 20 43 4F 00 20 0C 31 01 99 22 9A D2 |.1 . CO. .1.."..|
00000410: 45 41 44 49 4E 47 3A 20 05 22 46 49 24 28 41 29 |EADING: ."FI$(A)|
00000420: 00 34 0C 32 01 8B 46 49 24 28 41 29 B3 B1 22 22 |.4.2..FI$(A)..""|
00000430: A7 33 31 30 00 6C 0C 33 01 99 22 11 9A 20 D4 48 |.310.l.3..".. .H|
00000440: 45 52 45 20 41 52 45 20 4E 4F 20 05 22 51 24 22 |ERE ARE NO ."Q$"|
00000450: 54 2E 22 51 24 22 9A 20 46 49 4C 45 53 20 4F 4E |T."Q$". FILES ON|
00000460: 20 54 48 49 53 20 44 49 53 4B 2E 22 00 76 0C 34 | THIS DISK.".v.4|
00000470: 01 89 32 30 30 30 00 8E 0C 36 01 9E 20 34 39 31 |..2000...6.. 491|
00000480: 35 35 2C 38 31 39 32 2C 46 49 24 28 41 29 00 CE |55,8192,FI$(A)..|
00000490: 0C 3B 01 45 41 B2 28 C2 28 37 38 31 29 AA C2 28 |.;.EA.(.(781)..(|
000004A0: 37 38 32 29 AC 32 35 36 29 3A 20 20 20 20 20 20 |782).256): |
000004B0: 20 20 20 20 20 97 20 45 41 2C 2E 3A 97 45 41 AA | . EA,.:.EA.|
000004C0: 31 2C 31 33 3A 97 20 45 41 AA 32 2C 31 33 00 E3 |1,13:. EA.2,13..|
000004D0: 0C 40 01 9F 34 2C 34 2C 37 3A 5A B2 2E 3A 41 24 |.@..4,4,7:Z..:A$|
000004E0: B2 22 22 00 F9 0C 41 01 8B C2 28 38 31 39 32 AA |.""...A...(8192.|
000004F0: 5A 29 B2 31 33 A7 33 32 33 00 1B 0D 42 01 41 24 |Z).13.323...B.A$|
00000500: B2 41 24 AA C7 28 C2 28 38 31 39 32 AA 5A 29 29 |.A$..(.(8192.Z))|
00000510: 3A 5A B2 5A AA 31 3A 89 33 32 31 00 44 0D 43 01 |:Z.Z.1:.321.D.C.|
00000520: 53 B2 38 31 39 32 3A 8B C8 28 41 24 2C 33 29 B2 |S.8192:..(A$,3).|
00000530: 22 5E 55 3A 22 A7 53 B2 38 31 39 32 AA C3 28 41 |"^U:".S.8192..(A|
00000540: 24 29 AA 31 00 64 0D 45 01 99 22 9A 91 D0 52 49 |$).1.d.E.."...RI|
00000550: 4E 54 49 4E 47 3A 20 05 22 46 49 24 28 41 29 3A |NTING: ."FI$(A):|
00000560: 97 32 2C 2E 00 86 0D 4A 01 8B 28 46 4C 29 A7 20 |.2,....J..(FL). |
00000570: 9E 20 35 32 32 32 34 2C 53 3A 53 50 B2 35 39 AB |. 52224,S:SP.59.|
00000580: C2 28 37 38 37 29 00 A7 0D 54 01 8B 46 4C B2 30 |.(787)...T..FL.0|
00000590: A7 20 9E 20 35 31 32 30 30 2C 53 3A 53 50 B2 C2 |. . 51200,S:SP..|
000005A0: 28 37 38 37 29 AA 35 00 B7 0D 59 01 8B C2 28 32 |(787).5...Y...(2|
000005B0: 29 B2 30 A7 33 36 30 00 F9 0D 5A 01 9E 36 35 34 |).0.360...Z..654|
000005C0: 38 34 3A 99 22 91 96 20 20 C1 52 45 20 59 4F 55 |84:.".. .RE YOU|
000005D0: 20 53 55 52 45 20 59 4F 55 20 57 41 4E 54 20 54 | SURE YOU WANT T|
000005E0: 4F 20 51 55 49 54 3F 20 28 05 D9 96 2F 05 CE 96 |O QUIT? (.../...|
000005F0: 29 22 3A 97 31 39 38 2C 2E 00 16 0E 5B 01 A1 41 |)":.198,....[..A|
00000600: 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 |$:.A$.."Y".A$.."|
00000610: 4E 22 A7 33 34 37 00 2C 0E 5C 01 8B 41 24 B2 22 |N".347.,.\..A$."|
00000620: 59 22 A7 41 B2 43 4F AB 31 3A 8A 31 00 5B 0E 5D |Y".A.CO.1:.1.[.]|
00000630: 01 99 22 91 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00000640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000650: 20 20 20 20 20 20 20 20 20 20 22 00 7B 0E 5E 01 | ".{.^.|
00000660: 99 22 91 9A D0 52 49 4E 54 49 4E 47 3A 20 05 22 |."...RINTING: ."|
00000670: 46 49 24 28 41 29 3A 97 32 2C 2E 00 B2 0E 5F 01 |FI$(A):.2,...._.|
00000680: 8B 28 46 4C 29 A7 97 37 38 31 2C 34 3A 9E 36 35 |.(FL)..781,4:.65|
00000690: 34 38 31 3A 20 20 20 20 20 20 20 20 20 20 20 9E |481: .|
000006A0: 35 32 34 38 36 3A 53 50 B2 35 39 AB C2 28 37 38 |52486:SP.59..(78|
000006B0: 37 29 00 E8 0E 60 01 8B 46 4C B2 30 A7 97 37 38 |7)...`..FL.0..78|
000006C0: 31 2C 34 3A 9E 36 35 34 38 31 3A 20 20 20 20 20 |1,4:.65481: |
000006D0: 20 20 20 20 20 20 9E 35 31 33 31 38 3A 53 50 B2 | .51318:SP.|
000006E0: C2 28 37 38 37 29 AA 35 00 F8 0E 62 01 8B C2 28 |.(787).5...b...(|
000006F0: 32 29 B2 31 A7 33 34 36 00 0F 0F 68 01 81 20 42 |2).1.346...h.. B|
00000700: B2 31 20 A4 20 53 50 3A 98 34 3A 82 3A A0 34 00 |.1 . SP:.4:.:.4.|
00000710: 33 0F 6D 01 99 22 91 9A C6 49 4E 49 53 48 45 44 |3.m.."...INISHED|
00000720: 20 50 52 49 4E 54 49 4E 47 3A 20 05 22 46 49 24 | PRINTING: ."FI$|
00000730: 28 41 29 00 3C 0F 72 01 82 3A 8A 31 00 52 0F E8 |(A).<.r..:.1.R..|
00000740: 03 97 35 33 32 38 31 2C 30 3A 97 35 33 32 38 30 |..53281,0:.53280|
00000750: 2C 30 00 5E 0F F2 03 99 22 93 0E 08 9F 22 00 86 |,0.^...."...."..|
00000760: 0F FC 03 99 22 11 20 20 20 20 20 20 20 20 20 CC |....". .|
00000770: CF C1 C4 D3 D4 C1 D2 27 D3 20 D4 C5 D8 D4 20 D0 |.......'. .... .|
00000780: D2 C9 CE D4 C5 D2 00 AB 0F 06 04 99 22 11 9A 20 |............".. |
00000790: 20 20 20 20 20 20 20 20 20 20 20 20 42 59 20 CD | BY .|
000007A0: 49 4B 45 20 CD 41 59 4E 41 52 44 00 DB 0F 10 04 |IKE .AYNARD.....|
000007B0: 99 22 11 9E 20 20 20 20 D4 48 49 53 20 50 52 4F |.".. .HIS PRO|
000007C0: 47 52 41 4D 20 57 49 4C 4C 20 50 52 49 4E 54 20 |GRAM WILL PRINT |
000007D0: 4F 55 54 20 41 4C 4C 20 4F 46 22 00 09 10 1A 04 |OUT ALL OF".....|
000007E0: 99 22 20 54 48 45 20 46 49 4C 45 53 20 4F 4E 20 |." THE FILES ON |
000007F0: 54 48 45 20 44 49 53 4B 20 54 48 41 54 20 53 54 |THE DISK THAT ST|
00000800: 41 52 54 20 57 49 54 48 22 00 37 10 24 04 99 22 |ART WITH".7.$.."|
00000810: 20 54 48 45 20 50 52 45 46 49 58 20 22 51 24 22 | THE PREFIX "Q$"|
00000820: 54 2E 22 51 24 22 2E 20 20 D4 48 45 53 45 20 41 |T."Q$". .HESE A|
00000830: 52 45 20 54 48 45 22 00 62 10 2E 04 99 22 20 46 |RE THE".b...." F|
00000840: 49 4C 45 53 20 54 48 41 54 20 41 52 45 20 53 48 |ILES THAT ARE SH|
00000850: 4F 57 4E 20 4F 4E 20 54 48 45 20 53 43 52 45 45 |OWN ON THE SCREE|
00000860: 4E 22 00 8C 10 38 04 99 22 20 57 48 45 4E 20 59 |N"...8.." WHEN Y|
00000870: 4F 55 20 43 48 4F 4F 53 45 20 27 D2 55 4E 20 C9 |OU CHOOSE '.UN .|
00000880: 54 27 20 46 52 4F 4D 20 54 48 45 22 00 A7 10 42 |T' FROM THE"...B|
00000890: 04 99 22 20 53 4D 41 4C 4C 20 59 45 4C 4C 4F 57 |.." SMALL YELLOW|
000008A0: 20 4D 45 4E 55 2E 22 00 D5 10 44 04 99 22 11 20 | MENU."...D..". |
000008B0: 20 20 20 CD 41 4B 45 20 53 55 52 45 20 59 4F 55 | .AKE SURE YOU|
000008C0: 52 20 50 52 49 4E 54 45 52 20 49 53 20 4F 4E 2D |R PRINTER IS ON-|
000008D0: 4C 49 4E 45 22 00 02 11 46 04 99 22 20 41 4E 44 |LINE"...F.." AND|
000008E0: 20 54 48 45 20 50 52 49 4E 54 20 48 45 41 44 20 | THE PRINT HEAD |
000008F0: 49 53 20 53 45 54 20 54 4F 20 54 48 45 20 54 4F |IS SET TO THE TO|
00000900: 50 22 00 15 11 48 04 99 22 20 4F 46 20 41 20 50 |P"...H.." OF A P|
00000910: 41 47 45 2E 22 00 35 11 4C 04 99 22 11 20 20 20 |AGE.".5.L..". |
00000920: 20 20 20 20 9F 28 05 D4 9F 29 57 4F 20 43 4F 4C | .(...)WO COL|
00000930: 55 4D 4E 53 22 00 62 11 56 04 99 22 20 20 20 20 |UMNS".b.V.." |
00000940: 20 20 20 9F 28 05 D3 9F 29 49 4E 47 4C 45 20 43 | .(...)INGLE C|
00000950: 4F 4C 55 4D 4E 20 49 4E 20 4D 49 44 2D 50 41 47 |OLUMN IN MID-PAG|
00000960: 45 22 00 88 11 60 04 99 22 20 20 20 20 20 20 20 |E"...`.." |
00000970: 9F 28 05 D2 9F 29 45 54 55 52 4E 20 54 4F 20 CC |.(...)ETURN TO .|
00000980: CF C1 C4 D3 D4 C1 D2 22 00 B0 11 6A 04 99 22 11 |......."...j..".|
00000990: 20 20 20 20 20 20 20 20 20 20 9A D0 52 45 53 53 | ..RESS|
000009A0: 20 20 05 D4 9A 2C 20 05 D3 20 4F 52 20 D2 13 22 | ..., .. OR .."|
000009B0: 00 D6 11 74 04 A1 41 24 3A 8B 41 24 B3 B1 22 54 |...t..A$:.A$.."T|
000009C0: 22 AF 41 24 B3 B1 22 53 22 AF 41 24 B3 B1 22 52 |".A$.."S".A$.."R|
000009D0: 22 A7 31 31 34 30 00 ED 11 79 04 8B 41 24 B2 22 |".1140...y..A$."|
000009E0: 52 22 A7 99 22 93 22 3A 89 32 30 30 30 00 03 12 |R"..".":.2000...|
000009F0: 7E 04 46 4C B2 30 3A 8B 41 24 B2 22 54 22 A7 46 |~.FL.0:.A$."T".F|
00000A00: 4C B2 31 00 09 12 88 04 8E 00 31 12 D0 07 99 22 |L.1.......1...."|
00000A10: 11 11 20 20 20 20 20 20 20 20 20 C4 4F 20 59 4F |.. .O YO|
00000A20: 55 20 57 41 4E 54 20 54 4F 20 52 45 54 55 52 4E |U WANT TO RETURN|
00000A30: 22 00 5B 12 D5 07 99 22 11 20 20 20 20 20 20 20 |".[....". |
00000A40: 20 20 20 54 4F 20 CC CF C1 C4 D3 D4 C1 D2 3F 20 | TO ........? |
00000A50: 20 28 05 59 9A 2F 05 4E 9A 29 22 00 66 12 DA 07 | (.Y./.N.)".f...|
00000A60: 97 31 39 38 2C 2E 00 84 12 E4 07 A1 41 24 3A 8B |.198,.......A$:.|
00000A70: 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 A7 |A$.."Y".A$.."N".|
00000A80: 32 30 32 30 00 93 12 EE 07 8B 41 24 B2 22 4E 22 |2020......A$."N"|
00000A90: A7 8A 31 00 CC 12 F8 07 9F 31 35 2C 38 2C 31 35 |..1......15,8,15|
00000AA0: 2C 22 52 30 3A 48 45 4C 4C 4F 20 43 4F 4E 4E 45 |,"R0:HELLO CONNE|
00000AB0: 43 54 3D 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 |CT=HELLO CONNECT|
00000AC0: 22 3A 84 31 35 2C 45 52 3A A0 31 35 00 DA 12 02 |":.15,ER:.15....|
00000AD0: 08 8B 45 52 B3 B1 36 33 A7 80 00 F8 12 0C 08 97 |..ER..63........|
00000AE0: 31 2C 31 31 39 3A 93 22 48 45 4C 4C 4F 20 43 4F |1,119:."HELLO CO|
00000AF0: 4E 4E 45 43 54 22 2C 38 00 00 00 |NNECT",8... |
.......A...A.1:."TP.DISK.O",8,1.?....A.1
.A.2:."TP.PRINT1.O",8,1._....A.2.A.3:."T
P.PRINT2.O",8,1.H....110.N...:......
ALTER ROM SCROLLING.....:.F....770,13
1:.771,164:.88,.:.89,192:.90,.:.91,192..
....781,33:.782,.:.41964:.88,254:.89,255
:.90,254:.91,255.)....781,33:.782,.:.419
64:.59639,5:.1,53./.(...5.D.:.P.I..
SETUP STUFF....V.J.:.R.N..55,.:.56,32:
.:Q$.G(34)...X.. FI$(144),FT%(144),NB%(1
44)...Z.FT$(0)."":FT$(1).",S":FT$(2).",P
":FL.0.L.}..1000:.10......"... .INS
ERT DISK AND PRESS SPACE":.198,.......B(
203)..60.140.V. ..".. .READING ALL ."Q$"
PRG"Q$" .FILES W / ."Q$"T."Q$" .NAMES"..
....". .PRESS .A .TO ABORT WHILE PRINTI
NG TEXT...".....:...... READ THE DI
RECTORY.....:.R.H..15,8,15,"I0":.8,8,8,"
#"...R..15,"U1:"8;0;18;1......49152,FI$,
FT%,NB%./.... (H(FI$,2).."T.") . (FT%..1
30) . OK..:.240.D...CO.CO.1:FI$(CO).FI$:
FT%(CO).FT%:NB%(CO).NB%:OK.1.W....(OK)..
".";FI$.....A.B(2):.A...220......A..255.
.15,"U1:"8;0;18;A:.15,"B-P:"8;0:.220.G..
. 8: 15.M...:.S...:...".. PRINT THOSE
FILES!!...'.:...,..:. A.1 . CO. .1..".R
EADING: ."FI$(A).4.2..FI$(A).."".310.L.3
..".. THERE ARE NO ."Q$"T."Q$". FILES ON
THIS DISK.".V.4..2000...6.. 49155,8192,
FI$(A).N.;.EA.(B(781).B(782).256):
. EA,.:.EA.1,13:. EA.2,13...@..4,4,
7:Z..:A$.""...A..B(8192.Z).13.323...B.A$
.A$.G(B(8192.Z)):Z.Z.1:.321.D.C.S.8192:.
H(A$,3)."^U:".S.8192.C(A$).1.D.E.."..PRI
NTING: ."FI$(A):.2,....J..(FL). . 52224,
S:SP.59.B(787)...T..FL.0. . 51200,S:SP.B
(787).5...Y..B(2).0.360...Z..65484:."..
ARE YOU SURE YOU WANT TO QUIT? (.Y./.N.
)":.198,....[..A$:.A$.."Y".A$.."N".347.,
.\..A$."Y".A.CO.1:.1.[.]..".
".{.^.."..PRIN
TING: ."FI$(A):.2,...._..(FL)..781,4:.65
481: .52486:SP.59.B(787)...`..
FL.0..781,4:.65481: .51318:SP.
B(787).5...B..B(2).1.346...H.. B.1 . SP:
.4:.: 4.3.M.."..FINISHED PRINTING: ."FI$
(A).<.R..:.1.R....53281,0:.53280,0.^....
"...."......". LOADSTAR'S TEXT P
RINTER......".. BY MIKE MAYN
ARD......".. THIS PROGRAM WILL PRINT
OUT ALL OF"......" THE FILES ON THE DISK
THAT START WITH".7.$.." THE PREFIX "Q$"
T."Q$". THESE ARE THE".B...." FILES THA
T ARE SHOWN ON THE SCREEN"...8.." WHEN Y
OU CHOOSE 'RUN IT' FROM THE"...B.." SMAL
L YELLOW MENU.".U.D..". MAKE SURE YOU
R PRINTER IS ON-LINE"...F.." AND THE PRI
NT HEAD IS SET TO THE TOP"...H.." OF A P
AGE.".5.L..". .(.T.)WO COLUMNS".B.
V.." .(.S.)INGLE COLUMN IN MID-PAG
E"...`.." .(.R.)ETURN TO LOADSTAR"
...J..". .PRESS .T., .S OR R."
.V.T..A$:.A$.."T".A$.."S".A$.."R".1140..
.Y..A$."R"..".":.2000...~.FL.0:.A$."T".F
L.1.......1.P..".. DO YOU WANT T
O RETURN".[.U..". TO LOADSTAR?
(.Y./.N.)".F.Z..198,.......A$:.A$.."Y".
A$.."N".2020......A$."N"..1.L....15,8,15
,"R0:HELLO CONNECT=HELLO CONNECT":.15,ER
: 15.Z....ER..63........1,119:."HELLO CO
NNECT",8...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL