REPORT WRITER

00000000: 01 04 15 04 00 00 8F 20  35 2F 31 30 2F 38 30 20  |....... 5/10/80 |
00000010: 20 39 3A 32 30 00 20 04  01 00 89 20 31 31 30 30  | 9:20. .... 1100|
00000020: 00 61 04 02 00 9F 20 31  35 2C 38 2C 31 35 2C 22  |.a.... 15,8,15,"|
00000030: 49 30 22 3A 98 31 35 2C  22 53 30 3A 52 45 50 4F  |I0":.15,"S0:REPO|
00000040: 52 54 20 57 52 49 54 45  52 22 3A 94 22 30 3A 52  |RT WRITER":."0:R|
00000050: 45 50 4F 52 54 20 57 52  49 54 45 52 22 2C 38 3A  |EPORT WRITER",8:|
00000060: 80 00 8A 04 03 00 99 22  43 4F 52 52 45 43 54 49  |......."CORRECTI|
00000070: 4F 4E 53 3F 28 12 59 92  2F 12 4E 92 29 22 3A 47  |ONS?(.Y./.N.)":G|
00000080: 31 24 B2 22 59 4E 22 3A  89 35 00 A5 04 04 00 9F  |1$."YN":.5......|
00000090: 20 34 2C 34 3A 9D 34 3A  98 34 2C C7 28 31 35 29  | 4,4:.4:.4,.(15)|
000000A0: 3A 9D 34 3A 9B 00 CF 04  05 00 A1 47 24 3A 81 56  |:.4:.......G$:.V|
000000B0: B2 31 A4 C3 28 47 31 24  29 3A 8B 47 24 B3 B1 CA  |.1..(G1$):.G$...|
000000C0: 28 47 31 24 2C 56 2C 31  29 A7 82 56 3A 89 35 00  |(G1$,V,1)..V:.5.|
000000D0: D5 04 06 00 8E 00 F1 04  08 00 84 4B 4B 28 56 4F  |...........KK(VO|
000000E0: 29 2C 45 2C 45 24 2C 53  2C 54 3A 8B 45 B3 32 A7  |),E,E$,S,T:.E.2.|
000000F0: 8E 00 0C 05 09 00 99 22  44 49 53 4B 20 45 52 52  |......."DISK ERR|
00000100: 4F 52 3A 22 45 3B 45 24  3B 53 3B 54 00 2A 05 0A  |OR:"E;E$;S;T.*..|
00000110: 00 99 22 11 12 52 92 45  41 44 59 3F 22 3A 47 31  |.."..R.EADY?":G1|
00000120: 24 B2 22 52 22 3A 8D 35  3A 8E 00 35 05 0B 00 8F  |$."R":.5:..5....|
00000130: 20 4D 41 49 4E 00 42 05  0D 00 8F 20 53 45 54 20  | MAIN.B.... SET |
00000140: 55 50 00 4D 05 0F 00 8F  20 4C 4F 41 44 00 58 05  |UP.M.... LOAD.X.|
00000150: 11 00 8F 20 53 41 56 45  00 65 05 29 00 8F 20 43  |... SAVE.e.).. C|
00000160: 48 41 4E 47 45 00 70 05  2C 00 8F 20 59 45 53 3F  |HANGE.p.,.. YES?|
00000170: 00 81 05 30 00 8F 20 41  53 4B 20 4E 55 4D 42 45  |...0.. ASK NUMBE|
00000180: 52 00 91 05 35 00 8F 20  4F 50 45 4E 20 46 4F 52  |R...5.. OPEN FOR|
00000190: 4D 00 A2 05 38 00 8F 20  47 45 54 20 4C 4F 4F 4B  |M...8.. GET LOOK|
000001A0: 55 50 00 B2 05 3D 00 8F  20 50 52 49 4E 54 20 52  |UP...=.. PRINT R|
000001B0: 45 50 00 C7 05 3E 00 8F  20 53 55 42 2C 20 43 4F  |EP...>.. SUB, CO|
000001C0: 4D 42 20 45 52 52 3F 00  D3 05 41 00 8F 20 52 41  |MB ERR?...A.. RA|
000001D0: 4E 47 45 00 E0 05 42 00  8F 20 57 44 20 4F 4B 3F  |NGE...B.. WD OK?|
000001E0: 00 EB 05 5B 00 8F 20 45  58 49 54 00 F8 05 61 00  |...[.. EXIT...a.|
000001F0: 8F 20 43 48 41 4E 47 45  00 03 06 4C 04 8F 20 4D  |. CHANGE...L.. M|
00000200: 41 49 4E 00 1C 06 4D 04  8B 20 4C 49 B3 32 35 33  |AIN...M.. LI.253|
00000210: 20 A7 20 97 20 49 56 2C  4C 49 AA 33 00 2F 06 4E  | . . IV,LI.3./.N|
00000220: 04 8B 20 50 44 B3 B1 31  20 A7 20 31 31 30 35 00  |.. PD..1 . 1105.|
00000230: 68 06 4F 04 3A 9E 4D 4C  AB 34 34 3A 8B C2 28 42  |h.O.:.ML.44:..(B|
00000240: 37 AA 38 29 B2 30 A7 20  99 22 93 50 52 45 53 53  |7.8).0. .".PRESS|
00000250: 20 53 54 4F 50 20 4F 4E  20 43 41 53 53 45 54 54  | STOP ON CASSETT|
00000260: 45 22 3A 89 31 31 30 33  00 7C 06 51 04 8D 20 31  |E":.1103.|.Q.. 1|
00000270: 32 30 30 3A 8F 20 53 45  54 20 55 50 00 9F 06 55  |200:. SET UP...U|
00000280: 04 99 22 93 20 20 20 20  20 20 20 20 20 20 20 20  |..".            |
00000290: 20 12 52 45 50 4F 52 54  20 57 52 49 54 45 52 00  | .REPORT WRITER.|
000002A0: B5 06 56 04 99 22 11 12  4C 92 4F 41 44 20 46 4F  |..V.."..L.OAD FO|
000002B0: 52 4D 41 54 22 00 DD 06  58 04 99 22 11 12 43 92  |RMAT"...X.."..C.|
000002C0: 48 41 4E 47 45 2C 20 43  52 45 41 54 45 2C 20 49  |HANGE, CREATE, I|
000002D0: 4E 53 50 45 43 54 20 46  4F 52 4D 41 54 00 F3 06  |NSPECT FORMAT...|
000002E0: 5A 04 99 22 11 12 53 92  41 56 45 20 46 4F 52 4D  |Z.."..S.AVE FORM|
000002F0: 41 54 22 00 09 07 5C 04  99 22 11 12 50 92 52 49  |AT"...\.."..P.RI|
00000300: 4E 54 20 52 45 50 4F 52  54 00 28 07 5E 04 99 22  |NT REPORT.(.^.."|
00000310: 11 12 5E 92 20 52 45 54  55 52 4E 20 54 4F 20 46  |..^. RETURN TO F|
00000320: 49 4C 45 20 4D 45 4E 55  00 5A 07 60 04 47 31 24  |ILE MENU.Z.`.G1$|
00000330: B2 22 4C 43 53 50 5E 22  3A 8D 35 3A 91 20 56 20  |."LCSP^":.5:. V |
00000340: 8D 20 31 35 30 30 2C 39  37 30 30 2C 31 37 30 30  |. 1500,9700,1700|
00000350: 2C 36 31 30 30 2C 39 31  30 30 00 74 07 AF 04 81  |,6100,9100.t....|
00000360: 20 58 B2 31 A4 31 30 3A  A1 47 24 3A 82 58 3A 89  | X.1.10:.G$:.X:.|
00000370: 31 31 30 39 00 81 07 B0  04 8F 20 53 45 54 20 55  |1109...... SET U|
00000380: 50 00 A2 07 D3 04 52 31  B2 31 3A 52 32 B2 48 52  |P.....R1.1:R2.HR|
00000390: 3A 8B 20 4E 32 24 B2 22  22 A7 20 4E 32 24 B2 4E  |:. N2$."". N2$.N|
000003A0: 41 24 00 CB 07 D8 04 81  58 B2 30 20 A4 20 4D 44  |A$......X.0 . MD|
000003B0: 3A 81 20 59 B2 30 20 A4  20 44 45 3A 43 54 28 58  |:. Y.0 . DE:CT(X|
000003C0: 2C 59 29 B2 30 3A 82 20  59 2C 58 00 EB 07 13 05  |,Y).0:. Y,X.....|
000003D0: 48 4C B2 30 3A 8E 3A 8F  20 48 4C 20 41 4C 53 4F  |HL.0:.:. HL ALSO|
000003E0: 20 3D 20 48 4D 20 4C 49  4E 45 53 00 F6 07 DC 05  | = HM LINES.....|
000003F0: 8F 20 4C 4F 41 44 00 14  08 E1 05 58 31 24 B2 22  |. LOAD.....X1$."|
00000400: 52 22 3A 8D 20 35 33 30  30 3A 8B 20 45 20 A7 20  |R":. 5300:. E . |
00000410: 31 35 37 30 00 2D 08 E6  05 84 20 53 45 2C 20 48  |1570.-.... SE, H|
00000420: 43 2C 48 53 2C 48 48 2C  48 4F 2C 57 50 00 4A 08  |C,HS,HH,HO,WP.J.|
00000430: EB 05 84 20 53 45 2C 43  50 25 28 30 29 2C 20 50  |... SE,CP%(0), P|
00000440: 57 2C 20 4C 53 2C 20 4E  53 24 00 81 08 F0 05 84  |W, LS, NS$......|
00000450: 20 53 45 2C 20 50 44 2C  20 20 20 4C 50 2C 20 20  | SE, PD,   LP,  |
00000460: 20 20 58 24 2C 20 20 50  50 2C 20 20 20 4B 52 2C  |  X$,  PP,   KR,|
00000470: 20 20 20 48 54 2C 20 20  20 20 48 4C 2C 20 20 57  |   HT,    HL,  W|
00000480: 4B 00 8E 08 F5 05 81 58  B2 31 A4 20 48 43 00 D4  |K......X.1. HC..|
00000490: 08 FA 05 3A 84 20 53 45  2C 20 43 50 25 28 58 29  |...:. SE, CP%(X)|
000004A0: 2C 20 46 4C 25 28 58 29  2C 20 4C 44 25 28 58 29  |, FL%(X), LD%(X)|
000004B0: 2C 20 52 44 25 28 58 29  2C 20 54 31 24 28 58 29  |, RD%(X), T1$(X)|
000004C0: 2C 20 54 32 24 28 58 29  2C 41 52 25 28 58 29 20  |, T2$(X),AR%(X) |
000004D0: 3A 82 20 58 00 0A 09 FF  05 81 20 58 B2 31 20 A4  |:. X...... X.1 .|
000004E0: 20 48 53 3A 84 20 53 45  2C 53 41 25 28 58 29 2C  | HS:. SE,SA%(X),|
000004F0: 53 45 25 28 58 29 2C 20  53 42 24 28 58 29 2C 20  |SE%(X), SB$(X), |
00000500: 53 4C 25 28 58 29 3A 82  20 58 00 29 09 04 06 81  |SL%(X):. X.)....|
00000510: 20 58 B2 31 20 A4 20 48  48 3A 84 20 53 45 2C 48  | X.1 . HH:. SE,H|
00000520: 4C 24 28 58 29 3A 82 20  58 00 5C 09 09 06 81 20  |L$(X):. X.\.... |
00000530: 58 B2 31 20 A4 20 48 4F  3A 84 20 53 45 2C 4F 41  |X.1 . HO:. SE,OA|
00000540: 24 28 58 29 2C 20 4F 42  24 28 58 29 2C 20 4F 4F  |$(X), OB$(X), OO|
00000550: 24 28 58 29 2C 20 4F 43  24 28 58 29 00 65 09 0E  |$(X), OC$(X).e..|
00000560: 06 3A 82 20 58 00 93 09  13 06 81 58 B2 30 A4 20  |.:. X......X.0. |
00000570: 31 30 3A 84 53 45 2C 43  48 25 28 58 29 2C 20 20  |10:.SE,CH%(X),  |
00000580: 4C 52 25 28 58 29 2C 20  20 20 4C 54 24 28 58 29  |LR%(X),   LT$(X)|
00000590: 3A 82 58 00 C2 09 18 06  84 53 45 2C 50 31 2C 53  |:.X......SE,P1,S|
000005A0: 52 2C 41 43 2C 20 58 2C  58 2C 43 53 2C 44 46 2C  |R,AC, X,X,CS,DF,|
000005B0: 41 53 3A 47 4C B2 48 4C  3A 8F 20 47 45 54 20 4C  |AS:GL.HL:. GET L|
000005C0: 55 3F 00 CD 09 22 06 A0  20 53 45 3A 8E 00 D8 09  |U?...".. SE:....|
000005D0: A4 06 8F 20 53 41 56 45  00 F8 09 A9 06 58 31 24  |... SAVE.....X1$|
000005E0: B2 22 57 22 3A 8D 20 35  33 30 30 3A 8B 20 45 20  |."W":. 5300:. E |
000005F0: A7 20 A0 20 53 45 3A 8E  00 29 0A AE 06 98 20 53  |. . SE:..).... S|
00000600: 45 2C 20 48 43 3B 52 24  20 48 53 3B 52 24 20 48  |E, HC;R$ HS;R$ H|
00000610: 48 3B 52 24 20 48 4F 3B  52 24 20 57 50 3B 52 24  |H;R$ HO;R$ WP;R$|
00000620: 3B 20 20 3A 8F 20 31 2D  35 00 59 0A B3 06 98 20  |;  :. 1-5.Y.... |
00000630: 53 45 2C 20 43 50 25 28  30 29 52 24 20 50 57 3B  |SE, CP%(0)R$ PW;|
00000640: 52 24 20 4C 53 3B 52 24  20 4E 53 24 3B 52 24 3B  |R$ LS;R$ NS$;R$;|
00000650: 20 20 20 3A 8F 20 36 2D  39 00 9E 0A B8 06 98 20  |   :. 6-9...... |
00000660: 53 45 2C 20 50 44 3B 52  24 20 4C 50 3B 52 24 20  |SE, PD;R$ LP;R$ |
00000670: 20 58 24 52 24 20 50 50  3B 52 24 20 4B 52 3B 52  | X$R$ PP;R$ KR;R|
00000680: 24 20 48 54 3B 52 24 3B  20 48 4C 3B 52 24 3B 20  |$ HT;R$; HL;R$; |
00000690: 57 4B 3B 52 24 3B 3A 8F  20 31 30 2D 31 37 00 C4  |WK;R$;:. 10-17..|
000006A0: 0A BD 06 81 58 B2 31 A4  20 48 43 3A 98 20 53 45  |....X.1. HC:. SE|
000006B0: 2C 20 43 50 25 28 58 29  52 24 20 46 4C 25 28 58  |, CP%(X)R$ FL%(X|
000006C0: 29 52 24 3B 00 01 0B C2  06 3A 98 20 53 45 2C 20  |)R$;.....:. SE, |
000006D0: 4C 44 25 28 58 29 52 24  20 52 44 25 28 58 29 52  |LD%(X)R$ RD%(X)R|
000006E0: 24 20 54 31 24 28 58 29  52 24 20 54 32 24 28 58  |$ T1$(X)R$ T2$(X|
000006F0: 29 52 24 20 41 52 25 28  58 29 52 24 3B 3A 82 20  |)R$ AR%(X)R$;:. |
00000700: 58 00 3E 0B C7 06 81 20  58 B2 31 A4 20 48 53 3A  |X.>.... X.1. HS:|
00000710: 98 20 53 45 2C 20 53 41  25 28 58 29 52 24 20 53  |. SE, SA%(X)R$ S|
00000720: 45 25 28 58 29 52 24 20  53 42 24 28 58 29 52 24  |E%(X)R$ SB$(X)R$|
00000730: 20 53 4C 25 28 58 29 52  24 3B 3A 82 20 58 00 65  | SL%(X)R$;:. X.e|
00000740: 0B C9 06 81 20 58 B2 31  20 A4 20 48 48 3A 8B 20  |.... X.1 . HH:. |
00000750: 48 4C 24 28 58 29 B2 22  22 A7 20 48 4C 24 28 58  |HL$(X)."". HL$(X|
00000760: 29 B2 22 20 22 00 80 0B  CC 06 3A 98 20 53 45 2C  |)." ".....:. SE,|
00000770: 51 24 20 48 4C 24 28 58  29 52 24 3B 3A 82 20 58  |Q$ HL$(X)R$;:. X|
00000780: 00 C1 0B D1 06 81 20 58  B2 31 A4 20 48 4F 3A 98  |...... X.1. HO:.|
00000790: 20 53 45 2C 51 24 20 4F  41 24 28 58 29 52 24 51  | SE,Q$ OA$(X)R$Q|
000007A0: 24 20 4F 42 24 28 58 29  52 24 51 24 20 4F 4F 24  |$ OB$(X)R$Q$ OO$|
000007B0: 28 58 29 52 24 51 24 20  4F 43 24 28 58 29 52 24  |(X)R$Q$ OC$(X)R$|
000007C0: 3B 00 C9 0B D6 06 3A 82  58 00 FC 0B DB 06 81 58  |;.....:.X......X|
000007D0: B2 30 A4 20 31 30 3A 98  53 45 2C 20 43 48 25 28  |.0. 10:.SE, CH%(|
000007E0: 58 29 52 24 20 4C 52 25  28 58 29 52 24 51 24 20  |X)R$ LR%(X)R$Q$ |
000007F0: 4C 54 24 28 58 29 52 24  3B 3A 82 58 00 3C 0C E0  |LT$(X)R$;:.X.<..|
00000800: 06 98 53 45 2C 20 50 31  3B 52 24 3B 20 53 52 3B  |..SE, P1;R$; SR;|
00000810: 52 24 3B 20 41 43 3B 52  24 3B 20 20 58 3B 52 24  |R$; AC;R$;  X;R$|
00000820: 3B 20 58 3B 52 24 3B 20  43 53 3B 52 24 3B 20 44  |; X;R$; CS;R$; D|
00000830: 46 3B 52 24 3B 20 41 53  3B 52 24 3B 00 47 0C E5  |F;R$; AS;R$;.G..|
00000840: 06 A0 20 53 45 3A 8E 00  6C 0C 94 11 99 58 24 C8  |.. SE:..l....X$.|
00000850: 28 4C 45 24 2C C3 28 58  24 29 29 3B 3A 43 58 B2  |(LE$,.(X$));:CX.|
00000860: 31 3A 8F 20 47 41 52 44  20 49 4E 50 00 9F 0C 99  |1:. GARD INP....|
00000870: 11 4D 24 B2 CA 28 58 24  AA 22 20 22 2C 43 58 2C  |.M$..(X$." ",CX,|
00000880: 31 29 3A 99 22 12 22 4D  24 22 92 9D 22 3B 3A A1  |1):."."M$"..";:.|
00000890: 47 24 3A 8B 47 24 B2 22  22 A7 8D 34 35 36 35 00  |G$:.G$.""..4565.|
000008A0: D2 0C 9E 11 3A 41 B2 C6  28 47 24 29 3A 99 4D 24  |....:A..(G$):.M$|
000008B0: 22 9D 22 3B 3A 8B 28 41  20 AF 20 31 32 37 29 B3  |".";:.(A . 127).|
000008C0: 33 32 B0 43 58 B1 37 37  B0 41 B2 33 34 A7 34 35  |32.CX.77.A.34.45|
000008D0: 32 30 00 07 0D A3 11 3A  20 99 47 24 3B 3A 58 24  |20.....: .G$;:X$|
000008E0: B2 C8 28 58 24 2C 43 58  AB 31 29 AA 47 24 AA CA  |..(X$,CX.1).G$..|
000008F0: 28 58 24 2C 43 58 AA 31  29 3A 43 58 B2 43 58 AA  |(X$,CX.1):CX.CX.|
00000900: 31 3A 89 34 35 30 35 00  31 0D A8 11 3A 8B 41 B2  |1:.4505.1...:.A.|
00000910: 31 35 37 A7 8B 43 58 B1  31 A7 43 58 B2 43 58 AB  |157..CX.1.CX.CX.|
00000920: 31 3A 99 47 24 3B 3A 89  34 35 30 35 3A 8F 20 4C  |1:.G$;:.4505:. L|
00000930: 46 00 5C 0D AD 11 3A 8B  41 B2 32 39 AF 43 58 B3  |F.\...:.A.29.CX.|
00000940: B2 C3 28 58 24 29 A7 43  58 B2 43 58 AA 31 3A 99  |..(X$).CX.CX.1:.|
00000950: 47 24 3B 3A 89 34 35 30  35 3A 52 49 00 72 0D B2  |G$;:.4505:RI.r..|
00000960: 11 3A 8B 41 B2 31 33 A7  34 35 38 30 3A 8F 20 52  |.:.A.13.4580:. R|
00000970: 45 54 00 A7 0D B7 11 3A  8B 41 B2 32 30 A7 8B 43  |ET.....:.A.20..C|
00000980: 58 B1 31 A7 99 47 24 3B  3A 58 24 B2 C8 28 58 24  |X.1..G$;:X$..(X$|
00000990: 2C 43 58 AB 32 29 AA CA  28 58 24 2C 43 58 29 3A  |,CX.2)..(X$,CX):|
000009A0: 43 58 B2 43 58 AB 31 00  C2 0D BC 11 3A 8B 41 B2  |CX.CX.1.....:.A.|
000009B0: 31 34 38 AF C3 28 58 24  29 B3 37 38 A7 8D 34 35  |148..(X$).78..45|
000009C0: 35 35 00 E7 0D C1 11 3A  8B 41 B2 31 34 37 A7 4C  |55.....:.A.147.L|
000009D0: B2 C3 28 58 24 29 3A 8D  34 35 36 30 3A 43 58 B2  |..(X$):.4560:CX.|
000009E0: 31 3A 58 24 B2 22 22 00  F2 0D C6 11 3A 89 34 35  |1:X$."".....:.45|
000009F0: 30 35 00 21 0E CB 11 58  24 B2 C8 28 58 24 2C 43  |05.!...X$..(X$,C|
00000A00: 58 AB 31 29 AA 22 20 22  AA CA 28 58 24 2C 43 58  |X.1)." "..(X$,CX|
00000A10: 29 3A 99 47 24 22 20 9D  22 3B 3A 8E 3A 8F 20 49  |):.G$" .";:.:. I|
00000A20: 4E 00 4A 0E D0 11 99 C8  28 4C 45 24 2C 43 58 AB  |N.J.....(LE$,CX.|
00000A30: 31 29 C8 28 53 50 24 2C  4C 29 C8 28 4C 45 24 2C  |1).(SP$,L).(LE$,|
00000A40: 4C 29 3B 3A 8E 3A 8F 20  43 4C 00 78 0E D5 11 99  |L);:.:. CL.x....|
00000A50: 22 12 22 4D 24 22 9D 92  22 3B 3A 81 57 B2 31 A4  |"."M$"..";:.W.1.|
00000A60: 35 30 3A A1 47 24 3A 8B  47 24 B3 B1 22 22 A7 99  |50:.G$:.G$..""..|
00000A70: 4D 24 22 9D 22 3B 3A 8E  00 9E 0E DA 11 3A 82 57  |M$".";:......:.W|
00000A80: 3A 99 4D 24 22 9D 22 3B  3A 81 57 B2 31 A4 35 30  |:.M$".";:.W.1.50|
00000A90: 3A A1 47 24 3A 8B 47 24  B3 B1 22 22 A7 8E 00 AC  |:.G$:.G$..""....|
00000AA0: 0E DF 11 3A 82 57 3A 89  34 35 36 35 00 CE 0E E4  |...:.W:.4565....|
00000AB0: 11 8B C8 28 58 24 2C 31  29 B2 22 20 22 A7 58 24  |...(X$,1)." ".X$|
00000AC0: B2 CA 28 58 24 2C 32 29  3A 89 34 35 38 30 00 F7  |..(X$,2):.4580..|
00000AD0: 0E E9 11 3A 8B C9 28 58  24 2C 31 29 B2 22 20 22  |...:..(X$,1)." "|
00000AE0: A7 58 24 B2 C8 28 58 24  2C C3 28 58 24 29 AB 31  |.X$..(X$,.(X$).1|
00000AF0: 29 3A 89 34 35 38 35 00  00 0F EE 11 3A 99 3A 8E  |):.4585.....:.:.|
00000B00: 00 11 0F C0 12 8F 20 41  53 4B 20 4E 55 4D 42 45  |...... ASK NUMBE|
00000B10: 52 00 42 0F CA 12 58 24  B2 CA 28 C4 28 58 29 2C  |R.B...X$..(.(X),|
00000B20: 32 29 3A 8D 34 35 30 30  3A 58 B2 C5 28 58 24 29  |2):.4500:X..(X$)|
00000B30: 3A 8B 58 B2 30 AF 58 24  B3 B1 22 30 22 A7 34 38  |:.X.0.X$.."0".48|
00000B40: 31 32 00 55 0F CB 12 8B  58 B2 B1 58 31 AF 58 B2  |12.U....X..X1.X.|
00000B50: B3 58 32 A7 8E 00 83 0F  CC 12 99 22 12 49 4C 4C  |.X2........".ILL|
00000B60: 45 47 41 4C 20 45 4E 54  52 59 20 2D 20 50 4C 45  |EGAL ENTRY - PLE|
00000B70: 41 53 45 20 45 4E 54 45  52 20 41 20 4E 55 4D 42  |ASE ENTER A NUMB|
00000B80: 45 52 22 00 AB 0F CF 12  99 22 12 49 4E 20 54 48  |ER"......".IN TH|
00000B90: 45 20 52 41 4E 47 45 20  4F 46 22 58 31 22 9D 20  |E RANGE OF"X1". |
00000BA0: 54 4F 22 58 32 3A 89 34  38 30 30 00 BB 0F B4 14  |TO"X2:.4800.....|
00000BB0: 8F 20 4F 50 45 4E 20 46  4F 52 4D 00 E6 0F B9 14  |. OPEN FORM.....|
00000BC0: 99 22 4E 41 4D 45 20 4F  46 20 46 4F 52 4D 41 54  |."NAME OF FORMAT|
00000BD0: 3A 22 3A 58 24 B2 4E 32  24 3A 8D 34 35 30 30 3A  |:":X$.N2$:.4500:|
00000BE0: 4E 32 24 B2 58 24 00 18  10 BE 14 45 B2 31 3A 4C  |N2$.X$.....E.1:L|
00000BF0: B2 C3 28 4E 32 24 29 3A  8B 20 4C B1 31 32 20 A7  |..(N2$):. L.12 .|
00000C00: 20 99 22 46 49 4C 45 20  4E 41 4D 45 20 54 4F 4F  | ."FILE NAME TOO|
00000C10: 20 4C 4F 4E 47 22 3A 8E  00 47 10 C3 14 81 20 58  | LONG":..G.... X|
00000C20: B2 31 20 A4 20 4C 3A 8B  20 CA 28 4E 32 24 2C 31  |.1 . L:. .(N2$,1|
00000C30: 29 B2 22 2A 22 A7 20 99  22 27 2A 27 20 49 4C 4C  |)."*". ."'*' ILL|
00000C40: 45 47 41 4C 22 3A 8E 00  5A 10 C4 14 3A 82 20 58  |EGAL":..Z...:. X|
00000C50: 3A 8B 20 4C B2 30 20 A7  20 8E 00 87 10 C8 14 45  |:. L.0 . ......E|
00000C60: B2 30 3A 8B 20 44 54 B2  31 20 AF 20 52 56 B2 31  |.0:. DT.1 . RV.1|
00000C70: 20 A7 20 8D 20 39 33 30  30 3A A0 20 52 41 3A 8B  | . . 9300:. RA:.|
00000C80: 20 45 20 A7 20 8E 3A 00  A1 10 C9 14 8B 20 44 54  | E . .:...... DT|
00000C90: B2 31 20 A7 20 51 56 B2  52 56 3A 89 20 35 33 33  |.1 . QV.RV:. 533|
00000CA0: 30 00 CF 10 CA 14 3A 99  22 44 52 49 56 45 28 12  |0.....:."DRIVE(.|
00000CB0: 31 92 2F 12 30 92 29 3F  22 3A 47 31 24 B2 22 30  |1./.0.)?":G1$."0|
00000CC0: 31 22 3A 8D 20 35 3A 51  56 B2 C5 28 47 24 29 00  |1":. 5:QV..(G$).|
00000CD0: F3 10 CD 14 3A 8B 20 51  56 B3 B1 52 56 20 A7 20  |....:. QV..RV . |
00000CE0: 98 4B 4B 28 51 56 29 2C  22 49 22 AA 44 52 24 28  |.KK(QV),"I".DR$(|
00000CF0: 51 56 29 00 27 11 D2 14  8B 20 58 31 24 B2 22 57  |QV).'.... X1$."W|
00000D00: 22 A7 20 98 4B 4B 28 51  56 29 2C 22 53 22 AA 44  |". .KK(QV),"S".D|
00000D10: 52 24 28 51 56 29 AA 22  3A 52 57 22 AA C7 28 31  |R$(QV).":RW"..(1|
00000D20: 36 32 29 AA 4E 32 24 00  57 11 DC 14 9F 20 53 45  |62).N2$.W.... SE|
00000D30: 2C 44 56 28 51 56 29 2C  53 45 2C 44 52 24 28 51  |,DV(QV),SE,DR$(Q|
00000D40: 56 29 AA 22 3A 52 57 A2  22 AA 4E 32 24 AA 22 2C  |V).":RW.".N2$.",|
00000D50: 53 2C 22 AA 58 31 24 00  70 11 DE 14 56 4F B2 51  |S,".X1$.p...VO.Q|
00000D60: 56 3A 8D 20 38 3A 8B 20  45 20 A7 20 A0 20 53 45  |V:. 8:. E . . SE|
00000D70: 00 76 11 E1 14 8E 00 87  11 E0 15 8F 20 47 45 54  |.v.......... GET|
00000D80: 20 4C 4F 4F 4B 55 50 00  C0 11 E5 15 99 22 4C 4F  | LOOKUP......"LO|
00000D90: 4F 4B 55 50 20 46 49 4C  45 20 20 44 52 49 56 45  |OKUP FILE  DRIVE|
00000DA0: 28 12 31 92 2F 12 30 92  29 22 3A 47 31 24 B2 22  |(.1./.0.)":G1$."|
00000DB0: 30 31 22 3A 8D 20 35 3A  51 56 B2 C5 28 47 24 29  |01":. 5:QV..(G$)|
00000DC0: 00 E3 11 EA 15 8B 20 51  56 B3 B1 52 56 20 A7 20  |...... QV..RV . |
00000DD0: 98 4B 4B 28 51 56 29 2C  22 49 22 AA 44 52 24 28  |.KK(QV),"I".DR$(|
00000DE0: 51 56 29 00 17 12 ED 15  50 B2 30 3A 4C 52 25 28  |QV).....P.0:LR%(|
00000DF0: 30 29 B2 30 3A 81 20 57  4C B2 31 20 A4 20 48 4C  |0).0:. WL.1 . HL|
00000E00: 3A 8F 20 4C 52 25 3D 53  54 41 52 54 20 4F 46 20  |:. LR%=START OF |
00000E10: 41 20 47 52 4F 55 50 00  59 12 F0 15 3A 9F 20 53  |A GROUP.Y...:. S|
00000E20: 45 2C 44 56 28 51 56 29  2C 53 45 2C 44 52 24 28  |E,DV(QV),SE,DR$(|
00000E30: 51 56 29 AA 22 3A 22 AA  4C 54 24 28 57 4C 29 AA  |QV).":".LT$(WL).|
00000E40: 22 2C 53 2C 52 22 3A 56  4F B2 51 56 3A 8D 38 3A  |",S,R":VO.QV:.8:|
00000E50: 8B 20 45 20 A7 35 36 39  39 00 86 12 F4 15 3A 20  |. E .5699.....: |
00000E60: 84 53 45 2C 4C 55 24 28  50 29 3A 50 B2 50 AA 31  |.SE,LU$(P):P.P.1|
00000E70: 3A 8B 20 53 54 B2 30 20  AF 20 50 B3 B2 4C 4D 20  |:. ST.0 . P..LM |
00000E80: A7 20 35 36 32 30 00 BF  12 F7 15 3A 8B 20 50 B1  |. 5620.....:. P.|
00000E90: 4C 4D 20 A7 99 22 12 4E  4F 54 20 52 4F 4F 4D 20  |LM ..".NOT ROOM |
00000EA0: 46 4F 52 20 4C 4F 4F 4B  55 50 20 46 49 4C 45 22  |FOR LOOKUP FILE"|
00000EB0: 3A 45 B2 31 3A 8D 31 30  3A 89 20 35 36 39 39 00  |:E.1:.10:. 5699.|
00000EC0: DC 12 F9 15 4C 52 25 28  57 4C 29 B2 50 3A A0 20  |....LR%(WL).P:. |
00000ED0: 53 45 3A 82 20 57 4C 3A  47 4C B2 30 00 E7 12 43  |SE:. WL:GL.0...C|
00000EE0: 16 A0 20 53 45 3A 8E 00  F7 12 A8 16 8F 20 50 4F  |.. SE:....... PO|
00000EF0: 4B 45 20 43 41 53 45 00  31 13 AD 16 97 20 42 37  |KE CASE.1.... B7|
00000F00: AA 32 2C 30 3A 8B 20 41  43 B3 B1 30 20 A7 20 97  |.2,0:. AC..0 . .|
00000F10: 20 42 37 AA 32 2C 31 32  38 3A 8F 20 41 4C 4C 20  | B7.2,128:. ALL |
00000F20: 43 41 50 53 20 49 4E 20  4D 49 58 20 46 4F 52 4D  |CAPS IN MIX FORM|
00000F30: 54 00 66 13 B2 16 97 42  37 AA 33 2C 30 3A 8B 20  |T.f....B7.3,0:. |
00000F40: 57 50 B3 B1 30 20 AF 20  4D 43 B2 30 20 A7 20 97  |WP..0 . MC.0 . .|
00000F50: 20 42 37 AA 33 2C 31 32  38 3A 8F 20 57 50 20 4E  | B7.3,128:. WP N|
00000F60: 4F 54 2D 4D 49 58 00 72  13 B7 16 97 42 37 AA 34  |OT-MIX.r....B7.4|
00000F70: 2C 30 00 B0 13 B9 16 3A  8B 20 50 44 B2 50 55 20  |,0.....:. PD.PU |
00000F80: AF 20 43 50 B2 30 20 AF  20 4D 43 B3 B1 30 20 A7  |. CP.0 . MC..0 .|
00000F90: 20 97 20 42 37 AA 33 2C  31 32 38 3A 97 20 42 37  | . B7.3,128:. B7|
00000FA0: AA 34 2C 31 36 30 3A 8F  20 41 53 43 20 4D 49 58  |.4,160:. ASC MIX|
00000FB0: 00 EA 13 BC 16 44 4E 24  B2 22 22 3A 8B 20 50 44  |.....DN$."":. PD|
00000FC0: B2 50 55 20 AF 20 43 50  B3 B1 30 20 AF 20 4D 43  |.PU . CP..0 . MC|
00000FD0: B3 B1 30 20 A7 20 44 4E  24 B2 22 11 22 AA 22 22  |..0 . DN$.".".""|
00000FE0: 3A 8F 20 43 42 4D 20 4D  49 58 00 F0 13 C1 16 8E  |:. CBM MIX......|
00000FF0: 00 24 14 C6 16 8F 20 4F  52 41 20 42 37 2B 32 2C  |.$.... ORA B7+2,|
00001000: 45 4F 52 20 42 37 2B 33  2C 43 4D 50 23 31 32 38  |EOR B7+3,CMP#128|
00001010: 2C 49 46 20 47 45 2C 45  4F 52 20 42 37 2B 34 2C  |,IF GE,EOR B7+4,|
00001020: 54 48 45 4E 00 34 14 D4  17 8F 20 50 52 49 4E 54  |THEN.4.... PRINT|
00001030: 20 52 45 50 00 5F 14 D5  17 50 4E B2 50 31 3A 8B  | REP._...PN.P1:.|
00001040: 20 48 52 B3 31 20 A7 99  22 93 46 49 4C 45 20 49  | HR.1 ..".FILE I|
00001050: 53 20 45 4D 50 54 59 22  3A 8D 20 31 30 3A 8E 00  |S EMPTY":. 10:..|
00001060: 76 14 D6 17 8D 20 35 38  30 30 3A 8F 20 50 4F 4B  |v.... 5800:. POK|
00001070: 45 20 43 41 53 45 00 92  14 DE 17 8B 20 50 44 B3  |E CASE...... PD.|
00001080: B1 38 20 AF 20 20 50 44  B3 B1 31 20 A7 20 36 31  |.8 .  PD..1 . 61|
00001090: 31 35 00 C0 14 E0 17 3A  8B 20 4C B3 31 20 B0 20  |15.....:. L.1 . |
000010A0: 4C B1 31 35 20 A7 20 99  22 46 49 4C 45 20 4E 41  |L.15 . ."FILE NA|
000010B0: 4D 45 20 45 52 52 4F 52  22 3A 8D 20 31 30 3A 8E  |ME ERROR":. 10:.|
000010C0: 00 EE 14 E3 17 8B 20 48  43 B2 30 20 A7 20 99 22  |...... HC.0 . ."|
000010D0: 4E 4F 54 20 45 4E 4F 55  47 48 20 46 4F 52 4D 41  |NOT ENOUGH FORMA|
000010E0: 54 20 49 4E 46 4F 22 3A  8D 20 31 30 3A 8E 00 0C  |T INFO":. 10:...|
000010F0: 15 E5 17 8D 20 36 36 30  30 3A 8B 20 45 20 A7 20  |.... 6600:. E . |
00001100: 8D 20 31 30 3A 8E 3A 8F  20 57 44 3F 00 31 15 E8  |. 10:.:. WD?.1..|
00001110: 17 59 B2 4C 53 3A 58 24  B2 22 53 55 42 54 4F 54  |.Y.LS:X$."SUBTOT|
00001120: 41 4C 22 3A 8D 36 32 30  30 3A 8B 20 45 20 A7 20  |AL":.6200:. E . |
00001130: 8E 00 5F 15 ED 17 59 B2  4B 52 3A 58 24 B2 22 43  |.._...Y.KR:X$."C|
00001140: 4F 4D 42 49 4E 45 44 20  52 45 43 4F 52 44 53 22  |OMBINED RECORDS"|
00001150: 3A 8D 20 36 32 30 30 3A  8B 20 45 20 A7 20 8E 00  |:. 6200:. E . ..|
00001160: 8A 15 F2 17 8D 20 36 35  30 30 3A 8B 20 47 4C 20  |..... 6500:. GL |
00001170: A7 20 8D 20 35 36 30 30  3A 8B 20 45 20 A7 20 8E  |. . 5600:. E . .|
00001180: 3A 8F 20 52 4E 47 2C 20  4C 55 00 9B 15 F7 17 8D  |:. RNG, LU......|
00001190: 33 3A 8B 47 24 B2 22 59  22 A7 8E 00 B7 15 FC 17  |3:.G$."Y".......|
000011A0: 58 24 B2 22 50 52 49 4E  54 20 52 45 50 22 3A 8D  |X$."PRINT REP":.|
000011B0: 20 39 32 30 30 3A 8E 00  CC 15 38 18 8F 20 53 55  | 9200:....8.. SU|
000011C0: 42 2C 20 43 4F 4D 42 20  45 52 52 3F 00 E5 15 3D  |B, COMB ERR?...=|
000011D0: 18 45 B2 30 3A 8B 20 59  B2 30 20 B0 20 44 50 B2  |.E.0:. Y.0 . DP.|
000011E0: 38 20 A7 20 8E 00 0B 16  42 18 81 20 58 B2 31 A4  |8 . ....B.. X.1.|
000011F0: 20 59 3A 8B 20 41 52 25  28 58 29 B2 53 46 25 28  | Y:. AR%(X).SF%(|
00001200: 57 4B 2C 58 29 A7 20 36  32 31 35 00 55 16 43 18  |WK,X). 6215.U.C.|
00001210: 3A 99 58 24 22 20 45 52  52 4F 52 3A 20 43 4F 4C  |:.X$" ERROR: COL|
00001220: 55 4D 4E 23 22 41 52 25  28 58 29 22 53 48 4F 55  |UMN#"AR%(X)"SHOU|
00001230: 4C 44 20 42 45 20 4C 4F  41 44 45 44 20 46 52 4F  |LD BE LOADED FRO|
00001240: 4D 20 46 49 45 4C 44 23  22 53 46 25 28 57 4B 2C  |M FIELD#"SF%(WK,|
00001250: 58 29 22 3F 22 00 63 16  45 18 3A 8D 20 31 30 3A  |X)"?".c.E.:. 10:|
00001260: 45 B2 31 00 6D 16 47 18  82 20 58 3A 8E 00 79 16  |E.1.m.G.. X:..y.|
00001270: 64 19 8F 20 52 41 4E 47  45 00 B1 16 8C 19 99 22  |d.. RANGE......"|
00001280: 11 53 54 41 52 54 20 41  54 20 52 45 43 4F 52 44  |.START AT RECORD|
00001290: 20 4E 4F 3A 22 3A 58 B2  52 31 3A 58 31 B2 31 3A  | NO:":X.R1:X1.1:|
000012A0: 58 32 B2 48 52 3A 8D 20  34 38 30 30 3A 52 31 B2  |X2.HR:. 4800:R1.|
000012B0: 58 00 E7 16 96 19 99 22  45 4E 44 20 41 54 20 52  |X......"END AT R|
000012C0: 45 43 4F 52 44 20 4E 4F  3A 22 3A 58 B2 52 32 3A  |ECORD NO:":X.R2:|
000012D0: 58 31 B2 52 31 3A 58 32  B2 48 52 3A 8D 20 34 38  |X1.R1:X2.HR:. 48|
000012E0: 30 30 3A 52 32 B2 58 00  ED 16 C7 19 8E 00 FA 16  |00:R2.X.........|
000012F0: C8 19 8F 20 57 44 20 4F  4B 3F 00 17 17 CD 19 45  |... WD OK?.....E|
00001300: B2 31 3A 8B 20 50 44 B2  38 20 B0 20 50 44 B2 31  |.1:. PD.8 . PD.1|
00001310: 20 A7 20 36 36 39 39 00  54 17 D2 19 8B 20 50 57  | . 6699.T.... PW|
00001320: B3 32 30 20 A7 20 99 22  50 52 49 4E 54 45 52 20  |.20 . ."PRINTER |
00001330: 57 49 44 54 48 20 3D 22  50 57 22 3F 20 28 53 45  |WIDTH ="PW"? (SE|
00001340: 45 20 4D 49 53 43 20 51  55 45 53 54 49 4F 4E 53  |E MISC QUESTIONS|
00001350: 29 22 3A 8E 00 6E 17 D6  19 8B 20 50 57 B1 B2 43  |)":..n.... PW..C|
00001360: 50 25 28 30 29 AA 32 20  A7 20 36 36 32 30 00 99  |P%(0).2 . 6620..|
00001370: 17 D7 19 3A 99 22 31 53  54 20 43 4F 4C 20 49 4E  |...:."1ST COL IN|
00001380: 44 45 4E 54 45 44 20 3E  20 50 52 49 4E 54 45 52  |DENTED > PRINTER|
00001390: 20 57 49 44 54 48 22 3A  8E 00 C7 17 DC 19 81 20  | WIDTH":....... |
000013A0: 57 43 B2 31 20 A4 20 48  43 3A 8B 20 43 50 25 28  |WC.1 . HC:. CP%(|
000013B0: 30 29 AA 43 50 25 28 57  43 29 AA 31 B3 B2 50 57  |0).CP%(WC).1..PW|
000013C0: 20 A7 20 36 36 34 30 00  09 18 E6 19 3A 99 22 43  | . 6640.....:."C|
000013D0: 4F 4C 55 4D 4E 20 23 22  57 43 22 2B 20 49 4E 44  |OLUMN #"WC"+ IND|
000013E0: 45 4E 54 41 54 49 4F 4E  20 49 53 20 47 52 45 41  |ENTATION IS GREA|
000013F0: 54 45 52 20 54 48 41 4E  20 50 52 49 4E 54 45 52  |TER THAN PRINTER|
00001400: 20 57 49 44 54 48 22 3A  8E 00 12 18 F0 19 82 20  | WIDTH":....... |
00001410: 57 43 00 4B 18 F5 19 48  4D B2 31 3A 57 43 B2 31  |WC.K...HM.1:WC.1|
00001420: 3A 46 43 25 28 31 29 B2  31 3A 81 20 58 B2 32 A4  |:FC%(1).1:. X.2.|
00001430: 31 30 3A 46 43 25 28 58  29 B2 48 43 AA 31 3A 82  |10:FC%(X).HC.1:.|
00001440: 20 58 3A 4C B2 43 50 25  28 30 29 00 69 18 FF 19  | X:L.CP%(0).i...|
00001450: 81 20 57 43 B2 31 20 A4  20 48 43 3A 4C B2 4C AA  |. WC.1 . HC:L.L.|
00001460: 43 50 25 28 57 43 29 AA  31 00 9B 18 04 1A 3A 8B  |CP%(WC).1.....:.|
00001470: 20 4C B1 50 57 20 A7 20  48 4D B2 48 4D AA 31 3A  | L.PW . HM.HM.1:|
00001480: 46 43 25 28 48 4D 29 B2  57 43 3A 4C B2 43 50 25  |FC%(HM).WC:L.CP%|
00001490: 28 30 29 3A 57 43 B2 57  43 AB 31 00 CB 18 09 1A  |(0):WC.WC.1.....|
000014A0: 3A 8B 20 48 4D B1 38 20  A7 20 99 20 22 4D 4F 52  |:. HM.8 . . "MOR|
000014B0: 45 20 54 48 41 4E 20 38  20 52 4F 57 53 20 50 45  |E THAN 8 ROWS PE|
000014C0: 52 20 52 45 43 4F 52 44  22 3A 8E 00 D4 18 0E 1A  |R RECORD":......|
000014D0: 82 20 57 43 00 ED 18 13  1A 8B 20 48 4D B2 31 20  |. WC...... HM.1 |
000014E0: B0 20 4C 53 B2 30 20 A7  20 36 36 39 39 00 09 19  |. LS.0 . 6699...|
000014F0: 18 1A 3A 99 20 48 4D 22  4C 49 4E 45 53 20 50 45  |..:. HM"LINES PE|
00001500: 52 20 52 45 43 4F 52 44  22 00 3C 19 1D 1A 3A 99  |R RECORD".<...:.|
00001510: 22 4F 4E 4C 59 20 4F 4E  45 20 4C 49 4E 45 2F 52  |"ONLY ONE LINE/R|
00001520: 45 43 20 41 4C 4C 4F 57  45 44 20 57 49 54 48 20  |EC ALLOWED WITH |
00001530: 53 55 42 54 4F 54 41 4C  53 22 3A 8E 00 46 19 2B  |SUBTOTALS":..F.+|
00001540: 1A 45 B2 30 3A 8E 00 51  19 8C 23 8F 20 45 58 49  |.E.0:..Q..#. EXI|
00001550: 54 00 71 19 8D 23 58 24  B2 22 46 49 4C 45 20 4D  |T.q..#X$."FILE M|
00001560: 45 4E 55 22 3A 8D 20 39  32 30 30 3A 89 39 31 30  |ENU":. 9200:.910|
00001570: 31 00 81 19 F0 23 8F 20  4C 4F 41 44 20 50 52 4F  |1....#. LOAD PRO|
00001580: 47 00 B8 19 F1 23 A0 20  52 41 3A 8B 20 44 54 B2  |G....#. RA:. DT.|
00001590: 31 20 AF 20 52 56 B2 31  20 A7 20 99 22 11 12 49  |1 . RV.1 . ."..I|
000015A0: 4E 53 45 52 54 20 50 52  4F 47 52 41 4D 20 44 49  |NSERT PROGRAM DI|
000015B0: 53 4B 22 3A 8D 20 31 30  00 DB 19 F5 23 98 4B 4B  |SK":. 10....#.KK|
000015C0: 28 30 29 2C 22 49 30 22  3A 99 22 11 28 4C 4F 41  |(0),"I0":.".(LOA|
000015D0: 44 49 4E 47 20 22 58 24  22 29 22 00 0E 1A FA 23  |DING "X$")"....#|
000015E0: 9F 20 53 45 2C 38 2C 53  45 2C 22 30 3A 22 AA 58  |. SE,8,SE,"0:".X|
000015F0: 24 AA 22 2C 50 2C 52 22  3A 56 4F B2 30 3A 8D 20  |$.",P,R":VO.0:. |
00001600: 38 3A A0 20 53 45 3A 8B  20 45 20 A7 20 8E 00 25  |8:. SE:. E . ..%|
00001610: 1A FF 23 8B 20 4C 49 B3  32 35 33 20 A7 20 97 20  |..#. LI.253 . . |
00001620: 49 56 2C 4C 49 00 37 1A  04 24 93 20 22 30 3A 22  |IV,LI.7..$. "0:"|
00001630: AA 58 24 2C 38 3A 90 00  45 1A 54 24 8F 20 4F 50  |.X$,8:..E.T$. OP|
00001640: 45 4E 20 52 41 00 74 1A  59 24 8B 20 44 54 B2 31  |EN RA.t.Y$. DT.1|
00001650: 20 AF 20 52 56 B2 31 20  A7 20 99 22 11 12 49 4E  | . RV.1 . ."..IN|
00001660: 53 45 52 54 20 44 41 54  41 20 44 49 53 4B 22 3A  |SERT DATA DISK":|
00001670: 8D 20 31 30 00 8B 1A 5B  24 98 4B 4B 28 52 56 29  |. 10...[$.KK(RV)|
00001680: 2C 22 49 22 44 52 24 28  52 56 29 00 C1 1A 5E 24  |,"I"DR$(RV)...^$|
00001690: 9F 20 53 45 2C 44 56 28  52 56 29 2C 53 45 2C 44  |. SE,DV(RV),SE,D|
000016A0: 52 24 28 52 56 29 AA 22  3A 44 42 22 AA C7 28 33  |R$(RV).":DB"..(3|
000016B0: 34 AA 31 32 38 29 AA 4E  41 24 AA 22 2C 53 2C 52  |4.128).NA$.",S,R|
000016C0: 22 00 DF 1A 60 24 56 4F  B2 52 56 3A 8D 20 38 3A  |"...`$VO.RV:. 8:|
000016D0: A0 20 53 45 3A 8B 20 45  20 A7 20 39 33 30 35 00  |. SE:. E . 9305.|
000016E0: FD 1A 63 24 9F 20 52 41  2C 44 56 28 52 56 29 2C  |..c$. RA,DV(RV),|
000016F0: 52 41 2C 22 23 22 3A 42  4C B2 30 3A 8E 00 0A 1B  |RA,"#":BL.0:....|
00001700: E4 25 8F 20 43 48 41 4E  47 45 00 28 1B E9 25 58  |.%. CHANGE.(..%X|
00001710: 24 B2 22 43 48 41 4E 47  45 20 46 4F 52 4D 22 3A  |$."CHANGE FORM":|
00001720: 8D 20 39 32 30 30 3A 8E  00 00 00 31 45 2C        |. 9200:....1E,  |

....... 5/10/80  9:20. .... 1100.A.... 1
5,8,15,"I0":.15,"S0:REPORT WRITER":."0:R
EPORT WRITER",8:......."CORRECTIONS?(.Y.
/.N.)":G1$."YN":.5...... 4,4:.4:.4,G(15)
:.4:..O....G$:.V.1.C(G1$):.G$..J(G1$,V,1
)..V:.5.U..........KK(VO),E,E$,S,T:.E.2.
......."DISK ERROR:"E;E$;S;T.*...."..R.E
ADY?":G1$."R":.5:..5.... MAIN.B.... SET 
UP.M.... LOAD.X.... SAVE.E.).. CHANGE.P.
,.. YES?...0.. ASK NUMBER...5.. OPEN FOR
M...8.. GET LOOKUP...=.. PRINT REP.G.>..
 SUB, COMB ERR?.S.A.. RANGE...B.. WD OK?
...[.. EXIT...A.. CHANGE...L.. MAIN...M.
. LI.253 . . IV,LI.3./.N.. PD..1 . 1105.
H.O.:.ML.44:.B(B7.8).0. .".PRESS STOP ON
 CASSETTE":.1103.|.Q.. 1200:. SET UP...U
..".             .REPORT WRITER...V.."..
L.OAD FORMAT"...X.."..C.HANGE, CREATE, I
NSPECT FORMAT...Z.."..S.AVE FORMAT"...\.
."..P.RINT REPORT.(.^.."..^. RETURN TO F
ILE MENU.Z.`.G1$."LCSP^":.5:. V . 1500,9
700,1700,6100,9100.T.... X.1.10:.G$:.X:.
1109...... SET UP...S.R1.1:R2.HR:. N2$."
". N2$.NA$.K.X..X.0 . MD:. Y.0 . DE:CT(X
,Y).0:. Y,X.....HL.0:.:. HL ALSO = HM LI
NES...... LOAD.....X1$."R":. 5300:. E . 
1570.-.... SE, HC,HS,HH,HO,WP.J.... SE,C
P%(0), PW, LS, NS$...... SE, PD,   LP,  
  X$,  PP,   KR,   HT,    HL,  WK......X
.1. HC.T...:. SE, CP%(X), FL%(X), LD%(X)
, RD%(X), T1$(X), T2$(X),AR%(X) :. X....
.. X.1 . HS:. SE,SA%(X),SE%(X), SB$(X), 
SL%(X):. X.).... X.1 . HH:. SE,HL$(X):. 
X.\.... X.1 . HO:. SE,OA$(X), OB$(X), OO
$(X), OC$(X).E...:. X......X.0. 10:.SE,C
H%(X),  LR%(X),   LT$(X):.X.B....SE,P1,S
R,AC, X,X,CS,DF,AS:GL.HL:. GET LU?.M.". 
 SE:..X.... SAVE.....X1$."W":. 5300:. E 
.   SE:..).... SE, HC;R$ HS;R$ HH;R$ HO;
R$ WP;R$;  :. 1-5.Y.... SE, CP%(0)R$ PW;
R$ LS;R$ NS$;R$;   :. 6-9...... SE, PD;R
$ LP;R$  X$R$ PP;R$ KR;R$ HT;R$; HL;R$; 
WK;R$;:. 10-17.D....X.1. HC:. SE, CP%(X)
R$ FL%(X)R$;...B.:. SE, LD%(X)R$ RD%(X)R
$ T1$(X)R$ T2$(X)R$ AR%(X)R$;:. X.>.G.. 
X.1. HS:. SE, SA%(X)R$ SE%(X)R$ SB$(X)R$
 SL%(X)R$;:. X.E.I.. X.1 . HH:. HL$(X)."
". HL$(X)." "...L.:. SE,Q$ HL$(X)R$;:. X
.A.Q.. X.1. HO:. SE,Q$ OA$(X)R$Q$ OB$(X)
R$Q$ OO$(X)R$Q$ OC$(X)R$;.I.V.:.X......X
.0. 10:.SE, CH%(X)R$ LR%(X)R$Q$ LT$(X)R$
;:.X.<....SE, P1;R$; SR;R$; AC;R$;  X;R$
; X;R$; CS;R$; DF;R$; AS;R$;.G...  SE:..
L....X$H(LE$,C(X$));:CX.1:. GARD INP....
.M$.J(X$." ",CX,1):."."M$"..";:.G$:.G$."
"..4565.R...:A.F(G$):.M$".";:.(A . 127).
32.CX.77.A.34.4520.....: .G$;:X$.H(X$,CX
.1).G$.J(X$,CX.1):CX.CX.1:.4505.1...:.A.
157..CX.1.CX.CX.1:.G$;:.4505:. LF.\...:.
A.29.CX..C(X$).CX.CX.1:.G$;:.4505:RI.R..
.:.A.13.4580:. RET.....:.A.20..CX.1..G$;
:X$.H(X$,CX.2).J(X$,CX):CX.CX.1.B...:.A.
148.C(X$).78..4555...A.:.A.147.L.C(X$):.
4560:CX.1:X$.""...F.:.4505.!.K.X$.H(X$,C
X.1)." ".J(X$,CX):.G$" .";:.:. IN.J.P..H
(LE$,CX.1)H(SP$,L)H(LE$,L);:.:. CL.X.U..
"."M$"..";:.W.1.50:.G$:.G$..""..M$".";:.
...Z.:.W:.M$".";:.W.1.50:.G$:.G$..""....
...:.W:.4565.N....H(X$,1)." ".X$.J(X$,2)
:.4580.....:.I(X$,1)." ".X$.H(X$,C(X$).1
):.4585.....:.:....... ASK NUMBER.B.J.X$
.J(D(X),2):.4500:X.E(X$):.X.0.X$.."0".48
12.U.K..X..X1.X..X2.....L..".ILLEGAL ENT
RY - PLEASE ENTER A NUMBER"...O..".IN TH
E RANGE OF"X1". TO"X2:.4800...... OPEN F
ORM......"NAME OF FORMAT:":X$.N2$:.4500:
N2$.X$.....E.1:L.C(N2$):. L.12 . ."FILE 
NAME TOO LONG":..G.C.. X.1 . L:. J(N2$,1
)."*". ."'*' ILLEGAL":..Z.D.:. X:. L.0 .
 ....H.E.0:. DT.1 . RV.1 . . 9300:  RA:.
 E . .:...I.. DT.1 . QV.RV:. 5330.O.J.:.
"DRIVE(.1./.0.)?":G1$."01":. 5:QV.E(G$).
..M.:. QV..RV . .KK(QV),"I".DR$(QV).'.R.
. X1$."W". .KK(QV),"S".DR$(QV).":RW".G(1
62).N2$.W.... SE,DV(QV),SE,DR$(QV).":RW.
".N2$.",S,".X1$.P...VO.QV:. 8:. E .   SE
.V.......... GET LOOKUP......"LOOKUP FIL
E  DRIVE(.1./.0.)":G1$."01":. 5:QV.E(G$)
...... QV..RV . .KK(QV),"I".DR$(QV).....
P.0:LR%(0).0:. WL.1 . HL:. LR%=START OF 
A GROUP.Y...:. SE,DV(QV),SE,DR$(QV).":".
LT$(WL).",S,R":VO.QV:.8:. E .5699.....: 
.SE,LU$(P):P.P.1:. ST.0 . P..LM . 5620..
...:. P.LM ..".NOT ROOM FOR LOOKUP FILE"
:E.1:.10:. 5699.....LR%(WL).P:  SE:. WL:
GL.0...C.  SE:....... POKE CASE.1.... B7
.2,0:. AC..0 . . B7.2,128:. ALL CAPS IN 
MIX FORMT.F....B7.3,0:. WP..0 . MC.0 . .
 B7.3,128:. WP NOT-MIX.R....B7.4,0.....:
. PD.PU . CP.0 . MC..0 . . B7.3,128:. B7
.4,160:. ASC MIX.....DN$."":. PD.PU . CP
..0 . MC..0 . DN$."."."":. CBM MIX...A..
.$.F.. ORA B7+2,EOR B7+3,CMP#128,IF GE,E
OR B7+4,THEN.4.T.. PRINT REP._.U.PN.P1:.
 HR.1 ..".FILE IS EMPTY":. 10:..V.V.. 58
00:. POKE CASE...... PD..8 .  PD..1 . 61
15.....:. L.1 . L.15 . ."FILE NAME ERROR
":. 10:....... HC.0 . ."NOT ENOUGH FORMA
T INFO":. 10:....... 6600:. E . . 10:.:.
 WD?.1...Y.LS:X$."SUBTOTAL":.6200:. E . 
.._...Y.KR:X$."COMBINED RECORDS":. 6200:
. E . ....... 6500:. GL . . 5600:. E . .
:. RNG, LU......3:.G$."Y".......X$."PRIN
T REP":. 9200:..L.8.. SUB, COMB ERR?...=
.E.0:. Y.0 . DP.8 . ....B.. X.1. Y:. AR%
(X).SF%(WK,X). 6215.U.C.:.X$" ERROR: COL
UMN#"AR%(X)"SHOULD BE LOADED FROM FIELD#
"SF%(WK,X)"?".C.E.:. 10:E.1.M.G.. X:..Y.
D.. RANGE......".START AT RECORD NO:":X.
R1:X1.1:X2.HR:. 4800:R1.X......"END AT R
ECORD NO:":X.R2:X1.R1:X2.HR:. 4800:R2.X.
..G.....H.. WD OK?...M.E.1:. PD.8 . PD.1
 . 6699.T.R.. PW.20 . ."PRINTER WIDTH ="
PW"? (SEE MISC QUESTIONS)":..N.V.. PW..C
P%(0).2 . 6620...W.:."1ST COL INDENTED >
 PRINTER WIDTH":..G.... WC.1 . HC:. CP%(
0).CP%(WC).1..PW . 6640.....:."COLUMN #"
WC"+ INDENTATION IS GREATER THAN PRINTER
 WIDTH":....... WC.K...HM.1:WC.1:FC%(1).
1:. X.2.10:FC%(X).HC.1:. X:L.CP%(0).I...
. WC.1 . HC:L.L.CP%(WC).1.....:. L.PW . 
HM.HM.1:FC%(HM).WC:L.CP%(0):WC.WC.1.K...
:. HM.8 . . "MORE THAN 8 ROWS PER RECORD
":..T.... WC...... HM.1 . LS.0 . 6699...
..:. HM"LINES PER RECORD".<...:."ONLY ON
E LINE/REC ALLOWED WITH SUBTOTALS":..F.+
.E.0:..Q..#. EXIT.Q..#X$."FILE MENU":. 9
200:.9101....#. LOAD PROG....#  RA:. DT.
1 . RV.1 . ."..INSERT PROGRAM DISK":. 10
....#.KK(0),"I0":.".(LOADING "X$")"....#
. SE,8,SE,"0:".X$.",P,R":VO.0:. 8:  SE:.
 E . ..%..#. LI.253 . . IV,LI.7..$. "0:"
.X$,8:..E.T$. OPEN RA.T.Y$. DT.1 . RV.1 
. ."..INSERT DATA DISK":. 10...[$.KK(RV)
,"I"DR$(RV).A.^$. SE,DV(RV),SE,DR$(RV)."
:DB".G(34.128).NA$.",S,R"...`$VO.RV:. 8:
  SE:. E . 9305...C$. RA,DV(RV),RA,"#":B
L.0:.....%. CHANGE.(..%X$."CHANGE FORM":
. 9200:....1E,

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL