SET CONFIGURE
FILE INFORMATION
FILENAME(S): SET CONFIGURE
FILE TYPE(S): PRG
FILE SIZE: 15.1K
FIRST SEEN: 2025-11-30 21:09:48
APPEARS ON: 2 disk(s)
FILE HASH
e3e7ff47b24081ff2703ddb9f326f7cb76c46610b4db98d0622c16a5ff57ea2c
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITY | SET CONFIGURE | PRG | DuncanTwain | 29 | 2 | DOWNLOAD FILE |
| SCRIPT 64 | SET CONFIGURE | PRG | DuncanTwain | 28 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 3A 04 0A 00 8F 20 20 54 49 4D 45 20 4F 46 |..:.... TIME OF|
00000010: 20 4C 41 53 54 20 55 50 44 41 54 45 20 4A 55 4E | LAST UPDATE JUN|
00000020: 45 20 20 37 2F 38 33 20 41 54 20 32 31 2E 30 30 |E 7/83 AT 21.00|
00000030: 20 20 20 20 20 20 56 32 2E 30 00 6E 04 14 00 8F | V2.0.n....|
00000040: 20 20 56 32 2E 30 20 53 55 50 50 4F 52 54 53 20 | V2.0 SUPPORTS |
00000050: 54 48 45 20 50 45 54 2F 43 42 4D 20 41 4E 44 20 |THE PET/CBM AND |
00000060: 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 2E 00 AA | COMMODORE 64...|
00000070: 04 1E 00 8F 20 20 42 59 20 42 49 4C 4C 20 44 55 |.... BY BILL DU|
00000080: 54 46 49 45 4C 44 2C 20 54 4F 52 4F 4E 54 4F 2C |TFIELD, TORONTO,|
00000090: 20 4F 4E 54 2E 20 32 32 34 2D 30 36 34 32 2E 20 | ONT. 224-0642. |
000000A0: 4A 55 4E 45 20 31 39 38 33 2E 00 F8 04 28 00 8F |JUNE 1983....(..|
000000B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 00 46 05 32 00 56 4E B2 |********.F.2.VN.|
00000100: 31 20 3A 8F 20 4E 4F 54 45 3A 46 4F 52 20 56 45 |1 :. NOTE:FOR VE|
00000110: 52 53 49 4F 4E 53 20 4F 46 20 54 48 45 20 57 4F |RSIONS OF THE WO|
00000120: 52 44 20 50 52 4F 43 45 53 53 4F 52 20 57 48 49 |RD PROCESSOR WHI|
00000130: 43 48 20 48 41 56 45 20 54 48 45 20 20 20 2A 2A |CH HAVE THE **|
00000140: 2A 2A 2A 2A 2A 2A 00 94 05 3C 00 8F 20 2A 2A 2A |******...<.. ***|
00000150: 2A 2A 2A 2A 2A 2A 20 20 51 55 45 53 54 49 4F 4E |****** QUESTION|
00000160: 20 4F 4E 20 4C 49 4E 45 20 46 45 45 44 53 20 49 | ON LINE FEEDS I|
00000170: 4E 20 54 48 45 20 49 4E 49 54 49 54 49 41 54 49 |N THE INITITIATI|
00000180: 4F 4E 20 50 52 4F 43 45 44 55 52 45 2A 2A 2A 2A |ON PROCEDURE****|
00000190: 2A 2A 2A 2A 00 E2 05 46 00 8F 20 2A 2A 2A 2A 2A |****...F.. *****|
000001A0: 2A 2A 2A 2A 20 20 49 46 20 54 48 45 20 57 4F 52 |**** IF THE WOR|
000001B0: 44 20 50 52 4F 43 45 53 53 4F 52 20 48 41 53 20 |D PROCESSOR HAS |
000001C0: 54 48 49 53 20 4F 50 54 49 4F 4E 20 49 4E 20 54 |THIS OPTION IN T|
000001D0: 48 45 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A |HE ******|
000001E0: 2A 2A 00 30 06 50 00 8F 20 2A 2A 2A 2A 2A 2A 2A |**.0.P.. *******|
000001F0: 2A 2A 20 20 4C 41 52 47 45 20 43 4F 4E 54 52 4F |** LARGE CONTRO|
00000200: 4C 20 4D 41 50 20 54 48 45 4E 20 53 45 54 20 56 |L MAP THEN SET V|
00000210: 4E 3D 31 20 20 20 20 20 20 20 20 20 20 20 20 20 |N=1 |
00000220: 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A | ********|
00000230: 00 7E 06 5A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.~.Z.. *********|
00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A1 |**************..|
00000280: 06 64 00 8D 20 39 33 30 3A 99 20 51 35 24 3A 8D |.d.. 930:. Q5$:.|
00000290: 20 31 36 30 3A 8D 20 31 31 30 3A 89 20 32 36 39 | 160:. 110:. 269|
000002A0: 30 00 D0 06 6E 00 99 20 22 93 22 3B 42 41 24 3B |0...n.. ".";BA$;|
000002B0: 42 58 24 3B 22 12 22 3B C8 28 41 58 24 2C 28 43 |BX$;".";.(AX$,(C|
000002C0: 4F AB C3 28 54 45 24 29 29 AD 32 29 3B 54 45 24 |O..(TE$)).2);TE$|
000002D0: 00 E6 06 78 00 54 46 24 B2 22 A0 A0 A0 22 3A 8D |...x.TF$."...":.|
000002E0: 20 37 37 30 3A 8E 00 EC 06 82 00 8F 00 35 07 8C | 770:........5..|
000002F0: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000300: 2A 2A 2A 2A 2A 2A 2A 2A 20 49 4E 54 52 4F 44 55 |******** INTRODU|
00000310: 43 54 49 4F 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |CTION **********|
00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000330: 2A 2A 2A 2A 2A 00 3B 07 96 00 8F 00 45 07 A0 00 |*****.;.....E...|
00000340: 8D 20 31 31 30 00 77 07 AA 00 99 22 13 11 22 3B |. 110.w...."..";|
00000350: 51 33 24 3B 22 D4 48 49 53 20 50 52 4F 47 52 41 |Q3$;".HIS PROGRA|
00000360: 4D 20 57 49 4C 4C 20 43 52 45 41 54 45 20 41 4E |M WILL CREATE AN|
00000370: 44 22 3B 51 31 24 3B 00 9A 07 B4 00 99 22 4D 41 |D";Q1$;......"MA|
00000380: 49 4E 54 41 49 4E 20 41 20 27 43 4F 4E 46 49 47 |INTAIN A 'CONFIG|
00000390: 55 52 45 27 20 46 49 4C 45 22 00 C8 07 BE 00 99 |URE' FILE"......|
000003A0: 20 51 33 24 3B 22 4F 4E 20 59 4F 55 52 20 57 4F | Q3$;"ON YOUR WO|
000003B0: 52 44 20 50 52 4F 43 45 53 53 4F 52 20 44 49 53 |RD PROCESSOR DIS|
000003C0: 4B 2E 22 3B 51 31 24 3B 00 F1 07 C8 00 99 20 22 |K.";Q1$;...... "|
000003D0: D4 48 45 20 43 4F 4E 46 49 47 55 52 45 20 46 49 |.HE CONFIGURE FI|
000003E0: 4C 45 20 41 55 54 4F 4D 41 54 49 43 41 4C 4C 59 |LE AUTOMATICALLY|
000003F0: 22 00 21 08 D2 00 99 20 51 33 24 3B 22 41 4E 53 |".!.... Q3$;"ANS|
00000400: 57 45 52 53 20 54 48 45 20 51 55 45 53 54 49 4F |WERS THE QUESTIO|
00000410: 4E 53 20 41 53 4B 45 44 20 49 4E 22 3B 51 31 24 |NS ASKED IN";Q1$|
00000420: 3B 00 4D 08 DC 00 99 22 D3 43 52 49 50 54 20 36 |;.M....".CRIPT 6|
00000430: 34 27 53 20 4C 4F 41 44 49 4E 47 20 50 52 4F 43 |4'S LOADING PROC|
00000440: 45 44 55 52 45 2E 20 20 D4 48 49 53 22 00 7A 08 |EDURE. .HIS".z.|
00000450: 22 01 99 20 51 33 24 3B 22 43 4F 4E 46 49 47 55 |".. Q3$;"CONFIGU|
00000460: 52 45 20 46 49 4C 45 20 43 41 4E 20 41 4C 53 4F |RE FILE CAN ALSO|
00000470: 20 53 45 54 22 3B 51 31 24 3B 00 A9 08 2C 01 99 | SET";Q1$;...,..|
00000480: 22 54 48 45 20 44 45 46 41 55 4C 54 20 56 41 4C |"THE DEFAULT VAL|
00000490: 55 45 53 20 49 4E 20 54 48 45 20 4C 41 52 47 45 |UES IN THE LARGE|
000004A0: 20 43 4F 4E 54 52 4F 4C 22 00 BF 08 36 01 99 20 | CONTROL"...6.. |
000004B0: 51 33 24 3B 22 4D 41 50 2E 22 3B 51 31 24 3B 00 |Q3$;"MAP.";Q1$;.|
000004C0: CE 08 5E 01 8D 20 34 31 30 3A 8D 31 31 30 00 03 |..^.. 410:.110..|
000004D0: 09 86 01 99 20 22 13 11 11 11 11 11 D0 4C 45 41 |.... ".......LEA|
000004E0: 53 45 20 49 4E 53 45 52 54 20 59 4F 55 52 20 57 |SE INSERT YOUR W|
000004F0: 4F 52 44 20 50 52 4F 43 45 53 53 4F 52 22 3B 51 |ORD PROCESSOR";Q|
00000500: 31 24 3B 00 1B 09 90 01 99 22 44 49 53 4B 20 49 |1$;......"DISK I|
00000510: 4E 20 44 52 49 56 45 20 30 2E 22 00 43 09 9A 01 |N DRIVE 0.".C...|
00000520: 54 46 24 B2 22 50 52 45 53 53 20 53 50 41 43 45 |TF$."PRESS SPACE|
00000530: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3A 8D 20 | TO CONTINUE":. |
00000540: 37 37 30 00 59 09 A4 01 A1 20 41 24 3A 8B 41 24 |770.Y.... A$:.A$|
00000550: B2 22 22 20 A7 20 34 32 30 00 6C 09 AE 01 8B 20 |."" . 420.l.... |
00000560: 41 24 B2 22 20 22 20 A7 20 34 35 30 00 76 09 B8 |A$." " . 450.v..|
00000570: 01 89 20 34 32 30 00 7C 09 C2 01 8E 00 82 09 CC |.. 420.|........|
00000580: 01 8F 00 CA 09 D6 01 8F 20 2A 2A 2A 2A 2A 2A 2A |........ *******|
00000590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 |************** |
000005A0: 43 4F 4D 4D 45 52 43 49 41 4C 20 2A 2A 2A 2A 2A |COMMERCIAL *****|
000005B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D0 09 E0 01 8F |**********......|
000005D0: 00 DE 09 EA 01 99 20 22 93 22 3B 51 34 24 00 F5 |...... ".";Q4$..|
000005E0: 09 F4 01 54 46 24 B2 22 20 22 3A 44 4F B2 31 3A |...TF$." ":DO.1:|
000005F0: 8D 20 37 37 30 00 07 0A FE 01 8B 20 43 4F B2 34 |. 770...... CO.4|
00000600: 30 20 A7 20 35 34 30 00 4F 0A 08 02 54 46 24 B2 |0 . 540.O...TF$.|
00000610: 22 4A 55 4E 45 2D 38 33 20 20 20 20 20 20 20 20 |"JUNE-83 |
00000620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000630: 20 20 20 20 20 20 20 20 56 45 52 53 49 4F 4E 20 | VERSION |
00000640: 32 2E 30 22 3A 44 4F B2 32 3A 8D 20 37 37 30 00 |2.0":DO.2:. 770.|
00000650: 59 0A 12 02 89 20 35 35 30 00 95 0A 1C 02 54 46 |Y.... 550.....TF|
00000660: 24 B2 22 4A 55 4E 45 2D 38 33 20 20 20 20 20 20 |$."JUNE-83 |
00000670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 45 | VE|
00000680: 52 53 49 4F 4E 20 32 2E 30 22 3A 44 4F B2 32 3A |RSION 2.0":DO.2:|
00000690: 8D 20 37 37 30 00 B8 0A 26 02 54 46 24 B2 22 20 |. 770...&.TF$." |
000006A0: 20 22 3A 81 20 44 4F B2 33 20 A4 20 39 3A 8D 20 | ":. DO.3 . 9:. |
000006B0: 37 37 30 3A 82 20 44 4F 00 E8 0A 30 02 54 46 24 |770:. DO...0.TF$|
000006C0: B2 22 53 45 54 20 43 4F 4E 46 49 47 55 52 45 20 |."SET CONFIGURE |
000006D0: 46 49 4C 45 20 50 52 4F 47 52 41 4D 22 3A 44 4F |FILE PROGRAM":DO|
000006E0: B2 39 3A 8D 20 37 37 30 00 00 0B 3A 02 54 46 24 |.9:. 770...:.TF$|
000006F0: B2 22 20 22 3A 44 4F B2 31 30 3A 8D 20 37 37 30 |." ":DO.10:. 770|
00000700: 00 1A 0B 44 02 54 46 24 B2 22 46 4F 52 22 3A 44 |...D.TF$."FOR":D|
00000710: 4F B2 31 31 3A 8D 20 37 37 30 00 32 0B 4E 02 54 |O.11:. 770.2.N.T|
00000720: 46 24 B2 22 20 22 3A 44 4F B2 31 32 3A 8D 20 37 |F$." ":DO.12:. 7|
00000730: 37 30 00 64 0B 58 02 54 46 24 B2 22 52 49 43 48 |70.d.X.TF$."RICH|
00000740: 56 41 4C 45 20 54 45 4C 45 43 4F 4D 4D 55 4E 49 |VALE TELECOMMUNI|
00000750: 43 41 54 49 4F 4E 53 22 3A 44 4F B2 31 33 3A 8D |CATIONS":DO.13:.|
00000760: 20 37 37 30 00 7C 0B 62 02 54 46 24 B2 22 20 22 | 770.|.b.TF$." "|
00000770: 3A 44 4F B2 31 34 3A 8D 20 37 37 30 00 8E 0B 6C |:DO.14:. 770...l|
00000780: 02 8B 20 43 4F B2 34 30 20 A7 20 36 34 30 00 C8 |.. CO.40 . 640..|
00000790: 0B 76 02 54 46 24 B2 22 52 54 43 2D 34 20 57 4F |.v.TF$."RTC-4 WO|
000007A0: 52 44 20 50 52 4F 43 45 53 53 49 4E 47 20 53 59 |RD PROCESSING SY|
000007B0: 53 54 45 4D 53 22 3A 44 4F B2 31 35 3A 8D 20 37 |STEMS":DO.15:. 7|
000007C0: 37 30 3A 89 20 36 35 30 00 00 0C 80 02 54 46 24 |70:. 650.....TF$|
000007D0: B2 22 53 43 52 49 50 54 20 36 34 20 57 4F 52 44 |."SCRIPT 64 WORD|
000007E0: 20 50 52 4F 43 45 53 53 49 4E 47 20 53 59 53 54 | PROCESSING SYST|
000007F0: 45 4D 53 22 3A 44 4F B2 31 35 3A 8D 20 37 37 30 |EMS":DO.15:. 770|
00000800: 00 24 0C 8A 02 54 46 24 B2 22 20 22 3A 81 20 44 |.$...TF$." ":. D|
00000810: 4F B2 31 36 20 A4 20 32 31 3A 8D 20 37 37 30 3A |O.16 . 21:. 770:|
00000820: 82 20 44 4F 00 36 0C 94 02 8B 20 43 4F B2 34 30 |. DO.6.... CO.40|
00000830: 20 A7 20 36 39 30 00 79 0C 9E 02 54 46 24 B2 22 | . 690.y...TF$."|
00000840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000860: 20 20 42 59 20 42 49 4C 4C 20 44 55 54 46 49 45 | BY BILL DUTFIE|
00000870: 4C 44 22 3A 44 4F B2 32 32 00 83 0C A8 02 89 20 |LD":DO.22...... |
00000880: 37 30 30 00 BA 0C B2 02 54 46 24 B2 22 20 20 20 |700.....TF$." |
00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008A0: 20 20 20 42 59 20 42 49 4C 4C 20 44 55 54 46 49 | BY BILL DUTFI|
000008B0: 45 4C 44 22 3A 44 4F B2 32 32 00 C4 0C BC 02 8D |ELD":DO.22......|
000008C0: 20 37 37 30 00 DC 0C C6 02 54 46 24 B2 22 20 22 | 770.....TF$." "|
000008D0: 3A 44 4F B2 32 33 3A 8D 20 37 37 30 00 F9 0C D0 |:DO.23:. 770....|
000008E0: 02 81 20 49 B2 31 A4 33 30 30 30 3A A1 41 24 3A |.. I.1.3000:.A$:|
000008F0: 8B 41 24 B2 22 22 A7 82 49 00 05 0D DA 02 44 4F |.A$.""..I.....DO|
00000900: B2 32 33 3A 8E 00 0B 0D E4 02 8F 00 53 0D EE 02 |.23:........S...|
00000910: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000920: 2A 2A 20 50 52 49 4E 54 20 42 4F 54 54 4F 4D 20 |** PRINT BOTTOM |
00000930: 43 4F 4E 54 52 4F 4C 20 4C 49 4E 45 20 2A 2A 2A |CONTROL LINE ***|
00000940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000950: 2A 2A 2A 00 59 0D F8 02 8F 00 92 0D 02 03 99 20 |***.Y.......... |
00000960: 22 13 22 3B C8 28 44 4E 24 2C 44 4F 29 3B 42 41 |".";.(DN$,DO);BA|
00000970: 24 3B 42 58 24 3B 22 12 22 3B C8 28 41 58 24 2C |$;BX$;".";.(AX$,|
00000980: 28 43 4F AB C3 28 54 46 24 29 29 AD 32 29 3B 54 |(CO..(TF$)).2);T|
00000990: 46 24 00 98 0D 0C 03 8E 00 9E 0D 16 03 8F 00 E6 |F$..............|
000009A0: 0D 20 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. .. ***********|
000009B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 54 45 52 |************ TER|
000009C0: 4D 49 4E 41 54 49 4F 4E 20 2A 2A 2A 2A 2A 2A 2A |MINATION *******|
000009D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009E0: 2A 2A 2A 2A 2A 2A 00 EC 0D 2A 03 8F 00 13 0E 34 |******...*.....4|
000009F0: 03 99 22 93 11 11 11 11 11 11 11 11 11 11 1D 1D |..".............|
00000A00: 1D 1D 1D 1D 1D 1D 1D 1D 47 4F 4F 44 20 42 59 45 |........GOOD BYE|
00000A10: 22 3A 80 00 19 0E 3E 03 8F 00 61 0E 48 03 8F 20 |":....>...a.H.. |
00000A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A30: 2A 20 45 52 52 4F 52 20 4D 45 53 53 41 47 45 20 |* ERROR MESSAGE |
00000A40: 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 2A 2A 2A 2A |ROUTINE ********|
00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A60: 2A 00 67 0E 52 03 8F 00 A2 0E 5C 03 99 22 11 22 |*.g.R.....\.."."|
00000A70: 3A 81 20 4A B2 31 20 A4 20 31 30 3A 49 4D 24 B2 |:. J.1 . 10:IM$.|
00000A80: 22 91 20 22 3A 8B 28 4A AB 28 B5 28 4A AD 32 29 |". ":.(J.(.(J.2)|
00000A90: AC 32 29 29 B2 30 20 A7 20 49 4D 24 B2 22 12 91 |.2)).0 . IM$."..|
00000AA0: 20 22 00 B3 0E 66 03 99 20 49 4D 24 3B 45 4D 24 | "...f.. IM$;EM$|
00000AB0: 28 4D 29 00 CB 0E 70 03 81 20 49 B2 31 20 A4 20 |(M)...p.. I.1 . |
00000AC0: 32 30 30 3A 82 20 49 3A 82 20 4A 00 D1 0E 7A 03 |200:. I:. J...z.|
00000AD0: 8E 00 D7 0E 84 03 8F 00 1F 0F 8E 03 8F 20 2A 2A |............. **|
00000AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AF0: 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 41 54 49 |*** INITIALIZATI|
00000B00: 4F 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 2A |ON ROUTINE *****|
00000B10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000B20: 25 0F 98 03 8F 00 5F 0F A2 03 43 4F B2 38 30 3A |%....._...CO.80:|
00000B30: 51 31 24 B2 C7 28 33 32 29 3A 51 33 24 B2 C7 28 |Q1$..(32):Q3$..(|
00000B40: 31 33 29 3A 51 34 24 B2 C7 28 31 34 32 29 3A 51 |13):Q4$..(142):Q|
00000B50: 35 24 B2 C7 28 31 34 29 3A 51 32 24 B2 22 22 00 |5$..(14):Q2$."".|
00000B60: 8D 0F AC 03 8B 20 C2 28 34 34 29 B2 38 20 A7 20 |..... .(44).8 . |
00000B70: 43 4F B2 34 30 3A 97 35 33 32 38 30 2C 31 34 3A |CO.40:.53280,14:|
00000B80: 97 35 33 32 38 31 2C 36 3A 99 22 05 22 00 B3 0F |.53281,6:."."...|
00000B90: B6 03 86 20 48 41 24 28 32 30 29 2C 48 42 24 28 |... HA$(20),HB$(|
00000BA0: 32 30 29 2C 48 43 24 28 32 30 29 2C 53 54 24 28 |20),HC$(20),ST$(|
00000BB0: 32 30 29 00 D8 0F C0 03 8F 20 20 20 20 49 4E 50 |20)...... INP|
00000BC0: 55 54 20 22 48 4F 57 20 4D 41 4E 59 20 43 4F 4C |UT "HOW MANY COL|
00000BD0: 55 4D 4E 53 22 3B 43 4F 00 EA 0F CA 03 8B 20 43 |UMNS";CO...... C|
00000BE0: 4F B2 38 30 20 A7 20 39 39 30 00 0A 10 D4 03 51 |O.80 . 990.....Q|
00000BF0: 31 24 B2 C7 28 31 33 29 3A 51 33 24 B2 22 22 3A |1$..(13):Q3$."":|
00000C00: 51 32 24 B2 22 20 20 20 20 22 00 52 10 DE 03 42 |Q2$." ".R...B|
00000C10: 41 24 B2 22 12 20 20 20 20 20 20 20 20 20 20 20 |A$.". |
00000C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C30: 20 20 20 20 20 20 20 20 20 20 20 20 92 22 3A 8B | .":.|
00000C40: 43 4F B2 38 30 A7 20 42 41 24 B2 42 41 24 AA 42 |CO.80. BA$.BA$.B|
00000C50: 41 24 00 90 10 E8 03 41 58 24 B2 22 1D 1D 1D 1D |A$.....AX$."....|
00000C60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000C70: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000C80: 1D 1D 1D 22 3A 41 58 24 B2 41 58 24 AA 41 58 24 |...":AX$.AX$.AX$|
00000C90: 00 D9 10 F2 03 42 58 24 B2 22 9D 9D 9D 9D 9D 9D |.....BX$."......|
00000CA0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000CB0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000CC0: 9D 9D 22 3A 8B 20 43 4F B2 38 30 20 A7 20 42 58 |..":. CO.80 . BX|
00000CD0: 24 B2 42 58 24 AA 42 58 24 00 03 11 FC 03 44 4E |$.BX$.BX$.....DN|
00000CE0: 24 B2 22 11 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00000CF0: 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 44 4F |............":DO|
00000D00: B2 32 33 00 1F 11 06 04 8D 20 34 39 30 3A 20 8F |.23...... 490: .|
00000D10: 20 43 41 4C 4C 20 43 4F 4D 45 52 43 49 41 4C 00 | CALL COMERCIAL.|
00000D20: 68 11 10 04 53 50 24 B2 22 20 20 20 20 20 20 20 |h...SP$." |
00000D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D50: 20 22 3A 8B 20 43 4F B2 38 30 20 A7 20 53 50 24 | ":. CO.80 . SP$|
00000D60: B2 53 50 24 AA 53 50 24 00 8D 11 1A 04 54 45 24 |.SP$.SP$.....TE$|
00000D70: B2 22 53 45 54 20 43 4F 4E 46 49 47 55 52 45 20 |."SET CONFIGURE |
00000D80: 46 49 4C 45 20 50 52 4F 47 52 41 4D 22 00 BB 11 |FILE PROGRAM"...|
00000D90: 24 04 45 4D 24 28 31 29 20 B2 22 2A 2A 2A 2A 2A |$.EM$(1) ."*****|
00000DA0: 2A 20 45 52 52 4F 52 20 2D 20 54 52 59 20 41 47 |* ERROR - TRY AG|
00000DB0: 41 49 4E 20 2A 2A 2A 2A 2A 2A 22 00 EF 11 2E 04 |AIN ******".....|
00000DC0: 45 4D 24 28 32 29 B2 22 2A 2A 2A 20 45 52 52 4F |EM$(2)."*** ERRO|
00000DD0: 52 20 2D 20 55 4E 52 45 43 4F 47 4E 49 5A 45 44 |R - UNRECOGNIZED|
00000DE0: 20 43 48 41 52 41 43 54 45 52 20 2A 2A 2A 22 00 | CHARACTER ***".|
00000DF0: 11 12 38 04 54 50 24 28 31 29 B2 22 42 41 43 4B |..8.TP$(1)."BACK|
00000E00: 20 53 50 41 43 49 4E 47 20 50 52 49 4E 54 45 52 | SPACING PRINTER|
00000E10: 22 00 40 12 42 04 54 50 24 28 32 29 B2 22 44 45 |".@.B.TP$(2)."DE|
00000E20: 41 44 20 4C 45 54 54 45 52 20 4F 52 20 54 59 50 |AD LETTER OR TYP|
00000E30: 45 57 52 49 54 45 52 20 50 52 49 4E 54 45 52 22 |EWRITER PRINTER"|
00000E40: 00 57 12 4C 04 50 52 24 28 31 29 B2 22 C3 4F 4D |.W.L.PR$(1).".OM|
00000E50: 4D 4F 44 4F 52 45 22 00 6A 12 56 04 50 52 24 28 |MODORE".j.V.PR$(|
00000E60: 32 29 B2 22 C1 D3 C3 C9 C9 22 00 87 12 60 04 50 |2)."....."...`.P|
00000E70: 52 24 28 33 29 B2 22 C5 D0 D3 CF CE 2F C7 45 4D |R$(3)."...../.EM|
00000E80: 49 4E 49 2D 31 30 22 00 9F 12 6A 04 50 52 24 28 |INI-10"...j.PR$(|
00000E90: 34 29 B2 22 D3 50 49 4E 57 52 49 54 45 52 22 00 |4).".PINWRITER".|
00000EA0: B7 12 74 04 50 52 24 28 35 29 B2 22 D3 54 41 52 |..t.PR$(5).".TAR|
00000EB0: 57 52 49 54 45 52 22 00 D3 12 7E 04 50 52 24 28 |WRITER"...~.PR$(|
00000EC0: 36 29 B2 22 C3 45 4E 54 52 4F 4E 49 43 53 20 37 |6).".ENTRONICS 7|
00000ED0: 33 39 22 00 ED 12 88 04 50 52 24 28 37 29 B2 22 |39".....PR$(7)."|
00000EE0: D0 52 49 4E 54 45 52 20 46 49 4C 45 22 00 07 13 |.RINTER FILE"...|
00000EF0: 92 04 48 31 24 B2 22 54 59 50 45 20 4F 46 20 50 |..H1$."TYPE OF P|
00000F00: 52 49 4E 54 45 52 22 00 23 13 9C 04 48 32 24 B2 |RINTER".#...H2$.|
00000F10: 22 50 52 49 4E 54 45 52 20 53 45 4C 45 43 54 49 |"PRINTER SELECTI|
00000F20: 4F 4E 22 00 44 13 A6 04 48 41 24 28 31 29 B2 22 |ON".D...HA$(1)."|
00000F30: CC 45 46 54 20 4D 41 52 47 49 4E 20 53 45 54 54 |.EFT MARGIN SETT|
00000F40: 49 4E 47 22 00 59 13 B0 04 48 42 24 28 31 29 B2 |ING".Y...HB$(1).|
00000F50: 22 30 20 54 4F 20 39 39 22 00 69 13 BA 04 48 43 |"0 TO 99".i...HC|
00000F60: 24 28 31 29 B2 22 31 30 22 00 94 13 C4 04 48 41 |$(1)."10".....HA|
00000F70: 24 28 32 29 B2 22 CC 49 4E 45 20 57 49 44 54 48 |$(2).".INE WIDTH|
00000F80: 20 2D 20 43 48 41 52 41 43 54 45 52 53 20 2F 4C | - CHARACTERS /L|
00000F90: 49 4E 45 22 00 AB 13 CE 04 48 42 24 28 32 29 B2 |INE".....HB$(2).|
00000FA0: 22 31 30 20 54 4F 20 32 31 30 22 00 BB 13 D8 04 |"10 TO 210".....|
00000FB0: 48 43 24 28 32 29 B2 22 36 30 22 00 D5 13 E2 04 |HC$(2)."60".....|
00000FC0: 48 41 24 28 33 29 B2 22 CC 49 4E 45 20 53 50 41 |HA$(3).".INE SPA|
00000FD0: 43 49 4E 47 22 00 E9 13 EC 04 48 42 24 28 33 29 |CING".....HB$(3)|
00000FE0: B2 22 31 20 54 4F 20 39 22 00 F8 13 F6 04 48 43 |."1 TO 9".....HC|
00000FF0: 24 28 33 29 B2 22 31 22 00 17 14 00 05 48 41 24 |$(3)."1".....HA$|
00001000: 28 34 29 B2 22 D0 41 52 41 47 52 41 50 48 20 53 |(4).".ARAGRAPH S|
00001010: 50 41 43 49 4E 47 22 00 2B 14 0A 05 48 42 24 28 |PACING".+...HB$(|
00001020: 34 29 B2 22 31 20 54 4F 20 39 22 00 3A 14 14 05 |4)."1 TO 9".:...|
00001030: 48 43 24 28 34 29 B2 22 32 22 00 5D 14 1E 05 48 |HC$(4)."2".]...H|
00001040: 41 24 28 35 29 B2 22 D0 41 52 41 47 52 41 50 48 |A$(5).".ARAGRAPH|
00001050: 20 49 4E 44 45 4E 54 41 54 49 4F 4E 22 00 72 14 | INDENTATION".r.|
00001060: 28 05 48 42 24 28 35 29 B2 22 30 20 54 4F 20 39 |(.HB$(5)."0 TO 9|
00001070: 39 22 00 81 14 32 05 48 43 24 28 35 29 B2 22 30 |9"...2.HC$(5)."0|
00001080: 22 00 9D 14 3C 05 48 41 24 28 36 29 B2 22 CC 49 |"...<.HA$(6).".I|
00001090: 4E 45 53 20 50 45 52 20 50 41 47 45 22 00 B3 14 |NES PER PAGE"...|
000010A0: 46 05 48 42 24 28 36 29 B2 22 31 20 54 4F 20 39 |F.HB$(6)."1 TO 9|
000010B0: 39 39 22 00 C3 14 50 05 48 43 24 28 36 29 B2 22 |99"...P.HC$(6)."|
000010C0: 35 30 22 00 E4 14 5A 05 48 41 24 28 37 29 B2 22 |50"...Z.HA$(7)."|
000010D0: D2 49 47 48 54 20 4A 55 53 54 49 46 49 43 41 54 |.IGHT JUSTIFICAT|
000010E0: 49 4F 4E 22 00 FF 14 64 05 48 42 24 28 37 29 B2 |ION"...d.HB$(7).|
000010F0: 22 12 59 92 45 53 20 4F 52 20 12 4E 92 4F 22 00 |".Y.ES OR .N.O".|
00001100: 0E 15 6E 05 48 43 24 28 37 29 B2 22 59 22 00 3B |..n.HC$(7)."Y".;|
00001110: 15 78 05 48 41 24 28 38 29 B2 22 D4 4F 50 20 4F |.x.HA$(8).".OP O|
00001120: 46 20 50 41 47 45 20 4D 41 52 47 49 4E 20 3D 20 |F PAGE MARGIN = |
00001130: 54 4F 50 20 42 4F 52 44 45 52 22 00 4F 15 82 05 |TOP BORDER".O...|
00001140: 48 42 24 28 38 29 B2 22 31 20 54 4F 20 39 39 00 |HB$(8)."1 TO 99.|
00001150: 5E 15 8C 05 48 43 24 28 38 29 B2 22 32 22 00 80 |^...HC$(8)."2"..|
00001160: 15 96 05 48 41 24 28 39 29 B2 22 D3 54 41 52 54 |...HA$(9).".TART|
00001170: 49 4E 47 20 50 41 47 45 20 4E 55 4D 42 45 52 22 |ING PAGE NUMBER"|
00001180: 00 96 15 A0 05 48 42 24 28 39 29 B2 22 30 20 54 |.....HB$(9)."0 T|
00001190: 4F 20 39 39 39 22 00 A5 15 AA 05 48 43 24 28 39 |O 999".....HC$(9|
000011A0: 29 B2 22 31 22 00 D3 15 B4 05 48 41 24 28 31 30 |)."1".....HA$(10|
000011B0: 29 B2 22 50 52 49 4E 54 20 50 41 47 45 20 4E 55 |)."PRINT PAGE NU|
000011C0: 4D 42 45 52 20 4F 4E 20 46 49 52 53 54 20 50 41 |MBER ON FIRST PA|
000011D0: 47 45 22 00 EF 15 BE 05 48 42 24 28 31 30 29 B2 |GE".....HB$(10).|
000011E0: 22 12 59 92 45 53 20 4F 52 20 12 4E 92 4F 22 00 |".Y.ES OR .N.O".|
000011F0: FF 15 C8 05 48 43 24 28 31 30 29 B2 22 4E 22 00 |....HC$(10)."N".|
00001200: 22 16 D2 05 48 41 24 28 31 31 29 B2 22 D0 41 47 |"...HA$(11).".AG|
00001210: 45 20 4E 55 4D 42 45 52 20 50 4F 53 49 54 49 4F |E NUMBER POSITIO|
00001220: 4E 22 00 57 16 DC 05 48 42 24 28 31 31 29 B2 22 |N".W...HB$(11)."|
00001230: 12 4C 92 45 46 54 2C 12 52 92 49 47 48 54 2C 12 |.L.EFT,.R.IGHT,.|
00001240: 43 92 45 4E 54 45 52 20 4F 52 20 12 41 92 4C 54 |C.ENTER OR .A.LT|
00001250: 45 52 4E 41 54 45 22 00 67 16 E6 05 48 43 24 28 |ERNATE".g...HC$(|
00001260: 31 31 29 B2 22 43 22 00 8D 16 F0 05 48 41 24 28 |11)."C".....HA$(|
00001270: 31 32 29 B2 22 D0 4F 53 49 54 49 4F 4E 20 4F 46 |12).".OSITION OF|
00001280: 20 50 41 47 45 20 4E 55 4D 42 45 52 22 00 AD 16 | PAGE NUMBER"...|
00001290: FA 05 48 42 24 28 31 32 29 B2 22 12 54 92 4F 50 |..HB$(12).".T.OP|
000012A0: 20 4F 52 20 12 42 92 4F 54 54 4F 4D 22 00 BD 16 | OR .B.OTTOM"...|
000012B0: 04 06 48 43 24 28 31 32 29 B2 22 42 22 00 E3 16 |..HC$(12)."B"...|
000012C0: 0E 06 48 41 24 28 31 33 29 B2 22 D3 49 5A 45 20 |..HA$(13).".IZE |
000012D0: 4F 46 20 50 41 50 45 52 20 49 4E 20 49 4E 43 48 |OF PAPER IN INCH|
000012E0: 45 53 22 00 F9 16 18 06 48 42 24 28 31 33 29 B2 |ES".....HB$(13).|
000012F0: 22 31 20 54 4F 20 39 39 22 00 0A 17 22 06 48 43 |"1 TO 99"...".HC|
00001300: 24 28 31 33 29 B2 22 31 31 22 00 2F 17 2C 06 48 |$(13)."11"./.,.H|
00001310: 41 24 28 31 34 29 B2 22 D0 52 49 4E 54 45 44 20 |A$(14).".RINTED |
00001320: 4C 49 4E 45 53 20 50 45 52 20 49 4E 43 48 22 00 |LINES PER INCH".|
00001330: 44 17 36 06 48 42 24 28 31 34 29 B2 22 36 20 4F |D.6.HB$(14)."6 O|
00001340: 52 20 38 22 00 54 17 40 06 48 43 24 28 31 34 29 |R 8".T.@.HC$(14)|
00001350: B2 22 36 22 00 7C 17 4A 06 48 41 24 28 31 35 29 |."6".|.J.HA$(15)|
00001360: B2 22 C3 48 41 52 41 43 54 45 52 53 20 50 45 52 |.".HARACTERS PER|
00001370: 20 49 4E 43 48 2F 50 49 54 43 48 22 00 9B 17 54 | INCH/PITCH"...T|
00001380: 06 48 42 24 28 31 35 29 B2 22 35 2C 38 2C 31 30 |.HB$(15)."5,8,10|
00001390: 2C 31 32 20 41 4E 44 20 31 36 22 00 AC 17 5E 06 |,12 AND 16"...^.|
000013A0: 48 43 24 28 31 35 29 B2 22 31 30 22 00 BE 17 68 |HC$(15)."10"...h|
000013B0: 06 8B 20 56 4E B2 30 20 A7 20 31 36 39 30 00 E7 |.. VN.0 . 1690..|
000013C0: 17 72 06 48 41 24 28 31 36 29 B2 22 D3 45 4E 44 |.r.HA$(16).".END|
000013D0: 20 4C 49 4E 45 20 46 45 45 44 53 20 54 4F 20 50 | LINE FEEDS TO P|
000013E0: 52 49 4E 54 45 52 22 00 03 18 7C 06 48 42 24 28 |RINTER"...|.HB$(|
000013F0: 31 36 29 B2 22 12 59 92 45 53 20 4F 52 20 12 4E |16).".Y.ES OR .N|
00001400: 92 4F 22 00 13 18 86 06 48 43 24 28 31 36 29 B2 |.O".....HC$(16).|
00001410: 22 4E 22 00 1E 18 90 06 89 20 31 37 32 30 00 49 |"N"...... 1720.I|
00001420: 18 9A 06 48 41 24 28 31 36 29 B2 22 C4 4F 54 20 |...HA$(16).".OT |
00001430: 53 50 41 43 45 53 20 2D 20 C3 45 4E 54 52 4F 4E |SPACES - .ENTRON|
00001440: 49 43 53 20 4F 4E 4C 59 22 00 5E 18 A4 06 48 42 |ICS ONLY".^...HB|
00001450: 24 28 31 36 29 B2 22 31 20 54 4F 20 39 22 00 6E |$(16)."1 TO 9".n|
00001460: 18 AE 06 48 43 24 28 31 36 29 B2 22 32 22 00 88 |...HC$(16)."2"..|
00001470: 18 B8 06 48 41 24 28 31 37 29 B2 22 D2 4F 55 47 |...HA$(17).".OUG|
00001480: 48 20 44 52 41 46 54 22 00 A4 18 C2 06 48 42 24 |H DRAFT".....HB$|
00001490: 28 31 37 29 B2 22 12 59 92 45 53 20 4F 52 20 12 |(17).".Y.ES OR .|
000014A0: 4E 92 4F 22 00 B4 18 CC 06 48 43 24 28 31 37 29 |N.O".....HC$(17)|
000014B0: B2 22 4E 22 00 D1 18 D6 06 48 41 24 28 31 38 29 |."N".....HA$(18)|
000014C0: B2 22 D4 49 54 4C 45 20 50 4F 53 49 54 49 4F 4E |.".ITLE POSITION|
000014D0: 22 00 06 19 E0 06 48 42 24 28 31 38 29 B2 22 12 |".....HB$(18).".|
000014E0: 4C 92 45 46 54 2C 12 52 92 49 47 48 54 2C 12 43 |L.EFT,.R.IGHT,.C|
000014F0: 92 45 4E 54 45 52 20 4F 52 20 12 41 92 4C 54 45 |.ENTER OR .A.LTE|
00001500: 52 4E 41 54 45 22 00 16 19 EA 06 48 43 24 28 31 |RNATE".....HC$(1|
00001510: 38 29 B2 22 43 22 00 36 19 F4 06 48 41 24 28 31 |8)."C".6...HA$(1|
00001520: 39 29 B2 22 D0 4F 53 49 54 49 4F 4E 20 4F 46 20 |9).".OSITION OF |
00001530: 54 49 54 4C 45 22 00 56 19 FE 06 48 42 24 28 31 |TITLE".V...HB$(1|
00001540: 39 29 B2 22 12 54 92 4F 50 20 4F 52 20 12 42 92 |9).".T.OP OR .B.|
00001550: 4F 54 54 4F 4D 22 00 66 19 08 07 48 43 24 28 31 |OTTOM".f...HC$(1|
00001560: 39 29 B2 22 54 22 00 8E 19 12 07 48 41 24 28 32 |9)."T".....HA$(2|
00001570: 30 29 B2 22 D0 52 49 4E 54 45 52 20 45 4E 44 2D |0).".RINTER END-|
00001580: 4F 46 2D 50 41 47 45 20 50 41 55 53 45 22 00 AA |OF-PAGE PAUSE"..|
00001590: 19 1C 07 48 42 24 28 32 30 29 B2 22 12 59 92 45 |...HB$(20).".Y.E|
000015A0: 53 20 4F 52 20 12 4E 92 4F 22 00 CD 19 26 07 48 |S OR .N.O"...&.H|
000015B0: 43 24 28 32 30 29 B2 22 59 22 3A 8B 43 4F B2 34 |C$(20)."Y":.CO.4|
000015C0: 30 A7 48 43 24 28 32 30 29 B2 22 4E 22 00 E5 19 |0.HC$(20)."N"...|
000015D0: 2B 07 4D 45 24 B2 22 20 41 4E 44 20 27 52 45 54 |+.ME$." AND 'RET|
000015E0: 55 52 4E 27 22 00 EB 19 30 07 8F 00 F1 19 3A 07 |URN'"...0.....:.|
000015F0: 8E 00 39 1A 44 07 8F 20 2A 2A 2A 2A 2A 2A 20 50 |..9.D.. ****** P|
00001600: 52 49 4E 54 20 52 4F 55 54 49 4E 45 20 46 4F 52 |RINT ROUTINE FOR|
00001610: 20 42 55 49 4C 44 49 4E 47 20 54 48 45 20 4C 41 | BUILDING THE LA|
00001620: 52 47 45 20 43 4F 4E 54 52 4F 4C 20 4D 41 50 20 |RGE CONTROL MAP |
00001630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3F 1A 4E 07 8F 00 |*********.?.N...|
00001640: 6A 1A 58 07 8D 20 31 31 30 3A 99 22 13 11 11 2A |j.X.. 110:."...*|
00001650: 20 20 43 4F 4E 54 52 4F 4C 20 4D 41 50 20 45 4C | CONTROL MAP EL|
00001660: 45 4D 45 4E 54 A0 23 22 3B 58 00 81 1A 62 07 99 |EMENT.#";X...b..|
00001670: 22 20 20 20 3D 3D 3D 3E 20 22 3B 48 41 24 28 58 |" ===> ";HA$(X|
00001680: 29 00 A2 1A 6C 07 99 22 11 2A 20 20 41 43 43 45 |)...l..".* ACCE|
00001690: 50 54 41 42 4C 45 20 56 41 4C 55 45 53 20 41 52 |PTABLE VALUES AR|
000016A0: 45 22 00 B9 1A 76 07 99 22 20 20 20 3D 3D 3D 3E |E"...v.." ===>|
000016B0: 20 22 3B 48 42 24 28 58 29 00 D3 1A 80 07 99 22 | ";HB$(X)......"|
000016C0: 11 2A 20 20 44 45 46 41 55 4C 54 20 56 41 4C 55 |.* DEFAULT VALU|
000016D0: 45 20 22 00 EA 1A 8A 07 99 22 20 20 20 3D 3D 3D |E "......" ===|
000016E0: 3E 20 22 3B 48 43 24 28 58 29 00 10 1B 94 07 99 |> ";HC$(X)......|
000016F0: 22 11 11 11 11 45 4E 54 45 52 20 56 41 4C 55 45 |"....ENTER VALUE|
00001700: 22 3B 4D 41 24 3B 22 20 4F 52 22 3B 51 31 24 3B |";MA$;" OR";Q1$;|
00001710: 00 3B 1B 9E 07 99 22 4A 55 53 54 20 27 52 45 54 |.;...."JUST 'RET|
00001720: 55 52 4E 27 20 54 4F 20 41 43 43 45 50 54 20 54 |URN' TO ACCEPT T|
00001730: 48 45 20 44 45 46 41 55 4C 54 22 00 54 1B A8 07 |HE DEFAULT".T...|
00001740: 99 20 51 33 24 3B 22 56 41 4C 55 45 20 20 3D 3D |. Q3$;"VALUE ==|
00001750: 3D 3E 22 3B 00 5A 1B B2 07 8E 00 60 1B BC 07 8F |=>";.Z.....`....|
00001760: 00 A6 1B C6 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
00001770: 2A 2A 20 53 55 42 52 4F 55 54 49 4E 45 20 54 4F |** SUBROUTINE TO|
00001780: 20 49 4E 50 55 54 20 41 20 4E 55 4D 45 52 49 43 | INPUT A NUMERIC|
00001790: 20 53 54 52 49 4E 47 20 2A 2A 2A 2A 2A 2A 2A 2A | STRING ********|
000017A0: 2A 2A 2A 2A 2A 2A 00 AC 1B D0 07 8F 00 B6 1B DA |******..........|
000017B0: 07 50 24 B2 22 22 00 D1 1B E4 07 81 51 B2 31 A4 |.P$.""......Q.1.|
000017C0: 50 33 3A 99 22 A4 22 3B 3A 82 51 3A 99 22 A5 22 |P3:.".";:.Q:."."|
000017D0: 3B 00 E8 1B EE 07 81 51 B2 31 A4 50 33 AA 31 3A |;......Q.1.P3.1:|
000017E0: 99 22 9D 22 3B 3A 82 51 00 FC 1B F8 07 A1 41 24 |.".";:.Q......A$|
000017F0: 3A 8B 41 24 B2 22 22 89 32 30 34 30 00 0F 1C 02 |:.A$."".2040....|
00001800: 08 8B 41 24 B2 C7 28 31 33 29 89 32 31 38 30 00 |..A$..(13).2180.|
00001810: 22 1C 0C 08 8B 41 24 B2 C7 28 32 30 29 89 32 30 |"....A$..(20).20|
00001820: 38 30 00 2C 1C 16 08 89 32 31 32 30 00 3C 1C 20 |80.,....2120.<. |
00001830: 08 8B 50 24 B2 22 22 89 32 30 34 30 00 55 1C 2A |..P$."".2040.U.*|
00001840: 08 8B C3 28 50 24 29 B2 31 A7 50 24 B2 22 22 3A |...(P$).1.P$."":|
00001850: 89 32 31 31 30 00 6A 1C 34 08 50 24 B2 C8 28 50 |.2110.j.4.P$..(P|
00001860: 24 2C C3 28 50 24 29 AB 31 29 00 7D 1C 3E 08 41 |$,.(P$).1).}.>.A|
00001870: 24 B2 22 9D A4 9D 22 3A 89 32 31 36 30 00 8E 1C |$."...":.2160...|
00001880: 48 08 8B 41 24 B3 22 30 22 89 32 30 34 30 00 9F |H..A$."0".2040..|
00001890: 1C 52 08 8B 41 24 B1 22 39 22 89 32 30 34 30 00 |.R..A$."9".2040.|
000018A0: B2 1C 5C 08 8B C3 28 50 24 29 B2 50 33 89 32 31 |..\...(P$).P3.21|
000018B0: 39 30 00 BF 1C 66 08 50 24 B2 50 24 AA 41 24 00 |90...f.P$.P$.A$.|
000018C0: C8 1C 70 08 99 41 24 3B 00 D2 1C 7A 08 89 32 30 |..p..A$;...z..20|
000018D0: 34 30 00 EF 1C 84 08 8B 50 24 B2 22 22 20 A7 20 |40......P$."" . |
000018E0: 50 24 B2 48 43 24 28 58 29 3A 89 32 32 30 30 00 |P$.HC$(X):.2200.|
000018F0: 03 1D 8E 08 8B C3 28 50 24 29 B3 50 34 A7 89 32 |......(P$).P4..2|
00001900: 30 34 30 00 10 1D 98 08 56 31 B2 C5 28 50 24 29 |040.....V1..(P$)|
00001910: 00 16 1D A2 08 8E 00 1C 1D AC 08 8F 00 62 1D B6 |.............b..|
00001920: 08 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
00001930: 20 49 4E 54 45 52 50 52 45 54 20 59 45 53 2F 4E | INTERPRET YES/N|
00001940: 4F 20 41 4E 53 57 45 52 53 20 2A 2A 2A 2A 2A 2A |O ANSWERS ******|
00001950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001960: 2A 2A 00 68 1D C0 08 8F 00 78 1D CA 08 99 22 A4 |**.h.....x....".|
00001970: 22 3B 3A 99 22 A5 22 3B 00 8F 1D D4 08 A1 50 24 |";:.".";......P$|
00001980: 3A 8B 20 50 24 B2 22 22 20 A7 20 32 32 36 30 00 |:. P$."" . 2260.|
00001990: AA 1D DE 08 8B 20 50 24 B2 C7 28 31 33 29 20 A7 |..... P$..(13) .|
000019A0: 20 50 24 B2 48 43 24 28 58 29 00 C9 1D E8 08 8B | P$.HC$(X)......|
000019B0: 20 50 24 B2 22 59 22 20 A7 20 41 24 B2 C7 28 32 | P$."Y" . A$..(2|
000019C0: 35 29 3A 89 20 32 33 31 30 00 E8 1D F2 08 8B 20 |5):. 2310...... |
000019D0: 50 24 B2 22 4E 22 20 A7 20 41 24 B2 C7 28 31 34 |P$."N" . A$..(14|
000019E0: 29 3A 89 20 32 33 31 30 00 13 1E FC 08 46 B2 31 |):. 2310.....F.1|
000019F0: 3A 8F 20 55 4E 53 41 54 49 53 46 41 43 54 4F 52 |:. UNSATISFACTOR|
00001A00: 59 20 43 48 41 52 41 43 54 45 52 20 45 4E 54 45 |Y CHARACTER ENTE|
00001A10: 52 45 44 00 19 1E 06 09 8E 00 1F 1E 10 09 8F 00 |RED.............|
00001A20: 67 1E 1A 09 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |g....***********|
00001A30: 2A 2A 2A 20 49 4E 54 45 52 50 52 45 54 20 54 4F |*** INTERPRET TO|
00001A40: 50 2F 42 4F 54 54 4F 4D 20 41 4E 53 57 45 52 53 |P/BOTTOM ANSWERS|
00001A50: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001A60: 2A 2A 2A 2A 2A 2A 2A 00 6D 1E 24 09 8F 00 7D 1E |*******.m.$...}.|
00001A70: 2E 09 99 22 A4 22 3B 3A 99 22 A5 22 3B 00 94 1E |...".";:.".";...|
00001A80: 38 09 A1 50 24 3A 8B 20 50 24 B2 22 22 20 A7 20 |8..P$:. P$."" . |
00001A90: 32 33 36 30 00 AF 1E 42 09 8B 20 50 24 B2 C7 28 |2360...B.. P$..(|
00001AA0: 31 33 29 20 A7 20 50 24 B2 48 43 24 28 58 29 00 |13) . P$.HC$(X).|
00001AB0: CE 1E 4C 09 8B 20 50 24 B2 22 54 22 20 A7 20 41 |..L.. P$."T" . A|
00001AC0: 24 B2 C7 28 32 30 29 3A 89 20 32 34 31 30 00 EC |$..(20):. 2410..|
00001AD0: 1E 56 09 8B 20 50 24 B2 22 42 22 20 A7 20 41 24 |.V.. P$."B" . A$|
00001AE0: B2 C7 28 32 29 3A 89 20 32 34 31 30 00 17 1F 60 |..(2):. 2410...`|
00001AF0: 09 46 B2 31 3A 8F 20 55 4E 53 41 54 49 53 46 41 |.F.1:. UNSATISFA|
00001B00: 43 54 4F 52 59 20 43 48 41 52 41 43 54 45 52 20 |CTORY CHARACTER |
00001B10: 45 4E 54 45 52 45 44 00 1D 1F 6A 09 8E 00 23 1F |ENTERED...j...#.|
00001B20: 74 09 8F 00 6A 1F 7E 09 8F 2A 2A 2A 2A 2A 2A 2A |t...j.~..*******|
00001B30: 2A 2A 2A 2A 2A 2A 2A 20 49 4E 54 45 52 50 52 45 |******* INTERPRE|
00001B40: 54 20 4C 2C 52 2C 43 2C 41 20 41 4E 53 57 45 52 |T L,R,C,A ANSWER|
00001B50: 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |S **************|
00001B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 70 1F 88 09 8F |**********.p....|
00001B70: 00 80 1F 92 09 99 22 A4 22 3B 3A 99 22 A5 22 3B |......".";:.".";|
00001B80: 00 97 1F 9C 09 A1 50 24 3A 8B 20 50 24 B2 22 22 |......P$:. P$.""|
00001B90: 20 A7 20 32 34 36 30 00 B2 1F A6 09 8B 20 50 24 | . 2460...... P$|
00001BA0: B2 C7 28 31 33 29 20 A7 20 50 24 B2 48 43 24 28 |..(13) . P$.HC$(|
00001BB0: 58 29 00 D1 1F B0 09 8B 20 50 24 B2 22 4C 22 20 |X)...... P$."L" |
00001BC0: A7 20 41 24 B2 C7 28 31 32 29 3A 89 20 32 35 33 |. A$..(12):. 253|
00001BD0: 30 00 F0 1F BA 09 8B 20 50 24 B2 22 52 22 20 A7 |0...... P$."R" .|
00001BE0: 20 41 24 B2 C7 28 31 38 29 3A 89 20 32 35 33 30 | A$..(18):. 2530|
00001BF0: 00 0E 20 C4 09 8B 20 50 24 B2 22 43 22 20 A7 20 |.. ... P$."C" . |
00001C00: 41 24 B2 C7 28 33 29 3A 89 20 32 35 33 30 00 2C |A$..(3):. 2530.,|
00001C10: 20 CE 09 8B 20 50 24 B2 22 41 22 20 A7 20 41 24 | ... P$."A" . A$|
00001C20: B2 C7 28 31 29 3A 89 20 32 35 33 30 00 57 20 D8 |..(1):. 2530.W .|
00001C30: 09 46 B2 31 3A 8F 20 55 4E 53 41 54 49 53 46 41 |.F.1:. UNSATISFA|
00001C40: 43 54 4F 52 59 20 43 48 41 52 41 43 54 45 52 20 |CTORY CHARACTER |
00001C50: 45 4E 54 45 52 45 44 00 5D 20 E2 09 8E 00 63 20 |ENTERED.] ....c |
00001C60: EC 09 8F 00 AA 20 F6 09 8F 20 2A 2A 2A 2A 2A 2A |..... ... ******|
00001C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 49 4E 54 45 52 50 |********* INTERP|
00001C80: 52 45 54 20 43 48 52 24 20 43 4F 44 45 53 20 2A |RET CHR$ CODES *|
00001C90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001CA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B0 20 00 0A 8F |**********.. ...|
00001CB0: 00 C5 20 0A 0A 8B 20 41 B2 31 20 A7 20 41 41 24 |.. ... A.1 . AA$|
00001CC0: B2 22 20 41 22 00 DA 20 14 0A 8B 20 41 B2 32 20 |." A".. ... A.2 |
00001CD0: A7 20 41 41 24 B2 22 20 42 22 00 EF 20 1E 0A 8B |. AA$." B".. ...|
00001CE0: 20 41 B2 33 20 A7 20 41 41 24 B2 22 20 43 22 00 | A.3 . AA$." C".|
00001CF0: 05 21 28 0A 8B 20 41 B2 31 32 20 A7 20 41 41 24 |.!(.. A.12 . AA$|
00001D00: B2 22 20 4C 22 00 1B 21 32 0A 8B 20 41 B2 31 34 |." L"..!2.. A.14|
00001D10: 20 A7 20 41 41 24 B2 22 20 4E 22 00 31 21 3C 0A | . AA$." N".1!<.|
00001D20: 8B 20 41 B2 31 38 20 A7 20 41 41 24 B2 22 20 52 |. A.18 . AA$." R|
00001D30: 22 00 47 21 46 0A 8B 20 41 B2 32 30 20 A7 20 41 |".G!F.. A.20 . A|
00001D40: 41 24 B2 22 20 54 22 00 5D 21 50 0A 8B 20 41 B2 |A$." T".]!P.. A.|
00001D50: 32 35 20 A7 20 41 41 24 B2 22 20 59 22 00 63 21 |25 . AA$." Y".c!|
00001D60: 5A 0A 8E 00 69 21 64 0A 8F 00 B1 21 6E 0A 8F 20 |Z...i!d....!n.. |
00001D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |*************** |
00001D80: 43 4F 4E 46 49 47 55 52 41 54 4F 52 20 52 4F 55 |CONFIGURATOR ROU|
00001D90: 54 49 4E 45 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |TINES **********|
00001DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001DB0: 2A 00 B7 21 78 0A 8F 00 D4 21 82 0A 99 22 13 11 |*..!x....!..."..|
00001DC0: 11 11 11 11 20 20 D3 45 4C 45 43 54 20 4F 50 54 |.... .ELECT OPT|
00001DD0: 49 4F 4E 22 00 FD 21 8C 0A 99 22 11 20 12 31 92 |ION"..!...". .1.|
00001DE0: 29 20 C3 52 45 41 54 45 20 4E 45 57 20 43 4F 4E |) .REATE NEW CON|
00001DF0: 46 49 47 55 52 45 20 46 49 4C 45 2E 22 00 2D 22 |FIGURE FILE.".-"|
00001E00: 96 0A 99 22 11 20 12 32 92 29 20 D2 45 41 44 20 |...". .2.) .EAD |
00001E10: 41 4E 44 20 49 4E 54 45 52 50 52 45 54 20 45 58 |AND INTERPRET EX|
00001E20: 49 53 54 49 4E 47 20 46 49 4C 45 2E 22 00 5B 22 |ISTING FILE.".["|
00001E30: A0 0A 99 22 11 20 12 33 92 29 20 D3 43 52 41 54 |...". .3.) .CRAT|
00001E40: 43 48 20 43 55 52 52 45 4E 54 20 43 4F 4E 46 49 |CH CURRENT CONFI|
00001E50: 47 55 52 45 20 46 49 4C 45 2E 22 00 7D 22 AA 0A |GURE FILE.".}"..|
00001E60: 54 46 24 B2 22 45 4E 54 45 52 20 31 20 4F 52 20 |TF$."ENTER 1 OR |
00001E70: 32 20 4F 52 20 33 22 3A 8D 20 37 37 30 00 95 22 |2 OR 3":. 770.."|
00001E80: B4 0A A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |... A$:. A$."" .|
00001E90: 20 32 37 34 30 00 C4 22 BE 0A 8B 20 41 24 B3 22 | 2740.."... A$."|
00001EA0: 31 22 20 B0 20 41 24 B1 22 33 22 20 A7 20 4D B2 |1" . A$."3" . M.|
00001EB0: 31 3A 8D 20 38 36 30 3A 8D 20 31 31 30 3A 89 20 |1:. 860:. 110:. |
00001EC0: 32 36 39 30 00 CE 22 C8 0A 8D 20 31 31 30 00 E2 |2690.."... 110..|
00001ED0: 22 D2 0A 8B 20 41 24 B2 22 32 22 20 A7 20 34 32 |"... A$."2" . 42|
00001EE0: 31 30 00 F6 22 DC 0A 8B 20 41 24 B2 22 33 22 20 |10.."... A$."3" |
00001EF0: A7 20 35 30 33 30 00 FE 22 E6 0A 4D B2 31 00 04 |. 5030.."..M.1..|
00001F00: 23 F0 0A 8F 00 4B 23 FA 0A 8F 20 2A 2A 2A 2A 2A |#....K#... *****|
00001F10: 2A 2A 2A 20 41 53 4B 20 51 55 45 53 54 49 4F 4E |*** ASK QUESTION|
00001F20: 53 20 54 4F 20 43 52 45 41 54 45 20 54 48 45 20 |S TO CREATE THE |
00001F30: 27 43 4F 4E 46 49 47 55 52 45 27 20 46 49 4C 45 |'CONFIGURE' FILE|
00001F40: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 23 04 0B | **********.Q#..|
00001F50: 8F 00 82 23 0E 0B 99 22 13 11 11 11 11 11 20 20 |...#..."...... |
00001F60: D3 45 4C 45 43 54 20 4F 50 54 49 4F 4E 20 46 4F |.ELECT OPTION FO|
00001F70: 52 20 27 43 4F 4E 46 49 47 55 52 45 27 20 46 49 |R 'CONFIGURE' FI|
00001F80: 4C 45 00 B3 23 18 0B 99 22 11 20 12 31 92 29 20 |LE..#...". .1.) |
00001F90: C1 4E 53 57 45 52 20 12 4F 4E 4C 59 92 20 54 48 |.NSWER .ONLY. TH|
00001FA0: 4F 53 45 20 51 55 45 53 54 49 4F 4E 53 22 3B 51 |OSE QUESTIONS";Q|
00001FB0: 31 24 3B 00 D8 23 22 0B 99 20 51 32 24 3B 22 20 |1$;..#".. Q2$;" |
00001FC0: 41 53 53 4F 43 49 41 54 45 44 20 57 49 54 48 20 |ASSOCIATED WITH |
00001FD0: 4C 4F 41 44 49 4E 47 22 00 F8 23 2C 0B 99 20 22 |LOADING"..#,.. "|
00001FE0: 20 20 20 20 54 48 45 20 57 4F 52 44 20 50 52 4F | THE WORD PRO|
00001FF0: 43 45 53 53 4F 52 2E 22 00 2A 24 36 0B 99 22 11 |CESSOR.".*$6..".|
00002000: 20 12 32 92 29 20 C2 55 49 4C 44 20 12 4F 4E 4C | .2.) .UILD .ONL|
00002010: 59 92 20 43 55 53 54 4F 4D 49 5A 45 44 20 43 4F |Y. CUSTOMIZED CO|
00002020: 4E 54 52 4F 4C 20 4D 41 50 22 00 51 24 40 0B 99 |NTROL MAP".Q$@..|
00002030: 22 11 20 12 33 92 29 20 C3 4F 4D 50 4C 45 54 45 |". .3.) .OMPLETE|
00002040: 20 12 42 4F 54 48 92 20 53 45 43 54 49 4F 4E 53 | .BOTH. SECTIONS|
00002050: 22 00 73 24 4A 0B 54 46 24 B2 22 45 4E 54 45 52 |".s$J.TF$."ENTER|
00002060: 20 31 20 4F 52 20 32 20 4F 52 20 33 22 3A 8D 20 | 1 OR 2 OR 3":. |
00002070: 37 37 30 00 8E 24 54 0B A1 20 44 41 24 3A 20 8B |770..$T.. DA$: .|
00002080: 20 44 41 24 B2 22 22 20 A7 20 32 39 30 30 00 BB | DA$."" . 2900..|
00002090: 24 5E 0B 8B 20 44 41 24 B3 22 31 22 20 B0 20 44 |$^.. DA$."1" . D|
000020A0: 41 24 B1 22 33 22 20 A7 20 8D 20 38 36 30 3A 8D |A$."3" . . 860:.|
000020B0: 20 31 31 30 3A 89 20 32 38 33 30 00 D0 24 68 0B | 110:. 2830..$h.|
000020C0: 8B 20 44 41 24 B2 22 32 22 20 A7 20 33 34 31 30 |. DA$."2" . 3410|
000020D0: 00 10 25 72 0B 46 4C 24 B2 22 22 3A 8D 20 31 31 |..%r.FL$."":. 11|
000020E0: 30 3A 99 22 13 11 11 11 11 11 C4 4F 20 59 4F 55 |0:.".......O YOU|
000020F0: 20 57 41 4E 54 20 54 48 45 20 C6 52 45 4E 43 48 | WANT THE .RENCH|
00002100: 20 4C 41 4E 47 55 41 47 45 20 4D 4F 44 45 3F 22 | LANGUAGE MODE?"|
00002110: 00 36 25 7C 0B 99 22 11 11 20 50 4C 45 41 53 45 |.6%|..".. PLEASE|
00002120: 20 41 4E 53 57 45 52 20 12 59 92 45 53 20 4F 52 | ANSWER .Y.ES OR|
00002130: 20 12 4E 92 4F 22 00 4E 25 86 0B A1 20 41 24 3A | .N.O".N%... A$:|
00002140: 8B 20 41 24 B2 22 22 20 A7 20 32 39 35 30 00 6B |. A$."" . 2950.k|
00002150: 25 90 0B 8B 20 41 24 B2 22 4E 22 20 A7 20 46 4C |%... A$."N" . FL|
00002160: 24 B2 22 22 3A 89 20 33 30 37 30 00 8C 25 9A 0B |$."":. 3070..%..|
00002170: 8B 20 41 24 B3 B1 22 59 22 20 A7 20 8D 20 38 36 |. A$.."Y" . . 86|
00002180: 30 3A 8D 31 31 30 3A 89 32 38 33 30 00 98 25 A4 |0:.110:.2830..%.|
00002190: 0B 46 4C 24 B2 22 46 22 00 B5 25 AE 0B 8D 20 31 |.FL$."F"..%... 1|
000021A0: 31 30 3A 99 20 22 13 11 11 11 11 11 20 20 20 20 |10:. "...... |
000021B0: 22 3B 48 31 24 00 CC 25 B8 0B 99 22 11 20 12 31 |";H1$..%...". .1|
000021C0: 92 29 20 20 22 3B 54 50 24 28 31 29 00 E3 25 C2 |.) ";TP$(1)..%.|
000021D0: 0B 99 22 11 20 12 32 92 29 20 20 22 3B 54 50 24 |..". .2.) ";TP$|
000021E0: 28 32 29 00 08 26 CC 0B 99 22 11 20 20 20 20 20 |(2)..&...". |
000021F0: 53 45 4C 45 43 54 20 4F 4E 45 20 4F 46 20 54 48 |SELECT ONE OF TH|
00002200: 45 20 41 42 4F 56 45 22 00 20 26 D6 0B A1 20 41 |E ABOVE". &... A|
00002210: 24 3A 8B 20 41 24 B2 22 22 20 A7 20 33 30 33 30 |$:. A$."" . 3030|
00002220: 00 49 26 E0 0B 8B 20 41 24 B2 22 31 22 20 B0 20 |.I&... A$."1" . |
00002230: 41 24 B2 22 32 22 20 A7 20 46 4C 24 B2 46 4C 24 |A$."2" . FL$.FL$|
00002240: AA 41 24 3A 89 33 30 37 30 00 53 26 EA 0B 8D 20 |.A$:.3070.S&... |
00002250: 38 36 30 00 60 26 F4 0B CB 20 A4 20 32 39 39 30 |860.`&... . 2990|
00002260: 00 78 26 FE 0B 8D 20 31 31 30 3A 99 22 13 11 20 |.x&... 110:.".. |
00002270: 20 20 20 22 3B 48 32 24 00 A2 26 08 0C 81 20 49 | ";H2$..&... I|
00002280: B2 31 20 A4 20 37 3A 99 20 22 11 20 12 22 3B 49 |.1 . 7:. ". .";I|
00002290: 3B 22 92 29 20 20 22 3B 50 52 24 28 49 29 3A 82 |;".) ";PR$(I):.|
000022A0: 20 49 00 CB 26 12 0C 99 22 11 11 20 20 53 45 4C | I..&...".. SEL|
000022B0: 45 43 54 20 4F 4E 45 20 4F 46 20 54 48 45 20 41 |ECT ONE OF THE A|
000022C0: 42 4F 56 45 20 28 31 2D 37 29 22 00 E3 26 1C 0C |BOVE (1-7)"..&..|
000022D0: A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 33 |. A$:. A$."" . 3|
000022E0: 31 30 30 00 0D 27 26 0C 8B 20 41 24 B3 22 31 22 |100..'&.. A$."1"|
000022F0: 20 B0 20 41 24 B1 22 37 22 20 A7 20 8D 20 38 36 | . A$."7" . . 86|
00002300: 30 3A 8D 20 31 31 30 3A 89 33 30 37 30 00 1C 27 |0:. 110:.3070..'|
00002310: 2F 0C 46 4C 24 B2 46 4C 24 AA 41 24 00 2D 27 30 |/.FL$.FL$.A$.-'0|
00002320: 0C 8B 43 4F B3 B1 34 30 A7 33 31 33 30 00 40 27 |..CO..40.3130.@'|
00002330: 31 0C 8D 31 31 30 3A 99 22 13 11 11 11 11 11 22 |1..110:."......"|
00002340: 00 71 27 32 0C 99 20 22 D0 52 49 4E 54 45 52 3A |.q'2.. ".RINTER:|
00002350: 20 D0 41 52 41 4C 4C 45 4C 2C 20 D3 45 52 49 41 | .ARALLEL, .ERIA|
00002360: 4C 2C 20 C9 C5 C5 C5 20 28 50 2F 53 2F 49 29 2E |L, .... (P/S/I).|
00002370: 22 00 89 27 33 0C A1 20 41 24 3A 8B 20 41 24 B2 |"..'3.. A$:. A$.|
00002380: 22 22 20 A7 20 33 31 32 33 00 A9 27 34 0C 8B 20 |"" . 3123..'4.. |
00002390: 41 24 B2 22 50 22 B0 41 24 B2 22 53 22 B0 41 24 |A$."P".A$."S".A$|
000023A0: B2 22 49 22 A7 33 31 32 36 00 B9 27 35 0C 8D 20 |."I".3126..'5.. |
000023B0: 38 36 30 3A 89 33 31 32 31 00 C8 27 36 0C 46 4C |860:.3121..'6.FL|
000023C0: 24 B2 46 4C 24 AA 41 24 00 DB 27 3A 0C 8B 20 56 |$.FL$.A$..':.. V|
000023D0: 4E B3 B1 30 20 A7 20 33 32 30 30 00 F0 27 44 0C |N..0 . 3200..'D.|
000023E0: 8D 20 31 31 30 3A 99 20 22 13 11 11 11 11 11 22 |. 110:. "......"|
000023F0: 00 1E 28 4E 0C 99 20 22 53 45 4E 44 20 4C 49 4E |..(N.. "SEND LIN|
00002400: 45 20 46 45 45 44 53 20 54 4F 20 54 48 45 20 50 |E FEEDS TO THE P|
00002410: 52 49 4E 54 45 52 20 28 59 2F 4E 29 2E 22 00 36 |RINTER (Y/N).".6|
00002420: 28 58 0C A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 |(X.. A$:. A$."" |
00002430: A7 20 33 31 36 30 00 4A 28 62 0C 8B 20 41 24 B2 |. 3160.J(b.. A$.|
00002440: 22 4E 22 20 A7 20 33 31 39 30 00 66 28 6C 0C 8B |"N" . 3190.f(l..|
00002450: 20 41 24 B3 B1 22 59 22 20 A7 20 8D 20 38 36 30 | A$.."Y" . . 860|
00002460: 3A 89 33 31 34 30 00 75 28 76 0C 46 4C 24 B2 46 |:.3140.u(v.FL$.F|
00002470: 4C 24 AA 41 24 00 8A 28 80 0C 8D 20 31 31 30 3A |L$.A$..(... 110:|
00002480: 99 20 22 13 11 11 11 11 11 22 00 B8 28 8A 0C 99 |. "......"..(...|
00002490: 20 22 C9 53 20 54 48 49 53 20 41 20 4E 45 57 20 | ".S THIS A NEW |
000024A0: 44 41 54 41 20 44 49 53 4B 20 28 27 59 27 A0 4F |DATA DISK ('Y'.O|
000024B0: 52 20 27 4E 27 29 2E 22 00 EA 28 94 0C 99 20 22 |R 'N')."..(... "|
000024C0: 11 D4 48 45 20 55 53 55 41 4C 20 41 4E 53 57 45 |..HE USUAL ANSWE|
000024D0: 52 20 54 4F 20 54 48 49 53 20 51 55 45 53 54 49 |R TO THIS QUESTI|
000024E0: 4F 4E 20 49 53 20 27 4E 27 22 00 15 29 9E 0C 99 |ON IS 'N'"..)...|
000024F0: 20 22 11 C9 46 20 59 4F 55 20 57 49 53 48 20 54 | "..F YOU WISH T|
00002500: 4F 20 4C 45 41 56 45 20 54 48 49 53 20 54 4F 22 |O LEAVE THIS TO"|
00002510: 3B 51 31 24 3B 00 3D 29 A8 0C 99 20 22 42 45 20 |;Q1$;.=)... "BE |
00002520: 43 4F 4D 50 4C 45 54 45 44 20 4F 4E 20 53 54 41 |COMPLETED ON STA|
00002530: 52 54 2D 55 50 20 4F 46 20 54 48 45 22 00 6A 29 |RT-UP OF THE".j)|
00002540: B2 0C 99 20 51 33 24 3B 22 57 4F 52 44 20 50 52 |... Q3$;"WORD PR|
00002550: 4F 43 45 53 53 4F 52 2C 20 54 48 41 54 20 49 53 |OCESSOR, THAT IS|
00002560: 2C 20 4E 4F 22 3B 51 31 24 3B 00 8F 29 BC 0C 99 |, NO";Q1$;..)...|
00002570: 20 22 44 45 46 41 55 4C 54 20 56 41 4C 55 45 20 | "DEFAULT VALUE |
00002580: 53 55 50 50 4C 49 45 44 2C 20 54 48 45 4E 22 00 |SUPPLIED, THEN".|
00002590: A5 29 C6 0C 99 20 51 33 24 3B 22 45 4E 54 45 52 |.)... Q3$;"ENTER|
000025A0: 20 27 2A 27 22 00 BD 29 D0 0C A1 20 41 24 3A 8B | '*'"..)... A$:.|
000025B0: 20 41 24 B2 22 22 20 A7 20 33 32 38 30 00 D1 29 | A$."" . 3280..)|
000025C0: DA 0C 8B 20 41 24 B2 22 4E 22 20 A7 20 33 33 36 |... A$."N" . 336|
000025D0: 30 00 EC 29 E4 0C 8B 20 41 24 B2 22 2A 22 20 A7 |0..)... A$."*" .|
000025E0: 20 41 24 B2 22 22 3A 89 33 33 36 30 00 08 2A EE | A$."":.3360..*.|
000025F0: 0C 8B 20 41 24 B3 B1 22 59 22 20 A7 20 8D 20 38 |.. A$.."Y" . . 8|
00002600: 36 30 3A 89 33 32 30 30 00 21 2A F8 0C 99 20 22 |60:.3200.!*... "|
00002610: 11 11 C1 52 45 20 59 4F 55 20 53 55 52 45 20 3F |...RE YOU SURE ?|
00002620: 22 00 39 2A 02 0D A1 20 41 24 3A 8B 20 41 24 B2 |".9*... A$:. A$.|
00002630: 22 22 20 A7 20 33 33 33 30 00 4D 2A 0C 0D 8B 20 |"" . 3330.M*... |
00002640: 41 24 B2 22 59 22 20 A7 20 33 33 36 30 00 88 2A |A$."Y" . 3360..*|
00002650: 16 0D 8B 20 41 24 B3 B1 22 4E 22 A7 8D 20 38 36 |... A$.."N".. 86|
00002660: 30 3A 8D 20 31 31 30 3A 99 22 13 11 11 CC 45 54 |0:. 110:."....ET|
00002670: 27 53 20 54 52 59 20 54 48 49 53 20 41 47 41 49 |'S TRY THIS AGAI|
00002680: 4E 22 3A 89 33 32 31 30 00 97 2A 20 0D 46 4C 24 |N":.3210..* .FL$|
00002690: B2 46 4C 24 AA 41 24 00 AC 2A 2A 0D 8B 20 44 41 |.FL$.A$..**.. DA|
000026A0: 24 B2 22 31 22 20 A7 20 34 31 34 30 00 B2 2A 34 |$."1" . 4140..*4|
000026B0: 0D 8F 00 FB 2A 3E 0D 8F 20 2A 2A 2A 2A 2A 2A 2A |....*>.. *******|
000026C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000026D0: 2A 20 42 55 49 4C 44 20 4C 41 52 47 45 20 43 4F |* BUILD LARGE CO|
000026E0: 4E 54 52 4F 4C 20 4D 41 50 20 2A 2A 2A 2A 2A 2A |NTROL MAP ******|
000026F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 01 2B 48 0D |***********..+H.|
00002700: 8F 00 10 2B 52 0D 53 54 24 28 30 29 B2 22 43 22 |...+R.ST$(0)."C"|
00002710: 00 24 2B 5C 0D 81 20 58 B2 31 20 A4 20 32 30 3A |.$+\.. X.1 . 20:|
00002720: 58 31 B2 58 00 40 2B 66 0D 8B 20 58 B1 31 30 20 |X1.X.@+f.. X.10 |
00002730: A7 20 58 31 B2 58 AB 31 30 3A 89 20 33 34 36 30 |. X1.X.10:. 3460|
00002740: 00 7D 2B 70 0D 91 20 58 31 20 8D 20 33 34 39 30 |.}+p.. X1 . 3490|
00002750: 2C 33 35 31 30 2C 33 35 34 30 2C 33 35 37 30 2C |,3510,3540,3570,|
00002760: 33 36 30 30 2C 33 36 33 30 2C 33 36 36 30 2C 33 |3600,3630,3660,3|
00002770: 36 39 30 2C 33 37 32 30 2C 33 37 35 30 00 88 2B |690,3720,3750..+|
00002780: 7A 0D 89 20 33 34 37 30 00 C5 2B 84 0D 91 20 58 |z.. 3470..+... X|
00002790: 31 20 8D 20 33 37 38 30 2C 33 38 31 30 2C 33 38 |1 . 3780,3810,38|
000027A0: 34 30 2C 33 38 37 30 2C 33 39 30 30 2C 33 39 34 |40,3870,3900,394|
000027B0: 30 2C 34 30 31 30 2C 34 30 34 30 2C 34 30 37 30 |0,4010,4040,4070|
000027C0: 2C 34 31 30 30 00 CD 2B 8E 0D 82 20 58 00 D8 2B |,4100..+... X..+|
000027D0: 98 0D 89 20 34 31 33 30 00 F8 2B A2 0D 4D 41 24 |... 4130..+..MA$|
000027E0: B2 4D 45 24 3A 8D 20 31 38 38 30 3A 8F 20 20 4D |.ME$:. 1880:. M|
000027F0: 41 52 47 49 4E 20 23 31 00 1C 2C AC 0D 50 33 B2 |ARGIN #1..,..P3.|
00002800: 32 3A 50 34 B2 31 3A 8D 20 32 30 31 30 3A 53 54 |2:P4.1:. 2010:ST|
00002810: 24 28 58 29 B2 C7 28 56 31 29 3A 8E 00 3E 2C B6 |$(X)..(V1):..>,.|
00002820: 0D 4D 41 24 B2 4D 45 24 3A 8D 20 31 38 38 30 3A |.MA$.ME$:. 1880:|
00002830: 8F 20 43 48 41 52 2F 4C 49 4E 45 20 23 32 00 71 |. CHAR/LINE #2.q|
00002840: 2C C0 0D 50 33 B2 33 3A 50 34 B2 32 3A 8D 20 32 |,..P3.3:P4.2:. 2|
00002850: 30 31 30 3A 8B 20 56 31 B1 32 31 30 20 A7 20 8D |010:. V1.210 . .|
00002860: 20 38 36 30 3A 8D 20 31 31 30 3A 89 20 33 35 31 | 860:. 110:. 351|
00002870: 30 00 84 2C CA 0D 53 54 24 28 58 29 B2 C7 28 56 |0..,..ST$(X)..(V|
00002880: 31 29 3A 8E 00 A9 2C D4 0D 4D 41 24 B2 4D 45 24 |1):...,..MA$.ME$|
00002890: 3A 8D 20 31 38 38 30 3A 8F 20 4C 49 4E 45 20 53 |:. 1880:. LINE S|
000028A0: 50 41 43 49 4E 47 20 23 33 00 DA 2C DE 0D 50 33 |PACING #3..,..P3|
000028B0: B2 31 3A 50 34 B2 31 3A 8D 20 32 30 31 30 3A 8B |.1:P4.1:. 2010:.|
000028C0: 20 56 31 B2 30 20 A7 20 8D 20 38 36 30 3A 8D 20 | V1.0 . . 860:. |
000028D0: 31 31 30 3A 89 20 33 35 34 30 00 ED 2C E8 0D 53 |110:. 3540..,..S|
000028E0: 54 24 28 58 29 B2 C7 28 56 31 29 3A 8E 00 12 2D |T$(X)..(V1):...-|
000028F0: F2 0D 4D 41 24 B2 4D 45 24 3A 8D 20 31 38 38 30 |..MA$.ME$:. 1880|
00002900: 3A 8F 20 50 41 52 41 20 53 50 41 43 49 4E 47 20 |:. PARA SPACING |
00002910: 23 34 00 43 2D FC 0D 50 33 B2 31 3A 50 34 B2 31 |#4.C-..P3.1:P4.1|
00002920: 3A 8D 20 32 30 31 30 3A 8B 20 56 31 B2 30 20 A7 |:. 2010:. V1.0 .|
00002930: 20 8D 20 38 36 30 3A 8D 20 31 31 30 3A 89 20 33 | . 860:. 110:. 3|
00002940: 35 37 30 00 56 2D 06 0E 53 54 24 28 58 29 B2 C7 |570.V-..ST$(X)..|
00002950: 28 56 31 29 3A 8E 00 7A 2D 10 0E 4D 41 24 B2 4D |(V1):..z-..MA$.M|
00002960: 45 24 3A 8D 20 31 38 38 30 3A 8F 20 50 41 52 41 |E$:. 1880:. PARA|
00002970: 20 49 4E 44 45 4E 54 20 23 35 00 8E 2D 1A 0E 50 | INDENT #5..-..P|
00002980: 33 B2 32 3A 50 34 B2 31 3A 8D 32 30 31 30 00 A1 |3.2:P4.1:.2010..|
00002990: 2D 24 0E 53 54 24 28 58 29 B2 C7 28 56 31 29 3A |-$.ST$(X)..(V1):|
000029A0: 8E 00 C4 2D 2E 0E 4D 41 24 B2 4D 45 24 3A 8D 20 |...-..MA$.ME$:. |
000029B0: 31 38 38 30 3A 8F 20 4C 49 4E 45 53 2F 50 41 47 |1880:. LINES/PAG|
000029C0: 45 20 23 36 00 F4 2D 38 0E 50 33 B2 33 3A 50 34 |E #6..-8.P3.3:P4|
000029D0: B2 31 3A 8D 32 30 31 30 3A 8B 20 56 31 B3 31 20 |.1:.2010:. V1.1 |
000029E0: A7 20 8D 20 38 36 30 3A 8D 20 31 31 30 3A 89 20 |. . 860:. 110:. |
000029F0: 33 36 33 30 00 07 2E 42 0E 53 54 24 28 58 29 B2 |3630...B.ST$(X).|
00002A00: C7 28 56 31 29 3A 8E 00 32 2E 4C 0E 4D 41 24 B2 |.(V1):..2.L.MA$.|
00002A10: 22 22 3A 8D 20 31 38 38 30 3A 8F 20 52 49 47 48 |"":. 1880:. RIGH|
00002A20: 54 20 4A 55 53 54 49 46 59 20 28 59 2F 4E 29 20 |T JUSTIFY (Y/N) |
00002A30: 23 37 00 5D 2E 56 0E 46 B2 30 3A 8D 20 32 32 35 |#7.].V.F.0:. 225|
00002A40: 30 3A 8B 20 46 B3 B1 30 20 A7 20 8D 20 38 36 30 |0:. F..0 . . 860|
00002A50: 3A 8D 20 31 31 30 3A 89 20 33 36 36 30 00 6D 2E |:. 110:. 3660.m.|
00002A60: 60 0E 53 54 24 28 58 29 B2 41 24 3A 8E 00 90 2E |`.ST$(X).A$:....|
00002A70: 6A 0E 4D 41 24 B2 4D 45 24 3A 8D 20 31 38 38 30 |j.MA$.ME$:. 1880|
00002A80: 3A 8F 20 54 4F 50 20 42 4F 52 44 45 52 20 23 38 |:. TOP BORDER #8|
00002A90: 00 A5 2E 74 0E 50 33 B2 32 3A 50 34 B2 31 3A 8D |...t.P3.2:P4.1:.|
00002AA0: 20 32 30 31 30 00 B8 2E 7E 0E 53 54 24 28 58 29 | 2010...~.ST$(X)|
00002AB0: B2 C7 28 56 31 29 3A 8E 00 E5 2E 88 0E 4D 41 24 |..(V1):......MA$|
00002AC0: B2 4D 45 24 3A 8D 20 31 38 38 30 3A 8F 20 53 54 |.ME$:. 1880:. ST|
00002AD0: 41 52 54 49 4E 47 20 50 41 47 45 20 4E 55 4D 42 |ARTING PAGE NUMB|
00002AE0: 45 52 20 23 39 00 FA 2E 92 0E 50 33 B2 33 3A 50 |ER #9.....P3.3:P|
00002AF0: 34 B2 31 3A 8D 20 32 30 31 30 00 0D 2F 9C 0E 53 |4.1:. 2010../..S|
00002B00: 54 24 28 58 29 B2 C7 28 56 31 29 3A 8E 00 3F 2F |T$(X)..(V1):..?/|
00002B10: A6 0E 4D 41 24 B2 22 22 3A 8D 20 31 38 38 30 3A |..MA$."":. 1880:|
00002B20: 8F 20 50 52 49 4E 54 20 46 49 52 53 54 20 50 41 |. PRINT FIRST PA|
00002B30: 47 45 23 20 3F 20 28 59 2F 4E 29 20 23 31 30 00 |GE# ? (Y/N) #10.|
00002B40: 6A 2F B0 0E 46 B2 30 3A 8D 20 32 32 35 30 3A 8B |j/..F.0:. 2250:.|
00002B50: 20 46 B3 B1 30 20 A7 20 8D 20 38 36 30 3A 8D 20 | F..0 . . 860:. |
00002B60: 31 31 30 3A 89 20 36 30 36 35 00 7A 2F BA 0E 53 |110:. 6065.z/..S|
00002B70: 54 24 28 58 29 B2 41 24 3A 8E 00 B4 2F C4 0E 4D |T$(X).A$:.../..M|
00002B80: 41 24 B2 22 22 3A 8D 20 31 38 38 30 3A 8F 20 50 |A$."":. 1880:. P|
00002B90: 4F 53 49 54 49 4F 4E 20 4F 46 20 50 41 47 45 20 |OSITION OF PAGE |
00002BA0: 4E 55 4D 42 45 52 20 28 4C 2C 52 2C 43 2C 41 29 |NUMBER (L,R,C,A)|
00002BB0: 20 23 31 31 00 E0 2F CE 0E 46 B2 30 3A 8D 20 32 | #11../..F.0:. 2|
00002BC0: 34 35 30 3A 8B 20 46 B3 B1 30 20 A7 20 8D 20 38 |450:. F..0 . . 8|
00002BD0: 36 30 3A 20 8D 20 31 31 30 3A 89 20 33 37 38 30 |60: . 110:. 3780|
00002BE0: 00 F0 2F D8 0E 53 54 24 28 58 29 B2 41 24 3A 8E |../..ST$(X).A$:.|
00002BF0: 00 25 30 E2 0E 4D 41 24 B2 22 22 3A 8D 20 31 38 |.%0..MA$."":. 18|
00002C00: 38 30 3A 8F 20 50 4F 53 49 54 49 4E 20 4F 46 20 |80:. POSITIN OF |
00002C10: 50 41 47 45 20 4E 55 4D 42 45 52 20 28 54 2C 42 |PAGE NUMBER (T,B|
00002C20: 29 20 23 31 32 00 50 30 EC 0E 46 B2 30 3A 8D 20 |) #12.P0..F.0:. |
00002C30: 32 33 35 30 3A 8B 20 46 B3 B1 30 20 A7 20 8D 20 |2350:. F..0 . . |
00002C40: 38 36 30 3A 8D 20 31 31 30 3A 89 20 33 38 31 30 |860:. 110:. 3810|
00002C50: 00 60 30 F6 0E 53 54 24 28 58 29 B2 41 24 3A 8E |.`0..ST$(X).A$:.|
00002C60: 00 83 30 00 0F 4D 41 24 B2 4D 45 24 3A 8D 20 31 |..0..MA$.ME$:. 1|
00002C70: 38 38 30 3A 8F 20 50 41 47 45 20 53 49 5A 45 20 |880:. PAGE SIZE |
00002C80: 23 31 33 00 98 30 0A 0F 50 33 B2 32 3A 50 34 B2 |#13..0..P3.2:P4.|
00002C90: 31 3A 8D 20 32 30 31 30 00 AB 30 14 0F 53 54 24 |1:. 2010..0..ST$|
00002CA0: 28 58 29 B2 C7 28 56 31 29 3A 8E 00 CF 30 1E 0F |(X)..(V1):...0..|
00002CB0: 4D 41 24 B2 4D 45 24 3A 8D 20 31 38 38 30 3A 8F |MA$.ME$:. 1880:.|
00002CC0: 20 4C 49 4E 45 53 2F 49 4E 43 48 20 23 31 34 00 | LINES/INCH #14.|
00002CD0: 00 31 28 0F 50 33 B2 31 3A 50 34 B2 31 3A 8D 20 |.1(.P3.1:P4.1:. |
00002CE0: 32 30 31 30 3A 8B 20 56 31 B3 36 20 A7 20 8D 20 |2010:. V1.6 . . |
00002CF0: 38 36 30 3A 8D 20 31 31 30 3A 89 20 33 38 37 30 |860:. 110:. 3870|
00002D00: 00 13 31 32 0F 53 54 24 28 58 29 B2 C7 28 56 31 |..12.ST$(X)..(V1|
00002D10: 29 3A 8E 00 32 31 3C 0F 4D 41 24 B2 4D 45 24 3A |):..21<.MA$.ME$:|
00002D20: 8D 20 31 38 38 30 3A 8F 20 50 49 54 43 48 20 23 |. 1880:. PITCH #|
00002D30: 31 35 00 47 31 46 0F 50 33 B2 32 3A 50 34 B2 31 |15.G1F.P3.2:P4.1|
00002D40: 3A 8D 20 32 30 31 30 00 6F 31 50 0F 8B 20 56 31 |:. 2010.o1P.. V1|
00002D50: B3 35 20 B0 20 56 31 B1 31 36 20 A7 20 8D 20 38 |.5 . V1.16 . . 8|
00002D60: 36 30 3A 8D 20 31 31 30 3A 89 20 33 39 30 30 00 |60:. 110:. 3900.|
00002D70: 82 31 5A 0F 53 54 24 28 58 29 B2 C7 28 56 31 29 |.1Z.ST$(X)..(V1)|
00002D80: 3A 8E 00 94 31 64 0F 8B 20 56 4E B2 30 20 A7 20 |:...1d.. VN.0 . |
00002D90: 33 39 38 30 00 C0 31 6E 0F 4D 41 24 B2 22 22 3A |3980..1n.MA$."":|
00002DA0: 8D 20 31 38 38 30 3A 8F 20 4C 49 4E 45 20 46 45 |. 1880:. LINE FE|
00002DB0: 45 44 20 28 59 2F 4E 29 20 23 31 36 2D 4E 45 57 |ED (Y/N) #16-NEW|
00002DC0: 00 EB 31 78 0F 46 B2 30 3A 8D 20 32 32 35 30 3A |..1x.F.0:. 2250:|
00002DD0: 8B 20 46 B3 B1 30 20 A7 20 8D 20 38 36 30 3A 8D |. F..0 . . 860:.|
00002DE0: 20 31 31 30 3A 89 20 33 39 34 30 00 FB 31 82 0F | 110:. 3940..1..|
00002DF0: 53 54 24 28 58 29 B2 41 24 3A 8E 00 23 32 8C 0F |ST$(X).A$:..#2..|
00002E00: 4D 41 24 B2 4D 45 24 3A 8D 20 31 38 38 30 3A 8F |MA$.ME$:. 1880:.|
00002E10: 20 44 4F 54 20 53 50 41 43 45 53 20 23 31 36 2D | DOT SPACES #16-|
00002E20: 4F 4C 44 00 54 32 96 0F 50 33 B2 31 3A 50 34 B2 |OLD.T2..P3.1:P4.|
00002E30: 31 3A 8D 20 32 30 31 30 3A 8B 20 56 31 B2 30 20 |1:. 2010:. V1.0 |
00002E40: A7 20 8D 20 38 36 30 3A 8D 20 31 31 30 3A 89 20 |. . 860:. 110:. |
00002E50: 33 39 38 30 00 67 32 A0 0F 53 54 24 28 58 29 B2 |3980.g2..ST$(X).|
00002E60: C7 28 56 31 29 3A 8E 00 91 32 AA 0F 4D 41 24 B2 |.(V1):...2..MA$.|
00002E70: 22 22 3A 8D 20 31 38 38 30 3A 8F 20 52 4F 55 47 |"":. 1880:. ROUG|
00002E80: 48 20 44 52 41 46 54 20 28 59 2F 4E 29 20 23 31 |H DRAFT (Y/N) #1|
00002E90: 37 00 BC 32 B4 0F 46 B2 30 3A 8D 20 32 32 35 30 |7..2..F.0:. 2250|
00002EA0: 3A 8B 20 46 B3 B1 30 20 A7 20 8D 20 38 36 30 3A |:. F..0 . . 860:|
00002EB0: 8D 20 31 31 30 3A 89 20 34 30 31 30 00 CC 32 BE |. 110:. 4010..2.|
00002EC0: 0F 53 54 24 28 58 29 B2 41 24 3A 8E 00 00 33 C8 |.ST$(X).A$:...3.|
00002ED0: 0F 4D 41 24 B2 22 22 3A 8D 20 31 38 38 30 3A 8F |.MA$."":. 1880:.|
00002EE0: 20 50 4F 53 49 54 49 4F 4E 20 4F 46 20 54 49 54 | POSITION OF TIT|
00002EF0: 4C 45 20 28 4C 2C 52 2C 43 2C 41 29 20 23 31 38 |LE (L,R,C,A) #18|
00002F00: 00 2B 33 D2 0F 46 B2 30 3A 8D 20 32 34 35 30 3A |.+3..F.0:. 2450:|
00002F10: 8B 20 46 B3 B1 30 20 A7 20 8D 20 38 36 30 3A 8D |. F..0 . . 860:.|
00002F20: 20 31 31 30 3A 89 20 34 30 34 30 00 3B 33 DC 0F | 110:. 4040.;3..|
00002F30: 53 54 24 28 58 29 B2 41 24 3A 8E 00 6B 33 E6 0F |ST$(X).A$:..k3..|
00002F40: 4D 41 24 B2 22 22 3A 8D 20 31 38 38 30 3A 8F 20 |MA$."":. 1880:. |
00002F50: 50 4F 53 49 54 49 4F 4E 20 4F 46 20 54 49 54 4C |POSITION OF TITL|
00002F60: 45 20 28 54 2C 42 29 20 23 31 39 00 96 33 F0 0F |E (T,B) #19..3..|
00002F70: 46 B2 30 3A 8D 20 32 33 35 30 3A 8B 20 46 B3 B1 |F.0:. 2350:. F..|
00002F80: 30 20 A7 20 8D 20 38 36 30 3A 8D 20 31 31 30 3A |0 . . 860:. 110:|
00002F90: 89 20 34 30 37 30 00 A6 33 FA 0F 53 54 24 28 58 |. 4070..3..ST$(X|
00002FA0: 29 B2 41 24 3A 8E 00 DE 33 04 10 4D 41 24 B2 22 |).A$:...3..MA$."|
00002FB0: 22 3A 8D 20 31 38 38 30 3A 8F 20 50 52 49 4E 54 |":. 1880:. PRINT|
00002FC0: 45 52 20 45 4E 44 20 4F 46 20 50 41 47 45 20 50 |ER END OF PAGE P|
00002FD0: 41 55 53 45 20 28 59 2F 4E 29 20 23 32 30 00 09 |AUSE (Y/N) #20..|
00002FE0: 34 0E 10 46 B2 30 3A 8D 20 32 32 35 30 3A 8B 20 |4..F.0:. 2250:. |
00002FF0: 46 B3 B1 30 20 A7 20 8D 20 38 36 30 3A 8D 20 31 |F..0 . . 860:. 1|
00003000: 31 30 3A 89 20 34 31 30 30 00 19 34 18 10 53 54 |10:. 4100..4..ST|
00003010: 24 28 58 29 B2 41 24 3A 8E 00 4C 34 22 10 8D 20 |$(X).A$:..L4".. |
00003020: 31 31 30 3A 99 20 22 13 11 11 11 11 11 20 D4 48 |110:. "...... .H|
00003030: 41 54 20 43 4F 4D 50 4C 45 54 45 53 20 54 48 45 |AT COMPLETES THE|
00003040: 20 51 55 45 53 54 49 4F 4E 53 2E 22 00 7B 34 2C | QUESTIONS.".{4,|
00003050: 10 99 22 11 11 C9 20 57 49 4C 4C 20 4E 4F 57 20 |.."... WILL NOW |
00003060: 42 55 49 4C 44 20 54 48 45 20 27 43 4F 4E 46 49 |BUILD THE 'CONFI|
00003070: 47 55 52 45 27 20 46 49 4C 45 22 00 B3 34 36 10 |GURE' FILE"..46.|
00003080: 51 55 24 B2 22 22 3A 8B 20 53 54 24 28 30 29 B2 |QU$."":. ST$(0).|
00003090: 22 43 22 20 A7 20 81 20 58 B2 30 20 A4 20 32 30 |"C" . . X.0 . 20|
000030A0: 3A 51 55 24 B2 51 55 24 AA 53 54 24 28 58 29 3A |:QU$.QU$.ST$(X):|
000030B0: 82 20 58 00 E0 34 40 10 51 55 24 B2 51 55 24 AA |. X..4@.QU$.QU$.|
000030C0: C7 28 30 29 AA 22 20 22 3A 8B 20 46 4C 24 B3 B1 |.(0)." ":. FL$..|
000030D0: 22 22 20 A7 20 51 55 24 B2 51 55 24 AA 46 4C 24 |"" . QU$.QU$.FL$|
000030E0: 00 0A 35 4A 10 9F 20 32 2C 38 2C 32 2C 22 40 30 |..5J.. 2,8,2,"@0|
000030F0: 3A 43 4F 4E 46 49 47 55 52 45 2C 53 2C 57 22 3A |:CONFIGURE,S,W":|
00003100: 98 32 2C 51 55 24 3A A0 20 32 00 10 35 54 10 8F |.2,QU$:. 2..5T..|
00003110: 00 57 35 5E 10 8F 20 2A 2A 2A 20 52 45 41 44 20 |.W5^.. *** READ |
00003120: 46 49 4C 45 20 46 52 4F 4D 20 44 49 53 4B 20 49 |FILE FROM DISK I|
00003130: 46 20 50 52 45 53 45 4E 54 20 41 4E 44 20 49 4E |F PRESENT AND IN|
00003140: 54 45 52 50 52 45 54 20 46 4F 52 20 44 49 53 50 |TERPRET FOR DISP|
00003150: 4C 41 59 20 2A 2A 2A 00 5D 35 68 10 8F 00 76 35 |LAY ***.]5h...v5|
00003160: 72 10 46 4C 24 B2 22 22 3A 9F 20 31 35 2C 38 2C |r.FL$."":. 15,8,|
00003170: 31 35 3A 47 B2 30 00 94 35 7C 10 9F 20 32 2C 38 |15:G.0..5|.. 2,8|
00003180: 2C 32 2C 22 30 3A 43 4F 4E 46 49 47 55 52 45 2C |,2,"0:CONFIGURE,|
00003190: 53 2C 52 22 00 A9 35 86 10 84 31 35 2C 45 4E 2C |S,R"..5...15,EN,|
000031A0: 45 4D 24 2C 45 54 2C 45 53 00 D4 35 90 10 8B 20 |EM$,ET,ES..5... |
000031B0: 45 4E B2 36 32 20 A7 20 99 22 13 11 11 11 11 22 |EN.62 . ."....."|
000031C0: 3B 45 4D 24 3A A0 20 31 35 3A A0 20 32 3A 89 20 |;EM$:. 15:. 2:. |
000031D0: 35 31 30 30 00 F6 35 9A 10 A1 23 32 2C 41 24 3A |5100..5...#2,A$:|
000031E0: 8B 20 41 24 B3 B1 22 43 22 20 A7 20 47 B2 31 3A |. A$.."C" . G.1:|
000031F0: 89 20 34 33 32 30 00 05 36 A4 10 53 54 24 28 30 |. 4320..6..ST$(0|
00003200: 29 B2 22 43 22 00 14 36 AE 10 81 58 B2 31 20 A4 |)."C"..6...X.1 .|
00003210: 20 32 30 3A 00 30 36 B8 10 A1 23 32 2C 41 24 3A | 20:.06...#2,A$:|
00003220: 8B 20 41 24 B2 22 22 A7 20 41 24 B2 C7 28 30 29 |. A$."". A$..(0)|
00003230: 00 3E 36 C2 10 53 54 24 28 58 29 B2 41 24 00 4D |.>6..ST$(X).A$.M|
00003240: 36 CC 10 82 20 58 3A A1 23 32 2C 41 24 00 67 36 |6... X:.#2,A$.g6|
00003250: D6 10 A1 23 32 2C 41 24 3A 8B 20 41 24 B2 22 22 |...#2,A$:. A$.""|
00003260: 20 A7 20 34 33 36 30 00 7B 36 E0 10 8B 20 41 24 | . 4360.{6... A$|
00003270: B2 22 20 22 20 A7 20 34 33 31 30 00 91 36 EA 10 |." " . 4310..6..|
00003280: 8B 20 41 24 B2 C7 28 31 33 29 20 A7 20 34 33 36 |. A$..(13) . 436|
00003290: 30 00 A0 36 F4 10 46 4C 24 B2 46 4C 24 AA 41 24 |0..6..FL$.FL$.A$|
000032A0: 00 AB 36 FE 10 89 20 34 33 31 30 00 BD 36 08 11 |..6... 4310..6..|
000032B0: A0 20 32 3A A0 20 31 35 3A 43 41 B2 30 00 D4 36 |. 2:. 15:CA.0..6|
000032C0: 0D 11 8B 20 46 4C 24 B2 22 22 20 A7 20 44 41 24 |... FL$."" . DA$|
000032D0: B2 22 32 22 00 E5 36 12 11 8B 20 47 B2 31 20 A7 |."2"..6... G.1 .|
000032E0: 20 34 36 30 30 00 F9 36 1C 11 8B 20 44 41 24 B2 | 4600..6... DA$.|
000032F0: 22 31 22 A7 20 34 36 30 30 00 30 37 26 11 8D 20 |"1". 4600.07&.. |
00003300: 31 31 30 3A 99 22 13 11 2A 2A 2A 2A 2A 2A 2A 2A |110:."..********|
00003310: 2A 2A 20 CC 41 52 47 45 20 C3 4F 4E 54 52 4F 4C |** .ARGE .ONTROL|
00003320: 20 CD 41 50 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 | .AP **********"|
00003330: 00 4D 37 30 11 81 20 49 B2 31 20 A4 20 33 39 3A |.M70.. I.1 . 39:|
00003340: 99 20 22 3D 22 20 3B 3A 82 20 49 3A 99 00 63 37 |. "=" ;:. I:..c7|
00003350: 3A 11 81 58 B2 31 20 A4 20 32 30 3A 41 24 B2 C4 |:..X.1 . 20:A$..|
00003360: 28 58 29 00 7C 37 44 11 41 B2 C6 28 53 54 24 28 |(X).|7D.A..(ST$(|
00003370: 58 29 29 3A 41 41 24 B2 C4 28 41 29 00 95 37 4E |X)):AA$..(A)..7N|
00003380: 11 8B 20 56 4E B2 30 20 AF 20 58 B2 31 36 20 A7 |.. VN.0 . X.16 .|
00003390: 20 34 34 35 30 00 C4 37 58 11 8B 20 58 B2 37 20 | 4450..7X.. X.7 |
000033A0: B0 20 58 B2 31 30 20 B0 20 58 B2 31 31 20 B0 20 |. X.10 . X.11 . |
000033B0: 58 B2 31 32 20 B0 20 58 B1 31 35 20 A7 20 8D 20 |X.12 . X.15 . . |
000033C0: 32 35 37 30 00 F7 37 62 11 99 20 41 24 3B 22 29 |2570..7b.. A$;")|
000033D0: 22 3B 48 41 24 28 58 29 3B C8 28 41 58 24 2C 33 |";HA$(X);.(AX$,3|
000033E0: 35 AB C3 28 48 41 24 28 58 29 AA 41 24 AA 22 20 |5..(HA$(X).A$." |
000033F0: 22 29 29 3B 41 41 24 00 FF 37 6C 11 82 20 58 00 |"));AA$..7l.. X.|
00003400: 28 38 76 11 54 46 24 B2 22 C1 52 45 20 54 48 45 |(8v.TF$.".RE THE|
00003410: 53 45 20 56 41 4C 55 45 53 20 43 4F 52 52 45 43 |SE VALUES CORREC|
00003420: 54 22 3A 8D 20 37 37 30 00 40 38 80 11 A1 20 41 |T":. 770.@8... A|
00003430: 24 3A 8B 20 41 24 B2 22 22 20 A7 20 34 34 38 30 |$:. A$."" . 4480|
00003440: 00 54 38 8A 11 8B 20 41 24 B2 22 59 22 20 A7 20 |.T8... A$."Y" . |
00003450: 34 35 38 30 00 69 38 94 11 8B 20 41 24 B3 B1 22 |4580.i8... A$.."|
00003460: 4E 22 20 A7 20 34 34 38 30 00 99 38 9E 11 54 46 |N" . 4480..8..TF|
00003470: 24 B2 22 57 48 49 43 48 20 4F 4E 45 20 44 4F 20 |$."WHICH ONE DO |
00003480: 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 41 4E |YOU WANT TO CHAN|
00003490: 47 45 22 3A 8D 20 37 37 30 00 CB 38 A8 11 99 22 |GE":. 770..8..."|
000034A0: 91 22 3B C8 28 41 58 24 2C 43 4F AB 35 29 3B 3A |.";.(AX$,CO.5);:|
000034B0: 50 33 B2 32 3A 50 34 B2 31 3A 8D 20 32 30 31 30 |P3.2:P4.1:. 2010|
000034C0: 3A 58 B2 56 31 3A 58 31 B2 56 31 00 E7 38 B2 11 |:X.V1:X1.V1..8..|
000034D0: 8B 20 58 B1 31 30 20 A7 20 58 31 B2 58 AB 31 30 |. X.10 . X1.X.10|
000034E0: 3A 89 20 34 35 36 30 00 24 39 BC 11 91 20 58 31 |:. 4560.$9... X1|
000034F0: 20 8D 20 33 34 39 30 2C 33 35 31 30 2C 33 35 34 | . 3490,3510,354|
00003500: 30 2C 33 35 37 30 2C 33 36 30 30 2C 33 36 33 30 |0,3570,3600,3630|
00003510: 2C 33 36 36 30 2C 33 36 39 30 2C 33 37 32 30 2C |,3660,3690,3720,|
00003520: 33 37 35 30 00 2F 39 C6 11 89 20 34 35 37 30 00 |3750./9... 4570.|
00003530: 6C 39 D0 11 91 20 58 31 20 8D 20 33 37 38 30 2C |l9... X1 . 3780,|
00003540: 33 38 31 30 2C 33 38 34 30 2C 33 38 37 30 2C 33 |3810,3840,3870,3|
00003550: 39 30 30 2C 33 39 34 30 2C 34 30 31 30 2C 34 30 |900,3940,4010,40|
00003560: 34 30 2C 34 30 37 30 2C 34 31 30 30 00 7E 39 DA |40,4070,4100.~9.|
00003570: 11 43 41 B2 43 41 AA 31 3A 89 34 33 39 30 00 A5 |.CA.CA.1:.4390..|
00003580: 39 E4 11 8B 20 43 41 B3 B1 30 20 A7 20 8D 20 31 |9... CA..0 . . 1|
00003590: 31 30 3A 99 22 13 11 11 11 11 11 11 11 22 3A 89 |10:."........":.|
000035A0: 20 34 31 34 30 00 B9 39 EE 11 8B 20 44 41 24 B2 | 4140..9... DA$.|
000035B0: 22 32 22 20 A7 20 38 32 30 00 D5 39 F8 11 43 48 |"2" . 820..9..CH|
000035C0: B2 31 3A 41 24 B2 CA 28 46 4C 24 2C 43 48 2C 31 |.1:A$..(FL$,CH,1|
000035D0: 29 3A 4D B2 32 00 FD 39 02 12 8D 20 31 31 30 3A |):M.2..9... 110:|
000035E0: 99 20 22 13 11 11 C9 4E 49 54 49 41 4C 49 5A 41 |. "....NITIALIZA|
000035F0: 54 49 4F 4E 20 4F 50 54 49 4F 4E 53 22 00 1C 3A |TION OPTIONS"..:|
00003600: 0C 12 99 20 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |... "===========|
00003610: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 49 3A 16 |===========".I:.|
00003620: 12 99 20 22 11 27 43 4F 4E 46 49 47 55 52 45 27 |.. ".'CONFIGURE'|
00003630: 3A 20 4F 50 54 49 4F 4E 53 20 4F 4E 20 44 49 53 |: OPTIONS ON DIS|
00003640: 4B 20 3D 20 22 3B 46 4C 24 00 5E 3A 20 12 8B 20 |K = ";FL$.^: .. |
00003650: 41 24 B3 B1 22 46 22 20 A7 20 34 37 31 30 00 86 |A$.."F" . 4710..|
00003660: 3A 2A 12 99 20 22 11 22 3B 41 24 3B 22 20 2D 20 |:*.. ".";A$;" - |
00003670: 20 C6 52 45 4E 43 48 20 CC 41 4E 47 55 41 47 45 | .RENCH .ANGUAGE|
00003680: 20 4D 4F 44 45 22 00 9E 3A 34 12 43 48 B2 32 3A | MODE"..:4.CH.2:|
00003690: 41 24 B2 CA 28 46 4C 24 2C 43 48 2C 31 29 00 C5 |A$..(FL$,CH,1)..|
000036A0: 3A 3E 12 8B 20 41 24 B3 B1 22 31 22 20 AF 20 41 |:>.. A$.."1" . A|
000036B0: 24 B3 B1 22 32 22 20 A7 20 8D 20 38 36 30 3A 89 |$.."2" . . 860:.|
000036C0: 20 34 39 31 30 00 E4 3A 48 12 99 20 22 11 22 3B | 4910..:H.. ".";|
000036D0: 41 24 3B 22 20 2D A0 22 3B 48 31 24 3A 41 B2 C5 |A$;" -.";H1$:A..|
000036E0: 28 41 24 29 00 F9 3A 52 12 99 20 22 20 20 20 3D |(A$)..:R.. " =|
000036F0: 20 22 3B 54 50 24 28 41 29 00 11 3B 5C 12 43 48 | ";TP$(A)..;\.CH|
00003700: B2 33 3A 41 24 B2 CA 28 46 4C 24 2C 43 48 2C 31 |.3:A$..(FL$,CH,1|
00003710: 29 00 36 3B 66 12 8B 20 41 24 B3 22 31 22 20 B0 |).6;f.. A$."1" .|
00003720: 20 41 24 B1 22 37 22 20 A7 20 8D 20 38 36 30 3A | A$."7" . . 860:|
00003730: 89 20 34 39 31 30 00 4C 3B 70 12 99 22 11 22 3B |. 4910.L;p..".";|
00003740: 41 24 3B 22 20 2D 20 22 3B 48 32 24 00 63 3B 7A |A$;" - ";H2$.c;z|
00003750: 12 99 22 20 20 20 3D 20 22 50 52 24 28 C5 28 41 |.." = "PR$(.(A|
00003760: 24 29 29 00 74 3B 7B 12 8B 43 4F B3 B1 34 30 A7 |$)).t;{..CO..40.|
00003770: 34 37 34 30 00 8F 3B 7C 12 43 48 B2 43 48 AA 31 |4740..;|.CH.CH.1|
00003780: 3A 41 24 B2 CA 28 46 4C 24 2C 43 48 2C 31 29 00 |:A$..(FL$,CH,1).|
00003790: B3 3B 7D 12 99 22 11 D0 41 52 41 4C 4C 45 4C 2C |.;}.."..ARALLEL,|
000037A0: 20 D3 45 52 49 41 4C 2C 20 C9 C5 C5 C5 20 2D 20 | .ERIAL, .... - |
000037B0: 22 41 24 00 C6 3B 84 12 8B 20 56 4E B3 B1 30 20 |"A$..;... VN..0 |
000037C0: A7 20 34 37 39 30 00 E1 3B 8E 12 43 48 B2 43 48 |. 4790..;..CH.CH|
000037D0: AA 31 3A 41 24 B2 CA 28 46 4C 24 2C 43 48 2C 31 |.1:A$..(FL$,CH,1|
000037E0: 29 00 08 3C 98 12 8B 20 41 24 B3 B1 22 59 22 20 |)..<... A$.."Y" |
000037F0: AF 20 41 24 B3 B1 22 4E 22 20 A7 20 8D 20 38 36 |. A$.."N" . . 86|
00003800: 30 3A 89 20 34 39 31 30 00 41 3C A2 12 8B 20 41 |0:. 4910.A<... A|
00003810: 24 B2 22 59 22 20 A7 20 99 20 22 11 22 3B 41 24 |$."Y" . . ".";A$|
00003820: 3B 22 20 2D 20 20 D3 45 4E 44 20 4C 49 4E 45 20 |;" - .END LINE |
00003830: 46 45 45 44 53 20 54 4F 20 50 52 49 4E 54 45 52 |FEEDS TO PRINTER|
00003840: 22 00 81 3C AC 12 8B 20 41 24 B2 22 4E 22 20 A7 |"..<... A$."N" .|
00003850: 20 99 20 22 11 22 3B 41 24 3B 22 20 2D 20 20 C4 | . ".";A$;" - .|
00003860: 4F 20 4E 4F 54 20 53 45 4E 44 20 4C 49 4E 45 20 |O NOT SEND LINE |
00003870: 46 45 45 44 53 20 54 4F 20 50 52 49 4E 54 45 52 |FEEDS TO PRINTER|
00003880: 22 00 B4 3C B6 12 43 48 B2 43 48 AA 31 3A 41 24 |"..<..CH.CH.1:A$|
00003890: B2 CA 28 46 4C 24 2C 43 48 2C 31 29 3A 8B 20 41 |..(FL$,CH,1):. A|
000038A0: 24 B2 22 22 20 A7 20 41 24 B2 22 2A 22 3A 89 20 |$."" . A$."*":. |
000038B0: 34 38 33 30 00 DB 3C C0 12 8B 20 41 24 B3 B1 22 |4830..<... A$.."|
000038C0: 4E 22 20 AF 20 41 24 B3 B1 22 59 22 20 A7 20 8D |N" . A$.."Y" . .|
000038D0: 20 38 36 30 3A 89 20 34 39 31 30 00 1B 3D CA 12 | 860:. 4910..=..|
000038E0: 8B 20 41 24 B2 22 4E 22 20 A7 20 99 20 22 11 22 |. A$."N" . . "."|
000038F0: 3B 41 24 3B 22 20 2D 20 44 4F 20 4E 4F 54 20 46 |;A$;" - DO NOT F|
00003900: 4F 52 4D 41 54 20 54 48 45 20 44 41 54 41 20 44 |ORMAT THE DATA D|
00003910: 49 53 4B 22 3A 89 20 34 38 35 30 00 49 3D D4 12 |ISK":. 4850.I=..|
00003920: 99 20 22 11 22 3B 41 24 3B 22 20 2D 20 46 4F 52 |. ".";A$;" - FOR|
00003930: 4D 41 54 20 54 48 45 20 44 41 54 41 20 44 49 53 |MAT THE DATA DIS|
00003940: 4B 22 3A 89 20 34 38 35 30 00 6E 3D DE 12 99 20 |K":. 4850.n=... |
00003950: 22 11 20 20 2D 20 4E 4F 20 44 45 46 41 55 4C 54 |". - NO DEFAULT|
00003960: 20 53 55 50 50 4C 49 45 44 20 54 4F 20 22 00 94 | SUPPLIED TO "..|
00003970: 3D E8 12 99 20 22 20 20 20 20 27 49 53 20 54 48 |=... " 'IS TH|
00003980: 49 53 20 41 20 4E 45 57 20 44 41 54 41 20 44 49 |IS A NEW DATA DI|
00003990: 53 4B 27 22 00 B7 3D F2 12 54 46 24 B2 22 C9 53 |SK'"..=..TF$.".S|
000039A0: 20 54 48 49 53 20 43 4F 52 52 45 43 54 20 3F 20 | THIS CORRECT ? |
000039B0: 22 3A 8D 20 37 37 30 00 CF 3D FC 12 A1 20 41 24 |":. 770..=... A$|
000039C0: 3A 8B 20 41 24 B2 22 22 20 A7 20 34 38 36 30 00 |:. A$."" . 4860.|
000039D0: E2 3D 06 13 8B 20 41 24 B2 22 59 22 20 A7 20 38 |.=... A$."Y" . 8|
000039E0: 32 30 00 F7 3D 10 13 8B 20 41 24 B3 B1 22 4E 22 |20..=... A$.."N"|
000039F0: 20 A7 20 34 38 36 30 00 30 3E 1A 13 8D 20 31 31 | . 4860.0>... 11|
00003A00: 30 3A 99 20 22 13 11 11 11 11 11 11 11 11 11 12 |0:. "...........|
00003A10: 20 4C 45 54 27 53 20 47 4F 20 54 4F 20 54 48 45 | LET'S GO TO THE|
00003A20: 20 53 45 54 2D 55 50 20 52 4F 55 54 49 4E 45 22 | SET-UP ROUTINE"|
00003A30: 00 4F 3E 24 13 8D 20 34 31 30 3A 8D 20 31 31 30 |.O>$.. 410:. 110|
00003A40: 3A 44 41 24 B2 22 31 22 3A 89 20 32 39 33 30 00 |:DA$."1":. 2930.|
00003A50: 55 3E 2E 13 8F 00 9E 3E 38 13 8F 20 2A 2A 2A 2A |U>.....>8.. ****|
00003A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 45 52 |************* ER|
00003A70: 52 4F 52 20 52 45 50 4F 52 54 49 4E 47 20 52 4F |ROR REPORTING RO|
00003A80: 55 54 49 4E 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |UTINE **********|
00003A90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A4 |**************..|
00003AA0: 3E 42 13 8F 00 C5 3E 4C 13 8D 20 31 31 30 3A 99 |>B....>L.. 110:.|
00003AB0: 22 13 11 11 11 11 20 20 20 20 20 20 12 D3 CF D2 |"..... ....|
00003AC0: D2 D9 92 11 22 00 F0 3E 56 13 99 22 C5 52 52 4F |...."..>V..".RRO|
00003AD0: 52 20 44 45 54 45 43 54 45 44 20 49 4E 20 49 4E |R DETECTED IN IN|
00003AE0: 54 45 52 50 52 45 54 49 4E 47 22 3B 51 31 24 3B |TERPRETING";Q1$;|
00003AF0: 00 15 3F 60 13 99 22 54 48 45 20 27 43 4F 4E 46 |..?`.."THE 'CONF|
00003B00: 49 47 55 52 45 27 20 46 49 4C 45 20 46 4F 52 20 |IGURE' FILE FOR |
00003B10: 54 48 45 20 22 00 42 3F 6A 13 99 20 51 33 24 3B |THE ".B?j.. Q3$;|
00003B20: 22 49 4E 49 54 49 41 54 49 4F 4E 20 53 45 51 55 |"INITIATION SEQU|
00003B30: 45 4E 43 45 20 4F 46 20 52 45 53 50 4F 4E 53 45 |ENCE OF RESPONSE|
00003B40: 53 22 00 6C 3F 74 13 99 22 11 D3 55 47 47 45 53 |S".l?t.."..UGGES|
00003B50: 54 20 54 48 41 54 20 59 4F 55 20 52 45 42 55 49 |T THAT YOU REBUI|
00003B60: 4C 44 20 54 48 45 20 46 49 4C 45 22 00 7C 3F 7E |LD THE FILE".|?~|
00003B70: 13 8D 20 34 31 30 3A 89 20 38 32 30 00 82 3F 88 |.. 410:. 820..?.|
00003B80: 13 8F 00 C9 3F 92 13 8F 20 2A 2A 2A 2A 2A 2A 2A |....?... *******|
00003B90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 53 |************** S|
00003BA0: 43 52 41 54 43 48 20 44 41 54 41 20 53 45 54 20 |CRATCH DATA SET |
00003BB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CF 3F 9C 13 8F 00 |*********..?....|
00003BD0: DD 3F A6 13 9F 20 31 35 2C 38 2C 31 35 00 F4 3F |.?... 15,8,15..?|
00003BE0: B0 13 98 31 35 2C 22 53 30 3A 43 4F 4E 46 49 47 |...15,"S0:CONFIG|
00003BF0: 55 52 45 22 00 09 40 BA 13 84 31 35 2C 45 4E 2C |URE"..@...15,EN,|
00003C00: 45 4D 24 2C 45 54 2C 45 53 00 18 40 C4 13 99 20 |EM$,ET,ES..@... |
00003C10: 22 13 11 11 11 11 11 22 00 44 40 CE 13 8B 20 45 |"......".D@... E|
00003C20: 54 B2 30 20 A7 20 99 20 22 27 43 4F 4E 46 49 47 |T.0 . . "'CONFIG|
00003C30: 55 52 45 27 20 46 49 4C 45 20 4E 4F 54 20 46 4F |URE' FILE NOT FO|
00003C40: 55 4E 44 22 00 70 40 D8 13 8B 20 45 54 B2 31 20 |UND".p@... ET.1 |
00003C50: A7 20 99 20 22 27 43 4F 4E 46 49 47 55 52 45 27 |. . "'CONFIGURE'|
00003C60: 20 46 49 4C 45 20 53 43 52 41 54 43 48 45 44 22 | FILE SCRATCHED"|
00003C70: 00 79 40 E2 13 A0 20 31 35 00 89 40 EC 13 8D 20 |.y@... 15..@... |
00003C80: 34 31 30 3A 89 20 38 32 30 00 00 00 |410:. 820... |
..:.... TIME OF LAST UPDATE JUNE 7/83
AT 21.00 V2.0.N.... V2.0 SUPPORTS
THE PET/CBM AND COMMODORE 64....... BY
BILL DUTFIELD, TORONTO, ONT. 224-0642.
JUNE 1983....(.. ***********************
****************************************
********.F.2.VN.1 :. NOTE:FOR VERSIONS O
F THE WORD PROCESSOR WHICH HAVE THE **
******...<.. ********* QUESTION ON LINE
FEEDS IN THE INITITIATION PROCEDURE****
****...F.. ********* IF THE WORD PROCES
SOR HAS THIS OPTION IN THE ******
**.0.P.. ********* LARGE CONTROL MAP TH
EN SET VN=1 ********
.~.Z.. *********************************
**************************************..
.D.. 930:. Q5$:. 160:. 110:. 2690.P.N..
".";BA$;BX$;".";H(AX$,(CO.C(TE$)).2);TE$
...X.TF$." ":. 770:........5.... *****
**************** INTRODUCTION **********
*********************.;.....E. .. 110.W.
..."..";Q3$;"THIS PROGRAM WILL CREATE AN
D";Q1$;......"MAINTAIN A 'CONFIGURE' FIL
E".H.... Q3$;"ON YOUR WORD PROCESSOR DIS
K.";Q1$;...H.. "THE CONFIGURE FILE AUTOM
ATICALLY".!.R.. Q3$;"ANSWERS THE QUESTIO
NS ASKED IN";Q1$;.M...."SCRIPT 64'S LOAD
ING PROCEDURE. THIS".Z.".. Q3$;"CONFIGU
RE FILE CAN ALSO SET";Q1$;...,.."THE DEF
AULT VALUES IN THE LARGE CONTROL"...6..
Q3$;"MAP.";Q1$;.N.^.. 410:.110...... "..
....PLEASE INSERT YOUR WORD PROCESSOR";Q
1$;......"DISK IN DRIVE 0.".C...TF$."PRE
SS SPACE TO CONTINUE":. 770.Y.... A$:.A$
."" . 420.L.... A$." " . 450.V.... 420.|
.B.....L...J.V.. *********************
COMMERCIAL *****************************
**.P.......... ".";Q4$.....TF$." ":DO.1:
. 770...... CO.40 . 540.O...TF$."JUNE-83
VERSION
2.0":DO.2:. 770.Y.... 550.....TF$."JUNE-
83 VERSION 2.0":DO.2:
. 770...&.TF$." ":. DO.3 . 9:. 770:. DO
...0.TF$."SET CONFIGURE FILE PROGRAM":DO
.9:. 770...:.TF$." ":DO.10:. 770...D.TF$
."FOR":DO.11:. 770.2.N.TF$." ":DO.12:. 7
70.D.X.TF$."RICHVALE TELECOMMUNICATIONS"
:DO.13:. 770.|.B.TF$." ":DO.14:. 770...L
.. CO.40 . 640.H.V.TF$."RTC-4 WORD PROCE
SSING SYSTEMS":DO.15:. 770:. 650.....TF$
."SCRIPT 64 WORD PROCESSING SYSTEMS":DO.
15:. 770.$...TF$." ":. DO.16 . 21:. 770:
. DO.6.... CO.40 . 690.Y...TF$."
BY BILL DUTFIE
LD":DO.22...... 700.....TF$."
BY BILL DUTFIELD":DO.22.D....
770...F.TF$." ":DO.23:. 770...P.. I.1.3
000:.A$:.A$.""..I...Z.DO.23:........S...
. **************** PRINT BOTTOM CONTROL
LINE **********************.Y..........
".";H(DN$,DO);BA$;BX$;".";H(AX$,(CO.C(TF
$)).2);TF$............... .. ***********
************ TERMINATION ***************
**************...*.....4..".............
........GOOD BYE":....>...A.H.. ********
********* ERROR MESSAGE ROUTINE ********
*****************.G.R.....\..".":. J.1 .
10:IM$.". ":.(J.(.(J.2).2)).0 . IM$."..
"...F.. IM$;EM$(M).K.P.. I.1 . 200:. I:
. J.Q.Z...W.......... ******************
*** INITIALIZATION ROUTINE *************
*******.%....._...CO.80:Q1$.G(32):Q3$.G(
13):Q4$.G(142):Q5$.G(14):Q2$.""...... B(
44).8 . CO.40:.53280,14:.53281,6:."."...
... HA$(20),HB$(20),HC$(20),ST$(20).X...
. INPUT "HOW MANY COLUMNS";CO...J.. C
O.80 . 990...T.Q1$.G(13):Q3$."":Q2$."
".R...BA$.".
.":.CO.80. BA$.BA$.BA$.....A
X$."....................................
...":AX$.AX$.AX$.Y...BX$."..............
..........................":. CO.80 . BX
$.BX$.BX$.....DN$.".....................
....":DO.23...... 490: . CALL COMERCIAL.
H...SP$."
":. CO.80 . SP$.SP$.SP$.....TE$
."SET CONFIGURE FILE PROGRAM"...$.EM$(1)
."****** ERROR - TRY AGAIN ******".....
EM$(2)."*** ERROR - UNRECOGNIZED CHARACT
ER ***"...8.TP$(1)."BACK SPACING PRINTER
".@.B.TP$(2)."DEAD LETTER OR TYPEWRITER
PRINTER".W.L.PR$(1)."COMMODORE".J.V.PR$(
2)."ASCII"...`.PR$(3)."EPSON/GEMINI-10".
..J.PR$(4)."SPINWRITER"...T.PR$(5)."STAR
WRITER".S.~.PR$(6)."CENTRONICS 739".....
PR$(7)."PRINTER FILE".....H1$."TYPE OF P
RINTER".#...H2$."PRINTER SELECTION".D...
HA$(1)."LEFT MARGIN SETTING".Y...HB$(1).
"0 TO 99".I...HC$(1)."10"...D.HA$(2)."LI
NE WIDTH - CHARACTERS /LINE"...N.HB$(2).
"10 TO 210"...X.HC$(2)."60".U...HA$(3)."
LINE SPACING".....HB$(3)."1 TO 9".....HC
$(3)."1".....HA$(4)."PARAGRAPH SPACING".
+...HB$(4)."1 TO 9".:...HC$(4)."2".]...H
A$(5)."PARAGRAPH INDENTATION".R.(.HB$(5)
."0 TO 99"...2.HC$(5)."0"...<.HA$(6)."LI
NES PER PAGE"...F.HB$(6)."1 TO 999".C.P.
HC$(6)."50"...Z.HA$(7)."RIGHT JUSTIFICAT
ION"...D.HB$(7).".Y.ES OR .N.O"...N.HC$(
7)."Y".;.X.HA$(8)."TOP OF PAGE MARGIN =
TOP BORDER".O...HB$(8)."1 TO 99.^...HC$(
8)."2".....HA$(9)."STARTING PAGE NUMBER"
... .HB$(9)."0 TO 999".....HC$(9)."1".S.
..HA$(10)."PRINT PAGE NUMBER ON FIRST PA
GE".....HB$(10).".Y.ES OR .N.O"...H.HC$(
10)."N".".R.HA$(11)."PAGE NUMBER POSITIO
N".W...HB$(11).".L.EFT,.R.IGHT,.C.ENTER
OR .A.LTERNATE".G...HC$(11)."C".....HA$(
12)."POSITION OF PAGE NUMBER".....HB$(12
).".T.OP OR .B.OTTOM".....HC$(12)."B"...
..HA$(13)."SIZE OF PAPER IN INCHES".....
HB$(13)."1 TO 99"...".HC$(13)."11"./.,.H
A$(14)."PRINTED LINES PER INCH".D.6.HB$(
14)."6 OR 8".T.@.HC$(14)."6".|.J.HA$(15)
."CHARACTERS PER INCH/PITCH"...T.HB$(15)
."5,8,10,12 AND 16"...^.HC$(15)."10"...H
.. VN.0 . 1690...R.HA$(16)."SEND LINE FE
EDS TO PRINTER"...|.HB$(16).".Y.ES OR .N
.O".....HC$(16)."N"...... 1720.I...HA$(1
6)."DOT SPACES - CENTRONICS ONLY".^...HB
$(16)."1 TO 9".N...HC$(16)."2".....HA$(1
7)."ROUGH DRAFT"...B.HB$(17).".Y.ES OR .
N.O"...L.HC$(17)."N".Q.V.HA$(18)."TITLE
POSITION".....HB$(18).".L.EFT,.R.IGHT,.C
.ENTER OR .A.LTERNATE".....HC$(18)."C".6
...HA$(19)."POSITION OF TITLE".V...HB$(1
9).".T.OP OR .B.OTTOM".F...HC$(19)."T"..
...HA$(20)."PRINTER END-OF-PAGE PAUSE"..
...HB$(20).".Y.ES OR .N.O".M.&.HC$(20)."
Y":.CO.40.HC$(20)."N"...+.ME$." AND 'RET
URN'"...0.....:...9.D.. ****** PRINT ROU
TINE FOR BUILDING THE LARGE CONTROL MAP
*********.?.N...J.X.. 110:."...* CONTRO
L MAP ELEMENT #";X...B.." ===> ";HA$(X
)...L..".* ACCEPTABLE VALUES ARE"...V..
" ===> ";HB$(X).S....".* DEFAULT VALU
E "......" ===> ";HC$(X)......"....ENT
ER VALUE";MA$;" OR";Q1$;.;...."JUST 'RET
URN' TO ACCEPT THE DEFAULT".T.... Q3$;"V
ALUE ===>";.Z.....`.......F.. *********
** SUBROUTINE TO INPUT A NUMERIC STRING
**************...P.....Z.P$."".Q....Q.1.
P3:.".";:.Q:.".";......Q.1.P3.1:.".";:.Q
......A$:.A$."".2040......A$.G(13).2180.
"....A$.G(20).2080.,....2120.<. ..P$."".
2040.U.*..C(P$).1.P$."":.2110.J.4.P$.H(P
$,C(P$).1).}.>.A$."...":.2160...H..A$."0
".2040...R..A$."9".2040...\..C(P$).P3.21
90...F.P$.P$.A$.H.P..A$;.R.Z..2040......
P$."" . P$.HC$(X):.2200......C(P$).P4..2
040.....V1.E(P$).............B....******
******** INTERPRET YES/NO ANSWERS ******
******************.H.....X.J..".";:.".";
...T..P$:. P$."" . 2260...... P$.G(13) .
P$.HC$(X).I.... P$."Y" . A$.G(25):. 231
0...... P$."N" . A$.G(14):. 2310.....F.1
:. UNSATISFACTORY CHARACTER ENTERED.....
........G....************** INTERPRET TO
P/BOTTOM ANSWERS **********************.
M.$...}....".";:.".";...8..P$:. P$."" .
2360...B.. P$.G(13) . P$.HC$(X).N.L.. P$
."T" . A$.G(20):. 2410...V.. P$."B" . A$
.G(2):. 2410...`.F.1:. UNSATISFACTORY CH
ARACTER ENTERED...J...#.T...J.~..*******
******* INTERPRET L,R,C,A ANSWERS ******
******************.P..........".";:.".";
......P$:. P$."" . 2460...... P$.G(13) .
P$.HC$(X).Q.... P$."L" . A$.G(12):. 253
0...... P$."R" . A$.G(18):. 2530.. D.. P
$."C" . A$.G(3):. 2530., N.. P$."A" . A$
.G(1):. 2530.W X.F.1:. UNSATISFACTORY CH
ARACTER ENTERED.] ....C ..... ... ******
********* INTERPRET CHR$ CODES *********
******************.. ....E ... A.1 . AA$
." A".Z ... A.2 . AA$." B".. ... A.3 . A
A$." C"..!(.. A.12 . AA$." L"..!2.. A.14
. AA$." N".1!<.. A.18 . AA$." R".G!F..
A.20 . AA$." T".]!P.. A.25 . AA$." Y".C!
Z...I!D....!N.. *************** CONFIGUR
ATOR ROUTINES **************************
*..!X...T!..."...... SELECT OPTION"..!.
..". .1.) CREATE NEW CONFIGURE FILE.".-"
...". .2.) READ AND INTERPRET EXISTING F
ILE.".[" ..". .3.) SCRATCH CURRENT CONFI
GURE FILE.".}"..TF$."ENTER 1 OR 2 OR 3":
. 770.."... A$:. A$."" . 2740.D"... A$."
1" . A$."3" . M.1:. 860:. 110:. 2690.N"H
.. 110.."R.. A$."2" . 4210.."... A$."3"
. 5030.."..M.1..#....K#... ******** ASK
QUESTIONS TO CREATE THE 'CONFIGURE' FILE
**********.Q#.....#..."...... SELECT O
PTION FOR 'CONFIGURE' FILE..#...". .1.)
ANSWER .ONLY. THOSE QUESTIONS";Q1$;.X#".
. Q2$;" ASSOCIATED WITH LOADING"..#,.. "
THE WORD PROCESSOR.".*$6..". .2.) BU
ILD .ONLY. CUSTOMIZED CONTROL MAP".Q$@..
". .3.) COMPLETE .BOTH. SECTIONS".S$J.TF
$."ENTER 1 OR 2 OR 3":. 770..$T.. DA$: .
DA$."" . 2900..$^.. DA$."1" . DA$."3" .
. 860:. 110:. 2830.P$H.. DA$."2" . 3410
..%R.FL$."":. 110:."......DO YOU WANT TH
E FRENCH LANGUAGE MODE?".6%|..".. PLEASE
ANSWER .Y.ES OR .N.O".N%... A$:. A$.""
. 2950.K%... A$."N" . FL$."":. 3070..%..
. A$.."Y" . . 860:.110:.2830..%..FL$."F"
..%... 110:. "...... ";H1$.L%...". .1
.) ";TP$(1)..%B..". .2.) ";TP$(2)..&L.
.". SELECT ONE OF THE ABOVE". &V.. A
$:. A$."" . 3030.I&... A$."1" . A$."2" .
FL$.FL$.A$:.3070.S&... 860.`&..K . 2990
.X&... 110:.".. ";H2$..&... I.1 . 7:.
". .";I;".) ";PR$(I):. I.K&...".. SEL
ECT ONE OF THE ABOVE (1-7)"..&... A$:. A
$."" . 3100..'&.. A$."1" . A$."7" . . 86
0:. 110:.3070..'/.FL$.FL$.A$.-'0..CO..40
.3130.@'1..110:."......".Q'2.. "PRINTER:
PARALLEL, SERIAL, IEEE (P/S/I)."..'3..
A$:. A$."" . 3123..'4.. A$."P".A$."S".A$
."I".3126..'5.. 860:.3121.H'6.FL$.FL$.A$
..':.. VN..0 . 3200..'D.. 110:. "......"
..(N.. "SEND LINE FEEDS TO THE PRINTER (
Y/N).".6(X.. A$:. A$."" . 3160.J(B.. A$.
"N" . 3190.F(L.. A$.."Y" . . 860:.3140.U
(V.FL$.FL$.A$..(... 110:. "......"..(...
"IS THIS A NEW DATA DISK ('Y' OR 'N')."
..(... ".THE USUAL ANSWER TO THIS QUESTI
ON IS 'N'"..)... ".IF YOU WISH TO LEAVE
THIS TO";Q1$;.=)... "BE COMPLETED ON STA
RT-UP OF THE".J)... Q3$;"WORD PROCESSOR,
THAT IS, NO";Q1$;..)... "DEFAULT VALUE
SUPPLIED, THEN"..)F.. Q3$;"ENTER '*'"..)
P.. A$:. A$."" . 3280.Q)Z.. A$."N" . 336
0..)... A$."*" . A$."":.3360..*... A$.."
Y" . . 860:.3200.!*... "..ARE YOU SURE ?
".9*... A$:. A$."" . 3330.M*... A$."Y" .
3360..*... A$.."N".. 860:. 110:."...LET
'S TRY THIS AGAIN":.3210..* .FL$.FL$.A$.
.**.. DA$."1" . 4140..*4....*>.. *******
***************** BUILD LARGE CONTROL MA
P *****************..+H....+R.ST$(0)."C"
.$+\.. X.1 . 20:X1.X.@+F.. X.10 . X1.X.1
0:. 3460.}+P.. X1 . 3490,3510,3540,3570,
3600,3630,3660,3690,3720,3750..+Z.. 3470
.E+... X1 . 3780,3810,3840,3870,3900,394
0,4010,4040,4070,4100.M+... X.X+... 4130
..+..MA$.ME$:. 1880:. MARGIN #1..,..P3.
2:P4.1:. 2010:ST$(X).G(V1):..>,..MA$.ME$
:. 1880:. CHAR/LINE #2.Q,..P3.3:P4.2:. 2
010:. V1.210 . . 860:. 110:. 3510..,J.ST
$(X).G(V1):...,T.MA$.ME$:. 1880:. LINE S
PACING #3.Z,..P3.1:P4.1:. 2010:. V1.0 .
. 860:. 110:. 3540..,..ST$(X).G(V1):...-
..MA$.ME$:. 1880:. PARA SPACING #4.C-..P
3.1:P4.1:. 2010:. V1.0 . . 860:. 110:. 3
570.V-..ST$(X).G(V1):..Z-..MA$.ME$:. 188
0:. PARA INDENT #5..-..P3.2:P4.1:.2010..
-$.ST$(X).G(V1):..D-..MA$.ME$:. 1880:. L
INES/PAGE #6..-8.P3.3:P4.1:.2010:. V1.1
. . 860:. 110:. 3630...B.ST$(X).G(V1):..
2.L.MA$."":. 1880:. RIGHT JUSTIFY (Y/N)
#7.].V.F.0:. 2250:. F..0 . . 860:. 110:.
3660.M.`.ST$(X).A$:....J.MA$.ME$:. 1880
:. TOP BORDER #8...T.P3.2:P4.1:. 2010...
~.ST$(X).G(V1):......MA$.ME$:. 1880:. ST
ARTING PAGE NUMBER #9.....P3.3:P4.1:. 20
10../..ST$(X).G(V1):..?/..MA$."":. 1880:
. PRINT FIRST PAGE# ? (Y/N) #10.J/..F.0:
. 2250:. F..0 . . 860:. 110:. 6065.Z/..S
T$(X).A$:.../D.MA$."":. 1880:. POSITION
OF PAGE NUMBER (L,R,C,A) #11../N.F.0:. 2
450:. F..0 . . 860: . 110:. 3780../X.ST$
(X).A$:..%0..MA$."":. 1880:. POSITIN OF
PAGE NUMBER (T,B) #12.P0..F.0:. 2350:. F
..0 . . 860:. 110:. 3810.`0..ST$(X).A$:.
..0..MA$.ME$:. 1880:. PAGE SIZE #13..0..
P3.2:P4.1:. 2010..0..ST$(X).G(V1):..O0..
MA$.ME$:. 1880:. LINES/INCH #14..1(.P3.1
:P4.1:. 2010:. V1.6 . . 860:. 110:. 3870
..12.ST$(X).G(V1):..21<.MA$.ME$:. 1880:.
PITCH #15.G1F.P3.2:P4.1:. 2010.O1P.. V1
.5 . V1.16 . . 860:. 110:. 3900..1Z.ST$(
X).G(V1):...1D.. VN.0 . 3980..1N.MA$."":
. 1880:. LINE FEED (Y/N) #16-NEW..1X.F.0
:. 2250:. F..0 . . 860:. 110:. 3940..1..
ST$(X).A$:..#2..MA$.ME$:. 1880:. DOT SPA
CES #16-OLD.T2..P3.1:P4.1:. 2010:. V1.0
. . 860:. 110:. 3980.G2 .ST$(X).G(V1):..
.2..MA$."":. 1880:. ROUGH DRAFT (Y/N) #1
7..2..F.0:. 2250:. F..0 . . 860:. 110:.
4010.L2..ST$(X).A$:...3H.MA$."":. 1880:.
POSITION OF TITLE (L,R,C,A) #18.+3R.F.0
:. 2450:. F..0 . . 860:. 110:. 4040.;3..
ST$(X).A$:..K3..MA$."":. 1880:. POSITION
OF TITLE (T,B) #19..3..F.0:. 2350:. F..
0 . . 860:. 110:. 4070..3..ST$(X).A$:...
3..MA$."":. 1880:. PRINTER END OF PAGE P
AUSE (Y/N) #20..4..F.0:. 2250:. F..0 . .
860:. 110:. 4100..4..ST$(X).A$:..L4"..
110:. "...... THAT COMPLETES THE QUESTIO
NS.".{4,.."..I WILL NOW BUILD THE 'CONFI
GURE' FILE"..46.QU$."":. ST$(0)."C" . .
X.0 . 20:QU$.QU$.ST$(X):. X..4@.QU$.QU$.
G(0)." ":. FL$.."" . QU$.QU$.FL$..5J.. 2
,8,2,"@0:CONFIGURE,S,W":.2,QU$: 2..5T..
.W5^.. *** READ FILE FROM DISK IF PRESEN
T AND INTERPRET FOR DISPLAY ***.]5H...V5
R.FL$."":. 15,8,15:G.0..5|.. 2,8,2,"0:CO
NFIGURE,S,R"..5...15,EN,EM$,ET,ES.T5...
EN.62 . .".....";EM$: 15: 2:. 5100..5.
..#2,A$:. A$.."C" . G.1:. 4320..6..ST$(0
)."C"..6...X.1 . 20:.06...#2,A$:. A$."".
A$.G(0).>6B.ST$(X).A$.M6L.. X:.#2,A$.G6
V..#2,A$:. A$."" . 4360.{6... A$." " . 4
310..6... A$.G(13) . 4360. 6..FL$.FL$.A$
..6... 4310..6.. 2: 15:CA.0.T6... FL$.
"" . DA$."2"..6... G.1 . 4600..6... DA$.
"1". 4600.07&.. 110:."..********** LARGE
CONTROL MAP **********".M70.. I.1 . 39:
. "=" ;:. I:..C7:..X.1 . 20:A$.D(X).|7D.
A.F(ST$(X)):AA$.D(A)..7N.. VN.0 . X.16 .
4450.D7X.. X.7 . X.10 . X.11 . X.12 . X
.15 . . 2570..7B.. A$;")";HA$(X);H(AX$,3
5.C(HA$(X).A$." "));AA$..7L.. X.(8V.TF$.
"ARE THESE VALUES CORRECT":. 770.@8... A
$:. A$."" . 4480.T8... A$."Y" . 4580.I8.
.. A$.."N" . 4480..8..TF$."WHICH ONE DO
YOU WANT TO CHANGE":. 770.K8...".";H(AX$
,CO.5);:P3.2:P4.1:. 2010:X.V1:X1.V1..8..
. X.10 . X1.X.10:. 4560.$9... X1 . 3490,
3510,3540,3570,3600,3630,3660,3690,3720,
3750./9F.. 4570.L9P.. X1 . 3780,3810,384
0,3870,3900,3940,4010,4040,4070,4100.~9Z
.CA.CA.1:.4390..9... CA..0 . . 110:."...
.....":. 4140..9... DA$."2" . 820.U9..CH
.1:A$.J(FL$,CH,1):M.2..9... 110:. "...IN
ITIALIZATION OPTIONS"..:... "===========
===========".I:... ".'CONFIGURE': OPTION
S ON DISK = ";FL$.^: .. A$.."F" . 4710..
:*.. ".";A$;" - FRENCH LANGUAGE MODE"..
:4.CH.2:A$.J(FL$,CH,1).E:>.. A$.."1" . A
$.."2" . . 860:. 4910..:H.. ".";A$;" - "
;H1$:A.E(A$)..:R.. " = ";TP$(A)..;\.CH
.3:A$.J(FL$,CH,1).6;F.. A$."1" . A$."7"
. . 860:. 4910.L;P..".";A$;" - ";H2$.C;Z
.." = "PR$(E(A$)).T;{..CO..40.4740..;|
.CH.CH.1:A$.J(FL$,CH,1)..;}..".PARALLEL,
SERIAL, IEEE - "A$.F;... VN..0 . 4790..
;..CH.CH.1:A$.J(FL$,CH,1)..<... A$.."Y"
. A$.."N" . . 860:. 4910.A<... A$."Y" .
. ".";A$;" - SEND LINE FEEDS TO PRINTER
"..<... A$."N" . . ".";A$;" - DO NOT SE
ND LINE FEEDS TO PRINTER"..<..CH.CH.1:A$
.J(FL$,CH,1):. A$."" . A$."*":. 4830..<.
.. A$.."N" . A$.."Y" . . 860:. 4910..=J.
. A$."N" . . ".";A$;" - DO NOT FORMAT TH
E DATA DISK":. 4850.I=T.. ".";A$;" - FOR
MAT THE DATA DISK":. 4850.N=... ". - NO
DEFAULT SUPPLIED TO "..=... " 'IS TH
IS A NEW DATA DISK'"..=..TF$."IS THIS CO
RRECT ? ":. 770.O=... A$:. A$."" . 4860.
.=... A$."Y" . 820..=... A$.."N" . 4860.
0>... 110:. "........... LET'S GO TO THE
SET-UP ROUTINE".O>$.. 410:. 110:DA$."1"
:. 2930.U>.....>8.. ***************** ER
ROR REPORTING ROUTINE ******************
******..>B...E>L.. 110:."..... .SOR
RY.."..>V.."ERROR DETECTED IN INTERPRETI
NG";Q1$;..?`.."THE 'CONFIGURE' FILE FOR
THE ".B?J.. Q3$;"INITIATION SEQUENCE OF
RESPONSES".L?T..".SUGGEST THAT YOU REBUI
LD THE FILE".|?~.. 410:. 820..?....I?...
********************* SCRATCH DATA SET
*************************.O?.....?... 15
,8,15..?...15,"S0:CONFIGURE"..@...15,EN,
EM$,ET,ES..@D.. "......".D@N.. ET.0 . .
"'CONFIGURE' FILE NOT FOUND".P@X.. ET.1
. . "'CONFIGURE' FILE SCRATCHED".Y@.. 1
5..@... 410:. 820...
> CLICK IMAGE PREVIEW FOR FULL MODAL