Multiple names: PRINTER SETUP-D, PRINTER SETUP
FILE INFORMATION
FILENAME(S):
• PRINTER SETUP-D<br>• PRINTER SETUP
FILE TYPE(S): PRG
FILE SIZE: 6.1K
FIRST SEEN: 2025-11-30 16:43:55
APPEARS ON: 3 disk(s)
FILE HASH
89283a13c08646a6441636b11cb1429dafb781b584bd480989832cd2090f9cd5
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PAPERCLIP | PRINTER SETUP-D | PRG | High Voltage Complete C64 Collection, Markus Merz | 21 | 5 | DOWNLOAD FILE |
| WORD PROCESSORS | PRINTER SETUP | PRG | High Voltage Complete C64 Collection | 11 | 1 | DOWNLOAD FILE |
| ED | PRINTER SETUP-D | PRG | DuncanTwain | 25 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 0B 04 E8 03 89 31 35 30 30 00 11 04 F2 03 |.......1500.....| 00000010: 3A 00 36 04 FC 03 AC AC AC AC AC AC AC AC AC AC |:.6.............| 00000020: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000030: AC AC AC AC AC AC 00 5B 04 06 04 AC 20 20 20 20 |.......[.... | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000050: 20 20 20 20 20 20 20 20 20 20 AC 00 7C 04 10 04 | ..|...| 00000060: AC 20 20 20 20 99 45 52 20 53 45 54 AB 55 50 20 |. .ER SET.UP | 00000070: 50 52 4F 47 52 41 4D 20 20 20 20 AC 00 A1 04 1A |PROGRAM .....| 00000080: 04 AC 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: AC 00 C6 04 24 04 AC 20 20 20 20 20 41 53 20 4F |....$.. AS O| 000000B0: 46 20 4D 41 52 43 48 20 31 37 2C 20 31 39 38 34 |F MARCH 17, 1984| 000000C0: 20 20 20 20 20 AC 00 EB 04 2E 04 AC 20 20 20 20 | ....... | 000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000E0: 20 20 20 20 20 20 20 20 20 20 AC 00 10 05 38 04 | ....8.| 000000F0: AC 20 20 20 20 20 20 43 4F 50 59 52 49 47 48 54 |. COPYRIGHT| 00000100: 20 28 43 29 20 31 39 38 32 20 20 20 20 20 20 2A | (C) 1982 *| 00000110: 00 35 05 42 04 AC 20 20 20 20 20 20 20 42 59 20 |.5.B.. BY | 00000120: 53 54 45 56 45 20 44 4F 55 47 4C 41 53 20 20 20 |STEVE DOUGLAS | 00000130: 20 20 20 20 AC 00 58 05 4C 04 AC 20 20 20 20 20 | ..X.L.. | 00000140: 20 20 20 20 20 20 20 20 AF 20 20 20 20 20 20 20 | . | 00000150: 20 20 20 20 20 20 20 AC 00 7D 05 56 04 AC 20 20 | ..}.V.. | 00000160: 20 20 20 20 42 41 54 54 45 52 49 45 53 20 49 4E | BATTERIES IN| 00000170: 43 4C 55 44 45 44 20 20 20 20 20 20 AC 00 A2 05 |CLUDED ....| 00000180: 60 04 AC 20 20 20 20 20 20 20 20 20 20 20 20 20 |`.. | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001A0: 20 AC 00 C4 05 6A 04 AC 20 54 48 49 53 20 56 45 | ....j.. THIS VE| 000001B0: 52 53 49 91 20 81 20 50 45 54 AD 43 42 4D AD 43 |RSI. . PET.CBM.C| 000001C0: 36 34 20 AC 00 E9 05 74 04 AC 20 20 20 20 20 20 |64 ....t.. | 000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001E0: 20 20 20 20 20 20 20 20 AC 00 0E 06 7E 04 AC AC | ....~...| 000001F0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000200: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 14 |................| 00000210: 06 88 04 3A 00 1A 06 92 04 3A 00 41 06 DC 05 41 |...:.....:.A...A| 00000220: 24 B2 22 22 3A 81 41 B2 30 A4 37 3A 41 24 B2 41 |$."":.A.0.7:A$.A| 00000230: 24 AA C7 28 C2 28 34 30 39 36 34 AA 41 29 29 3A |$..(.(40964.A)):| 00000240: 82 00 65 06 E6 05 8B 41 24 B3 B1 22 43 42 4D 42 |..e....A$.."CBMB| 00000250: 41 53 49 43 22 A7 97 35 39 34 36 38 2C 31 34 3A |ASIC"..59468,14:| 00000260: 89 32 30 30 30 00 74 06 F0 05 99 C7 28 31 34 29 |.2000.t.....(14)| 00000270: 22 93 22 3B 00 B4 06 FA 05 4C 4E B2 31 3A 50 52 |".";.....LN.1:PR| 00000280: 24 B2 22 13 CC 4F 41 44 20 43 48 41 52 41 43 54 |$."..OAD CHARACT| 00000290: 45 52 20 53 45 54 3F 20 22 3A 4D 44 B2 31 33 31 |ER SET? ":MD.131| 000002A0: 3A 45 58 24 B2 22 22 3A 44 46 24 B2 22 22 3A 8D |:EX$."":DF$."":.| 000002B0: 39 30 30 30 00 BE 06 04 06 5A 24 B2 4E 24 00 CF |9000.....Z$.N$..| 000002C0: 06 0E 06 8B 5A 24 B2 22 CE 22 A7 32 30 30 30 00 |....Z$.".".2000.| 000002D0: E1 06 18 06 8B 5A 24 B3 B1 22 D9 22 A7 31 35 33 |.....Z$..".".153| 000002E0: 30 00 FC 06 22 06 97 35 36 2C 35 36 3A 97 35 35 |0..."..56,56:.55| 000002F0: 2C 30 3A 9C 3A 9F 31 2C 38 2C 31 35 00 38 07 2C |,0:.:.1,8,15.8.,| 00000300: 06 4C 4E B2 31 36 3A 50 52 24 B2 22 C6 49 4C 45 |.LN.16:PR$.".ILE| 00000310: 20 4E 41 4D 45 3F 20 22 3A 4D 44 B2 33 30 3A 45 | NAME? ":MD.30:E| 00000320: 58 24 B2 22 22 3A 44 46 24 B2 22 22 3A 8D 39 30 |X$."":DF$."":.90| 00000330: 30 30 3A 46 24 B2 4E 24 00 5F 07 36 06 9F 32 2C |00:F$.N$._.6..2,| 00000340: 38 2C 32 2C 46 24 AA 22 2C 50 2C 52 22 3A 8D 37 |8,2,F$.",P,R":.7| 00000350: 34 30 30 3A 8B 44 45 B3 B1 30 A7 37 30 30 30 00 |400:.DE..0.7000.| 00000360: 86 07 40 06 A1 23 32 2C 41 24 2C 41 24 3A 97 35 |..@..#2,A$,A$:.5| 00000370: 33 32 37 32 2C 28 C2 28 35 33 32 37 32 29 AF 32 |3272,(.(53272).2| 00000380: 34 30 29 AA 31 35 00 B1 07 4A 06 81 41 B2 30 A4 |40).15...J..A.0.| 00000390: 32 30 34 37 3A A1 23 32 2C 41 24 3A 97 31 34 33 |2047:.#2,A$:.143| 000003A0: 33 36 AA 41 2C C6 28 41 24 AA C7 28 30 29 29 3A |36.A,.(A$..(0)):| 000003B0: 82 00 BD 07 54 06 A0 32 3A A0 31 3A 9C 00 CF 07 |....T..2:.1:....| 000003C0: D0 07 99 22 93 22 3B 3A 9F 31 2C 38 2C 31 35 00 |...".";:.1,8,15.| 000003D0: ED 07 DA 07 86 50 43 25 28 33 38 33 29 2C 51 24 |.....PC%(383),Q$| 000003E0: 28 33 38 33 29 2C 51 25 28 33 38 33 29 00 13 08 |(383),Q%(383)...| 000003F0: E4 07 41 31 24 B2 22 C1 D3 C3 C9 C9 20 56 41 4C |..A1$."..... VAL| 00000400: 55 45 20 46 4F 52 20 27 22 3A 41 32 24 B2 22 27 |UE FOR '":A2$."'| 00000410: 3F 20 22 00 56 08 EE 07 41 43 24 B2 22 40 41 42 |? ".V...AC$."@AB| 00000420: 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 |CDEFGHIJKLMNOPQR| 00000430: 53 54 55 56 57 58 59 5A 5B 5C 5D C0 C0 20 21 22 |STUVWXYZ[\].. !"| 00000440: AA C7 28 33 34 29 AA 22 23 24 25 26 27 28 29 2A |..(34)."#$%&'()*| 00000450: 2B 2C 2D 2E 2F 22 00 90 08 F8 07 41 43 24 B2 41 |+,-./".....AC$.A| 00000460: 43 24 AA 22 30 31 32 33 34 35 36 37 38 39 3A 3B |C$."0123456789:;| 00000470: 3C 3D 3E 3F C0 C1 C2 C3 C4 C5 C6 C7 C8 C9 CA CB |<=>?............| 00000480: CC CD CE CF D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 DA 22 |..............."| 00000490: 00 C4 08 02 08 41 43 24 B2 41 43 24 AA 22 C0 DC |.....AC$.AC$."..| 000004A0: DD FF DF A0 A1 A2 C0 C0 C0 A6 C0 A8 A9 C0 AB C0 |................| 000004B0: C0 C0 C0 C0 B1 B2 B3 C0 B5 B6 B7 B8 B9 C0 C0 C0 |................| 000004C0: C0 C0 BF 22 00 F5 08 07 08 58 24 B2 22 1D 1D 1D |...".....X$."...| 000004D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000004E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000004F0: 1D 1D 1D 1D 22 00 1C 09 0C 08 81 41 B2 30 A4 31 |...."......A.0.1| 00000500: 32 37 3A 51 24 28 41 29 B2 22 2A 22 3A 51 25 28 |27:Q$(A)."*":Q%(| 00000510: 41 29 B2 31 3A 82 3A 47 B2 31 32 38 00 41 09 16 |A).1:.:G.128.A..| 00000520: 08 87 51 24 28 47 29 2C 51 25 28 47 29 3A 8B 51 |..Q$(G),Q%(G):.Q| 00000530: 24 28 47 29 B2 22 2A 45 4E 44 2A 22 A7 32 31 30 |$(G)."*END*".210| 00000540: 30 00 62 09 20 08 4B B2 51 25 28 47 29 3A 47 B2 |0.b. .K.Q%(G):G.| 00000550: 47 AA 51 25 28 47 29 3A 8B 4B B1 31 A7 47 B2 47 |G.Q%(G):.K.1.G.G| 00000560: AA 31 00 6C 09 2A 08 89 32 30 37 30 00 AC 09 34 |.1.l.*..2070...4| 00000570: 08 4C 4E B2 31 3A 50 52 24 B2 22 13 CC 4F 41 44 |.LN.1:PR$."..OAD| 00000580: 20 50 52 45 56 49 4F 55 53 20 46 49 4C 45 3F 20 | PREVIOUS FILE? | 00000590: 22 3A 4D 44 B2 31 33 31 3A 45 58 24 B2 22 22 3A |":MD.131:EX$."":| 000005A0: 44 46 24 B2 22 22 3A 8D 39 30 30 30 00 B6 09 35 |DF$."":.9000...5| 000005B0: 08 5A 24 B2 4E 24 00 C7 09 3E 08 8B 5A 24 B2 22 |.Z$.N$...>..Z$."| 000005C0: CE 22 A7 32 35 30 30 00 D9 09 48 08 8B 5A 24 B3 |.".2500...H..Z$.| 000005D0: B1 22 D9 22 A7 32 31 30 30 00 15 0A 52 08 4C 4E |.".".2100...R.LN| 000005E0: B2 31 36 3A 50 52 24 B2 22 C6 49 4C 45 20 4E 41 |.16:PR$.".ILE NA| 000005F0: 4D 45 3F 20 22 3A 4D 44 B2 33 30 3A 45 58 24 B2 |ME? ":MD.30:EX$.| 00000600: 22 22 3A 44 46 24 B2 22 22 3A 8D 39 30 30 30 3A |"":DF$."":.9000:| 00000610: 46 24 B2 4E 24 00 3C 0A 5C 08 9F 32 2C 38 2C 32 |F$.N$.<.\..2,8,2| 00000620: 2C 46 24 AA 22 2C 50 2C 52 22 3A 8D 37 34 30 30 |,F$.",P,R":.7400| 00000630: 3A 8B 44 45 B3 B1 30 A7 37 30 30 30 00 4E 0A 66 |:.DE..0.7000.N.f| 00000640: 08 A1 23 32 2C 41 24 3A A1 23 32 2C 41 24 00 5E |..#2,A$:.#2,A$.^| 00000650: 0A 70 08 8D 37 39 30 30 3A 4E 43 B2 41 25 00 80 |.p..7900:NC.A%..| 00000660: 0A 7A 08 81 41 B2 30 A4 33 38 33 3A 8D 37 39 30 |.z..A.0.383:.790| 00000670: 30 3A 50 43 25 28 41 29 B2 41 25 3A 82 3A A0 32 |0:PC%(A).A%:.:.2| 00000680: 00 8A 0A 84 08 89 33 30 30 30 00 CE 0A C4 09 4C |......3000.....L| 00000690: 4E B2 33 3A 50 52 24 B2 22 27 CE 55 4C 4C 27 20 |N.3:PR$."'.ULL' | 000006A0: 43 48 41 52 41 43 54 45 52 3F 20 22 3A 4D 44 B2 |CHARACTER? ":MD.| 000006B0: 34 3A 45 58 24 B2 22 22 3A 44 46 24 B2 22 22 3A |4:EX$."":DF$."":| 000006C0: 8D 39 30 30 30 3A 4E 43 B2 C5 28 4E 24 29 00 E8 |.9000:NC..(N$)..| 000006D0: 0A CE 09 81 41 B2 30 A4 33 31 3A 50 43 25 28 41 |....A.0.31:PC%(A| 000006E0: 29 B2 41 AA 36 34 3A 82 00 00 0B D8 09 81 41 B2 |).A.64:.......A.| 000006F0: 33 32 A4 36 33 3A 50 43 25 28 41 29 B2 41 3A 82 |32.63:PC%(A).A:.| 00000700: 00 1C 0B E2 09 81 41 B2 36 34 A4 39 30 3A 50 43 |......A.64.90:PC| 00000710: 25 28 41 29 B2 41 AA 31 32 38 3A 82 00 36 0B EC |%(A).A.128:..6..| 00000720: 09 81 41 B2 39 31 A4 33 38 33 3A 50 43 25 28 41 |..A.91.383:PC%(A| 00000730: 29 B2 4E 43 3A 82 00 42 0B B8 0B 47 B2 30 3A 44 |).NC:..B...G.0:D| 00000740: B2 31 00 70 0B C2 0B 51 55 24 B2 51 24 28 47 29 |.1.p...QU$.Q$(G)| 00000750: 3A 8B 47 B3 31 32 38 A7 51 55 24 B2 41 31 24 AA |:.G.128.QU$.A1$.| 00000760: CA 28 41 43 24 2C 47 AA 31 2C 31 29 AA 41 32 24 |.(AC$,G.1,1).A2$| 00000770: 00 92 0B CC 0B 8B 47 B3 31 32 38 A7 8B CA 28 41 |......G.128...(A| 00000780: 43 24 2C 47 AA 31 2C 31 29 B2 22 C0 22 A7 33 33 |C$,G.1,1).".".33| 00000790: 31 30 00 9E 0B D6 0B 4E B2 51 25 28 47 29 00 AA |10.....N.Q%(G)..| 000007A0: 0B E0 0B 99 22 93 22 51 55 24 00 B5 0B EA 0B 81 |...."."QU$......| 000007B0: 54 B2 31 A4 4E 00 D3 0B F4 0B 45 58 24 B2 22 12 |T.1.N.....EX$.".| 000007C0: 92 22 3A 8B 47 B1 30 A7 45 58 24 B2 45 58 24 AA |.":.G.0.EX$.EX$.| 000007D0: 22 91 22 00 EA 0B FE 0B 8B 47 B3 33 38 33 A7 45 |"."......G.383.E| 000007E0: 58 24 B2 45 58 24 AA 22 11 22 00 FF 0B 08 0C 8B |X$.EX$."."......| 000007F0: 54 B1 31 A7 45 58 24 B2 45 58 24 AA 22 9D 22 00 |T.1.EX$.EX$.".".| 00000800: 14 0C 12 0C 8B 54 B3 4E A7 45 58 24 B2 45 58 24 |.....T.N.EX$.EX$| 00000810: AA 22 1D 22 00 4A 0C 1C 0C 44 24 B2 C9 28 C4 28 |.".".J...D$..(.(| 00000820: 50 43 25 28 47 AA 54 AB 31 29 29 2C 33 29 3A 58 |PC%(G.T.1)),3):X| 00000830: 31 24 B2 22 13 11 22 AA C8 28 58 24 2C 36 AC 28 |1$.".."..(X$,6.(| 00000840: 54 AB 31 29 29 AA 22 3F 20 22 00 7F 0C 26 0C 4C |T.1))."? "...&.L| 00000850: 4E B2 33 3A 50 52 24 B2 58 31 24 3A 4D 44 B2 34 |N.3:PR$.X1$:MD.4| 00000860: 3A 44 46 24 B2 44 24 3A 8D 39 30 30 30 3A 56 B2 |:DF$.D$:.9000:V.| 00000870: C5 28 4E 24 29 3A 53 53 B2 32 35 35 AF 53 56 00 |.(N$):SS.255.SV.| 00000880: 8F 0C 30 0C 8B 53 53 B2 31 37 A7 33 33 30 30 00 |..0..SS.17.3300.| 00000890: A0 0C 3A 0C 8B 53 53 B2 31 34 35 A7 33 33 36 30 |..:..SS.145.3360| 000008A0: 00 B0 0C 44 0C 8B 53 53 B2 32 39 A7 33 33 37 30 |...D..SS.29.3370| 000008B0: 00 C1 0C 4E 0C 8B 53 53 B2 31 35 37 A7 33 33 39 |...N..SS.157.339| 000008C0: 30 00 D1 0C 58 0C 8B 53 53 B2 31 38 A7 34 30 30 |0...X..SS.18.400| 000008D0: 30 00 E2 0C 62 0C 8B 53 53 B2 31 34 36 A7 33 34 |0...b..SS.146.34| 000008E0: 31 30 00 F2 0C 6C 0C 8B 56 B1 32 35 35 A7 33 31 |10...l..V.255.31| 000008F0: 31 30 00 03 0D 76 0C 50 43 25 28 47 AA 54 AB 31 |10...v.PC%(G.T.1| 00000900: 29 B2 56 00 09 0D 80 0C 82 00 1E 0D 8A 0C 8B 47 |).V............G| 00000910: B1 39 30 AF 47 B3 31 32 38 A7 33 32 37 35 00 2C |.90.G.128.3275.,| 00000920: 0D 94 0C 8B 4E B2 31 A7 33 33 30 30 00 46 0D 99 |....N.1.3300.F..| 00000930: 0C 44 24 B2 C9 28 C4 28 50 43 25 28 47 AA 54 AB |.D$..(.(PC%(G.T.| 00000940: 31 29 29 2C 33 29 00 7E 0D 9E 0C 99 3A 4C 4E B2 |1)),3).~....:LN.| 00000950: 33 3A 50 52 24 B2 22 D3 45 43 4F 4E 44 41 52 59 |3:PR$.".ECONDARY| 00000960: 20 41 44 44 52 45 53 53 3F 20 22 3A 4D 44 B2 34 | ADDRESS? ":MD.4| 00000970: 3A 45 58 24 B2 22 22 3A 44 46 24 B2 44 24 00 A7 |:EX$."":DF$.D$..| 00000980: 0D A3 0C 8D 39 30 30 30 3A 56 B2 C5 28 4E 24 29 |....9000:V..(N$)| 00000990: 3A 99 22 91 22 3B 3A 8B 56 B1 33 31 AF 56 B3 31 |:.".";:.V.31.V.1| 000009A0: 32 38 A7 33 35 30 30 00 B8 0D A8 0C 50 43 25 28 |28.3500.....PC%(| 000009B0: 47 AA 54 AB 31 29 B2 56 00 D0 0D B2 0C 8B 47 B3 |G.T.1).V......G.| 000009C0: B1 32 37 38 AF 47 B3 B1 32 38 34 A7 33 33 30 30 |.278.G..284.3300| 000009D0: 00 F9 0D BC 0C 81 54 B2 31 A4 4E 3A 8B 50 43 25 |......T.1.N:.PC%| 000009E0: 28 54 29 B3 B1 4E 43 A7 50 43 25 28 54 29 B2 50 |(T)..NC.PC%(T).P| 000009F0: 43 25 28 54 29 AF 31 32 37 00 05 0E C6 0C 82 3A |C%(T).127......:| 00000A00: 89 33 33 30 30 00 22 0E CB 0C 44 24 B2 C9 28 C4 |.3300."...D$..(.| 00000A10: 28 50 43 25 28 47 AB 39 30 AA 33 34 36 29 29 2C |(PC%(G.90.346)),| 00000A20: 33 29 00 59 0E D0 0C 99 3A 4C 4E B2 33 3A 50 52 |3).Y....:LN.3:PR| 00000A30: 24 B2 22 D3 45 43 4F 4E 44 20 43 48 41 52 41 43 |$.".ECOND CHARAC| 00000A40: 54 45 52 3F 20 22 3A 4D 44 B2 34 3A 45 58 24 B2 |TER? ":MD.4:EX$.| 00000A50: 22 22 3A 44 46 24 B2 44 24 00 7D 0E D5 0C 8D 39 |"":DF$.D$.}....9| 00000A60: 30 30 30 3A 56 B2 C5 28 4E 24 29 3A 99 22 91 22 |000:V..(N$):."."| 00000A70: 3B 3A 8B 56 B1 32 35 35 A7 33 32 38 30 00 97 0E |;:.V.255.3280...| 00000A80: DA 0C 50 43 25 28 47 AB 39 30 AA 33 34 36 29 B2 |..PC%(G.90.346).| 00000A90: 56 3A 89 33 33 30 30 00 9F 0E E4 0C 44 B2 31 00 |V:.3300.....D.1.| 00000AA0: A7 0E EE 0C 4B B2 47 00 C2 0E F8 0C 4B B2 4B AA |....K.G.....K.K.| 00000AB0: 44 3A 8B 4B B2 33 38 34 B0 4B B2 AB 31 A7 33 30 |D:.K.384.K..1.30| 00000AC0: 31 30 00 DA 0E 02 0D 8B 51 24 28 4B 29 B2 22 2A |10......Q$(K)."*| 00000AD0: 45 4E 44 2A 22 A7 33 30 31 30 00 ED 0E 0C 0D 8B |END*".3010......| 00000AE0: 51 24 28 4B 29 B2 22 22 A7 33 33 32 30 00 FB 0E |Q$(K)."".3320...| 00000AF0: 16 0D 47 B2 4B 3A 89 33 30 31 30 00 0A 0F 20 0D |..G.K:.3010... .| 00000B00: 44 B2 AB 31 3A 89 33 33 31 30 00 18 0F 2A 0D 8B |D..1:.3310...*..| 00000B10: 54 B2 4E A7 33 31 31 30 00 28 0F 34 0D 54 B2 54 |T.N.3110.(.4.T.T| 00000B20: AA 31 3A 89 33 30 36 30 00 36 0F 3E 0D 8B 54 B2 |.1:.3060.6.>..T.| 00000B30: 31 A7 33 31 31 30 00 46 0F 48 0D 54 B2 54 AB 31 |1.3110.F.H.T.T.1| 00000B40: 3A 89 33 30 36 30 00 5F 0F 52 0D 44 B2 31 3A 8B |:.3060._.R.D.1:.| 00000B50: 47 B1 31 32 37 A7 47 B2 30 3A 89 33 30 31 30 00 |G.127.G.0:.3010.| 00000B60: 6F 0F 5C 0D 47 B2 31 32 38 3A 89 33 30 31 30 00 |o.\.G.128:.3010.| 00000B70: 7D 0F AC 0D 8B 56 B2 4E 43 A7 56 B2 30 00 8E 0F |}....V.NC.V.0...| 00000B80: B6 0D 56 B2 56 AF 33 31 3A 89 33 32 34 30 00 CA |..V.V.31:.3240..| 00000B90: 0F A0 0F 4C 4E B2 31 36 3A 50 52 24 B2 22 C6 49 |...LN.16:PR$.".I| 00000BA0: 4C 45 4E 41 4D 45 3F 20 22 3A 4D 44 B2 33 30 3A |LENAME? ":MD.30:| 00000BB0: 45 58 24 B2 22 12 22 3A 44 46 24 B2 22 22 3A 8D |EX$.".":DF$."":.| 00000BC0: 39 30 30 30 3A 46 24 B2 4E 24 00 DA 0F A5 0F 8B |9000:F$.N$......| 00000BD0: 53 56 B2 31 38 A7 33 30 30 30 00 18 10 AA 0F 4C |SV.18.3000.....L| 00000BE0: 4E B2 31 3A 50 52 24 B2 22 C4 52 49 56 45 20 4E |N.1:PR$.".RIVE N| 00000BF0: 55 4D 42 45 52 3F 20 22 3A 4D 44 B2 34 3A 45 58 |UMBER? ":MD.4:EX| 00000C00: 24 B2 22 12 22 3A 44 46 24 B2 22 22 3A 8D 39 30 |$.".":DF$."":.90| 00000C10: 30 30 3A 44 24 B2 4E 24 00 28 10 AF 0F 8B 53 56 |00:D$.N$.(....SV| 00000C20: B2 31 38 A7 33 30 30 30 00 44 10 B4 0F 44 B2 C5 |.18.3000.D...D..| 00000C30: 28 44 24 29 3A 8B 44 B3 B1 30 AF 44 B3 B1 31 A7 |(D$):.D..0.D..1.| 00000C40: 34 30 31 30 00 60 10 BE 0F 9F 32 2C 38 2C 32 2C |4010.`....2,8,2,| 00000C50: 44 24 AA 22 3A 22 AA 46 24 AA 22 2C 50 2C 57 22 |D$.":".F$.",P,W"| 00000C60: 00 76 10 C8 0F 8D 37 34 30 30 3A 8B 44 45 B3 B1 |.v....7400:.DE..| 00000C70: 30 A7 37 30 30 30 00 83 10 D2 0F 98 32 2C 22 D3 |0.7000......2,".| 00000C80: C4 22 3B 00 91 10 DC 0F 98 32 2C C7 28 4E 43 29 |.";......2,.(NC)| 00000C90: 3B 00 B1 10 E6 0F 81 41 B2 30 A4 33 38 33 3A 98 |;......A.0.383:.| 00000CA0: 32 2C C7 28 50 43 25 28 41 29 29 3B 3A 82 3A A0 |2,.(PC%(A));:.:.| 00000CB0: 32 00 C1 10 F0 0F 8D 37 34 30 30 3A 89 37 30 30 |2......7400:.700| 00000CC0: 30 00 D0 10 58 1B 8B 44 45 B2 30 A7 37 35 32 30 |0...X..DE.0.7520| 00000CD0: 00 E0 10 62 1B 8B 44 45 B2 36 33 A7 37 35 30 30 |...b..DE.63.7500| 00000CE0: 00 F7 10 6C 1B 99 22 C4 49 53 4B 20 45 52 52 4F |...l..".ISK ERRO| 00000CF0: 52 3A 20 22 44 45 24 00 01 11 76 1B 89 37 35 32 |R: "DE$...v..752| 00000D00: 30 00 11 11 E8 1C 44 45 24 B2 22 22 3A 44 45 B2 |0.....DE$."":DE.| 00000D10: 30 00 40 11 F2 1C A1 23 31 2C 44 31 24 3A 8B 53 |0.@....#1,D1$:.S| 00000D20: 54 B2 30 AF 44 31 24 B3 B1 C7 28 31 33 29 A7 44 |T.0.D1$...(13).D| 00000D30: 45 24 B2 44 45 24 AA 44 31 24 3A 89 37 34 31 30 |E$.DE$.D1$:.7410| 00000D40: 00 53 11 FC 1C 44 45 B2 C5 28 C8 28 44 45 24 2C |.S...DE..(.(DE$,| 00000D50: 32 29 29 00 59 11 06 1D 8E 00 98 11 4C 1D A0 32 |2)).Y.......L..2| 00000D60: 3A 4C 4E B2 31 3A 50 52 24 B2 22 D2 45 50 4C 41 |:LN.1:PR$.".EPLA| 00000D70: 43 45 20 45 58 49 53 54 49 4E 47 20 46 49 4C 45 |CE EXISTING FILE| 00000D80: 3F 20 22 3A 4D 44 B2 31 33 31 3A 45 58 24 B2 22 |? ":MD.131:EX$."| 00000D90: 22 3A 44 46 24 B2 22 22 00 A8 11 51 1D 8D 39 30 |":DF$.""...Q..90| 00000DA0: 30 30 3A 5A 24 B2 4E 24 00 D0 11 56 1D 8B 5A 24 |00:Z$.N$...V..Z$| 00000DB0: B2 22 D9 22 A7 98 31 2C 22 53 22 AA C7 28 44 AA |."."..1,"S"..(D.| 00000DC0: 34 38 29 AA 22 3A 22 AA 46 24 3A 89 34 30 33 30 |48).":".F$:.4030| 00000DD0: 00 E4 11 60 1D A1 5A 24 3A 8B 5A 24 B2 22 22 A7 |...`..Z$:.Z$."".| 00000DE0: 37 35 32 30 00 F7 11 6A 1D A0 32 3A 99 22 93 22 |7520...j..2:."."| 00000DF0: 3B 3A 89 32 31 30 30 00 FD 11 78 1E 80 00 17 12 |;:.2100...x.....| 00000E00: DC 1E A1 23 32 2C 41 24 3A 8B 41 24 B2 22 22 A7 |...#2,A$:.A$."".| 00000E10: 41 24 B2 C7 28 30 29 00 26 12 E6 1E 41 25 B2 C6 |A$..(0).&...A%..| 00000E20: 28 41 24 29 3A 8E 00 4D 12 40 1F 83 22 C3 41 52 |(A$):..M.@..".AR| 00000E30: 52 49 41 47 45 20 52 45 54 55 52 4E 20 28 4C 49 |RIAGE RETURN (LI| 00000E40: 4E 45 20 46 45 45 44 29 3F 20 22 2C 31 00 77 12 |NE FEED)? ",1.w.| 00000E50: 4A 1F 83 22 C3 41 52 52 49 41 47 45 20 52 45 54 |J..".ARRIAGE RET| 00000E60: 55 52 4E 20 28 4E 4F 20 4C 49 4E 45 20 46 45 45 |URN (NO LINE FEE| 00000E70: 44 29 3F 20 22 2C 31 00 96 12 54 1F 83 22 CC 49 |D)? ",1...T..".I| 00000E80: 4E 45 20 46 45 45 44 20 43 48 41 52 41 43 54 45 |NE FEED CHARACTE| 00000E90: 52 3F 20 22 2C 31 00 B5 12 5E 1F 83 22 C2 41 43 |R? ",1...^..".AC| 00000EA0: 4B 53 50 41 43 45 20 43 48 41 52 41 43 54 45 52 |KSPACE CHARACTER| 00000EB0: 3F 20 22 2C 31 00 D4 12 68 1F 83 22 D5 4E 44 45 |? ",1...h..".NDE| 00000EC0: 52 4C 49 4E 45 20 43 48 41 52 41 43 54 45 52 3F |RLINE CHARACTER?| 00000ED0: 20 22 2C 31 00 FC 12 72 1F 83 22 D0 52 49 4E 54 | ",1...r..".RINT| 00000EE0: 45 52 20 49 4E 49 54 41 4C 49 5A 45 20 43 48 41 |ER INITALIZE CHA| 00000EF0: 52 41 43 54 45 52 53 3F 20 22 2C 35 00 1D 13 7C |RACTERS? ",5...|| 00000F00: 1F 83 22 CC 49 4E 45 20 42 45 47 49 4E 20 43 48 |..".INE BEGIN CH| 00000F10: 41 52 41 43 54 45 52 53 3F 20 22 2C 35 00 43 13 |ARACTERS? ",5.C.| 00000F20: 86 1F 83 22 D5 4E 44 45 52 4C 49 4E 45 20 42 45 |...".NDERLINE BE| 00000F30: 47 49 4E 20 43 48 41 52 41 43 54 45 52 53 3F 20 |GIN CHARACTERS? | 00000F40: 22 2C 35 00 67 13 90 1F 83 22 D5 4E 44 45 52 4C |",5.g....".NDERL| 00000F50: 49 4E 45 20 45 4E 44 20 43 48 41 52 41 43 54 45 |INE END CHARACTE| 00000F60: 52 53 3F 20 22 2C 35 00 8C 13 9A 1F 83 22 C2 4F |RS? ",5......".O| 00000F70: 4C 44 46 41 43 45 20 42 45 47 49 4E 20 43 48 41 |LDFACE BEGIN CHA| 00000F80: 52 41 43 54 45 52 53 3F 20 22 2C 35 00 AF 13 A4 |RACTERS? ",5....| 00000F90: 1F 83 22 C2 4F 4C 44 46 41 43 45 20 45 4E 44 20 |..".OLDFACE END | 00000FA0: 43 48 41 52 41 43 54 45 52 53 3F 20 22 2C 35 00 |CHARACTERS? ",5.| 00000FB0: D9 13 AE 1F 83 22 D5 4E 44 45 52 4C 49 4E 45 20 |.....".NDERLINE | 00000FC0: 42 45 47 49 4E 20 28 4E 4F 20 4C 49 4E 45 20 46 |BEGIN (NO LINE F| 00000FD0: 45 45 44 29 3F 20 22 2C 35 00 01 14 B8 1F 83 22 |EED)? ",5......"| 00000FE0: D5 4E 44 45 52 4C 49 4E 45 20 45 4E 44 20 28 4E |.NDERLINE END (N| 00000FF0: 4F 20 4C 49 4E 45 20 46 45 45 44 29 3F 20 22 2C |O LINE FEED)? ",| 00001000: 35 00 2A 14 C2 1F 83 22 C2 4F 4C 44 46 41 43 45 |5.*....".OLDFACE| 00001010: 20 42 45 47 49 4E 20 28 4E 4F 20 4C 49 4E 45 20 | BEGIN (NO LINE | 00001020: 46 45 45 44 29 3F 20 22 2C 35 00 51 14 CC 1F 83 |FEED)? ",5.Q....| 00001030: 22 C2 4F 4C 44 46 41 43 45 20 45 4E 44 20 28 4E |".OLDFACE END (N| 00001040: 4F 20 4C 49 4E 45 20 46 45 45 44 29 3F 20 22 2C |O LINE FEED)? ",| 00001050: 35 00 79 14 D6 1F 83 22 D3 55 50 45 52 53 43 52 |5.y....".UPERSCR| 00001060: 49 50 54 20 42 45 47 49 4E 20 43 48 41 52 41 43 |IPT BEGIN CHARAC| 00001070: 54 45 52 53 3F 20 22 2C 35 00 9F 14 E0 1F 83 22 |TERS? ",5......"| 00001080: D3 55 50 45 52 53 43 52 49 50 54 20 45 4E 44 20 |.UPERSCRIPT END | 00001090: 43 48 41 52 41 43 54 45 52 53 3F 20 22 2C 35 00 |CHARACTERS? ",5.| 000010A0: C5 14 EA 1F 83 22 D3 55 42 53 43 52 49 50 54 20 |.....".UBSCRIPT | 000010B0: 42 45 47 49 4E 20 43 48 41 52 41 43 54 45 52 53 |BEGIN CHARACTERS| 000010C0: 3F 20 22 2C 35 00 E9 14 F4 1F 83 22 D3 55 42 53 |? ",5......".UBS| 000010D0: 43 52 49 50 54 20 45 4E 44 20 43 48 41 52 41 43 |CRIPT END CHARAC| 000010E0: 54 45 52 53 3F 20 22 2C 35 00 0D 15 FE 1F 83 22 |TERS? ",5......"| 000010F0: C9 54 41 4C 49 43 53 20 42 45 47 49 4E 20 43 48 |.TALICS BEGIN CH| 00001100: 41 52 41 43 54 45 52 53 3F 20 22 2C 35 00 2F 15 |ARACTERS? ",5./.| 00001110: 08 20 83 22 C9 54 41 4C 49 43 53 20 45 4E 44 20 |. .".TALICS END | 00001120: 43 48 41 52 41 43 54 45 52 53 3F 20 22 2C 35 00 |CHARACTERS? ",5.| 00001130: 5E 15 12 20 83 22 D6 41 4C 55 45 20 54 4F 20 41 |^.. .".ALUE TO A| 00001140: 44 44 20 46 4F 52 20 49 54 41 4C 49 43 53 20 43 |DD FOR ITALICS C| 00001150: 48 41 52 41 43 54 45 52 53 3F 20 22 2C 31 00 88 |HARACTERS? ",1..| 00001160: 15 1C 20 83 22 D0 49 54 43 48 20 3D 20 31 30 20 |.. .".ITCH = 10 | 00001170: 43 48 41 52 41 43 54 45 52 53 20 50 45 52 20 49 |CHARACTERS PER I| 00001180: 4E 43 48 3F 20 22 2C 35 00 B2 15 26 20 83 22 D0 |NCH? ",5...& .".| 00001190: 49 54 43 48 20 3D 20 31 32 20 43 48 41 52 41 43 |ITCH = 12 CHARAC| 000011A0: 54 45 52 53 20 50 45 52 20 49 4E 43 48 3F 20 22 |TERS PER INCH? "| 000011B0: 2C 35 00 DC 15 30 20 83 22 D0 49 54 43 48 20 3D |,5...0 .".ITCH =| 000011C0: 20 31 35 20 43 48 41 52 41 43 54 45 52 53 20 50 | 15 CHARACTERS P| 000011D0: 45 52 20 49 4E 43 48 3F 20 22 2C 35 00 F6 15 3A |ER INCH? ",5...:| 000011E0: 20 83 22 CF 50 54 49 4F 4E 41 4C 20 50 49 54 43 | .".PTIONAL PITC| 000011F0: 48 3F 20 22 2C 35 00 21 16 44 20 83 22 CC 49 4E |H? ",5.!.D .".IN| 00001200: 45 20 53 50 41 43 49 4E 47 20 3D 20 36 20 4C 49 |E SPACING = 6 LI| 00001210: 4E 45 53 20 50 45 52 20 49 4E 43 48 3F 20 22 2C |NES PER INCH? ",| 00001220: 35 00 4C 16 4E 20 83 22 CC 49 4E 45 20 53 50 41 |5.L.N .".INE SPA| 00001230: 43 49 4E 47 20 3D 20 38 20 4C 49 4E 45 53 20 50 |CING = 8 LINES P| 00001240: 45 52 20 49 4E 43 48 3F 20 22 2C 35 00 6C 16 58 |ER INCH? ",5.l.X| 00001250: 20 83 22 CF 50 54 49 4F 4E 41 4C 20 4C 49 4E 45 | .".PTIONAL LINE| 00001260: 20 53 50 41 43 49 4E 47 3F 22 2C 35 00 9B 16 62 | SPACING?",5...b| 00001270: 20 83 22 CD 49 43 52 4F 53 50 41 43 49 4E 47 20 | .".ICROSPACING | 00001280: 46 4F 52 20 42 4F 4C 44 46 41 43 45 20 28 55 53 |FOR BOLDFACE (US| 00001290: 49 4E 47 20 42 53 29 3F 22 2C 35 00 C4 16 6C 20 |ING BS)?",5...l | 000012A0: 83 22 C6 4F 52 43 45 44 20 38 2D 42 49 54 20 43 |.".ORCED 8-BIT C| 000012B0: 48 41 52 41 43 54 45 52 53 20 42 45 47 49 4E 3F |HARACTERS BEGIN?| 000012C0: 20 22 2C 35 00 ED 16 76 20 83 22 C6 4F 52 43 45 | ",5...v .".ORCE| 000012D0: 44 20 37 2D 42 49 54 20 43 48 41 52 41 43 54 45 |D 7-BIT CHARACTE| 000012E0: 52 53 20 42 45 47 49 4E 3F 20 22 2C 35 00 16 17 |RS BEGIN? ",5...| 000012F0: 80 20 83 22 CE 55 4D 42 45 52 20 4F 46 20 4C 49 |. .".UMBER OF LI| 00001300: 4E 45 20 46 45 45 44 53 20 50 45 52 20 4C 49 4E |NE FEEDS PER LIN| 00001310: 45 3F 20 22 2C 31 00 32 17 8A 20 83 22 D3 55 50 |E? ",1.2.. .".UP| 00001320: 45 52 53 43 52 49 50 54 20 4D 4F 44 45 3F 20 22 |ERSCRIPT MODE? "| 00001330: 2C 31 00 53 17 94 20 83 22 CD 49 43 52 4F 53 50 |,1.S.. .".ICROSP| 00001340: 41 43 49 4E 47 20 4F 4E 20 28 D3 D0 D3 29 3F 20 |ACING ON (...)? | 00001350: 22 2C 35 00 75 17 9E 20 83 22 CD 49 43 52 4F 53 |",5.u.. .".ICROS| 00001360: 50 41 43 49 4E 47 20 4F 46 46 20 28 D3 D0 D3 29 |PACING OFF (...)| 00001370: 3F 20 22 2C 35 00 9F 17 A8 20 83 22 D3 45 4D 49 |? ",5.... .".EMI| 00001380: 2D 50 52 4F 50 4F 52 54 49 4F 4E 41 4C 20 53 50 |-PROPORTIONAL SP| 00001390: 41 43 49 4E 47 20 4D 4F 44 45 3F 20 22 2C 31 00 |ACING MODE? ",1.| 000013A0: D1 17 B2 20 83 22 CE 55 4D 42 45 52 20 4F 46 20 |... .".UMBER OF | 000013B0: 4D 49 43 52 4F 53 50 41 43 45 53 20 50 45 52 20 |MICROSPACES PER | 000013C0: 53 50 41 43 45 20 28 50 54 31 30 29 3F 20 22 2C |SPACE (PT10)? ",| 000013D0: 31 00 03 18 BC 20 83 22 CE 55 4D 42 45 52 20 4F |1.... .".UMBER O| 000013E0: 46 20 4D 49 43 52 4F 53 50 41 43 45 53 20 50 45 |F MICROSPACES PE| 000013F0: 52 20 53 50 41 43 45 20 28 50 54 31 32 29 3F 20 |R SPACE (PT12)? | 00001400: 22 2C 31 00 35 18 C6 20 83 22 CE 55 4D 42 45 52 |",1.5.. .".UMBER| 00001410: 20 4F 46 20 4D 49 43 52 4F 53 50 41 43 45 53 20 | OF MICROSPACES | 00001420: 50 45 52 20 53 50 41 43 45 20 28 50 54 31 35 29 |PER SPACE (PT15)| 00001430: 3F 20 22 2C 31 00 6B 18 D0 20 83 22 CE 55 4D 42 |? ",1.k.. .".UMB| 00001440: 45 52 20 4F 46 20 4D 49 43 52 4F 53 50 41 43 45 |ER OF MICROSPACE| 00001450: 53 20 50 45 52 20 53 50 41 43 45 20 28 4F 50 54 |S PER SPACE (OPT| 00001460: 49 4F 4E 41 4C 29 3F 20 22 2C 31 00 8E 18 DA 20 |IONAL)? ",1.... | 00001470: 83 22 27 D3 50 41 43 45 27 20 43 48 41 52 41 43 |."'.PACE' CHARAC| 00001480: 54 45 52 20 28 D3 D0 D3 29 3F 20 22 2C 31 00 B7 |TER (...)? ",1..| 00001490: 18 E4 20 83 22 CD 55 4C 54 49 4C 49 4E 47 55 41 |.. .".ULTILINGUA| 000014A0: 4C 20 43 48 41 52 41 43 54 45 52 20 53 45 54 20 |L CHARACTER SET | 000014B0: 4F 4E 3F 20 22 2C 35 00 E1 18 EE 20 83 22 CD 55 |ON? ",5.... .".U| 000014C0: 4C 54 49 4C 49 4E 47 55 41 4C 20 43 48 41 52 41 |LTILINGUAL CHARA| 000014D0: 43 54 45 52 20 53 45 54 20 4F 46 46 3F 20 22 2C |CTER SET OFF? ",| 000014E0: 35 00 13 19 F8 20 83 22 C2 59 54 45 20 50 4F 53 |5.... .".YTE POS| 000014F0: 49 54 49 4F 4E 20 46 4F 52 20 27 53 50 41 43 45 |ITION FOR 'SPACE| 00001500: 27 20 4E 55 4D 42 45 52 20 28 D3 D0 D3 29 3F 20 |' NUMBER (...)? | 00001510: 22 2C 31 00 3C 19 02 21 83 22 CF 46 46 53 45 54 |",1.<..!.".FFSET| 00001520: 20 46 4F 52 20 53 50 41 43 49 4E 47 20 42 59 54 | FOR SPACING BYT| 00001530: 45 20 28 D3 D0 D3 29 3F 20 22 2C 31 00 62 19 0C |E (...)? ",1.b..| 00001540: 21 83 22 D3 45 43 4F 4E 44 41 52 59 20 41 44 44 |!.".ECONDARY ADD| 00001550: 52 45 53 53 20 46 4F 52 20 54 45 58 54 3F 20 22 |RESS FOR TEXT? "| 00001560: 2C 31 00 71 19 C4 22 83 22 2A 45 4E 44 2A 22 2C |,1.q.."."*END*",| 00001570: 30 00 90 19 28 23 8F 20 2A 2A 2A 20 49 4E 50 55 |0...(#. *** INPU| 00001580: 54 20 53 55 42 52 4F 55 54 49 4E 45 20 2A 2A 2A |T SUBROUTINE ***| 00001590: 00 AF 19 32 23 8F 20 2A 2A 2A 20 53 54 41 54 55 |...2#. *** STATU| 000015A0: 53 20 50 41 53 53 45 44 20 49 4E 20 2A 2A 2A 00 |S PASSED IN ***.| 000015B0: CE 19 3C 23 8F 20 2A 2A 2A 20 4C 4E 2C 50 52 24 |..<#. *** LN,PR$| 000015C0: 2C 4D 44 2C 45 58 24 2C 44 46 24 2A 2A 2A 00 ED |,MD,EX$,DF$***..| 000015D0: 19 46 23 8F 20 2A 2A 2A 20 53 54 41 54 55 53 20 |.F#. *** STATUS | 000015E0: 52 45 54 55 52 4E 45 44 20 20 2A 2A 2A 00 0C 1A |RETURNED ***...| 000015F0: 50 23 8F 20 2A 2A 2A 20 49 4E 20 53 56 20 20 20 |P#. *** IN SV | 00001600: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 2B 1A 5A | ***.+.Z| 00001610: 23 8F 20 2A 2A 2A 20 49 4E 50 55 54 20 52 45 54 |#. *** INPUT RET| 00001620: 55 52 4E 45 44 20 49 4E 2A 2A 2A 00 4A 1A 64 23 |URNED IN***.J.d#| 00001630: 8F 20 2A 2A 2A 20 4E 24 20 20 20 20 20 20 20 20 |. *** N$ | 00001640: 20 20 20 20 20 20 20 2A 2A 2A 00 50 1A 6E 23 3A | ***.P.n#:| 00001650: 00 5A 1A 8C 23 99 50 52 24 3B 00 73 1A A0 23 44 |.Z..#.PR$;.s..#D| 00001660: 46 24 B2 C8 28 44 46 24 2C 4C 4E 29 3A 4E 24 B2 |F$..(DF$,LN):N$.| 00001670: 44 46 24 00 83 1A AA 23 99 4E 24 3B 3A 97 32 30 |DF$....#.N$;:.20| 00001680: 35 2C 30 00 90 1A B4 23 99 22 12 20 92 9D 22 3B |5,0....#.". ..";| 00001690: 00 A4 1A BE 23 A1 41 24 3A 8B 41 24 B2 22 22 A7 |....#.A$:.A$."".| 000016A0: 39 31 35 30 00 C5 1A C8 23 53 56 B2 C6 28 41 24 |9150....#SV..(A$| 000016B0: 29 3A 8B 53 56 B2 31 33 AF C3 28 4E 24 29 B2 30 |):.SV.13..(N$).0| 000016C0: A7 39 31 35 30 00 D5 1A CD 23 8B 53 56 B2 31 33 |.9150....#.SV.13| 000016D0: A7 39 35 30 30 00 ED 1A D2 23 8B 53 56 B2 32 30 |.9500....#.SV.20| 000016E0: AF C3 28 4E 24 29 B2 30 A7 39 31 35 30 00 19 1B |..(N$).0.9150...| 000016F0: DC 23 8B 53 56 B2 32 30 A7 4E 24 B2 C8 28 4E 24 |.#.SV.20.N$..(N$| 00001700: 2C C3 28 4E 24 29 AB 31 29 3A 99 22 20 9D 9D 20 |,.(N$).1):." .. | 00001710: 9D 22 3B 3A 89 39 31 34 30 00 39 1B E6 23 53 52 |.";:.9140.9..#SR| 00001720: B2 53 56 AF 31 32 37 3A 8B 53 52 B3 33 32 B0 53 |.SV.127:.SR.32.S| 00001730: 52 B1 39 35 A7 39 34 30 30 00 4C 1B EB 23 8B C3 |R.95.9400.L..#..| 00001740: 28 4E 24 29 B2 4C 4E A7 39 31 35 30 00 71 1B F0 |(N$).LN.9150.q..| 00001750: 23 53 51 B2 53 56 3A 8B 53 56 B1 34 37 AF 53 56 |#SQ.SV:.SV.47.SV| 00001760: B3 35 38 AF 28 4D 44 AF 34 29 B2 34 A7 39 33 30 |.58.(MD.4).4.930| 00001770: 30 00 94 1B FA 23 8B 28 53 56 B3 36 35 B0 53 56 |0....#.(SV.65.SV| 00001780: B1 39 30 29 AF 28 4D 44 AF 31 36 29 B2 31 36 A7 |.90).(MD.16).16.| 00001790: 39 33 30 30 00 AC 1B FF 23 8B 28 53 52 B3 36 35 |9300....#.(SR.65| 000017A0: B0 53 52 B1 39 30 29 A7 39 31 35 30 00 C8 1B 04 |.SR.90).9150....| 000017B0: 24 8B 28 4D 44 AF 31 32 38 29 B2 31 32 38 A7 53 |$.(MD.128).128.S| 000017C0: 51 B2 53 51 B0 31 32 38 00 E2 1B 0E 24 8B 28 4D |Q.SQ.128....$.(M| 000017D0: 44 AF 36 34 29 B2 36 34 A7 53 51 B2 53 51 AF 31 |D.64).64.SQ.SQ.1| 000017E0: 32 37 00 EC 1B 18 24 89 39 33 30 30 00 0A 1C 54 |27....$.9300...T| 000017F0: 24 4E 24 B2 4E 24 AA C7 28 53 51 29 3A 99 C7 28 |$N$.N$..(SQ):..(| 00001800: 53 51 29 3B 3A 89 39 31 34 30 00 1B 1C B8 24 8B |SQ);:.9140....$.| 00001810: 45 58 24 B2 22 22 A7 39 31 35 30 00 2C 1C C2 24 |EX$."".9150.,..$| 00001820: 81 4E 31 B2 31 A4 C3 28 45 58 24 29 00 48 1C CC |.N1.1..(EX$).H..| 00001830: 24 8B 53 56 B2 C6 28 CA 28 45 58 24 2C 4E 31 2C |$.SV..(.(EX$,N1,| 00001840: 31 29 29 A7 39 35 30 30 00 54 1C D6 24 82 3A 89 |1)).9500.T..$.:.| 00001850: 39 31 35 30 00 5F 1C 1C 25 99 22 20 22 3A 8E 00 |9150._..%." ":..| 00001860: 00 00 |.. |
.......1500.....:.6.....................
...............[....
..|.... .ER SET.UP PROGRAM
.......
..F.$.. AS OF MARCH 17, 1984 ...
.... ....8.
. COPYRIGHT (C) 1982 *.5.B..
BY STEVE DOUGLAS ..X.L..
. ..}.V.. BATT
ERIES INCLUDED ....`..
..D.J.. THIS VERSI. . P
ET.CBM.C64 ....T..
....~...........................
...........:.....:.A...A$."":.A.0.7:A$.A
$.G(B(40964.A)):..E....A$.."CBMBASIC"..5
9468,14:.2000.T....G(14)".";.....LN.1:PR
$.".LOAD CHARACTER SET? ":MD.131:EX$."":
DF$."":.9000.....Z$.N$.O....Z$."N".2000.
.....Z$.."Y".1530..."..56,56:.55,0:.:.1,
8,15.8.,.LN.16:PR$."FILE NAME? ":MD.30:E
X$."":DF$."":.9000:F$.N$._.6..2,8,2,F$."
,P,R":.7400:.DE..0.7000...@..#2,A$,A$:.5
3272,(B(53272).240).15...J..A.0.2047:.#2
,A$:.14336.A,F(A$.G(0)):....T. 2: 1:..O.
P..".";:.1,8,15...Z..PC%(383),Q$(383),Q%
(383).....A1$."ASCII VALUE FOR '":A2$."'
? ".V...AC$."@ABCDEFGHIJKLMNOPQRSTUVWXYZ
[\].. !".G(34)."#$%&'()*+,-./".....AC$.A
C$."0123456789:;<=>?.ABCDEFGHIJKLMNOPQRS
TUVWXYZ".D...AC$.AC$."..... ............
...................".....X$."...........
............................"......A.0.1
27:Q$(A)."*":Q%(A).1:.:G.128.A....Q$(G),
Q%(G):.Q$(G)."*END*".2100.B. .K.Q%(G):G.
G.Q%(G):.K.1.G.G.1.L.*..2070...4.LN.1:PR
$.".LOAD PREVIOUS FILE? ":MD.131:EX$."":
DF$."":.9000...5.Z$.N$.G.>..Z$."N".2500.
Y.H..Z$.."Y".2100...R.LN.16:PR$."FILE NA
ME? ":MD.30:EX$."":DF$."":.9000:F$.N$.<.
\..2,8,2,F$.",P,R":.7400:.DE..0.7000.N.F
..#2,A$:.#2,A$.^.P..7900:NC.A%...Z..A.0.
383:.7900:PC%(A).A%:.: 2......3000.N.D.L
N.3:PR$."'NULL' CHARACTER? ":MD.4:EX$.""
:DF$."":.9000:NC.E(N$)...N..A.0.31:PC%(A
).A.64:....X..A.32.63:PC%(A).A:.......A.
64.90:PC%(A).A.128:..6....A.91.383:PC%(A
).NC:..B...G.0:D.1.P.B.QU$.Q$(G):.G.128.
QU$.A1$.J(AC$,G.1,1).A2$...L..G.128..J(A
C$,G.1,1).".".3310...V.N.Q%(G)......"."Q
U$......T.1.N.S...EX$."..":.G.0.EX$.EX$.
"."......G.383.EX$.EX$."."......T.1.EX$.
EX$."."......T.N.EX$.EX$.".".J...D$.I(D(
PC%(G.T.1)),3):X1$."..".H(X$,6.(T.1))."?
"..&.LN.3:PR$.X1$:MD.4:DF$.D$:.9000:V.
E(N$):SS.255.SV...0..SS.17.3300. .:..SS.
145.3360...D..SS.29.3370.A.N..SS.157.339
0.Q.X..SS.18.4000...B..SS.146.3410...L..
V.255.3110...V.PC%(G.T.1).V............G
.90.G.128.3275.,....N.1.3300.F...D$.I(D(
PC%(G.T.1)),3).~....:LN.3:PR$."SECONDARY
ADDRESS? ":MD.4:EX$."":DF$.D$......9000
:V.E(N$):.".";:.V.31.V.128.3500.....PC%(
G.T.1).V.P....G..278.G..284.3300......T.
1.N:.PC%(T)..NC.PC%(T).PC%(T).127...F..:
.3300.".K.D$.I(D(PC%(G.90.346)),3).Y.P..
:LN.3:PR$."SECOND CHARACTER? ":MD.4:EX$.
"":DF$.D$.}.U..9000:V.E(N$):.".";:.V.255
.3280...Z.PC%(G.90.346).V:.3300.....D.1.
....K.G.B...K.K.D:.K.384.K..1.3010.Z....
Q$(K)."*END*".3010......Q$(K)."".3320...
..G.K:.3010... .D..1:.3310...*..T.N.3110
.(.4.T.T.1:.3060.6.>..T.1.3110.F.H.T.T.1
:.3060._.R.D.1:.G.127.G.0:.3010.O.\.G.12
8:.3010.}....V.NC.V.0.....V.V.31:.3240.J
. .LN.16:PR$."FILENAME? ":MD.30:EX$.".":
DF$."":.9000:F$.N$.Z....SV.18.3000.....L
N.1:PR$."DRIVE NUMBER? ":MD.4:EX$.".":DF
$."":.9000:D$.N$.(....SV.18.3000.D...D.E
(D$):.D..0.D..1.4010.`....2,8,2,D$.":".F
$.",P,W".V.H..7400:.DE..0.7000...R..2,"S
D";......2,G(NC);......A.0.383:.2,G(PC%(
A));:.: 2.A....7400:.7000.P.X..DE.0.7520
...B..DE.63.7500...L.."DISK ERROR: "DE$.
..V..7520.....DE$."":DE.0.@....#1,D1$:.S
T.0.D1$..G(13).DE$.DE$.D1$:.7410.S...DE.
E(H(DE$,2)).Y.......L. 2:LN.1:PR$."REPLA
CE EXISTING FILE? ":MD.131:EX$."":DF$.""
...Q..9000:Z$.N$.P.V..Z$."Y"..1,"S".G(D.
48).":".F$:.4030...`..Z$:.Z$."".7520...J
. 2:.".";:.2100...X........#2,A$:.A$."".
A$.G(0).&...A%.F(A$):..M.@.."CARRIAGE RE
TURN (LINE FEED)? ",1.W.J.."CARRIAGE RET
URN (NO LINE FEED)? ",1...T.."LINE FEED
CHARACTER? ",1...^.."BACKSPACE CHARACTER
? ",1.T.H.."UNDERLINE CHARACTER? ",1...R
.."PRINTER INITALIZE CHARACTERS? ",5...|
.."LINE BEGIN CHARACTERS? ",5.C...."UNDE
RLINE BEGIN CHARACTERS? ",5.G...."UNDERL
INE END CHARACTERS? ",5......"BOLDFACE B
EGIN CHARACTERS? ",5......"BOLDFACE END
CHARACTERS? ",5.Y...."UNDERLINE BEGIN (N
O LINE FEED)? ",5......"UNDERLINE END (N
O LINE FEED)? ",5.*.B.."BOLDFACE BEGIN (
NO LINE FEED)? ",5.Q.L.."BOLDFACE END (N
O LINE FEED)? ",5.Y.V.."SUPERSCRIPT BEGI
N CHARACTERS? ",5......"SUPERSCRIPT END
CHARACTERS? ",5.E...."SUBSCRIPT BEGIN CH
ARACTERS? ",5......"SUBSCRIPT END CHARAC
TERS? ",5......"ITALICS BEGIN CHARACTERS
? ",5./.. ."ITALICS END CHARACTERS? ",5.
^.. ."VALUE TO ADD FOR ITALICS CHARACTER
S? ",1.... ."PITCH = 10 CHARACTERS PER I
NCH? ",5...& ."PITCH = 12 CHARACTERS PER
INCH? ",5...0 ."PITCH = 15 CHARACTERS P
ER INCH? ",5...: ."OPTIONAL PITCH? ",5.!
.D ."LINE SPACING = 6 LINES PER INCH? ",
5.L.N ."LINE SPACING = 8 LINES PER INCH?
",5.L.X ."OPTIONAL LINE SPACING?",5...B
."MICROSPACING FOR BOLDFACE (USING BS)?
",5.D.L ."FORCED 8-BIT CHARACTERS BEGIN?
",5...V ."FORCED 7-BIT CHARACTERS BEGIN
? ",5.... ."NUMBER OF LINE FEEDS PER LIN
E? ",1.2.. ."SUPERSCRIPT MODE? ",1.S.. .
"MICROSPACING ON (SPS)? ",5.U.. ."MICROS
PACING OFF (SPS)? ",5.... ."SEMI-PROPORT
IONAL SPACING MODE? ",1.Q.. ."NUMBER OF
MICROSPACES PER SPACE (PT10)? ",1.... ."
NUMBER OF MICROSPACES PER SPACE (PT12)?
",1.5.F ."NUMBER OF MICROSPACES PER SPAC
E (PT15)? ",1.K.P ."NUMBER OF MICROSPACE
S PER SPACE (OPTIONAL)? ",1...Z ."'SPACE
' CHARACTER (SPS)? ",1.... ."MULTILINGUA
L CHARACTER SET ON? ",5.... ."MULTILINGU
AL CHARACTER SET OFF? ",5.... ."BYTE POS
ITION FOR 'SPACE' NUMBER (SPS)? ",1.<..!
."OFFSET FOR SPACING BYTE (SPS)? ",1.B..
!."SECONDARY ADDRESS FOR TEXT? ",1.Q.D".
"*END*",0...(#. *** INPUT SUBROUTINE ***
...2#. *** STATUS PASSED IN ***.N.<#. **
* LN,PR$,MD,EX$,DF$***...F#. *** STATUS
RETURNED ***...P#. *** IN SV
***.+.Z#. *** INPUT RETURNED IN***.J.D#
. *** N$ ***.P.N#:.Z..#.PR
$;.S. #DF$.H(DF$,LN):N$.DF$....#.N$;:.20
5,0....#.". ..";....#.A$:.A$."".9150.E.H
#SV.F(A$):.SV.13.C(N$).0.9150.U.M#.SV.13
.9500...R#.SV.20.C(N$).0.9150....#.SV.20
.N$.H(N$,C(N$).1):." .. .";:.9140.9..#SR
.SV.127:.SR.32.SR.95.9400.L..#.C(N$).LN.
9150.Q..#SQ.SV:.SV.47.SV.58.(MD.4).4.930
0....#.(SV.65.SV.90).(MD.16).16.9300....
#.(SR.65.SR.90).9150.H..$.(MD.128).128.S
Q.SQ.128....$.(MD.64).64.SQ.SQ.127....$.
9300...T$N$.N$.G(SQ):.G(SQ);:.9140....$.
EX$."".9150.,.B$.N1.1.C(EX$).H.L$.SV.F(J
(EX$,N1,1)).9500.T.V$.:.9150._..%." ":..
..
> CLICK IMAGE PREVIEW FOR FULL MODAL