PRINTER SETUP

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 20 41 53 20  |....$..      AS |
000000B0: 4F 46 20 4A 55 4C 59 20  38 2C 20 31 39 38 33 20  |OF JULY 8, 1983 |
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 0D 05 38 04  |          ....8.|
000000F0: AC 20 20 20 20 20 20 D3  52 49 47 48 54 20 28 43  |.      .RIGHT (C|
00000100: 29 20 31 39 38 32 20 20  20 20 20 20 AC 00 32 05  |) 1982      ..2.|
00000110: 42 04 AC 20 20 20 20 20  20 20 42 59 20 53 54 45  |B..       BY STE|
00000120: 56 45 20 44 4F 55 47 4C  41 53 20 20 20 20 20 20  |VE DOUGLAS      |
00000130: 20 AC 00 55 05 4C 04 AC  20 20 20 20 20 20 20 20  | ..U.L..        |
00000140: 20 20 20 20 20 AF 20 20  20 20 20 20 20 20 20 20  |     .          |
00000150: 20 20 20 20 AC 00 7A 05  56 04 AC 20 20 20 20 20  |    ..z.V..     |
00000160: 20 42 41 54 54 45 52 49  45 53 20 49 4E 43 4C 55  | BATTERIES INCLU|
00000170: 44 45 44 20 20 20 20 20  20 AC 00 9F 05 60 04 AC  |DED      ....`..|
00000180: 20 20 20 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 AC 00  |              ..|
000001A0: C1 05 6A 04 AC 20 54 48  49 53 20 56 45 52 53 49  |..j.. THIS VERSI|
000001B0: 91 20 81 20 50 45 54 AD  43 42 4D AD 43 36 34 20  |. . PET.CBM.C64 |
000001C0: AC 00 E6 05 74 04 AC 20  20 20 20 20 20 20 20 20  |....t..         |
000001D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001E0: 20 20 20 20 20 AC 00 0B  06 7E 04 AC AC AC 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 00 11 06 88 04  |................|
00000210: 3A 00 17 06 92 04 3A 00  3E 06 DC 05 41 24 B2 22  |:.....:.>...A$."|
00000220: 22 3A 81 41 B2 30 A4 37  3A 41 24 B2 41 24 AA C7  |":.A.0.7:A$.A$..|
00000230: 28 C2 28 34 30 39 36 34  AA 41 29 29 3A 82 00 62  |(.(40964.A)):..b|
00000240: 06 E6 05 8B 41 24 B3 B1  22 43 42 4D 42 41 53 49  |....A$.."CBMBASI|
00000250: 43 22 A7 97 35 39 34 36  38 2C 31 34 3A 89 32 30  |C"..59468,14:.20|
00000260: 30 30 00 71 06 F0 05 99  C7 28 31 34 29 22 93 22  |00.q.....(14)"."|
00000270: 3B 00 B1 06 FA 05 4C 4E  B2 31 3A 50 52 24 B2 22  |;.....LN.1:PR$."|
00000280: 13 CC 4F 41 44 20 43 48  41 52 41 43 54 45 52 20  |..OAD CHARACTER |
00000290: 53 45 54 3F 20 22 3A 4D  44 B2 31 33 31 3A 45 58  |SET? ":MD.131:EX|
000002A0: 24 B2 22 22 3A 44 46 24  B2 22 22 3A 8D 39 30 30  |$."":DF$."":.900|
000002B0: 30 00 BB 06 04 06 5A 24  B2 4E 24 00 CC 06 0E 06  |0.....Z$.N$.....|
000002C0: 8B 5A 24 B2 22 CE 22 A7  32 30 30 30 00 DE 06 18  |.Z$.".".2000....|
000002D0: 06 8B 5A 24 B3 B1 22 D9  22 A7 31 35 33 30 00 F9  |..Z$..".".1530..|
000002E0: 06 22 06 97 35 36 2C 35  36 3A 97 35 35 2C 30 3A  |."..56,56:.55,0:|
000002F0: 9C 3A 9F 31 2C 38 2C 31  35 00 35 07 2C 06 4C 4E  |.:.1,8,15.5.,.LN|
00000300: B2 31 36 3A 50 52 24 B2  22 C6 49 4C 45 20 4E 41  |.16:PR$.".ILE NA|
00000310: 4D 45 3F 20 22 3A 4D 44  B2 33 30 3A 45 58 24 B2  |ME? ":MD.30:EX$.|
00000320: 22 22 3A 44 46 24 B2 22  22 3A 8D 39 30 30 30 3A  |"":DF$."":.9000:|
00000330: 46 24 B2 4E 24 00 5C 07  36 06 9F 32 2C 38 2C 32  |F$.N$.\.6..2,8,2|
00000340: 2C 46 24 AA 22 2C 50 2C  52 22 3A 8D 37 34 30 30  |,F$.",P,R":.7400|
00000350: 3A 8B 44 45 B3 B1 30 A7  37 30 30 30 00 83 07 40  |:.DE..0.7000...@|
00000360: 06 A1 23 32 2C 41 24 2C  41 24 3A 97 35 33 32 37  |..#2,A$,A$:.5327|
00000370: 32 2C 28 C2 28 35 33 32  37 32 29 AF 32 34 30 29  |2,(.(53272).240)|
00000380: AA 31 35 00 AE 07 4A 06  81 41 B2 30 A4 32 30 34  |.15...J..A.0.204|
00000390: 37 3A A1 23 32 2C 41 24  3A 97 31 34 33 33 36 AA  |7:.#2,A$:.14336.|
000003A0: 41 2C C6 28 41 24 AA C7  28 30 29 29 3A 82 00 BA  |A,.(A$..(0)):...|
000003B0: 07 54 06 A0 32 3A A0 31  3A 9C 00 CC 07 D0 07 99  |.T..2:.1:.......|
000003C0: 22 93 22 3B 3A 9F 31 2C  38 2C 31 35 00 EA 07 DA  |".";:.1,8,15....|
000003D0: 07 86 50 43 25 28 33 38  33 29 2C 51 24 28 33 38  |..PC%(383),Q$(38|
000003E0: 33 29 2C 51 25 28 33 38  33 29 00 10 08 E4 07 41  |3),Q%(383).....A|
000003F0: 31 24 B2 22 C1 D3 C3 C9  C9 20 56 41 4C 55 45 20  |1$."..... VALUE |
00000400: 46 4F 52 20 27 22 3A 41  32 24 B2 22 27 3F 20 22  |FOR '":A2$."'? "|
00000410: 00 53 08 EE 07 41 43 24  B2 22 40 41 42 43 44 45  |.S...AC$."@ABCDE|
00000420: 46 47 48 49 4A 4B 4C 4D  4E 4F 50 51 52 53 54 55  |FGHIJKLMNOPQRSTU|
00000430: 56 57 58 59 5A 5B 5C 5D  C0 C0 20 21 22 AA C7 28  |VWXYZ[\].. !"..(|
00000440: 33 34 29 AA 22 23 24 25  26 27 28 29 2A 2B 2C 2D  |34)."#$%&'()*+,-|
00000450: 2E 2F 22 00 8D 08 F8 07  41 43 24 B2 41 43 24 AA  |./".....AC$.AC$.|
00000460: 22 30 31 32 33 34 35 36  37 38 39 3A 3B 3C 3D 3E  |"0123456789:;<=>|
00000470: 3F C0 C1 C2 C3 C4 C5 C6  C7 C8 C9 CA CB CC CD CE  |?...............|
00000480: CF D0 D1 D2 D3 D4 D5 D6  D7 D8 D9 DA 22 00 C1 08  |............"...|
00000490: 02 08 41 43 24 B2 41 43  24 AA 22 C0 DC DD FF DF  |..AC$.AC$.".....|
000004A0: A0 A1 A2 C0 C0 C0 A6 C0  A8 A9 C0 AB C0 C0 C0 C0  |................|
000004B0: C0 B1 B2 B3 C0 B5 B6 B7  B8 B9 C0 C0 C0 C0 C0 BF  |................|
000004C0: 22 00 F2 08 07 08 58 24  B2 22 1D 1D 1D 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 22 00 19 09 0C 08 81  41 B2 30 A4 31 32 37 3A  |."......A.0.127:|
00000500: 51 24 28 41 29 B2 22 2A  22 3A 51 25 28 41 29 B2  |Q$(A)."*":Q%(A).|
00000510: 31 3A 82 3A 47 B2 31 32  38 00 3E 09 16 08 87 51  |1:.:G.128.>....Q|
00000520: 24 28 47 29 2C 51 25 28  47 29 3A 8B 51 24 28 47  |$(G),Q%(G):.Q$(G|
00000530: 29 B2 22 2A 45 4E 44 2A  22 A7 32 31 30 30 00 5F  |)."*END*".2100._|
00000540: 09 20 08 4B B2 51 25 28  47 29 3A 47 B2 47 AA 51  |. .K.Q%(G):G.G.Q|
00000550: 25 28 47 29 3A 8B 4B B1  31 A7 47 B2 47 AA 31 00  |%(G):.K.1.G.G.1.|
00000560: 69 09 2A 08 89 32 30 37  30 00 A9 09 34 08 4C 4E  |i.*..2070...4.LN|
00000570: B2 31 3A 50 52 24 B2 22  13 CC 4F 41 44 20 50 52  |.1:PR$."..OAD PR|
00000580: 45 56 49 4F 55 53 20 46  49 4C 45 3F 20 22 3A 4D  |EVIOUS FILE? ":M|
00000590: 44 B2 31 33 31 3A 45 58  24 B2 22 22 3A 44 46 24  |D.131:EX$."":DF$|
000005A0: B2 22 22 3A 8D 39 30 30  30 00 B3 09 35 08 5A 24  |."":.9000...5.Z$|
000005B0: B2 4E 24 00 C4 09 3E 08  8B 5A 24 B2 22 CE 22 A7  |.N$...>..Z$.".".|
000005C0: 32 35 30 30 00 D6 09 48  08 8B 5A 24 B3 B1 22 D9  |2500...H..Z$..".|
000005D0: 22 A7 32 31 30 30 00 12  0A 52 08 4C 4E B2 31 36  |".2100...R.LN.16|
000005E0: 3A 50 52 24 B2 22 C6 49  4C 45 20 4E 41 4D 45 3F  |:PR$.".ILE NAME?|
000005F0: 20 22 3A 4D 44 B2 33 30  3A 45 58 24 B2 22 22 3A  | ":MD.30:EX$."":|
00000600: 44 46 24 B2 22 22 3A 8D  39 30 30 30 3A 46 24 B2  |DF$."":.9000:F$.|
00000610: 4E 24 00 39 0A 5C 08 9F  32 2C 38 2C 32 2C 46 24  |N$.9.\..2,8,2,F$|
00000620: AA 22 2C 50 2C 52 22 3A  8D 37 34 30 30 3A 8B 44  |.",P,R":.7400:.D|
00000630: 45 B3 B1 30 A7 37 30 30  30 00 4B 0A 66 08 A1 23  |E..0.7000.K.f..#|
00000640: 32 2C 41 24 3A A1 23 32  2C 41 24 00 5B 0A 70 08  |2,A$:.#2,A$.[.p.|
00000650: 8D 37 39 30 30 3A 4E 43  B2 41 25 00 7D 0A 7A 08  |.7900:NC.A%.}.z.|
00000660: 81 41 B2 30 A4 33 38 33  3A 8D 37 39 30 30 3A 50  |.A.0.383:.7900:P|
00000670: 43 25 28 41 29 B2 41 25  3A 82 3A A0 32 00 87 0A  |C%(A).A%:.:.2...|
00000680: 84 08 89 33 30 30 30 00  CB 0A C4 09 4C 4E B2 33  |...3000.....LN.3|
00000690: 3A 50 52 24 B2 22 27 CE  55 4C 4C 27 20 43 48 41  |:PR$."'.ULL' CHA|
000006A0: 52 41 43 54 45 52 3F 20  22 3A 4D 44 B2 34 3A 45  |RACTER? ":MD.4:E|
000006B0: 58 24 B2 22 22 3A 44 46  24 B2 22 22 3A 8D 39 30  |X$."":DF$."":.90|
000006C0: 30 30 3A 4E 43 B2 C5 28  4E 24 29 00 E5 0A CE 09  |00:NC..(N$).....|
000006D0: 81 41 B2 30 A4 33 31 3A  50 43 25 28 41 29 B2 41  |.A.0.31:PC%(A).A|
000006E0: AA 36 34 3A 82 00 FD 0A  D8 09 81 41 B2 33 32 A4  |.64:.......A.32.|
000006F0: 36 33 3A 50 43 25 28 41  29 B2 41 3A 82 00 19 0B  |63:PC%(A).A:....|
00000700: E2 09 81 41 B2 36 34 A4  39 30 3A 50 43 25 28 41  |...A.64.90:PC%(A|
00000710: 29 B2 41 AA 31 32 38 3A  82 00 33 0B EC 09 81 41  |).A.128:..3....A|
00000720: B2 39 31 A4 33 38 33 3A  50 43 25 28 41 29 B2 4E  |.91.383:PC%(A).N|
00000730: 43 3A 82 00 3F 0B B8 0B  47 B2 30 3A 44 B2 31 00  |C:..?...G.0:D.1.|
00000740: 6D 0B C2 0B 51 55 24 B2  51 24 28 47 29 3A 8B 47  |m...QU$.Q$(G):.G|
00000750: B3 31 32 38 A7 51 55 24  B2 41 31 24 AA CA 28 41  |.128.QU$.A1$..(A|
00000760: 43 24 2C 47 AA 31 2C 31  29 AA 41 32 24 00 8F 0B  |C$,G.1,1).A2$...|
00000770: CC 0B 8B 47 B3 31 32 38  A7 8B CA 28 41 43 24 2C  |...G.128...(AC$,|
00000780: 47 AA 31 2C 31 29 B2 22  C0 22 A7 33 33 31 30 00  |G.1,1).".".3310.|
00000790: 9B 0B D6 0B 4E B2 51 25  28 47 29 00 A7 0B E0 0B  |....N.Q%(G).....|
000007A0: 99 22 93 22 51 55 24 00  B2 0B EA 0B 81 54 B2 31  |."."QU$......T.1|
000007B0: A4 4E 00 D0 0B F4 0B 45  58 24 B2 22 12 92 22 3A  |.N.....EX$."..":|
000007C0: 8B 47 B1 30 A7 45 58 24  B2 45 58 24 AA 22 91 22  |.G.0.EX$.EX$."."|
000007D0: 00 E7 0B FE 0B 8B 47 B3  33 38 33 A7 45 58 24 B2  |......G.383.EX$.|
000007E0: 45 58 24 AA 22 11 22 00  FC 0B 08 0C 8B 54 B1 31  |EX$."."......T.1|
000007F0: A7 45 58 24 B2 45 58 24  AA 22 9D 22 00 11 0C 12  |.EX$.EX$."."....|
00000800: 0C 8B 54 B3 4E A7 45 58  24 B2 45 58 24 AA 22 1D  |..T.N.EX$.EX$.".|
00000810: 22 00 47 0C 1C 0C 44 24  B2 C9 28 C4 28 50 43 25  |".G...D$..(.(PC%|
00000820: 28 47 AA 54 AB 31 29 29  2C 33 29 3A 58 31 24 B2  |(G.T.1)),3):X1$.|
00000830: 22 13 11 22 AA C8 28 58  24 2C 36 AC 28 54 AB 31  |".."..(X$,6.(T.1|
00000840: 29 29 AA 22 3F 20 22 00  7C 0C 26 0C 4C 4E B2 33  |))."? ".|.&.LN.3|
00000850: 3A 50 52 24 B2 58 31 24  3A 4D 44 B2 34 3A 44 46  |:PR$.X1$:MD.4:DF|
00000860: 24 B2 44 24 3A 8D 39 30  30 30 3A 56 B2 C5 28 4E  |$.D$:.9000:V..(N|
00000870: 24 29 3A 53 53 B2 32 35  35 AF 53 56 00 8C 0C 30  |$):SS.255.SV...0|
00000880: 0C 8B 53 53 B2 31 37 A7  33 33 30 30 00 9D 0C 3A  |..SS.17.3300...:|
00000890: 0C 8B 53 53 B2 31 34 35  A7 33 33 36 30 00 AD 0C  |..SS.145.3360...|
000008A0: 44 0C 8B 53 53 B2 32 39  A7 33 33 37 30 00 BE 0C  |D..SS.29.3370...|
000008B0: 4E 0C 8B 53 53 B2 31 35  37 A7 33 33 39 30 00 CE  |N..SS.157.3390..|
000008C0: 0C 58 0C 8B 53 53 B2 31  38 A7 34 30 30 30 00 DF  |.X..SS.18.4000..|
000008D0: 0C 62 0C 8B 53 53 B2 31  34 36 A7 33 34 31 30 00  |.b..SS.146.3410.|
000008E0: EF 0C 6C 0C 8B 56 B1 32  35 35 A7 33 31 31 30 00  |..l..V.255.3110.|
000008F0: 00 0D 76 0C 50 43 25 28  47 AA 54 AB 31 29 B2 56  |..v.PC%(G.T.1).V|
00000900: 00 06 0D 80 0C 82 00 1B  0D 8A 0C 8B 47 B1 39 30  |............G.90|
00000910: AF 47 B3 31 32 38 A7 33  32 37 35 00 29 0D 94 0C  |.G.128.3275.)...|
00000920: 8B 4E B2 31 A7 33 33 30  30 00 43 0D 99 0C 44 24  |.N.1.3300.C...D$|
00000930: B2 C9 28 C4 28 50 43 25  28 47 AA 54 AB 31 29 29  |..(.(PC%(G.T.1))|
00000940: 2C 33 29 00 7B 0D 9E 0C  99 3A 4C 4E B2 33 3A 50  |,3).{....:LN.3:P|
00000950: 52 24 B2 22 D3 45 43 4F  4E 44 41 52 59 20 41 44  |R$.".ECONDARY AD|
00000960: 44 52 45 53 53 3F 20 22  3A 4D 44 B2 34 3A 45 58  |DRESS? ":MD.4:EX|
00000970: 24 B2 22 22 3A 44 46 24  B2 44 24 00 9E 0D A3 0C  |$."":DF$.D$.....|
00000980: 8D 39 30 30 30 3A 56 B2  C5 28 4E 24 29 3A 99 22  |.9000:V..(N$):."|
00000990: 91 22 3B 3A 8B 56 B1 33  31 A7 33 35 30 30 00 AF  |.";:.V.31.3500..|
000009A0: 0D A8 0C 50 43 25 28 47  AA 54 AB 31 29 B2 56 00  |...PC%(G.T.1).V.|
000009B0: C7 0D B2 0C 8B 47 B3 B1  32 37 38 AF 47 B3 B1 32  |.....G..278.G..2|
000009C0: 38 34 A7 33 33 30 30 00  F0 0D BC 0C 81 54 B2 31  |84.3300......T.1|
000009D0: A4 4E 3A 8B 50 43 25 28  54 29 B3 B1 4E 43 A7 50  |.N:.PC%(T)..NC.P|
000009E0: 43 25 28 54 29 B2 50 43  25 28 54 29 AF 31 32 37  |C%(T).PC%(T).127|
000009F0: 00 FC 0D C6 0C 82 3A 89  33 33 30 30 00 19 0E CB  |......:.3300....|
00000A00: 0C 44 24 B2 C9 28 C4 28  50 43 25 28 47 AB 39 30  |.D$..(.(PC%(G.90|
00000A10: AA 33 34 36 29 29 2C 33  29 00 50 0E D0 0C 99 3A  |.346)),3).P....:|
00000A20: 4C 4E B2 33 3A 50 52 24  B2 22 D3 45 43 4F 4E 44  |LN.3:PR$.".ECOND|
00000A30: 20 43 48 41 52 41 43 54  45 52 3F 20 22 3A 4D 44  | CHARACTER? ":MD|
00000A40: B2 34 3A 45 58 24 B2 22  22 3A 44 46 24 B2 44 24  |.4:EX$."":DF$.D$|
00000A50: 00 74 0E D5 0C 8D 39 30  30 30 3A 56 B2 C5 28 4E  |.t....9000:V..(N|
00000A60: 24 29 3A 99 22 91 22 3B  3A 8B 56 B1 32 35 35 A7  |$):.".";:.V.255.|
00000A70: 33 32 38 30 00 8E 0E DA  0C 50 43 25 28 47 AB 39  |3280.....PC%(G.9|
00000A80: 30 AA 33 34 36 29 B2 56  3A 89 33 33 30 30 00 96  |0.346).V:.3300..|
00000A90: 0E E4 0C 44 B2 31 00 9E  0E EE 0C 4B B2 47 00 B9  |...D.1.....K.G..|
00000AA0: 0E F8 0C 4B B2 4B AA 44  3A 8B 4B B2 33 38 34 B0  |...K.K.D:.K.384.|
00000AB0: 4B B2 AB 31 A7 33 30 31  30 00 D1 0E 02 0D 8B 51  |K..1.3010......Q|
00000AC0: 24 28 4B 29 B2 22 2A 45  4E 44 2A 22 A7 33 30 31  |$(K)."*END*".301|
00000AD0: 30 00 E4 0E 0C 0D 8B 51  24 28 4B 29 B2 22 22 A7  |0......Q$(K)."".|
00000AE0: 33 33 32 30 00 F2 0E 16  0D 47 B2 4B 3A 89 33 30  |3320.....G.K:.30|
00000AF0: 31 30 00 01 0F 20 0D 44  B2 AB 31 3A 89 33 33 31  |10... .D..1:.331|
00000B00: 30 00 0F 0F 2A 0D 8B 54  B2 4E A7 33 31 31 30 00  |0...*..T.N.3110.|
00000B10: 1F 0F 34 0D 54 B2 54 AA  31 3A 89 33 30 36 30 00  |..4.T.T.1:.3060.|
00000B20: 2D 0F 3E 0D 8B 54 B2 31  A7 33 31 31 30 00 3D 0F  |-.>..T.1.3110.=.|
00000B30: 48 0D 54 B2 54 AB 31 3A  89 33 30 36 30 00 56 0F  |H.T.T.1:.3060.V.|
00000B40: 52 0D 44 B2 31 3A 8B 47  B1 31 32 37 A7 47 B2 30  |R.D.1:.G.127.G.0|
00000B50: 3A 89 33 30 31 30 00 66  0F 5C 0D 47 B2 31 32 38  |:.3010.f.\.G.128|
00000B60: 3A 89 33 30 31 30 00 74  0F AC 0D 8B 56 B2 4E 43  |:.3010.t....V.NC|
00000B70: A7 56 B2 30 00 85 0F B6  0D 56 B2 56 AF 33 31 3A  |.V.0.....V.V.31:|
00000B80: 89 33 32 34 30 00 C1 0F  A0 0F 4C 4E B2 31 36 3A  |.3240.....LN.16:|
00000B90: 50 52 24 B2 22 C6 49 4C  45 4E 41 4D 45 3F 20 22  |PR$.".ILENAME? "|
00000BA0: 3A 4D 44 B2 33 30 3A 45  58 24 B2 22 12 22 3A 44  |:MD.30:EX$.".":D|
00000BB0: 46 24 B2 22 22 3A 8D 39  30 30 30 3A 46 24 B2 4E  |F$."":.9000:F$.N|
00000BC0: 24 00 D1 0F A5 0F 8B 53  56 B2 31 38 A7 33 30 30  |$......SV.18.300|
00000BD0: 30 00 0F 10 AA 0F 4C 4E  B2 31 3A 50 52 24 B2 22  |0.....LN.1:PR$."|
00000BE0: C4 52 49 56 45 20 4E 55  4D 42 45 52 3F 20 22 3A  |.RIVE NUMBER? ":|
00000BF0: 4D 44 B2 34 3A 45 58 24  B2 22 12 22 3A 44 46 24  |MD.4:EX$.".":DF$|
00000C00: B2 22 22 3A 8D 39 30 30  30 3A 44 24 B2 4E 24 00  |."":.9000:D$.N$.|
00000C10: 1F 10 AF 0F 8B 53 56 B2  31 38 A7 33 30 30 30 00  |.....SV.18.3000.|
00000C20: 3B 10 B4 0F 44 B2 C5 28  44 24 29 3A 8B 44 B3 B1  |;...D..(D$):.D..|
00000C30: 30 AF 44 B3 B1 31 A7 34  30 31 30 00 57 10 BE 0F  |0.D..1.4010.W...|
00000C40: 9F 32 2C 38 2C 32 2C 44  24 AA 22 3A 22 AA 46 24  |.2,8,2,D$.":".F$|
00000C50: AA 22 2C 50 2C 57 22 00  6D 10 C8 0F 8D 37 34 30  |.",P,W".m....740|
00000C60: 30 3A 8B 44 45 B3 B1 30  A7 37 30 30 30 00 7A 10  |0:.DE..0.7000.z.|
00000C70: D2 0F 98 32 2C 22 D3 C4  22 3B 00 88 10 DC 0F 98  |...2,"..";......|
00000C80: 32 2C C7 28 4E 43 29 3B  00 A8 10 E6 0F 81 41 B2  |2,.(NC);......A.|
00000C90: 30 A4 33 38 33 3A 98 32  2C C7 28 50 43 25 28 41  |0.383:.2,.(PC%(A|
00000CA0: 29 29 3B 3A 82 3A A0 32  00 B8 10 F0 0F 8D 37 34  |));:.:.2......74|
00000CB0: 30 30 3A 89 37 30 30 30  00 C7 10 58 1B 8B 44 45  |00:.7000...X..DE|
00000CC0: B2 30 A7 37 35 32 30 00  D7 10 62 1B 8B 44 45 B2  |.0.7520...b..DE.|
00000CD0: 36 33 A7 37 35 30 30 00  EE 10 6C 1B 99 22 C4 49  |63.7500...l..".I|
00000CE0: 53 4B 20 45 52 52 4F 52  3A 20 22 44 45 24 00 F8  |SK ERROR: "DE$..|
00000CF0: 10 76 1B 89 37 35 32 30  00 08 11 E8 1C 44 45 24  |.v..7520.....DE$|
00000D00: B2 22 22 3A 44 45 B2 30  00 37 11 F2 1C A1 23 31  |."":DE.0.7....#1|
00000D10: 2C 44 31 24 3A 8B 53 54  B2 30 AF 44 31 24 B3 B1  |,D1$:.ST.0.D1$..|
00000D20: C7 28 31 33 29 A7 44 45  24 B2 44 45 24 AA 44 31  |.(13).DE$.DE$.D1|
00000D30: 24 3A 89 37 34 31 30 00  4A 11 FC 1C 44 45 B2 C5  |$:.7410.J...DE..|
00000D40: 28 C8 28 44 45 24 2C 32  29 29 00 50 11 06 1D 8E  |(.(DE$,2)).P....|
00000D50: 00 8F 11 4C 1D A0 32 3A  4C 4E B2 31 3A 50 52 24  |...L..2:LN.1:PR$|
00000D60: B2 22 D2 45 50 4C 41 43  45 20 45 58 49 53 54 49  |.".EPLACE EXISTI|
00000D70: 4E 47 20 46 49 4C 45 3F  20 22 3A 4D 44 B2 31 33  |NG FILE? ":MD.13|
00000D80: 31 3A 45 58 24 B2 22 22  3A 44 46 24 B2 22 22 00  |1:EX$."":DF$."".|
00000D90: 9F 11 51 1D 8D 39 30 30  30 3A 5A 24 B2 4E 24 00  |..Q..9000:Z$.N$.|
00000DA0: BC 11 56 1D 8B 5A 24 B2  22 D9 22 A7 D9 44 28 44  |..V..Z$."."..D(D|
00000DB0: 29 2C 28 46 24 29 3A 89  34 30 33 30 00 D0 11 60  |),(F$):.4030...`|
00000DC0: 1D A1 5A 24 3A 8B 5A 24  B2 22 22 A7 37 35 32 30  |..Z$:.Z$."".7520|
00000DD0: 00 E3 11 6A 1D A0 32 3A  99 22 93 22 3B 3A 89 32  |...j..2:.".";:.2|
00000DE0: 31 30 30 00 E9 11 78 1E  80 00 03 12 DC 1E A1 23  |100...x........#|
00000DF0: 32 2C 41 24 3A 8B 41 24  B2 22 22 A7 41 24 B2 C7  |2,A$:.A$."".A$..|
00000E00: 28 30 29 00 12 12 E6 1E  41 25 B2 C6 28 41 24 29  |(0).....A%..(A$)|
00000E10: 3A 8E 00 39 12 40 1F 83  22 C3 41 52 52 49 41 47  |:..9.@..".ARRIAG|
00000E20: 45 20 52 45 54 55 52 4E  20 28 4C 49 4E 45 20 46  |E RETURN (LINE F|
00000E30: 45 45 44 29 3F 20 22 2C  31 00 63 12 4A 1F 83 22  |EED)? ",1.c.J.."|
00000E40: C3 41 52 52 49 41 47 45  20 52 45 54 55 52 4E 20  |.ARRIAGE RETURN |
00000E50: 28 4E 4F 20 4C 49 4E 45  20 46 45 45 44 29 3F 20  |(NO LINE FEED)? |
00000E60: 22 2C 31 00 82 12 54 1F  83 22 CC 49 4E 45 20 46  |",1...T..".INE F|
00000E70: 45 45 44 20 43 48 41 52  41 43 54 45 52 3F 20 22  |EED CHARACTER? "|
00000E80: 2C 31 00 A1 12 5E 1F 83  22 C2 41 43 4B 53 50 41  |,1...^..".ACKSPA|
00000E90: 43 45 20 43 48 41 52 41  43 54 45 52 3F 20 22 2C  |CE CHARACTER? ",|
00000EA0: 31 00 C0 12 68 1F 83 22  D5 4E 44 45 52 4C 49 4E  |1...h..".NDERLIN|
00000EB0: 45 20 43 48 41 52 41 43  54 45 52 3F 20 22 2C 31  |E CHARACTER? ",1|
00000EC0: 00 E8 12 72 1F 83 22 D0  52 49 4E 54 45 52 20 49  |...r..".RINTER I|
00000ED0: 4E 49 54 41 4C 49 5A 45  20 43 48 41 52 41 43 54  |NITALIZE CHARACT|
00000EE0: 45 52 53 3F 20 22 2C 35  00 09 13 7C 1F 83 22 CC  |ERS? ",5...|..".|
00000EF0: 49 4E 45 20 42 45 47 49  4E 20 43 48 41 52 41 43  |INE BEGIN CHARAC|
00000F00: 54 45 52 53 3F 20 22 2C  35 00 2F 13 86 1F 83 22  |TERS? ",5./...."|
00000F10: D5 4E 44 45 52 4C 49 4E  45 20 42 45 47 49 4E 20  |.NDERLINE BEGIN |
00000F20: 43 48 41 52 41 43 54 45  52 53 3F 20 22 2C 35 00  |CHARACTERS? ",5.|
00000F30: 53 13 90 1F 83 22 D5 4E  44 45 52 4C 49 4E 45 20  |S....".NDERLINE |
00000F40: 45 4E 44 20 43 48 41 52  41 43 54 45 52 53 3F 20  |END CHARACTERS? |
00000F50: 22 2C 35 00 78 13 9A 1F  83 22 C2 4F 4C 44 46 41  |",5.x....".OLDFA|
00000F60: 43 45 20 42 45 47 49 4E  20 43 48 41 52 41 43 54  |CE BEGIN CHARACT|
00000F70: 45 52 53 3F 20 22 2C 35  00 9B 13 A4 1F 83 22 C2  |ERS? ",5......".|
00000F80: 4F 4C 44 46 41 43 45 20  45 4E 44 20 43 48 41 52  |OLDFACE END CHAR|
00000F90: 41 43 54 45 52 53 3F 20  22 2C 35 00 C5 13 AE 1F  |ACTERS? ",5.....|
00000FA0: 83 22 D5 4E 44 45 52 4C  49 4E 45 20 42 45 47 49  |.".NDERLINE BEGI|
00000FB0: 4E 20 28 4E 4F 20 4C 49  4E 45 20 46 45 45 44 29  |N (NO LINE FEED)|
00000FC0: 3F 20 22 2C 35 00 ED 13  B8 1F 83 22 D5 4E 44 45  |? ",5......".NDE|
00000FD0: 52 4C 49 4E 45 20 45 4E  44 20 28 4E 4F 20 4C 49  |RLINE END (NO LI|
00000FE0: 4E 45 20 46 45 45 44 29  3F 20 22 2C 35 00 16 14  |NE FEED)? ",5...|
00000FF0: C2 1F 83 22 C2 4F 4C 44  46 41 43 45 20 42 45 47  |...".OLDFACE BEG|
00001000: 49 4E 20 28 4E 4F 20 4C  49 4E 45 20 46 45 45 44  |IN (NO LINE FEED|
00001010: 29 3F 20 22 2C 35 00 3D  14 CC 1F 83 22 C2 4F 4C  |)? ",5.=....".OL|
00001020: 44 46 41 43 45 20 45 4E  44 20 28 4E 4F 20 4C 49  |DFACE END (NO LI|
00001030: 4E 45 20 46 45 45 44 29  3F 20 22 2C 35 00 65 14  |NE FEED)? ",5.e.|
00001040: D6 1F 83 22 D3 55 50 45  52 53 43 52 49 50 54 20  |...".UPERSCRIPT |
00001050: 42 45 47 49 4E 20 43 48  41 52 41 43 54 45 52 53  |BEGIN CHARACTERS|
00001060: 3F 20 22 2C 35 00 8B 14  E0 1F 83 22 D3 55 50 45  |? ",5......".UPE|
00001070: 52 53 43 52 49 50 54 20  45 4E 44 20 43 48 41 52  |RSCRIPT END CHAR|
00001080: 41 43 54 45 52 53 3F 20  22 2C 35 00 B1 14 EA 1F  |ACTERS? ",5.....|
00001090: 83 22 D3 55 42 53 43 52  49 50 54 20 42 45 47 49  |.".UBSCRIPT BEGI|
000010A0: 4E 20 43 48 41 52 41 43  54 45 52 53 3F 20 22 2C  |N CHARACTERS? ",|
000010B0: 35 00 D5 14 F4 1F 83 22  D3 55 42 53 43 52 49 50  |5......".UBSCRIP|
000010C0: 54 20 45 4E 44 20 43 48  41 52 41 43 54 45 52 53  |T END CHARACTERS|
000010D0: 3F 20 22 2C 35 00 F9 14  FE 1F 83 22 C9 54 41 4C  |? ",5......".TAL|
000010E0: 49 43 53 20 42 45 47 49  4E 20 43 48 41 52 41 43  |ICS BEGIN CHARAC|
000010F0: 54 45 52 53 3F 20 22 2C  35 00 1B 15 08 20 83 22  |TERS? ",5.... ."|
00001100: C9 54 41 4C 49 43 53 20  45 4E 44 20 43 48 41 52  |.TALICS END CHAR|
00001110: 41 43 54 45 52 53 3F 20  22 2C 35 00 4A 15 12 20  |ACTERS? ",5.J.. |
00001120: 83 22 D6 41 4C 55 45 20  54 4F 20 41 44 44 20 46  |.".ALUE TO ADD F|
00001130: 4F 52 20 49 54 41 4C 49  43 53 20 43 48 41 52 41  |OR ITALICS CHARA|
00001140: 43 54 45 52 53 3F 20 22  2C 31 00 74 15 1C 20 83  |CTERS? ",1.t.. .|
00001150: 22 D0 49 54 43 48 20 3D  20 31 30 20 43 48 41 52  |".ITCH = 10 CHAR|
00001160: 41 43 54 45 52 53 20 50  45 52 20 49 4E 43 48 3F  |ACTERS PER INCH?|
00001170: 20 22 2C 35 00 9E 15 26  20 83 22 D0 49 54 43 48  | ",5...& .".ITCH|
00001180: 20 3D 20 31 32 20 43 48  41 52 41 43 54 45 52 53  | = 12 CHARACTERS|
00001190: 20 50 45 52 20 49 4E 43  48 3F 20 22 2C 35 00 C8  | PER INCH? ",5..|
000011A0: 15 30 20 83 22 D0 49 54  43 48 20 3D 20 31 35 20  |.0 .".ITCH = 15 |
000011B0: 43 48 41 52 41 43 54 45  52 53 20 50 45 52 20 49  |CHARACTERS PER I|
000011C0: 4E 43 48 3F 20 22 2C 35  00 E2 15 3A 20 83 22 CF  |NCH? ",5...: .".|
000011D0: 50 54 49 4F 4E 41 4C 20  50 49 54 43 48 3F 20 22  |PTIONAL PITCH? "|
000011E0: 2C 35 00 0D 16 44 20 83  22 CC 49 4E 45 20 53 50  |,5...D .".INE SP|
000011F0: 41 43 49 4E 47 20 3D 20  36 20 4C 49 4E 45 53 20  |ACING = 6 LINES |
00001200: 50 45 52 20 49 4E 43 48  3F 20 22 2C 35 00 38 16  |PER INCH? ",5.8.|
00001210: 4E 20 83 22 CC 49 4E 45  20 53 50 41 43 49 4E 47  |N .".INE SPACING|
00001220: 20 3D 20 38 20 4C 49 4E  45 53 20 50 45 52 20 49  | = 8 LINES PER I|
00001230: 4E 43 48 3F 20 22 2C 35  00 58 16 58 20 83 22 CF  |NCH? ",5.X.X .".|
00001240: 50 54 49 4F 4E 41 4C 20  4C 49 4E 45 20 53 50 41  |PTIONAL LINE SPA|
00001250: 43 49 4E 47 3F 22 2C 35  00 87 16 62 20 83 22 CD  |CING?",5...b .".|
00001260: 49 43 52 4F 53 50 41 43  49 4E 47 20 46 4F 52 20  |ICROSPACING FOR |
00001270: 42 4F 4C 44 46 41 43 45  20 28 55 53 49 4E 47 20  |BOLDFACE (USING |
00001280: 42 53 29 3F 22 2C 35 00  B0 16 6C 20 83 22 C6 4F  |BS)?",5...l .".O|
00001290: 52 43 45 44 20 38 2D 42  49 54 20 43 48 41 52 41  |RCED 8-BIT CHARA|
000012A0: 43 54 45 52 53 20 42 45  47 49 4E 3F 20 22 2C 35  |CTERS BEGIN? ",5|
000012B0: 00 D9 16 76 20 83 22 C6  4F 52 43 45 44 20 37 2D  |...v .".ORCED 7-|
000012C0: 42 49 54 20 43 48 41 52  41 43 54 45 52 53 20 42  |BIT CHARACTERS B|
000012D0: 45 47 49 4E 3F 20 22 2C  35 00 02 17 80 20 83 22  |EGIN? ",5.... ."|
000012E0: CE 55 4D 42 45 52 20 4F  46 20 4C 49 4E 45 20 46  |.UMBER OF LINE F|
000012F0: 45 45 44 53 20 50 45 52  20 4C 49 4E 45 3F 20 22  |EEDS PER LINE? "|
00001300: 2C 31 00 1E 17 8A 20 83  22 D3 55 50 45 52 53 43  |,1.... .".UPERSC|
00001310: 52 49 50 54 20 4D 4F 44  45 3F 20 22 2C 31 00 3F  |RIPT MODE? ",1.?|
00001320: 17 94 20 83 22 CD 49 43  52 4F 53 50 41 43 49 4E  |.. .".ICROSPACIN|
00001330: 47 20 4F 4E 20 28 D3 D0  D3 29 3F 20 22 2C 35 00  |G ON (...)? ",5.|
00001340: 61 17 9E 20 83 22 CD 49  43 52 4F 53 50 41 43 49  |a.. .".ICROSPACI|
00001350: 4E 47 20 4F 46 46 20 28  D3 D0 D3 29 3F 20 22 2C  |NG OFF (...)? ",|
00001360: 35 00 8B 17 A8 20 83 22  D3 45 4D 49 2D 50 52 4F  |5.... .".EMI-PRO|
00001370: 50 4F 52 54 49 4F 4E 41  4C 20 53 50 41 43 49 4E  |PORTIONAL SPACIN|
00001380: 47 20 4D 4F 44 45 3F 20  22 2C 31 00 BD 17 B2 20  |G MODE? ",1.... |
00001390: 83 22 CE 55 4D 42 45 52  20 4F 46 20 4D 49 43 52  |.".UMBER OF MICR|
000013A0: 4F 53 50 41 43 45 53 20  50 45 52 20 53 50 41 43  |OSPACES PER SPAC|
000013B0: 45 20 28 50 54 31 30 29  3F 20 22 2C 31 00 EF 17  |E (PT10)? ",1...|
000013C0: BC 20 83 22 CE 55 4D 42  45 52 20 4F 46 20 4D 49  |. .".UMBER OF MI|
000013D0: 43 52 4F 53 50 41 43 45  53 20 50 45 52 20 53 50  |CROSPACES PER SP|
000013E0: 41 43 45 20 28 50 54 31  32 29 3F 20 22 2C 31 00  |ACE (PT12)? ",1.|
000013F0: 21 18 C6 20 83 22 CE 55  4D 42 45 52 20 4F 46 20  |!.. .".UMBER OF |
00001400: 4D 49 43 52 4F 53 50 41  43 45 53 20 50 45 52 20  |MICROSPACES PER |
00001410: 53 50 41 43 45 20 28 50  54 31 35 29 3F 20 22 2C  |SPACE (PT15)? ",|
00001420: 31 00 57 18 D0 20 83 22  CE 55 4D 42 45 52 20 4F  |1.W.. .".UMBER O|
00001430: 46 20 4D 49 43 52 4F 53  50 41 43 45 53 20 50 45  |F MICROSPACES PE|
00001440: 52 20 53 50 41 43 45 20  28 4F 50 54 49 4F 4E 41  |R SPACE (OPTIONA|
00001450: 4C 29 3F 20 22 2C 31 00  7A 18 DA 20 83 22 27 D3  |L)? ",1.z.. ."'.|
00001460: 50 41 43 45 27 20 43 48  41 52 41 43 54 45 52 20  |PACE' CHARACTER |
00001470: 28 D3 D0 D3 29 3F 20 22  2C 31 00 A3 18 E4 20 83  |(...)? ",1.... .|
00001480: 22 CD 55 4C 54 49 4C 49  4E 47 55 41 4C 20 43 48  |".ULTILINGUAL CH|
00001490: 41 52 41 43 54 45 52 20  53 45 54 20 4F 4E 3F 20  |ARACTER SET ON? |
000014A0: 22 2C 35 00 CD 18 EE 20  83 22 CD 55 4C 54 49 4C  |",5.... .".ULTIL|
000014B0: 49 4E 47 55 41 4C 20 43  48 41 52 41 43 54 45 52  |INGUAL CHARACTER|
000014C0: 20 53 45 54 20 4F 46 46  3F 20 22 2C 35 00 FF 18  | SET OFF? ",5...|
000014D0: F8 20 83 22 C2 59 54 45  20 50 4F 53 49 54 49 4F  |. .".YTE POSITIO|
000014E0: 4E 20 46 4F 52 20 27 53  50 41 43 45 27 20 4E 55  |N FOR 'SPACE' NU|
000014F0: 4D 42 45 52 20 28 D3 D0  D3 29 3F 20 22 2C 31 00  |MBER (...)? ",1.|
00001500: 28 19 02 21 83 22 CF 46  46 53 45 54 20 46 4F 52  |(..!.".FFSET FOR|
00001510: 20 53 50 41 43 49 4E 47  20 42 59 54 45 20 28 D3  | SPACING BYTE (.|
00001520: D0 D3 29 3F 20 22 2C 31  00 37 19 C4 22 83 22 2A  |..)? ",1.7.."."*|
00001530: 45 4E 44 2A 22 2C 30 00  56 19 28 23 8F 20 2A 2A  |END*",0.V.(#. **|
00001540: 2A 20 49 4E 50 55 54 20  53 55 42 52 4F 55 54 49  |* INPUT SUBROUTI|
00001550: 4E 45 20 2A 2A 2A 00 75  19 32 23 8F 20 2A 2A 2A  |NE ***.u.2#. ***|
00001560: 20 53 54 41 54 55 53 20  50 41 53 53 45 44 20 49  | STATUS PASSED I|
00001570: 4E 20 2A 2A 2A 00 94 19  3C 23 8F 20 2A 2A 2A 20  |N ***...<#. *** |
00001580: 4C 4E 2C 50 52 24 2C 4D  44 2C 45 58 24 2C 44 46  |LN,PR$,MD,EX$,DF|
00001590: 24 2A 2A 2A 00 B3 19 46  23 8F 20 2A 2A 2A 20 53  |$***...F#. *** S|
000015A0: 54 41 54 55 53 20 52 45  54 55 52 4E 45 44 20 20  |TATUS RETURNED  |
000015B0: 2A 2A 2A 00 D2 19 50 23  8F 20 2A 2A 2A 20 49 4E  |***...P#. *** IN|
000015C0: 20 53 56 20 20 20 20 20  20 20 20 20 20 20 20 2A  | SV            *|
000015D0: 2A 2A 00 F1 19 5A 23 8F  20 2A 2A 2A 20 49 4E 50  |**...Z#. *** INP|
000015E0: 55 54 20 52 45 54 55 52  4E 45 44 20 49 4E 2A 2A  |UT RETURNED IN**|
000015F0: 2A 00 10 1A 64 23 8F 20  2A 2A 2A 20 4E 24 20 20  |*...d#. *** N$  |
00001600: 20 20 20 20 20 20 20 20  20 20 20 20 20 2A 2A 2A  |             ***|
00001610: 00 16 1A 6E 23 3A 00 20  1A 8C 23 99 50 52 24 3B  |...n#:. ..#.PR$;|
00001620: 00 39 1A A0 23 44 46 24  B2 C8 28 44 46 24 2C 4C  |.9..#DF$..(DF$,L|
00001630: 4E 29 3A 4E 24 B2 44 46  24 00 49 1A AA 23 99 4E  |N):N$.DF$.I..#.N|
00001640: 24 3B 3A 97 32 30 35 2C  30 00 56 1A B4 23 99 22  |$;:.205,0.V..#."|
00001650: 12 20 92 9D 22 3B 00 6A  1A BE 23 A1 41 24 3A 8B  |. ..";.j..#.A$:.|
00001660: 41 24 B2 22 22 A7 39 31  35 30 00 8B 1A C8 23 53  |A$."".9150....#S|
00001670: 56 B2 C6 28 41 24 29 3A  8B 53 56 B2 31 33 AF C3  |V..(A$):.SV.13..|
00001680: 28 4E 24 29 B2 30 A7 39  31 35 30 00 9B 1A CD 23  |(N$).0.9150....#|
00001690: 8B 53 56 B2 31 33 A7 39  35 30 30 00 B3 1A D2 23  |.SV.13.9500....#|
000016A0: 8B 53 56 B2 32 30 AF C3  28 4E 24 29 B2 30 A7 39  |.SV.20..(N$).0.9|
000016B0: 31 35 30 00 DF 1A DC 23  8B 53 56 B2 32 30 A7 4E  |150....#.SV.20.N|
000016C0: 24 B2 C8 28 4E 24 2C C3  28 4E 24 29 AB 31 29 3A  |$..(N$,.(N$).1):|
000016D0: 99 22 20 9D 9D 20 9D 22  3B 3A 89 39 31 34 30 00  |." .. .";:.9140.|
000016E0: FF 1A E6 23 53 52 B2 53  56 AF 31 32 37 3A 8B 53  |...#SR.SV.127:.S|
000016F0: 52 B3 33 32 B0 53 52 B1  39 35 A7 39 34 30 30 00  |R.32.SR.95.9400.|
00001700: 12 1B EB 23 8B C3 28 4E  24 29 B2 4C 4E A7 39 31  |...#..(N$).LN.91|
00001710: 35 30 00 37 1B F0 23 53  51 B2 53 56 3A 8B 53 56  |50.7..#SQ.SV:.SV|
00001720: B1 34 37 AF 53 56 B3 35  38 AF 28 4D 44 AF 34 29  |.47.SV.58.(MD.4)|
00001730: B2 34 A7 39 33 30 30 00  5A 1B FA 23 8B 28 53 56  |.4.9300.Z..#.(SV|
00001740: B3 36 35 B0 53 56 B1 39  30 29 AF 28 4D 44 AF 31  |.65.SV.90).(MD.1|
00001750: 36 29 B2 31 36 A7 39 33  30 30 00 72 1B FF 23 8B  |6).16.9300.r..#.|
00001760: 28 53 52 B3 36 35 B0 53  52 B1 39 30 29 A7 39 31  |(SR.65.SR.90).91|
00001770: 35 30 00 8E 1B 04 24 8B  28 4D 44 AF 31 32 38 29  |50....$.(MD.128)|
00001780: B2 31 32 38 A7 53 51 B2  53 51 B0 31 32 38 00 A8  |.128.SQ.SQ.128..|
00001790: 1B 0E 24 8B 28 4D 44 AF  36 34 29 B2 36 34 A7 53  |..$.(MD.64).64.S|
000017A0: 51 B2 53 51 AF 31 32 37  00 B2 1B 18 24 89 39 33  |Q.SQ.127....$.93|
000017B0: 30 30 00 D0 1B 54 24 4E  24 B2 4E 24 AA C7 28 53  |00...T$N$.N$..(S|
000017C0: 51 29 3A 99 C7 28 53 51  29 3B 3A 89 39 31 34 30  |Q):..(SQ);:.9140|
000017D0: 00 E1 1B B8 24 8B 45 58  24 B2 22 22 A7 39 31 35  |....$.EX$."".915|
000017E0: 30 00 F2 1B C2 24 81 4E  31 B2 31 A4 C3 28 45 58  |0....$.N1.1..(EX|
000017F0: 24 29 00 0E 1C CC 24 8B  53 56 B2 C6 28 CA 28 45  |$)....$.SV..(.(E|
00001800: 58 24 2C 4E 31 2C 31 29  29 A7 39 35 30 30 00 1A  |X$,N1,1)).9500..|
00001810: 1C D6 24 82 3A 89 39 31  35 30 00 25 1C 1C 25 99  |..$.:.9150.%..%.|
00001820: 22 20 22 3A 8E 00 00 00                           |" ":....        |

