PRINTER SETUP
FILE INFORMATION
FILENAME(S): PRINTER SETUP
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-10-19 22:48:33
APPEARS ON: 1 disk(s)
FILE HASH
9930b066b8c6c679953e1e03a0d9d62254de5b9021a454289a2f81a5b60276e3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MM UTILITY | PRINTER SETUP | PRG | Radd Maxx | 28 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 0B 04 E8 03 89 32 30 30 30 00 11 04 F2 03 |.......2000.....| 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 41 53 20 4F 46 |....$.. AS OF| 000000B0: 20 4A 41 4E 55 41 52 59 20 32 31 2C 20 31 39 38 | JANUARY 21, 198| 000000C0: 33 20 20 20 20 AC 00 EB 04 2E 04 AC 20 20 20 20 |3 ....... | 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 20 20 54 48 49 53 20 56 45 52 |..j.. THIS VER| 000001B0: 53 49 91 20 81 20 50 45 54 AD 43 42 4D 20 20 20 |SI. . PET.CBM | 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 33 06 D0 07 99 22 93 22 |:.....:.3...."."| 00000220: 3B 3A 97 35 39 34 36 38 2C 31 34 3A 9F 31 2C 38 |;:.59468,14:.1,8| 00000230: 2C 31 35 00 51 06 DA 07 86 50 43 25 28 33 38 33 |,15.Q....PC%(383| 00000240: 29 2C 51 24 28 33 38 33 29 2C 51 25 28 33 38 33 |),Q$(383),Q%(383| 00000250: 29 00 77 06 E4 07 41 31 24 B2 22 C1 D3 C3 C9 C9 |).w...A1$.".....| 00000260: 20 56 41 4C 55 45 20 46 4F 52 20 27 22 3A 41 32 | VALUE FOR '":A2| 00000270: 24 B2 22 27 3F 20 22 00 BA 06 EE 07 41 43 24 B2 |$."'? ".....AC$.| 00000280: 22 40 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E |"@ABCDEFGHIJKLMN| 00000290: 4F 50 51 52 53 54 55 56 57 58 59 5A 5B 5C 5D C0 |OPQRSTUVWXYZ[\].| 000002A0: C0 20 21 22 AA C7 28 33 34 29 AA 22 23 24 25 26 |. !"..(34)."#$%&| 000002B0: 27 28 29 2A 2B 2C 2D 2E 2F 22 00 F4 06 F8 07 41 |'()*+,-./".....A| 000002C0: 43 24 B2 41 43 24 AA 22 30 31 32 33 34 35 36 37 |C$.AC$."01234567| 000002D0: 38 39 3A 3B 3C 3D 3E 3F C0 C1 C2 C3 C4 C5 C6 C7 |89:;<=>?........| 000002E0: C8 C9 CA CB CC CD CE CF D0 D1 D2 D3 D4 D5 D6 D7 |................| 000002F0: D8 D9 DA 22 00 28 07 02 08 41 43 24 B2 41 43 24 |...".(...AC$.AC$| 00000300: AA 22 C0 DC DD FF DF A0 A1 A2 C0 C0 C0 A6 C0 A8 |."..............| 00000310: A9 C0 AB C0 C0 C0 C0 C0 B1 B2 B3 C0 B5 B6 B7 B8 |................| 00000320: B9 C0 C0 C0 C0 C0 BF 22 00 59 07 07 08 58 24 B2 |.......".Y...X$.| 00000330: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............| 00000340: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000350: 1D 1D 1D 1D 1D 1D 1D 1D 22 00 80 07 0C 08 81 41 |........"......A| 00000360: B2 30 A4 31 32 37 3A 51 24 28 41 29 B2 22 2A 22 |.0.127:Q$(A)."*"| 00000370: 3A 51 25 28 41 29 B2 31 3A 82 3A 47 B2 31 32 38 |:Q%(A).1:.:G.128| 00000380: 00 A5 07 16 08 87 51 24 28 47 29 2C 51 25 28 47 |......Q$(G),Q%(G| 00000390: 29 3A 8B 51 24 28 47 29 B2 22 2A 45 4E 44 2A 22 |):.Q$(G)."*END*"| 000003A0: A7 32 31 30 30 00 C6 07 20 08 4B B2 51 25 28 47 |.2100... .K.Q%(G| 000003B0: 29 3A 47 B2 47 AA 51 25 28 47 29 3A 8B 4B B1 31 |):G.G.Q%(G):.K.1| 000003C0: A7 47 B2 47 AA 31 00 D0 07 2A 08 89 32 30 37 30 |.G.G.1...*..2070| 000003D0: 00 10 08 34 08 4C 4E B2 31 3A 50 52 24 B2 22 13 |...4.LN.1:PR$.".| 000003E0: CC 4F 41 44 20 50 52 45 56 49 4F 55 53 20 46 49 |.OAD PREVIOUS FI| 000003F0: 4C 45 3F 20 22 3A 4D 44 B2 31 33 31 3A 45 58 24 |LE? ":MD.131:EX$| 00000400: B2 22 22 3A 44 46 24 B2 22 22 3A 8D 39 30 30 30 |."":DF$."":.9000| 00000410: 00 1A 08 35 08 5A 24 B2 4E 24 00 2B 08 3E 08 8B |...5.Z$.N$.+.>..| 00000420: 5A 24 B2 22 CE 22 A7 32 35 30 30 00 3D 08 48 08 |Z$.".".2500.=.H.| 00000430: 8B 5A 24 B3 B1 22 D9 22 A7 32 31 30 30 00 79 08 |.Z$..".".2100.y.| 00000440: 52 08 4C 4E B2 31 36 3A 50 52 24 B2 22 C6 49 4C |R.LN.16:PR$.".IL| 00000450: 45 20 4E 41 4D 45 3F 20 22 3A 4D 44 B2 33 30 3A |E NAME? ":MD.30:| 00000460: 45 58 24 B2 22 22 3A 44 46 24 B2 22 22 3A 8D 39 |EX$."":DF$."":.9| 00000470: 30 30 30 3A 46 24 B2 4E 24 00 A0 08 5C 08 9F 32 |000:F$.N$...\..2| 00000480: 2C 38 2C 32 2C 46 24 AA 22 2C 50 2C 52 22 3A 8D |,8,2,F$.",P,R":.| 00000490: 37 34 30 30 3A 8B 44 45 B3 B1 30 A7 37 30 30 30 |7400:.DE..0.7000| 000004A0: 00 B2 08 66 08 A1 23 32 2C 41 24 3A A1 23 32 2C |...f..#2,A$:.#2,| 000004B0: 41 24 00 C2 08 70 08 8D 37 39 30 30 3A 4E 43 B2 |A$...p..7900:NC.| 000004C0: 41 25 00 E4 08 7A 08 81 41 B2 30 A4 33 38 33 3A |A%...z..A.0.383:| 000004D0: 8D 37 39 30 30 3A 50 43 25 28 41 29 B2 41 25 3A |.7900:PC%(A).A%:| 000004E0: 82 3A A0 32 00 EE 08 84 08 89 33 30 30 30 00 32 |.:.2......3000.2| 000004F0: 09 C4 09 4C 4E B2 33 3A 50 52 24 B2 22 27 CE 55 |...LN.3:PR$."'.U| 00000500: 4C 4C 27 20 43 48 41 52 41 43 54 45 52 3F 20 22 |LL' CHARACTER? "| 00000510: 3A 4D 44 B2 34 3A 45 58 24 B2 22 22 3A 44 46 24 |:MD.4:EX$."":DF$| 00000520: B2 22 22 3A 8D 39 30 30 30 3A 4E 43 B2 C5 28 4E |."":.9000:NC..(N| 00000530: 24 29 00 4C 09 CE 09 81 41 B2 30 A4 33 31 3A 50 |$).L....A.0.31:P| 00000540: 43 25 28 41 29 B2 41 AA 36 34 3A 82 00 64 09 D8 |C%(A).A.64:..d..| 00000550: 09 81 41 B2 33 32 A4 36 33 3A 50 43 25 28 41 29 |..A.32.63:PC%(A)| 00000560: B2 41 3A 82 00 80 09 E2 09 81 41 B2 36 34 A4 39 |.A:.......A.64.9| 00000570: 30 3A 50 43 25 28 41 29 B2 41 AA 31 32 38 3A 82 |0:PC%(A).A.128:.| 00000580: 00 9A 09 EC 09 81 41 B2 39 31 A4 33 38 33 3A 50 |......A.91.383:P| 00000590: 43 25 28 41 29 B2 4E 43 3A 82 00 A6 09 B8 0B 47 |C%(A).NC:......G| 000005A0: B2 30 3A 44 B2 31 00 D4 09 C2 0B 51 55 24 B2 51 |.0:D.1.....QU$.Q| 000005B0: 24 28 47 29 3A 8B 47 B3 31 32 38 A7 51 55 24 B2 |$(G):.G.128.QU$.| 000005C0: 41 31 24 AA CA 28 41 43 24 2C 47 AA 31 2C 31 29 |A1$..(AC$,G.1,1)| 000005D0: AA 41 32 24 00 F6 09 CC 0B 8B 47 B3 31 32 38 A7 |.A2$......G.128.| 000005E0: 8B CA 28 41 43 24 2C 47 AA 31 2C 31 29 B2 22 C0 |..(AC$,G.1,1).".| 000005F0: 22 A7 33 33 31 30 00 02 0A D6 0B 4E B2 51 25 28 |".3310.....N.Q%(| 00000600: 47 29 00 0E 0A E0 0B 99 22 93 22 51 55 24 00 19 |G)......"."QU$..| 00000610: 0A EA 0B 81 54 B2 31 A4 4E 00 37 0A F4 0B 45 58 |....T.1.N.7...EX| 00000620: 24 B2 22 12 92 22 3A 8B 47 B1 30 A7 45 58 24 B2 |$."..":.G.0.EX$.| 00000630: 45 58 24 AA 22 91 22 00 4E 0A FE 0B 8B 47 B3 33 |EX$.".".N....G.3| 00000640: 38 33 A7 45 58 24 B2 45 58 24 AA 22 11 22 00 63 |83.EX$.EX$.".".c| 00000650: 0A 08 0C 8B 54 B1 31 A7 45 58 24 B2 45 58 24 AA |....T.1.EX$.EX$.| 00000660: 22 9D 22 00 78 0A 12 0C 8B 54 B3 4E A7 45 58 24 |".".x....T.N.EX$| 00000670: B2 45 58 24 AA 22 1D 22 00 AE 0A 1C 0C 44 24 B2 |.EX$.".".....D$.| 00000680: C9 28 C4 28 50 43 25 28 47 AA 54 AB 31 29 29 2C |.(.(PC%(G.T.1)),| 00000690: 33 29 3A 58 31 24 B2 22 13 11 22 AA C8 28 58 24 |3):X1$.".."..(X$| 000006A0: 2C 36 AC 28 54 AB 31 29 29 AA 22 3F 20 22 00 E3 |,6.(T.1))."? "..| 000006B0: 0A 26 0C 4C 4E B2 33 3A 50 52 24 B2 58 31 24 3A |.&.LN.3:PR$.X1$:| 000006C0: 4D 44 B2 34 3A 44 46 24 B2 44 24 3A 8D 39 30 30 |MD.4:DF$.D$:.900| 000006D0: 30 3A 56 B2 C5 28 4E 24 29 3A 53 53 B2 32 35 35 |0:V..(N$):SS.255| 000006E0: AF 53 56 00 F3 0A 30 0C 8B 53 53 B2 31 37 A7 33 |.SV...0..SS.17.3| 000006F0: 33 30 30 00 04 0B 3A 0C 8B 53 53 B2 31 34 35 A7 |300...:..SS.145.| 00000700: 33 33 36 30 00 14 0B 44 0C 8B 53 53 B2 32 39 A7 |3360...D..SS.29.| 00000710: 33 33 37 30 00 25 0B 4E 0C 8B 53 53 B2 31 35 37 |3370.%.N..SS.157| 00000720: A7 33 33 39 30 00 35 0B 58 0C 8B 53 53 B2 31 38 |.3390.5.X..SS.18| 00000730: A7 34 30 30 30 00 46 0B 62 0C 8B 53 53 B2 31 34 |.4000.F.b..SS.14| 00000740: 36 A7 33 34 31 30 00 56 0B 6C 0C 8B 56 B1 32 35 |6.3410.V.l..V.25| 00000750: 35 A7 33 31 31 30 00 67 0B 76 0C 50 43 25 28 47 |5.3110.g.v.PC%(G| 00000760: AA 54 AB 31 29 B2 56 00 6D 0B 80 0C 82 00 82 0B |.T.1).V.m.......| 00000770: 8A 0C 8B 47 B1 39 30 AF 47 B3 31 32 38 A7 33 32 |...G.90.G.128.32| 00000780: 37 35 00 90 0B 94 0C 8B 4E B2 31 A7 33 33 30 30 |75......N.1.3300| 00000790: 00 AA 0B 99 0C 44 24 B2 C9 28 C4 28 50 43 25 28 |.....D$..(.(PC%(| 000007A0: 47 AA 54 AB 31 29 29 2C 33 29 00 E2 0B 9E 0C 99 |G.T.1)),3)......| 000007B0: 3A 4C 4E B2 33 3A 50 52 24 B2 22 D3 45 43 4F 4E |:LN.3:PR$.".ECON| 000007C0: 44 41 52 59 20 41 44 44 52 45 53 53 3F 20 22 3A |DARY ADDRESS? ":| 000007D0: 4D 44 B2 34 3A 45 58 24 B2 22 22 3A 44 46 24 B2 |MD.4:EX$."":DF$.| 000007E0: 44 24 00 05 0C A3 0C 8D 39 30 30 30 3A 56 B2 C5 |D$......9000:V..| 000007F0: 28 4E 24 29 3A 99 22 91 22 3B 3A 8B 56 B1 33 31 |(N$):.".";:.V.31| 00000800: A7 33 35 30 30 00 16 0C A8 0C 50 43 25 28 47 AA |.3500.....PC%(G.| 00000810: 54 AB 31 29 B2 56 00 2E 0C B2 0C 8B 47 B3 B1 32 |T.1).V......G..2| 00000820: 37 38 AF 47 B3 B1 32 38 34 A7 33 33 30 30 00 57 |78.G..284.3300.W| 00000830: 0C BC 0C 81 54 B2 31 A4 4E 3A 8B 50 43 25 28 54 |....T.1.N:.PC%(T| 00000840: 29 B3 B1 4E 43 A7 50 43 25 28 54 29 B2 50 43 25 |)..NC.PC%(T).PC%| 00000850: 28 54 29 AF 31 32 37 00 63 0C C6 0C 82 3A 89 33 |(T).127.c....:.3| 00000860: 33 30 30 00 80 0C CB 0C 44 24 B2 C9 28 C4 28 50 |300.....D$..(.(P| 00000870: 43 25 28 47 AB 39 30 AA 33 34 36 29 29 2C 33 29 |C%(G.90.346)),3)| 00000880: 00 B7 0C D0 0C 99 3A 4C 4E B2 33 3A 50 52 24 B2 |......:LN.3:PR$.| 00000890: 22 D3 45 43 4F 4E 44 20 43 48 41 52 41 43 54 45 |".ECOND CHARACTE| 000008A0: 52 3F 20 22 3A 4D 44 B2 34 3A 45 58 24 B2 22 22 |R? ":MD.4:EX$.""| 000008B0: 3A 44 46 24 B2 44 24 00 DB 0C D5 0C 8D 39 30 30 |:DF$.D$......900| 000008C0: 30 3A 56 B2 C5 28 4E 24 29 3A 99 22 91 22 3B 3A |0:V..(N$):.".";:| 000008D0: 8B 56 B1 32 35 35 A7 33 32 38 30 00 F5 0C DA 0C |.V.255.3280.....| 000008E0: 50 43 25 28 47 AB 39 30 AA 33 34 36 29 B2 56 3A |PC%(G.90.346).V:| 000008F0: 89 33 33 30 30 00 FD 0C E4 0C 44 B2 31 00 05 0D |.3300.....D.1...| 00000900: EE 0C 4B B2 47 00 20 0D F8 0C 4B B2 4B AA 44 3A |..K.G. ...K.K.D:| 00000910: 8B 4B B2 33 38 34 B0 4B B2 AB 31 A7 33 30 31 30 |.K.384.K..1.3010| 00000920: 00 38 0D 02 0D 8B 51 24 28 4B 29 B2 22 2A 45 4E |.8....Q$(K)."*EN| 00000930: 44 2A 22 A7 33 30 31 30 00 4B 0D 0C 0D 8B 51 24 |D*".3010.K....Q$| 00000940: 28 4B 29 B2 22 22 A7 33 33 32 30 00 59 0D 16 0D |(K)."".3320.Y...| 00000950: 47 B2 4B 3A 89 33 30 31 30 00 68 0D 20 0D 44 B2 |G.K:.3010.h. .D.| 00000960: AB 31 3A 89 33 33 31 30 00 76 0D 2A 0D 8B 54 B2 |.1:.3310.v.*..T.| 00000970: 4E A7 33 31 31 30 00 86 0D 34 0D 54 B2 54 AA 31 |N.3110...4.T.T.1| 00000980: 3A 89 33 30 36 30 00 94 0D 3E 0D 8B 54 B2 31 A7 |:.3060...>..T.1.| 00000990: 33 31 31 30 00 A4 0D 48 0D 54 B2 54 AB 31 3A 89 |3110...H.T.T.1:.| 000009A0: 33 30 36 30 00 BD 0D 52 0D 44 B2 31 3A 8B 47 B1 |3060...R.D.1:.G.| 000009B0: 31 32 37 A7 47 B2 30 3A 89 33 30 31 30 00 CD 0D |127.G.0:.3010...| 000009C0: 5C 0D 47 B2 31 32 38 3A 89 33 30 31 30 00 DB 0D |\.G.128:.3010...| 000009D0: AC 0D 8B 56 B2 4E 43 A7 56 B2 30 00 EC 0D B6 0D |...V.NC.V.0.....| 000009E0: 56 B2 56 AF 33 31 3A 89 33 32 34 30 00 28 0E A0 |V.V.31:.3240.(..| 000009F0: 0F 4C 4E B2 31 36 3A 50 52 24 B2 22 C6 49 4C 45 |.LN.16:PR$.".ILE| 00000A00: 4E 41 4D 45 3F 20 22 3A 4D 44 B2 33 30 3A 45 58 |NAME? ":MD.30:EX| 00000A10: 24 B2 22 12 22 3A 44 46 24 B2 22 22 3A 8D 39 30 |$.".":DF$."":.90| 00000A20: 30 30 3A 46 24 B2 4E 24 00 38 0E A5 0F 8B 53 56 |00:F$.N$.8....SV| 00000A30: B2 31 38 A7 33 30 30 30 00 76 0E AA 0F 4C 4E B2 |.18.3000.v...LN.| 00000A40: 31 3A 50 52 24 B2 22 C4 52 49 56 45 20 4E 55 4D |1:PR$.".RIVE NUM| 00000A50: 42 45 52 3F 20 22 3A 4D 44 B2 34 3A 45 58 24 B2 |BER? ":MD.4:EX$.| 00000A60: 22 12 22 3A 44 46 24 B2 22 22 3A 8D 39 30 30 30 |".":DF$."":.9000| 00000A70: 3A 44 24 B2 4E 24 00 86 0E AF 0F 8B 53 56 B2 31 |:D$.N$......SV.1| 00000A80: 38 A7 33 30 30 30 00 A2 0E B4 0F 44 B2 C5 28 44 |8.3000.....D..(D| 00000A90: 24 29 3A 8B 44 B3 B1 30 AF 44 B3 B1 31 A7 34 30 |$):.D..0.D..1.40| 00000AA0: 31 30 00 BE 0E BE 0F 9F 32 2C 38 2C 32 2C 44 24 |10......2,8,2,D$| 00000AB0: AA 22 3A 22 AA 46 24 AA 22 2C 50 2C 57 22 00 D4 |.":".F$.",P,W"..| 00000AC0: 0E C8 0F 8D 37 34 30 30 3A 8B 44 45 B3 B1 30 A7 |....7400:.DE..0.| 00000AD0: 37 30 30 30 00 E1 0E D2 0F 98 32 2C 22 D3 C4 22 |7000......2,".."| 00000AE0: 3B 00 EF 0E DC 0F 98 32 2C C7 28 4E 43 29 3B 00 |;......2,.(NC);.| 00000AF0: 0F 0F E6 0F 81 41 B2 30 A4 33 38 33 3A 98 32 2C |.....A.0.383:.2,| 00000B00: C7 28 50 43 25 28 41 29 29 3B 3A 82 3A A0 32 00 |.(PC%(A));:.:.2.| 00000B10: 1F 0F F0 0F 8D 37 34 30 30 3A 89 37 30 30 30 00 |.....7400:.7000.| 00000B20: 2E 0F 58 1B 8B 44 45 B2 30 A7 37 35 32 30 00 3E |..X..DE.0.7520.>| 00000B30: 0F 62 1B 8B 44 45 B2 36 33 A7 37 35 30 30 00 55 |.b..DE.63.7500.U| 00000B40: 0F 6C 1B 99 22 C4 49 53 4B 20 45 52 52 4F 52 3A |.l..".ISK ERROR:| 00000B50: 20 22 44 45 24 00 5F 0F 76 1B 89 37 35 32 30 00 | "DE$._.v..7520.| 00000B60: 6F 0F E8 1C 44 45 24 B2 22 22 3A 44 45 B2 30 00 |o...DE$."":DE.0.| 00000B70: 9E 0F F2 1C A1 23 31 2C 44 31 24 3A 8B 53 54 B2 |.....#1,D1$:.ST.| 00000B80: 30 AF 44 31 24 B3 B1 C7 28 31 33 29 A7 44 45 24 |0.D1$...(13).DE$| 00000B90: B2 44 45 24 AA 44 31 24 3A 89 37 34 31 30 00 B1 |.DE$.D1$:.7410..| 00000BA0: 0F FC 1C 44 45 B2 C5 28 C8 28 44 45 24 2C 32 29 |...DE..(.(DE$,2)| 00000BB0: 29 00 B7 0F 06 1D 8E 00 F6 0F 4C 1D A0 32 3A 4C |).........L..2:L| 00000BC0: 4E B2 31 3A 50 52 24 B2 22 D2 45 50 4C 41 43 45 |N.1:PR$.".EPLACE| 00000BD0: 20 45 58 49 53 54 49 4E 47 20 46 49 4C 45 3F 20 | EXISTING FILE? | 00000BE0: 22 3A 4D 44 B2 31 33 31 3A 45 58 24 B2 22 22 3A |":MD.131:EX$."":| 00000BF0: 44 46 24 B2 22 22 00 06 10 51 1D 8D 39 30 30 30 |DF$.""...Q..9000| 00000C00: 3A 5A 24 B2 4E 24 00 23 10 56 1D 8B 5A 24 B2 22 |:Z$.N$.#.V..Z$."| 00000C10: D9 22 A7 D9 44 28 44 29 2C 28 46 24 29 3A 89 34 |."..D(D),(F$):.4| 00000C20: 30 33 30 00 37 10 60 1D A1 5A 24 3A 8B 5A 24 B2 |030.7.`..Z$:.Z$.| 00000C30: 22 22 A7 37 35 32 30 00 4A 10 6A 1D A0 32 3A 99 |"".7520.J.j..2:.| 00000C40: 22 93 22 3B 3A 89 32 31 30 30 00 50 10 78 1E 80 |".";:.2100.P.x..| 00000C50: 00 6A 10 DC 1E A1 23 32 2C 41 24 3A 8B 41 24 B2 |.j....#2,A$:.A$.| 00000C60: 22 22 A7 41 24 B2 C7 28 30 29 00 79 10 E6 1E 41 |"".A$..(0).y...A| 00000C70: 25 B2 C6 28 41 24 29 3A 8E 00 A0 10 40 1F 83 22 |%..(A$):....@.."| 00000C80: C3 41 52 52 49 41 47 45 20 52 45 54 55 52 4E 20 |.ARRIAGE RETURN | 00000C90: 28 4C 49 4E 45 20 46 45 45 44 29 3F 20 22 2C 31 |(LINE FEED)? ",1| 00000CA0: 00 CA 10 4A 1F 83 22 C3 41 52 52 49 41 47 45 20 |...J..".ARRIAGE | 00000CB0: 52 45 54 55 52 4E 20 28 4E 4F 20 4C 49 4E 45 20 |RETURN (NO LINE | 00000CC0: 46 45 45 44 29 3F 20 22 2C 31 00 E9 10 54 1F 83 |FEED)? ",1...T..| 00000CD0: 22 CC 49 4E 45 20 46 45 45 44 20 43 48 41 52 41 |".INE FEED CHARA| 00000CE0: 43 54 45 52 3F 20 22 2C 31 00 08 11 5E 1F 83 22 |CTER? ",1...^.."| 00000CF0: C2 41 43 4B 53 50 41 43 45 20 43 48 41 52 41 43 |.ACKSPACE CHARAC| 00000D00: 54 45 52 3F 20 22 2C 31 00 27 11 68 1F 83 22 D5 |TER? ",1.'.h..".| 00000D10: 4E 44 45 52 4C 49 4E 45 20 43 48 41 52 41 43 54 |NDERLINE CHARACT| 00000D20: 45 52 3F 20 22 2C 31 00 4F 11 72 1F 83 22 D0 52 |ER? ",1.O.r..".R| 00000D30: 49 4E 54 45 52 20 49 4E 49 54 41 4C 49 5A 45 20 |INTER INITALIZE | 00000D40: 43 48 41 52 41 43 54 45 52 53 3F 20 22 2C 35 00 |CHARACTERS? ",5.| 00000D50: 70 11 7C 1F 83 22 CC 49 4E 45 20 42 45 47 49 4E |p.|..".INE BEGIN| 00000D60: 20 43 48 41 52 41 43 54 45 52 53 3F 20 22 2C 35 | CHARACTERS? ",5| 00000D70: 00 96 11 86 1F 83 22 D5 4E 44 45 52 4C 49 4E 45 |......".NDERLINE| 00000D80: 20 42 45 47 49 4E 20 43 48 41 52 41 43 54 45 52 | BEGIN CHARACTER| 00000D90: 53 3F 20 22 2C 35 00 BA 11 90 1F 83 22 D5 4E 44 |S? ",5......".ND| 00000DA0: 45 52 4C 49 4E 45 20 45 4E 44 20 43 48 41 52 41 |ERLINE END CHARA| 00000DB0: 43 54 45 52 53 3F 20 22 2C 35 00 DF 11 9A 1F 83 |CTERS? ",5......| 00000DC0: 22 C2 4F 4C 44 46 41 43 45 20 42 45 47 49 4E 20 |".OLDFACE BEGIN | 00000DD0: 43 48 41 52 41 43 54 45 52 53 3F 20 22 2C 35 00 |CHARACTERS? ",5.| 00000DE0: 02 12 A4 1F 83 22 C2 4F 4C 44 46 41 43 45 20 45 |.....".OLDFACE E| 00000DF0: 4E 44 20 43 48 41 52 41 43 54 45 52 53 3F 20 22 |ND CHARACTERS? "| 00000E00: 2C 35 00 2C 12 AE 1F 83 22 D5 4E 44 45 52 4C 49 |,5.,....".NDERLI| 00000E10: 4E 45 20 42 45 47 49 4E 20 28 4E 4F 20 4C 49 4E |NE BEGIN (NO LIN| 00000E20: 45 20 46 45 45 44 29 3F 20 22 2C 35 00 54 12 B8 |E FEED)? ",5.T..| 00000E30: 1F 83 22 D5 4E 44 45 52 4C 49 4E 45 20 45 4E 44 |..".NDERLINE END| 00000E40: 20 28 4E 4F 20 4C 49 4E 45 20 46 45 45 44 29 3F | (NO LINE FEED)?| 00000E50: 20 22 2C 35 00 7D 12 C2 1F 83 22 C2 4F 4C 44 46 | ",5.}....".OLDF| 00000E60: 41 43 45 20 42 45 47 49 4E 20 28 4E 4F 20 4C 49 |ACE BEGIN (NO LI| 00000E70: 4E 45 20 46 45 45 44 29 3F 20 22 2C 35 00 A4 12 |NE FEED)? ",5...| 00000E80: CC 1F 83 22 C2 4F 4C 44 46 41 43 45 20 45 4E 44 |...".OLDFACE END| 00000E90: 20 28 4E 4F 20 4C 49 4E 45 20 46 45 45 44 29 3F | (NO LINE FEED)?| 00000EA0: 20 22 2C 35 00 CC 12 D6 1F 83 22 D3 55 50 45 52 | ",5......".UPER| 00000EB0: 53 43 52 49 50 54 20 42 45 47 49 4E 20 43 48 41 |SCRIPT BEGIN CHA| 00000EC0: 52 41 43 54 45 52 53 3F 20 22 2C 35 00 F2 12 E0 |RACTERS? ",5....| 00000ED0: 1F 83 22 D3 55 50 45 52 53 43 52 49 50 54 20 45 |..".UPERSCRIPT E| 00000EE0: 4E 44 20 43 48 41 52 41 43 54 45 52 53 3F 20 22 |ND CHARACTERS? "| 00000EF0: 2C 35 00 18 13 EA 1F 83 22 D3 55 42 53 43 52 49 |,5......".UBSCRI| 00000F00: 50 54 20 42 45 47 49 4E 20 43 48 41 52 41 43 54 |PT BEGIN CHARACT| 00000F10: 45 52 53 3F 20 22 2C 35 00 3C 13 F4 1F 83 22 D3 |ERS? ",5.<....".| 00000F20: 55 42 53 43 52 49 50 54 20 45 4E 44 20 43 48 41 |UBSCRIPT END CHA| 00000F30: 52 41 43 54 45 52 53 3F 20 22 2C 35 00 60 13 FE |RACTERS? ",5.`..| 00000F40: 1F 83 22 C9 54 41 4C 49 43 53 20 42 45 47 49 4E |..".TALICS BEGIN| 00000F50: 20 43 48 41 52 41 43 54 45 52 53 3F 20 22 2C 35 | CHARACTERS? ",5| 00000F60: 00 82 13 08 20 83 22 C9 54 41 4C 49 43 53 20 45 |.... .".TALICS E| 00000F70: 4E 44 20 43 48 41 52 41 43 54 45 52 53 3F 20 22 |ND CHARACTERS? "| 00000F80: 2C 35 00 B1 13 12 20 83 22 D6 41 4C 55 45 20 54 |,5.... .".ALUE T| 00000F90: 4F 20 41 44 44 20 46 4F 52 20 49 54 41 4C 49 43 |O ADD FOR ITALIC| 00000FA0: 53 20 43 48 41 52 41 43 54 45 52 53 3F 20 22 2C |S CHARACTERS? ",| 00000FB0: 31 00 DB 13 1C 20 83 22 D0 49 54 43 48 20 3D 20 |1.... .".ITCH = | 00000FC0: 31 30 20 43 48 41 52 41 43 54 45 52 53 20 50 45 |10 CHARACTERS PE| 00000FD0: 52 20 49 4E 43 48 3F 20 22 2C 35 00 05 14 26 20 |R INCH? ",5...& | 00000FE0: 83 22 D0 49 54 43 48 20 3D 20 31 32 20 43 48 41 |.".ITCH = 12 CHA| 00000FF0: 52 41 43 54 45 52 53 20 50 45 52 20 49 4E 43 48 |RACTERS PER INCH| 00001000: 3F 20 22 2C 35 00 2F 14 30 20 83 22 D0 49 54 43 |? ",5./.0 .".ITC| 00001010: 48 20 3D 20 31 35 20 43 48 41 52 41 43 54 45 52 |H = 15 CHARACTER| 00001020: 53 20 50 45 52 20 49 4E 43 48 3F 20 22 2C 35 00 |S PER INCH? ",5.| 00001030: 49 14 3A 20 83 22 CF 50 54 49 4F 4E 41 4C 20 50 |I.: .".PTIONAL P| 00001040: 49 54 43 48 3F 20 22 2C 35 00 74 14 44 20 83 22 |ITCH? ",5.t.D ."| 00001050: CC 49 4E 45 20 53 50 41 43 49 4E 47 20 3D 20 36 |.INE SPACING = 6| 00001060: 20 4C 49 4E 45 53 20 50 45 52 20 49 4E 43 48 3F | LINES PER INCH?| 00001070: 20 22 2C 35 00 9F 14 4E 20 83 22 CC 49 4E 45 20 | ",5...N .".INE | 00001080: 53 50 41 43 49 4E 47 20 3D 20 38 20 4C 49 4E 45 |SPACING = 8 LINE| 00001090: 53 20 50 45 52 20 49 4E 43 48 3F 20 22 2C 35 00 |S PER INCH? ",5.| 000010A0: BF 14 58 20 83 22 CF 50 54 49 4F 4E 41 4C 20 4C |..X .".PTIONAL L| 000010B0: 49 4E 45 20 53 50 41 43 49 4E 47 3F 22 2C 35 00 |INE SPACING?",5.| 000010C0: EE 14 62 20 83 22 CD 49 43 52 4F 53 50 41 43 49 |..b .".ICROSPACI| 000010D0: 4E 47 20 46 4F 52 20 42 4F 4C 44 46 41 43 45 20 |NG FOR BOLDFACE | 000010E0: 28 55 53 49 4E 47 20 42 53 29 3F 22 2C 35 00 17 |(USING BS)?",5..| 000010F0: 15 6C 20 83 22 C6 4F 52 43 45 44 20 38 2D 42 49 |.l .".ORCED 8-BI| 00001100: 54 20 43 48 41 52 41 43 54 45 52 53 20 42 45 47 |T CHARACTERS BEG| 00001110: 49 4E 3F 20 22 2C 35 00 40 15 76 20 83 22 C6 4F |IN? ",5.@.v .".O| 00001120: 52 43 45 44 20 37 2D 42 49 54 20 43 48 41 52 41 |RCED 7-BIT CHARA| 00001130: 43 54 45 52 53 20 42 45 47 49 4E 3F 20 22 2C 35 |CTERS BEGIN? ",5| 00001140: 00 69 15 80 20 83 22 CE 55 4D 42 45 52 20 4F 46 |.i.. .".UMBER OF| 00001150: 20 4C 49 4E 45 20 46 45 45 44 53 20 50 45 52 20 | LINE FEEDS PER | 00001160: 4C 49 4E 45 3F 20 22 2C 31 00 85 15 8A 20 83 22 |LINE? ",1.... ."| 00001170: D3 55 50 45 52 53 43 52 49 50 54 20 4D 4F 44 45 |.UPERSCRIPT MODE| 00001180: 3F 20 22 2C 31 00 A6 15 94 20 83 22 CD 49 43 52 |? ",1.... .".ICR| 00001190: 4F 53 50 41 43 49 4E 47 20 4F 4E 20 28 D3 D0 D3 |OSPACING ON (...| 000011A0: 29 3F 20 22 2C 35 00 C8 15 9E 20 83 22 CD 49 43 |)? ",5.... .".IC| 000011B0: 52 4F 53 50 41 43 49 4E 47 20 4F 46 46 20 28 D3 |ROSPACING OFF (.| 000011C0: D0 D3 29 3F 20 22 2C 35 00 F2 15 A8 20 83 22 D3 |..)? ",5.... .".| 000011D0: 45 4D 49 2D 50 52 4F 50 4F 52 54 49 4F 4E 41 4C |EMI-PROPORTIONAL| 000011E0: 20 53 50 41 43 49 4E 47 20 4D 4F 44 45 3F 20 22 | SPACING MODE? "| 000011F0: 2C 31 00 24 16 B2 20 83 22 CE 55 4D 42 45 52 20 |,1.$.. .".UMBER | 00001200: 4F 46 20 4D 49 43 52 4F 53 50 41 43 45 53 20 50 |OF MICROSPACES P| 00001210: 45 52 20 53 50 41 43 45 20 28 50 54 31 30 29 3F |ER SPACE (PT10)?| 00001220: 20 22 2C 31 00 56 16 BC 20 83 22 CE 55 4D 42 45 | ",1.V.. .".UMBE| 00001230: 52 20 4F 46 20 4D 49 43 52 4F 53 50 41 43 45 53 |R OF MICROSPACES| 00001240: 20 50 45 52 20 53 50 41 43 45 20 28 50 54 31 32 | PER SPACE (PT12| 00001250: 29 3F 20 22 2C 31 00 88 16 C6 20 83 22 CE 55 4D |)? ",1.... .".UM| 00001260: 42 45 52 20 4F 46 20 4D 49 43 52 4F 53 50 41 43 |BER OF MICROSPAC| 00001270: 45 53 20 50 45 52 20 53 50 41 43 45 20 28 50 54 |ES PER SPACE (PT| 00001280: 31 35 29 3F 20 22 2C 31 00 BE 16 D0 20 83 22 CE |15)? ",1.... .".| 00001290: 55 4D 42 45 52 20 4F 46 20 4D 49 43 52 4F 53 50 |UMBER OF MICROSP| 000012A0: 41 43 45 53 20 50 45 52 20 53 50 41 43 45 20 28 |ACES PER SPACE (| 000012B0: 4F 50 54 49 4F 4E 41 4C 29 3F 20 22 2C 31 00 E1 |OPTIONAL)? ",1..| 000012C0: 16 DA 20 83 22 27 D3 50 41 43 45 27 20 43 48 41 |.. ."'.PACE' CHA| 000012D0: 52 41 43 54 45 52 20 28 D3 D0 D3 29 3F 20 22 2C |RACTER (...)? ",| 000012E0: 31 00 0A 17 E4 20 83 22 CD 55 4C 54 49 4C 49 4E |1.... .".ULTILIN| 000012F0: 47 55 41 4C 20 43 48 41 52 41 43 54 45 52 20 53 |GUAL CHARACTER S| 00001300: 45 54 20 4F 4E 3F 20 22 2C 35 00 34 17 EE 20 83 |ET ON? ",5.4.. .| 00001310: 22 CD 55 4C 54 49 4C 49 4E 47 55 41 4C 20 43 48 |".ULTILINGUAL CH| 00001320: 41 52 41 43 54 45 52 20 53 45 54 20 4F 46 46 3F |ARACTER SET OFF?| 00001330: 20 22 2C 35 00 66 17 F8 20 83 22 C2 59 54 45 20 | ",5.f.. .".YTE | 00001340: 50 4F 53 49 54 49 4F 4E 20 46 4F 52 20 27 53 50 |POSITION FOR 'SP| 00001350: 41 43 45 27 20 4E 55 4D 42 45 52 20 28 D3 D0 D3 |ACE' NUMBER (...| 00001360: 29 3F 20 22 2C 31 00 8F 17 02 21 83 22 CF 46 46 |)? ",1....!.".FF| 00001370: 53 45 54 20 46 4F 52 20 53 50 41 43 49 4E 47 20 |SET FOR SPACING | 00001380: 42 59 54 45 20 28 D3 D0 D3 29 3F 20 22 2C 31 00 |BYTE (...)? ",1.| 00001390: 9E 17 C4 22 83 22 2A 45 4E 44 2A 22 2C 30 00 BD |..."."*END*",0..| 000013A0: 17 28 23 8F 20 2A 2A 2A 20 49 4E 50 55 54 20 53 |.(#. *** INPUT S| 000013B0: 55 42 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 DC 17 |UBROUTINE ***...| 000013C0: 32 23 8F 20 2A 2A 2A 20 53 54 41 54 55 53 20 50 |2#. *** STATUS P| 000013D0: 41 53 53 45 44 20 49 4E 20 2A 2A 2A 00 FB 17 3C |ASSED IN ***...<| 000013E0: 23 8F 20 2A 2A 2A 20 4C 4E 2C 50 52 24 2C 4D 44 |#. *** LN,PR$,MD| 000013F0: 2C 45 58 24 2C 44 46 24 2A 2A 2A 00 1A 18 46 23 |,EX$,DF$***...F#| 00001400: 8F 20 2A 2A 2A 20 53 54 41 54 55 53 20 52 45 54 |. *** STATUS RET| 00001410: 55 52 4E 45 44 20 20 2A 2A 2A 00 39 18 50 23 8F |URNED ***.9.P#.| 00001420: 20 2A 2A 2A 20 49 4E 20 53 56 20 20 20 20 20 20 | *** IN SV | 00001430: 20 20 20 20 20 20 2A 2A 2A 00 58 18 5A 23 8F 20 | ***.X.Z#. | 00001440: 2A 2A 2A 20 49 4E 50 55 54 20 52 45 54 55 52 4E |*** INPUT RETURN| 00001450: 45 44 20 49 4E 2A 2A 2A 00 77 18 64 23 8F 20 2A |ED IN***.w.d#. *| 00001460: 2A 2A 20 4E 24 20 20 20 20 20 20 20 20 20 20 20 |** N$ | 00001470: 20 20 20 20 2A 2A 2A 00 7D 18 6E 23 3A 00 87 18 | ***.}.n#:...| 00001480: 8C 23 99 50 52 24 3B 00 A0 18 A0 23 44 46 24 B2 |.#.PR$;....#DF$.| 00001490: C8 28 44 46 24 2C 4C 4E 29 3A 4E 24 B2 44 46 24 |.(DF$,LN):N$.DF$| 000014A0: 00 B0 18 AA 23 99 4E 24 3B 3A 97 32 30 35 2C 30 |....#.N$;:.205,0| 000014B0: 00 BD 18 B4 23 99 22 12 20 92 9D 22 3B 00 D1 18 |....#.". ..";...| 000014C0: BE 23 A1 41 24 3A 8B 41 24 B2 22 22 A7 39 31 35 |.#.A$:.A$."".915| 000014D0: 30 00 F2 18 C8 23 53 56 B2 C6 28 41 24 29 3A 8B |0....#SV..(A$):.| 000014E0: 53 56 B2 31 33 AF C3 28 4E 24 29 B2 30 A7 39 31 |SV.13..(N$).0.91| 000014F0: 35 30 00 02 19 CD 23 8B 53 56 B2 31 33 A7 39 35 |50....#.SV.13.95| 00001500: 30 30 00 1A 19 D2 23 8B 53 56 B2 32 30 AF C3 28 |00....#.SV.20..(| 00001510: 4E 24 29 B2 30 A7 39 31 35 30 00 46 19 DC 23 8B |N$).0.9150.F..#.| 00001520: 53 56 B2 32 30 A7 4E 24 B2 C8 28 4E 24 2C C3 28 |SV.20.N$..(N$,.(| 00001530: 4E 24 29 AB 31 29 3A 99 22 A0 9D 9D 20 9D 22 3B |N$).1):."... .";| 00001540: 3A 89 39 31 34 30 00 66 19 E6 23 53 52 B2 53 56 |:.9140.f..#SR.SV| 00001550: AF 31 32 37 3A 8B 53 52 B3 33 32 B0 53 52 B1 39 |.127:.SR.32.SR.9| 00001560: 35 A7 39 34 30 30 00 79 19 EB 23 8B C3 28 4E 24 |5.9400.y..#..(N$| 00001570: 29 B2 4C 4E A7 39 31 35 30 00 9E 19 F0 23 53 51 |).LN.9150....#SQ| 00001580: B2 53 56 3A 8B 53 56 B1 34 37 AF 53 56 B3 35 38 |.SV:.SV.47.SV.58| 00001590: AF 28 4D 44 AF 34 29 B2 34 A7 39 33 30 30 00 C1 |.(MD.4).4.9300..| 000015A0: 19 FA 23 8B 30 3A 50 52 49 4E 54 45 52 20 53 45 |..#.0:PRINTER SE| 000015B0: 54 55 50 2C 50 52 47 4F 4B 30 3A 50 52 49 4E 54 |TUP,PRGOK0:PRINT| 000015C0: 45 52 20 53 45 54 55 50 2C 50 52 47 30 3A 50 52 |ER SETUP,PRG0:PR| 000015D0: 49 4E 54 45 52 20 53 45 54 55 50 2C 30 3A 50 52 |INTER SETUP,0:PR| 000015E0: 49 4E 54 45 52 20 53 45 54 55 50 4F 4B 30 3A 43 |INTER SETUPOK0:C| 000015F0: 48 41 4E 47 45 20 50 52 54 46 49 4C 20 36 34 2C |HANGE PRTFIL 64,| 00001600: 50 52 47 30 3A 43 48 41 4E 47 45 20 50 52 54 46 |PRG0:CHANGE PRTF| 00001610: 49 4C 20 36 34 2C 30 3A 43 48 41 4E 47 45 20 50 |IL 64,0:CHANGE P| 00001620: 52 54 46 49 4C 20 36 34 4F 4B 30 3A 4D 58 38 30 |RTFIL 64OK0:MX80| 00001630: 50 2D 50 2D 4E 4C 46 2D 53 53 2C 50 52 47 30 3A |P-P-NLF-SS,PRG0:| 00001640: 4D 58 38 30 50 2D 50 2D 4E 4C 46 2D 53 53 2C 30 |MX80P-P-NLF-SS,0| 00001650: 3A 4D 58 38 30 50 2D 50 2D 4E 4C 46 2D 53 53 4F |:MX80P-P-NLF-SSO| 00001660: 4B 30 3A 4D 58 38 30 50 2D 50 2D 4E 4C 46 2C 50 |K0:MX80P-P-NLF,P| 00001670: 52 47 30 3A 4D 58 38 30 50 2D 50 2D 4E 4C 46 2C |RG0:MX80P-P-NLF,| 00001680: 30 3A 4D 58 38 30 50 2D 50 2D 4E 4C 46 4F 4B |0:MX80P-P-NLFOK |
.......2000.....:.6.....................
...............[....
..|.... .ER SET.UP PROGRAM
.......
..F.$.. AS OF JANUARY 21, 1983 ...
.... ....8.
. SRIGHT (C) 1982 ..2.B..
BY STEVE DOUGLAS ..U.L..
. ..Z.V.. BATTERI
ES INCLUDED ....`..
..A.J.. THIS VERSI. . PE
T.CBM ....T..
....~..............................
........:.....:.3.P..".";:.59468,14:.1,8
,15.Q.Z..PC%(383),Q$(383),Q%(383).W...A1
$."ASCII VALUE FOR '":A2$."'? ".....AC$.
"@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\].. !".G(3
4)."#$%&'()*+,-./".....AC$.AC$."01234567
89:;<=>?.ABCDEFGHIJKLMNOPQRSTUVWXYZ".(..
.AC$.AC$."..... ........................
.......".Y...X$.".......................
................"......A.0.127:Q$(A)."*"
:Q%(A).1:.:G.128......Q$(G),Q%(G):.Q$(G)
."*END*".2100.F. .K.Q%(G):G.G.Q%(G):.K.1
.G.G.1.P.*..2070...4.LN.1:PR$.".LOAD PRE
VIOUS FILE? ":MD.131:EX$."":DF$."":.9000
...5.Z$.N$.+.>..Z$."N".2500.=.H..Z$.."Y"
.2100.Y.R.LN.16:PR$."FILE NAME? ":MD.30:
EX$."":DF$."":.9000:F$.N$. .\..2,8,2,F$.
",P,R":.7400:.DE..0.7000...F..#2,A$:.#2,
A$.B.P..7900:NC.A%...Z..A.0.383:.7900:PC
%(A).A%:.: 2......3000.2.D.LN.3:PR$."'NU
LL' CHARACTER? ":MD.4:EX$."":DF$."":.900
0:NC.E(N$).L.N..A.0.31:PC%(A).A.64:..D.X
..A.32.63:PC%(A).A:.......A.64.90:PC%(A)
.A.128:.......A.91.383:PC%(A).NC:......G
.0:D.1.T.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.7...EX$."..":.G.0.EX$.EX$.".".N....G.3
83.EX$.EX$.".".C....T.1.EX$.EX$.".".X...
.T.N.EX$.EX$.".".....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.5.X..SS.18
.4000.F.B..SS.146.3410.V.L..V.255.3110.G
.V.PC%(G.T.1).V.M..........G.90.G.128.32
75......N.1.3300.....D$.I(D(PC%(G.T.1)),
3)......:LN.3:PR$."SECONDARY ADDRESS? ":
MD.4:EX$."":DF$.D$......9000:V.E(N$):.".
";:.V.31.3500.....PC%(G.T.1).V......G..2
78.G..284.3300.W....T.1.N:.PC%(T)..NC.PC
%(T).PC%(T).127.C.F..:.3300...K.D$.I(D(P
C%(G.90.346)),3)...P..:LN.3:PR$."SECOND
CHARACTER? ":MD.4:EX$."":DF$.D$...U..900
0: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.8....Q$(K)."*END*".3010
.K....Q$(K)."".3320.Y...G.K:.3010.H. .D.
.1:.3310.V.*..T.N.3110...4.T.T.1:.3060..
.>..T.1.3110...H.T.T.1:.3060...R.D.1:.G.
127.G.0:.3010.M.\.G.128:.3010......V.NC.
V.0.....V.V.31:.3240.(. .LN.16:PR$."FILE
NAME? ":MD.30:EX$.".":DF$."":.9000:F$.N$
.8....SV.18.3000.V...LN.1:PR$."DRIVE NUM
BER? ":MD.4:EX$.".":DF$."":.9000:D$.N$..
....SV.18.3000.....D.E(D$):.D..0.D..1.40
10......2,8,2,D$.":".F$.",P,W".T.H..7400
:.DE..0.7000...R..2,"SD";......2,G(NC);.
.....A.0.383:.2,G(PC%(A));:.: 2......740
0:.7000...X..DE.0.7520.>.B..DE.63.7500.U
.L.."DISK ERROR: "DE$._.V..7520.O...DE$.
"":DE.0......#1,D1$:.ST.0.D1$..G(13).DE$
.DE$.D1$:.7410.....DE.E(H(DE$,2)).......
..L. 2:LN.1:PR$."REPLACE EXISTING FILE?
":MD.131:EX$."":DF$.""...Q..9000:Z$.N$.#
.V..Z$."Y".YD(D),(F$):.4030.7.`..Z$:.Z$.
"".7520.J.J. 2:.".";:.2100.P.X...J....#2
,A$:.A$."".A$.G(0).Y...A%.F(A$):.. .@.."
CARRIAGE RETURN (LINE FEED)? ",1.J.J.."C
ARRIAGE RETURN (NO LINE FEED)? ",1...T..
"LINE FEED CHARACTER? ",1...^.."BACKSPAC
E CHARACTER? ",1.'.H.."UNDERLINE CHARACT
ER? ",1.O.R.."PRINTER INITALIZE CHARACTE
RS? ",5.P.|.."LINE BEGIN CHARACTERS? ",5
......"UNDERLINE BEGIN CHARACTERS? ",5..
...."UNDERLINE END CHARACTERS? ",5......
"BOLDFACE BEGIN CHARACTERS? ",5......"BO
LDFACE END CHARACTERS? ",5.,...."UNDERLI
NE BEGIN (NO LINE FEED)? ",5.T...."UNDER
LINE END (NO LINE FEED)? ",5.}.B.."BOLDF
ACE BEGIN (NO LINE FEED)? ",5...L.."BOLD
FACE END (NO LINE FEED)? ",5.L.V.."SUPER
SCRIPT BEGIN CHARACTERS? ",5......"SUPER
SCRIPT END CHARACTERS? ",5......"SUBSCRI
PT BEGIN CHARACTERS? ",5.<...."SUBSCRIPT
END CHARACTERS? ",5.`...."ITALICS BEGIN
CHARACTERS? ",5.... ."ITALICS END CHARA
CTERS? ",5.... ."VALUE TO ADD FOR ITALIC
S CHARACTERS? ",1.... ."PITCH = 10 CHARA
CTERS PER INCH? ",5...& ."PITCH = 12 CHA
RACTERS PER INCH? ",5./.0 ."PITCH = 15 C
HARACTERS PER INCH? ",5.I.: ."OPTIONAL P
ITCH? ",5.T.D ."LINE SPACING = 6 LINES P
ER INCH? ",5...N ."LINE SPACING = 8 LINE
S PER INCH? ",5...X ."OPTIONAL LINE SPAC
ING?",5...B ."MICROSPACING FOR BOLDFACE
(USING BS)?",5...L ."FORCED 8-BIT CHARAC
TERS BEGIN? ",5.@.V ."FORCED 7-BIT CHARA
CTERS BEGIN? ",5.I.. ."NUMBER OF LINE FE
EDS PER LINE? ",1.... ."SUPERSCRIPT MODE
? ",1.... ."MICROSPACING ON (SPS)? ",5.H
.. ."MICROSPACING OFF (SPS)? ",5.... ."S
EMI-PROPORTIONAL SPACING MODE? ",1.$.. .
"NUMBER OF MICROSPACES PER SPACE (PT10)?
",1.V.. ."NUMBER OF MICROSPACES PER SPA
CE (PT12)? ",1...F ."NUMBER OF MICROSPAC
ES PER SPACE (PT15)? ",1...P ."NUMBER OF
MICROSPACES PER SPACE (OPTIONAL)? ",1..
.Z ."'SPACE' CHARACTER (SPS)? ",1.... ."
MULTILINGUAL CHARACTER SET ON? ",5.4.. .
"MULTILINGUAL CHARACTER SET OFF? ",5.F..
."BYTE POSITION FOR 'SPACE' NUMBER (SPS
)? ",1....!."OFFSET FOR SPACING BYTE (SP
S)? ",1...D"."*END*",0...(#. *** INPUT S
UBROUTINE ***...2#. *** STATUS PASSED IN
***...<#. *** LN,PR$,MD,EX$,DF$***...F#
. *** STATUS RETURNED ***.9.P#. *** IN
SV ***.X.Z#. *** INPUT RETURN
ED IN***.W.D#. *** N$ ***.
}.N#:....#.PR$;. . #DF$.H(DF$,LN):N$.DF$
....#.N$;:.205,0....#.". ..";.Q..#.A$:.A
$."".9150...H#SV.F(A$):.SV.13.C(N$).0.91
50...M#.SV.13.9500...R#.SV.20.C(N$).0.91
50.F..#.SV.20.N$.H(N$,C(N$).1):." .. .";
:.9140.F..#SR.SV.127:.SR.32.SR.95.9400.Y
..#.C(N$).LN.9150....#SQ.SV:.SV.47.SV.58
.(MD.4).4.9300.A..#.0:PRINTER SETUP,PRGO
K0:PRINTER SETUP,PRG0:PRINTER SETUP,0:PR
INTER SETUPOK0:CHANGE PRTFIL 64,PRG0:CHA
NGE PRTFIL 64,0:CHANGE PRTFIL 64OK0:MX80
P-P-NLF-SS,PRG0:MX80P-P-NLF-SS,0:MX80P-P
-NLF-SSOK0:MX80P-P-NLF,PRG0:MX80P-P-NLF,
0:MX80P-P-NLFOK
> CLICK IMAGE PREVIEW FOR FULL MODAL