REPORT WRITER
FILE INFORMATION
FILENAME(S): REPORT WRITER
FILE TYPE(S): PRG
FILE SIZE: 5.8K
FIRST SEEN: 2025-11-30 20:14:52
APPEARS ON: 1 disk(s)
FILE HASH
59deb9448ae3449953ae8d567b6a4da785266b47670c97fde30ac5aa7326df5b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PRACTIFILE | REPORT WRITER | PRG | Curtcool, LPN | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
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 80 A2 82 FF |AT"...\.."......|
00000300: 42 FF 20 82 F9 80 FF 82 84 00 28 07 8E 04 99 88 |B. .......(.....|
00000310: FF F9 FF F9 8F F9 FF 77 F7 79 F5 8F F7 F0 9F F1 |.......w.y......|
00000320: FF 7F 7F 9F F4 7F 75 F7 FF FD F1 BF FF F1 9F 9F |......u.........|
00000330: C9 88 FF 78 79 7F FF 88 8D FE 97 9D FF 9F FB 8F |...xy...........|
00000340: FE 9F 8F 97 9F 8F 8F 9F 9B 9F 8F 8F 9F 9B 9F 8F |................|
00000350: 8F 9B 8F 90 FA F2 FF F0 7F 02 FF F1 FC 1D 0F FF |................|
00000360: F9 FF FF 90 FF F8 0F F0 81 8C A2 8A 58 FF E2 7F |............X...|
00000370: 32 F1 2F 90 F2 02 20 AF EA 23 20 62 2C 12 FF A8 |2./... ..# b,...|
00000380: 8F DD 88 10 80 F6 C8 9E 0C 54 0C 45 8E 04 14 89 |.........T.E....|
00000390: FE 05 8F 48 8B A4 08 B4 00 00 10 E8 8B A4 08 B4 |...H............|
000003A0: 8A 89 48 98 80 FF FA 2F F2 F0 2F FF 02 8F FF 28 |..H..../../....(|
000003B0: FF FF 88 FF FF F8 FF 2F 8F CF 8F FF FF 9D F8 1B |......./........|
000003C0: F2 1A F3 1E 01 F4 0C 05 8F 08 8F F8 FD F8 1B C0 |................|
000003D0: D4 C8 D9 F9 74 0C 05 8F A5 8F 68 89 F9 68 89 C9 |....t.....h..h..|
000003E0: FE CA 68 05 68 89 FB 68 89 FB FB 99 DE C8 06 90 |..h.h..h........|
000003F0: FF F8 DF 68 89 FA F9 C9 08 E1 05 58 31 24 B2 22 |...h.......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 88 8F FF FF 1F | SL%(X)R$;:.....|
00000740: FC 6F F1 FF 9F FF D9 8F 9F CF 8F FF 7F 9D FD 9F |.o..............|
00000750: FF 7F 9F 8F 7F 9F D9 88 88 C1 9F FF 7F 9F 8F 7F |................|
00000760: 9F D9 88 8F 88 FF FF FC 66 F1 8D 00 08 8F F9 F8 |........f.......|
00000770: 02 FF FF FF 2F 6F FF 22 2F FE 08 A8 45 8F FF FE |..../o."/...E...|
00000780: 2F FA 6F 7A 6F F2 7F FE 37 FF 7F DF FF 2D 1F F2 |/.ozo...7....-..|
00000790: 3F FF FF FF AE 7F DF FD 0F 7F DF 2E 3F 2F FF FE |?...........?/..|
000007A0: 7F DF FD 0D FF DF 2E 3F 2F FF FE 7F DF FD 0D 1F |.......?/.......|
000007B0: DF 2E 3F 2F FF FE 7F DF FD 0D FF DF 2E 3F 2F FF |..?/.........?/.|
000007C0: DF 6F FB 2F 7B FF CF F3 FE 2F F0 AF 7B 6F F2 6E |.o./{..../..{o.n|
000007D0: 37 FF FF DF FF 7F FF F2 2F FF FF BF FD FF 3F FF |7......./.....?.|
000007E0: 2E 3F 2F FF DF FF AF FF FF 2E 3F 2F FF FE 7F DF |.?/.......?/....|
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 8C 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"...\.
."......B. .......(............W.Y......
...U.........I..XY..................
...................................X..
2./... ..# B,.........H..T.E.......H....
..........H..../../....(......./.O......
................THY.T.....H..H.I.JH.H..H
.....H.....H...I...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$;:......O....Y..O.........Y.
.A.....Y......F.........../O."/...E...
/.OZO..7...-..?.........?/........?
/........?/........?/..O./{.O../..{O.N
7....../.....?..?/.......?/...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,
> CLICK IMAGE PREVIEW FOR FULL MODAL