.......1500.....:.6.....................
...............[....                    
          ..|....    .ER SET.UP PROGRAM 
   .......                              
..F.$..      AS OF JULY 8, 1983      ...
....                              ....8.
.      SRIGHT (C) 1982      ..2.B..     
  BY STEVE DOUGLAS       ..U.L..        
     .              ..Z.V..      BATTERI
ES INCLUDED      ....`..                
              ..A.J.. THIS VERSI. . PET.
CBM.C64 ....T..                         
     ....~..............................
........:.....:.>...A$."":.A.0.7:A$.A$.G
(B(40964.A)):..B....A$.."CBMBASIC"..5946
8,14:.2000.Q....G(14)".";.....LN.1:PR$."
.LOAD CHARACTER SET? ":MD.131:EX$."":DF$
."":.9000.....Z$.N$.L....Z$."N".2000....
..Z$.."Y".1530..."..56,56:.55,0:.:.1,8,1
5.5.,.LN.16:PR$."FILE NAME? ":MD.30:EX$.
"":DF$."":.9000:F$.N$.\.6..2,8,2,F$.",P,
R":.7400:.DE..0.7000...@..#2,A$,A$:.5327
2,(B(53272).240).15...J..A.0.2047:.#2,A$
:.14336.A,F(A$.G(0)):....T. 2: 1:..L.P..
".";:.1,8,15...Z..PC%(383),Q$(383),Q%(38
3).....A1$."ASCII VALUE FOR '":A2$."'? "
.S...AC$."@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]
.. !".G(34)."#$%&'()*+,-./".....AC$.AC$.
"0123456789:;<=>?.ABCDEFGHIJKLMNOPQRSTUV
WXYZ".A...AC$.AC$."..... ...............
................".....X$."..............
........................."......A.0.127:
Q$(A)."*":Q%(A).1:.:G.128.>....Q$(G),Q%(
G):.Q$(G)."*END*".2100._. .K.Q%(G):G.G.Q
%(G):.K.1.G.G.1.I.*..2070...4.LN.1:PR$."
.LOAD PREVIOUS FILE? ":MD.131:EX$."":DF$
."":.9000...5.Z$.N$.D.>..Z$."N".2500.V.H
..Z$.."Y".2100...R.LN.16:PR$."FILE NAME?
 ":MD.30:EX$."":DF$."":.9000:F$.N$.9.\..
2,8,2,F$.",P,R":.7400:.DE..0.7000.K.F..#
2,A$:.#2,A$.[.P..7900:NC.A%.}.Z..A.0.383
:.7900:PC%(A).A%:.: 2......3000.K.D.LN.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:..3....A.91.383:PC%(A).N
C:..?...G.0:D.1.M.B.QU$.Q$(G):.G.128.QU$
.A1$.J(AC$,G.1,1).A2$...L..G.128..J(AC$,
G.1,1).".".3310...V.N.Q%(G)......"."QU$.
.....T.1.N.P...EX$."..":.G.0.EX$.EX$."."
......G.383.EX$.EX$."."......T.1.EX$.EX$
."."......T.N.EX$.EX$.".".G...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...N..SS.157.3390.N
.X..SS.18.4000...B..SS.146.3410...L..V.2
55.3110...V.PC%(G.T.1).V............G.90
.G.128.3275.)....N.1.3300.C...D$.I(D(PC%
(G.T.1)),3).{....:LN.3:PR$."SECONDARY AD
DRESS? ":MD.4:EX$."":DF$.D$......9000:V.
E(N$):.".";:.V.31.3500.....PC%(G.T.1).V.
G....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).P.P..:LN.3:PR$
."SECOND CHARACTER? ":MD.4:EX$."":DF$.D$
.T.U..9000:V.E(N$):.".";:.V.255.3280...Z
.PC%(G.90.346).V:.3300.....D.1.....K.G..
...K.K.D:.K.384.K..1.3010.Q....Q$(K)."*E
ND*".3010......Q$(K)."".3320.....G.K:.30
10... .D..1:.3310...*..T.N.3110...4.T.T.
1:.3060.-.>..T.1.3110.=.H.T.T.1:.3060.V.
R.D.1:.G.127.G.0:.3010.F.\.G.128:.3010.T
....V.NC.V.0.....V.V.31:.3240.A. .LN.16:
PR$."FILENAME? ":MD.30:EX$.".":DF$."":.9
000:F$.N$.Q....SV.18.3000.....LN.1:PR$."
DRIVE NUMBER? ":MD.4:EX$.".":DF$."":.900
0:D$.N$......SV.18.3000.;...D.E(D$):.D..
0.D..1.4010.W....2,8,2,D$.":".F$.",P,W".
M.H..7400:.DE..0.7000.Z.R..2,"SD";......
2,G(NC);......A.0.383:.2,G(PC%(A));:.: 2
......7400:.7000.G.X..DE.0.7520.W.B..DE.
63.7500...L.."DISK ERROR: "DE$...V..7520
.....DE$."":DE.0.7....#1,D1$:.ST.0.D1$..
G(13).DE$.DE$.D1$:.7410.J...DE.E(H(DE$,2
)).P.......L. 2:LN.1:PR$."REPLACE EXISTI
NG FILE? ":MD.131:EX$."":DF$.""...Q..900
0:Z$.N$...V..Z$."Y".YD(D),(F$):.4030.P.`
..Z$:.Z$."".7520...J. 2:.".";:.2100...X.
.......#2,A$:.A$."".A$.G(0).....A%.F(A$)
:..9.@.."CARRIAGE RETURN (LINE FEED)? ",
1.C.J.."CARRIAGE RETURN (NO LINE FEED)? 
",1...T.."LINE FEED CHARACTER? ",1...^..
"BACKSPACE CHARACTER? ",1...H.."UNDERLIN
E CHARACTER? ",1...R.."PRINTER INITALIZE
 CHARACTERS? ",5...|.."LINE BEGIN CHARAC
TERS? ",5./...."UNDERLINE BEGIN CHARACTE
RS? ",5.S...."UNDERLINE END CHARACTERS? 
",5.X...."BOLDFACE BEGIN CHARACTERS? ",5
......"BOLDFACE END CHARACTERS? ",5.E...
."UNDERLINE BEGIN (NO LINE FEED)? ",5...
..."UNDERLINE END (NO LINE FEED)? ",5...
B.."BOLDFACE BEGIN (NO LINE FEED)? ",5.=
.L.."BOLDFACE END (NO LINE FEED)? ",5.E.
V.."SUPERSCRIPT BEGIN CHARACTERS? ",5...
..."SUPERSCRIPT END CHARACTERS? ",5.....
."SUBSCRIPT BEGIN CHARACTERS? ",5.U...."
SUBSCRIPT END CHARACTERS? ",5......"ITAL
ICS BEGIN CHARACTERS? ",5.... ."ITALICS 
END CHARACTERS? ",5.J.. ."VALUE TO ADD F
OR ITALICS CHARACTERS? ",1.T.. ."PITCH =
 10 CHARACTERS PER INCH? ",5...& ."PITCH
 = 12 CHARACTERS PER INCH? ",5.H.0 ."PIT
CH = 15 CHARACTERS PER INCH? ",5...: ."O
PTIONAL PITCH? ",5...D ."LINE SPACING = 
6 LINES PER INCH? ",5.8.N ."LINE SPACING
 = 8 LINES PER INCH? ",5.X.X ."OPTIONAL 
LINE SPACING?",5...B ."MICROSPACING FOR 
BOLDFACE (USING BS)?",5...L ."FORCED 8-B
IT CHARACTERS BEGIN? ",5.Y.V ."FORCED 7-
BIT CHARACTERS BEGIN? ",5.... ."NUMBER O
F LINE FEEDS PER LINE? ",1.... ."SUPERSC
RIPT MODE? ",1.?.. ."MICROSPACING ON (SP
S)? ",5.A.. ."MICROSPACING OFF (SPS)? ",
5.... ."SEMI-PROPORTIONAL SPACING MODE? 
",1.... ."NUMBER OF MICROSPACES PER SPAC
E (PT10)? ",1.... ."NUMBER OF MICROSPACE
S PER SPACE (PT12)? ",1.!.F ."NUMBER OF 
MICROSPACES PER SPACE (PT15)? ",1.W.P ."
NUMBER OF MICROSPACES PER SPACE (OPTIONA
L)? ",1.Z.Z ."'SPACE' CHARACTER (SPS)? "
,1.... ."MULTILINGUAL CHARACTER SET ON? 
",5.M.. ."MULTILINGUAL CHARACTER SET OFF
? ",5.... ."BYTE POSITION FOR 'SPACE' NU
MBER (SPS)? ",1.(..!."OFFSET FOR SPACING
 BYTE (SPS)? ",1.7.D"."*END*",0.V.(#. **
* INPUT SUBROUTINE ***.U.2#. *** STATUS 
PASSED IN ***...<#. *** LN,PR$,MD,EX$,DF
$***...F#. *** STATUS RETURNED  ***.R.P#
. *** IN SV            ***...Z#. *** INP
UT RETURNED IN***...D#. *** N$          
     ***...N#:. ..#.PR$;.9. #DF$.H(DF$,L
N):N$.DF$.I..#.N$;:.205,0.V..#.". ..";.J
..#.A$:.A$."".9150...H#SV.F(A$):.SV.13.C
(N$).0.9150...M#.SV.13.9500...R#.SV.20.C
(N$).0.9150....#.SV.20.N$.H(N$,C(N$).1):
." .. .";:.9140....#SR.SV.127:.SR.32.SR.
95.9400....#.C(N$).LN.9150.7..#SQ.SV:.SV
.47.SV.58.(MD.4).4.9300.Z..#.(SV.65.SV.9
0).(MD.16).16.9300.R..#.(SR.65.SR.90).91
50....$.(MD.128).128.SQ.SQ.128....$.(MD.
64).64.SQ.SQ.127....$.9300.P.T$N$.N$.G(S
Q):.G(SQ);:.9140....$.EX$."".9150...B$.N
1.1.C(EX$)...L$.SV.F(J(EX$,N1,1)).9500..
.V$.:.9150.%..%." ":....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL