CHANGE FORM
FILE INFORMATION
FILENAME(S): CHANGE FORM
FILE TYPE(S): PRG
FILE SIZE: 8.6K
FIRST SEEN: 2025-11-30 20:14:48
APPEARS ON: 2 disk(s)
FILE HASH
64ff19bff0c9592b0471039e994adda7e0ec069dc99c5f8c60c8083e726b35fd
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PER CEDERHOLM | CHANGE FORM | PRG | Curtcool, LPN | 12 | 2 | DOWNLOAD FILE |
| PRACTIFILE | CHANGE FORM | PRG | Curtcool, LPN | 12 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 07 04 00 00 8F 00 12 04 01 00 89 20 31 31 |............. 11|
00000010: 30 30 00 4F 04 02 00 9F 20 31 35 2C 38 2C 31 35 |00.O.... 15,8,15|
00000020: 2C 22 49 30 22 3A 98 31 35 2C 22 53 30 3A 43 48 |,"I0":.15,"S0:CH|
00000030: 41 4E 47 45 20 46 4F 52 4D 22 3A 94 22 30 3A 43 |ANGE FORM":."0:C|
00000040: 48 41 4E 47 45 20 46 4F 52 4D 22 2C 38 3A 80 00 |HANGE FORM",8:..|
00000050: 7B 04 03 00 99 22 43 4F 52 52 45 43 54 49 4F 4E |{...."CORRECTION|
00000060: 53 3F 28 12 59 92 2F 12 4E 92 29 22 3A 47 31 24 |S?(.Y./.N.)":G1$|
00000070: B2 22 59 4E 22 3A 8D 20 35 3A 8E 00 89 04 04 00 |."YN":. 5:......|
00000080: 9F 34 2C 34 3A 9D 34 3A 9B 00 B3 04 05 00 A1 47 |.4,4:.4:.......G|
00000090: 24 3A 81 56 B2 31 A4 C3 28 47 31 24 29 3A 8B 47 |$:.V.1..(G1$):.G|
000000A0: 24 B3 B1 CA 28 47 31 24 2C 56 2C 31 29 A7 82 56 |$...(G1$,V,1)..V|
000000B0: 3A 89 35 00 B9 04 06 00 8E 00 D5 04 08 00 84 4B |:.5............K|
000000C0: 4B 28 56 4F 29 2C 45 2C 45 24 2C 53 2C 54 3A 8B |K(VO),E,E$,S,T:.|
000000D0: 45 B3 32 A7 8E 00 F0 04 09 00 99 22 44 49 53 4B |E.2........"DISK|
000000E0: 20 45 52 52 4F 52 3A 22 45 3B 45 24 3B 53 3B 54 | ERROR:"E;E$;S;T|
000000F0: 00 0E 05 0A 00 99 22 11 12 52 92 45 41 44 59 3F |......"..R.EADY?|
00000100: 22 3A 47 31 24 B2 22 52 22 3A 8D 35 3A 8E 00 19 |":G1$."R":.5:...|
00000110: 05 0B 00 8F 20 4D 41 49 4E 00 26 05 15 00 8F 20 |.... MAIN.&.... |
00000120: 53 45 4C 45 43 54 00 34 05 16 00 8F 20 20 28 43 |SELECT.4.... (C|
00000130: 4F 4E 54 29 00 42 05 17 00 8F 20 48 4D 20 43 4F |ONT).B.... HM CO|
00000140: 4C 53 00 56 05 18 00 8F 20 44 45 53 43 52 49 42 |LS.V.... DESCRIB|
00000150: 45 20 43 4F 4C 53 00 6B 05 19 00 8F 20 44 49 53 |E COLS.k.... DIS|
00000160: 50 4C 41 59 20 53 45 4C 45 43 54 00 76 05 1B 00 |PLAY SELECT.v...|
00000170: 8F 20 4D 49 53 43 00 87 05 1C 00 8F 20 4D 49 53 |. MISC...... MIS|
00000180: 43 20 50 41 50 45 52 00 92 05 1F 00 8F 20 43 41 |C PAPER...... CA|
00000190: 4C 43 00 A6 05 20 00 8F 20 49 4E 53 54 52 55 43 |LC... .. INSTRUC|
000001A0: 54 20 43 41 4C 43 00 B9 05 2B 00 8F 20 48 45 41 |T CALC...+.. HEA|
000001B0: 44 45 52 20 4C 49 4E 45 53 00 C4 05 2C 00 8F 20 |DER LINES...,.. |
000001C0: 59 45 53 3F 00 CF 05 2D 00 8F 20 41 53 4B 24 00 |YES?...-.. ASK$.|
000001D0: E4 05 2E 00 8F 20 4A 55 53 54 20 54 4F 54 53 20 |..... JUST TOTS |
000001E0: 41 56 52 53 00 F5 05 2F 00 8F 20 46 49 4C 45 20 |AVRS.../.. FILE |
000001F0: 4E 41 4D 45 3F 00 06 06 30 00 8F 20 41 53 4B 20 |NAME?...0.. ASK |
00000200: 4E 55 4D 42 45 52 00 1E 06 37 00 8F 20 46 52 4F |NUMBER...7.. FRO|
00000210: 4D 2C 54 49 54 4C 45 53 2C 57 49 44 54 48 00 2F |M,TITLES,WIDTH./|
00000220: 06 39 00 8F 20 41 53 4B 20 4C 4F 4F 4B 55 50 00 |.9.. ASK LOOKUP.|
00000230: 3E 06 3A 00 8F 20 24 43 4F 4E 56 45 52 54 00 49 |>.:.. $CONVERT.I|
00000240: 06 5B 00 8F 20 45 58 49 54 00 59 06 5C 00 8F 20 |.[.. EXIT.Y.\.. |
00000250: 4C 4F 41 44 20 50 52 4F 47 00 64 06 4C 04 8F 20 |LOAD PROG.d.L.. |
00000260: 4D 41 49 4E 00 77 06 4E 04 8B 20 50 44 B3 B1 31 |MAIN.w.N.. PD..1|
00000270: 20 A7 20 31 31 30 35 00 AF 06 50 04 9E 4D 4C AB | . 1105...P..ML.|
00000280: 34 34 3A 8B 20 C2 28 42 37 AA 38 29 B2 30 A7 99 |44:. .(B7.8).0..|
00000290: 22 93 50 52 45 53 53 20 53 54 4F 50 20 4F 4E 20 |".PRESS STOP ON |
000002A0: 43 41 53 53 45 54 54 45 22 3A 89 31 31 30 34 00 |CASSETTE":.1104.|
000002B0: D1 06 51 04 99 22 93 20 20 20 20 20 20 20 20 20 |..Q..". |
000002C0: 20 20 12 43 48 41 4E 47 45 20 46 4F 52 4D 41 54 | .CHANGE FORMAT|
000002D0: 22 00 E7 06 56 04 99 22 11 12 48 92 45 41 44 45 |"...V.."..H.EADE|
000002E0: 52 20 4C 49 4E 45 53 00 02 07 5B 04 99 22 11 12 |R LINES...[.."..|
000002F0: 4E 92 55 4D 42 45 52 20 4F 46 20 43 4F 4C 55 4D |N.UMBER OF COLUM|
00000300: 4E 53 00 21 07 5D 04 99 22 11 12 44 92 45 53 43 |NS.!.].."..D.ESC|
00000310: 52 49 50 54 49 4F 4E 20 4F 46 20 43 4F 4C 55 4D |RIPTION OF COLUM|
00000320: 4E 00 47 07 60 04 99 22 11 12 53 92 45 4C 45 43 |N.G.`.."..S.ELEC|
00000330: 54 49 4F 4E 20 4F 46 20 52 45 43 4F 52 44 20 43 |TION OF RECORD C|
00000340: 52 49 54 45 52 49 41 00 68 07 65 04 99 22 11 12 |RITERIA.h.e.."..|
00000350: 43 92 41 4C 43 55 4C 41 54 45 44 20 43 4F 4C 55 |C.ALCULATED COLU|
00000360: 4D 4E 53 20 49 4E 46 4F 00 85 07 6B 04 8B 20 58 |MNS INFO...k.. X|
00000370: 46 20 A7 20 99 22 11 12 4C 92 4F 4F 4B 55 50 20 |F . ."..L.OOKUP |
00000380: 46 49 4C 45 53 00 93 07 6C 04 99 22 11 12 4D 92 |FILES...l.."..M.|
00000390: 49 53 43 00 B6 07 6F 04 99 22 11 12 5E 92 20 52 |ISC...o.."..^. R|
000003A0: 45 54 55 52 4E 20 54 4F 20 52 45 50 4F 52 54 20 |ETURN TO REPORT |
000003B0: 57 52 49 54 45 52 00 E5 07 74 04 47 31 24 B2 22 |WRITER...t.G1$."|
000003C0: 48 4E 44 53 43 22 AA 22 43 4D 5E 22 3A 8B 20 58 |HNDSC"."CM^":. X|
000003D0: 46 20 A7 20 47 31 24 B2 22 48 4E 44 53 43 22 AA |F . G1$."HNDSC".|
000003E0: 22 4C 4D 5E 22 00 1C 08 79 04 8D 20 35 3A 91 20 |"LM^"...y.. 5:. |
000003F0: 56 20 8D 20 34 33 30 30 2C 32 33 30 30 2C 32 34 |V . 4300,2300,24|
00000400: 30 30 2C 32 31 30 30 2C 33 31 30 30 2C 20 35 36 |00,2100,3100, 56|
00000410: 30 30 2C 32 37 30 30 2C 39 31 30 30 00 27 08 AF |00,2700,9100.'..|
00000420: 04 89 20 31 31 30 30 00 34 08 34 08 8F 20 53 45 |.. 1100.4.4.. SE|
00000430: 4C 45 43 54 00 61 08 39 08 54 24 B2 20 20 22 93 |LECT.a.9.T$. ".|
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 53 | .S|
00000450: 45 4C 45 43 54 20 43 48 41 4E 47 45 11 22 AA 52 |ELECT CHANGE.".R|
00000460: 24 00 90 08 3E 08 99 22 11 44 4F 20 59 4F 55 20 |$...>..".DO YOU |
00000470: 57 49 53 48 20 54 4F 20 53 45 4C 45 43 54 20 43 |WISH TO SELECT C|
00000480: 45 52 54 41 49 4E 20 52 45 43 4F 52 44 53 3F 22 |ERTAIN RECORDS?"|
00000490: 00 B4 08 43 08 58 B2 48 53 3A 58 33 B2 AB 31 3A |...C.X.HS:X3..1:|
000004A0: 8D 20 34 34 30 30 3A 8B 20 58 B2 30 A7 20 48 53 |. 4400:. X.0. HS|
000004B0: B2 30 3A 8E 00 DF 08 48 08 81 20 57 53 B2 31 20 |.0:....H.. WS.1 |
000004C0: A4 20 4D 44 3A 8D 20 32 32 30 30 3A 8B 20 53 4C |. MD:. 2200:. SL|
000004D0: 25 28 57 53 29 B3 B1 33 20 A7 20 82 20 57 53 00 |%(WS)..3 . . WS.|
000004E0: 10 09 84 08 8B 20 57 53 B1 4D 44 20 A7 20 99 22 |..... WS.MD . ."|
000004F0: 12 53 45 4C 45 43 54 49 4F 4E 20 54 4F 4F 20 43 |.SELECTION TOO C|
00000500: 4F 4D 50 4C 45 58 21 21 22 3A 89 20 32 31 30 30 |OMPLEX!!":. 2100|
00000510: 00 36 09 8E 08 8B 20 53 4C 25 28 57 53 29 B3 B1 |.6.... SL%(WS)..|
00000520: 33 20 A7 20 57 53 B2 57 53 AA 31 3A 58 B2 35 3A |3 . WS.WS.1:X.5:|
00000530: 89 20 32 31 31 30 00 5C 09 93 08 48 53 B2 57 53 |. 2110.\...HS.WS|
00000540: 3A 58 B2 30 3A 8D 20 32 35 30 30 3A 8D 33 3A 8B |:X.0:. 2500:.3:.|
00000550: 20 47 24 B2 22 59 22 A7 32 31 30 30 00 62 09 97 | G$."Y".2100.b..|
00000560: 08 8E 00 6F 09 98 08 8F 20 28 43 4F 4E 54 29 00 |...o.... (CONT).|
00000570: 9E 09 B1 08 99 54 24 22 46 49 45 4C 44 53 3A 22 |.....T$"FIELDS:"|
00000580: 3A 81 20 57 46 B2 31 20 A4 20 48 46 3A 99 20 57 |:. WF.1 . HF:. W|
00000590: 46 3B 46 54 24 28 57 46 29 3A 82 20 57 46 00 CE |F;FT$(WF):. WF..|
000005A0: 09 B6 08 3A 58 B2 31 3A 8D 20 32 35 30 30 3A 99 |...:X.1:. 2500:.|
000005B0: 22 11 12 45 4E 54 45 52 20 46 49 45 4C 44 20 4E |"..ENTER FIELD N|
000005C0: 4F 3A 22 3A 8F 20 44 49 53 50 20 53 45 4C 00 F9 |O:":. DISP SEL..|
000005D0: 09 BB 08 3A 58 B2 53 41 25 28 57 53 29 3A 58 31 |...:X.SA%(WS):X1|
000005E0: B2 31 3A 58 32 B2 48 46 3A 8D 20 34 38 30 30 3A |.1:X2.HF:. 4800:|
000005F0: 53 41 25 28 57 53 29 B2 58 00 33 0A C0 08 99 54 |SA%(WS).X.3....T|
00000600: 24 22 45 51 55 41 4C 49 54 59 20 54 59 50 45 53 |$"EQUALITY TYPES|
00000610: 3A 22 3A 81 20 58 B2 31 20 A4 20 39 AB 28 58 46 |:":. X.1 . 9.(XF|
00000620: B3 B1 30 29 3A 99 20 58 3B 45 51 24 28 58 29 3A |..0):. X;EQ$(X):|
00000630: 82 20 58 00 60 0A C5 08 3A 58 B2 32 3A 8D 20 32 |. X.`...:X.2:. 2|
00000640: 35 30 30 3A 99 22 11 12 45 4E 54 45 52 20 45 51 |500:."..ENTER EQ|
00000650: 55 41 4C 49 54 59 20 54 59 50 45 20 4E 4F 3A 22 |UALITY TYPE NO:"|
00000660: 00 92 0A CA 08 3A 58 B2 53 45 25 28 57 53 29 3A |.....:X.SE%(WS):|
00000670: 58 31 B2 31 3A 58 32 B2 39 AB 28 58 46 B3 B1 30 |X1.1:X2.9.(XF..0|
00000680: 29 3A 8D 20 34 38 30 30 3A 53 45 25 28 57 53 29 |):. 4800:SE%(WS)|
00000690: B2 58 00 C0 0A CF 08 99 54 24 22 41 52 47 55 4D |.X......T$"ARGUM|
000006A0: 45 4E 54 20 43 41 4E 20 42 45 20 41 4E 59 20 41 |ENT CAN BE ANY A|
000006B0: 4C 50 48 41 2D 4E 55 4D 20 53 54 52 49 4E 47 22 |LPHA-NUM STRING"|
000006C0: 00 E5 0A D4 08 3A 58 B2 33 3A 8D 20 32 35 30 30 |.....:X.3:. 2500|
000006D0: 3A 99 22 11 12 45 4E 54 45 52 20 41 52 47 55 4D |:."..ENTER ARGUM|
000006E0: 45 4E 54 3A 22 00 06 0B D9 08 3A 58 24 B2 53 42 |ENT:".....:X$.SB|
000006F0: 24 28 57 53 29 3A 8D 34 35 30 30 3A 53 42 24 28 |$(WS):.4500:SB$(|
00000700: 57 53 29 B2 58 24 00 3C 0B DE 08 99 54 24 22 4C |WS).X$.<....T$"L|
00000710: 4F 47 49 43 41 4C 20 43 4F 4E 45 43 54 49 4F 4E |OGICAL CONECTION|
00000720: 53 3A 22 3A 81 20 58 B2 31 20 A4 20 33 3A 99 20 |S:":. X.1 . 3:. |
00000730: 58 3B 4C 4F 24 28 58 29 3A 82 20 58 00 66 0B E3 |X;LO$(X):. X.f..|
00000740: 08 3A 58 B2 34 3A 8D 20 32 35 30 30 3A 99 22 11 |.:X.4:. 2500:.".|
00000750: 12 45 4E 54 45 52 20 43 4F 4E 4E 45 43 54 49 4F |.ENTER CONNECTIO|
00000760: 4E 20 4E 4F 3A 22 00 82 0B E8 08 3A 8B 57 53 B2 |N NO:".....:.WS.|
00000770: 52 57 A7 53 4C 25 28 57 53 29 B2 33 3A 89 32 32 |RW.SL%(WS).3:.22|
00000780: 31 35 00 AB 0B ED 08 3A 58 B2 53 4C 25 28 57 53 |15.....:X.SL%(WS|
00000790: 29 3A 58 31 B2 31 3A 58 32 B2 33 3A 8D 34 38 30 |):X1.1:X2.3:.480|
000007A0: 30 3A 53 4C 25 28 57 53 29 B2 58 00 B1 0B FB 08 |0:SL%(WS).X.....|
000007B0: 8E 00 BF 0B FC 08 8F 20 48 4D 20 43 4F 4C 53 00 |....... HM COLS.|
000007C0: ED 0B 06 09 99 22 93 48 4F 57 20 4D 41 4E 59 20 |.....".HOW MANY |
000007D0: 50 52 49 4E 54 45 44 20 43 4F 4C 55 4D 4E 53 20 |PRINTED COLUMNS |
000007E0: 44 4F 20 59 4F 55 20 57 41 4E 54 3F 22 00 14 0C |DO YOU WANT?"...|
000007F0: 0B 09 3A 58 B2 48 43 3A 58 31 B2 31 3A 58 32 B2 |..:X.HC:X1.1:X2.|
00000800: 4D 44 3A 8D 34 38 30 30 3A 48 43 B2 58 3A 57 43 |MD:.4800:HC.X:WC|
00000810: B2 31 3A 8E 00 28 0C 60 09 8F 20 44 45 53 43 52 |.1:..(.`.. DESCR|
00000820: 49 42 45 20 43 4F 4C 53 00 4C 0C 65 09 99 22 93 |IBE COLS.L.e..".|
00000830: 22 3B 3A 8B 20 48 43 B3 31 20 A7 20 8D 20 32 33 |";:. HC.1 . . 23|
00000840: 30 30 3A 8F 20 48 4D 20 43 4F 4C 53 00 84 0C 67 |00:. HM COLS...g|
00000850: 09 99 22 11 43 4F 4C 55 4D 4E 53 3A 22 3A 81 20 |..".COLUMNS:":. |
00000860: 58 B2 31 A4 48 43 3A 99 22 12 22 58 22 92 22 54 |X.1.HC:."."X"."T|
00000870: 31 24 28 58 29 22 2F 22 54 32 24 28 58 29 3B 3A |1$(X)"/"T2$(X);:|
00000880: 82 58 3A 99 00 B2 0C 6A 09 99 22 11 57 48 49 43 |.X:....j..".WHIC|
00000890: 48 20 43 4F 4C 55 4D 4E 20 44 4F 20 59 4F 55 20 |H COLUMN DO YOU |
000008A0: 57 41 4E 54 20 54 4F 20 44 45 53 43 52 49 42 45 |WANT TO DESCRIBE|
000008B0: 3F 22 00 D2 0C 6F 09 3A 58 B2 57 43 3A 58 31 B2 |?"...o.:X.WC:X1.|
000008C0: 31 3A 58 32 B2 48 43 3A 8D 34 38 30 30 3A 57 43 |1:X2.HC:.4800:WC|
000008D0: B2 58 00 FE 0C 7B 09 8D 20 35 35 30 30 3A 8D 20 |.X...{.. 5500:. |
000008E0: 34 36 30 30 3A 8F 20 46 52 4F 2D 54 49 54 2D 57 |4600:. FRO-TIT-W|
000008F0: 49 44 2C 4A 55 53 2D 54 4F 54 2D 41 56 52 00 04 |ID,JUS-TOT-AVR..|
00000900: 0D 7E 09 8E 00 19 0D C4 09 8F 20 44 49 53 50 4C |.~........ DISPL|
00000910: 41 59 20 53 45 4C 45 43 54 00 3B 0D C6 09 99 22 |AY SELECT.;...."|
00000920: 11 12 59 4F 55 52 20 53 45 4C 45 43 54 49 4F 4E |..YOUR SELECTION|
00000930: 20 53 54 41 54 45 4D 45 4E 54 3A 00 58 0D C9 09 | STATEMENT:.X...|
00000940: 99 22 49 46 20 28 22 3B 3A 8B 20 48 53 B3 57 53 |."IF (";:. HS.WS|
00000950: 20 A7 20 48 53 B2 57 53 00 86 0D CE 09 81 20 59 | . HS.WS...... Y|
00000960: B2 31 20 A4 20 48 53 3A 8B 20 59 B2 57 53 20 A7 |.1 . HS:. Y.WS .|
00000970: 20 8B 20 58 B2 31 20 A7 20 99 22 2E 2E 2E 22 3B | . X.1 . ."...";|
00000980: 3A 89 32 35 32 30 00 99 0D D3 09 99 20 46 54 24 |:.2520...... FT$|
00000990: 28 53 41 25 28 59 29 29 3B 00 BC 0D D8 09 8B 20 |(SA%(Y));...... |
000009A0: 59 B2 57 53 20 A7 20 8B 20 58 B2 32 20 A7 20 99 |Y.WS . . X.2 . .|
000009B0: 22 2E 2E 2E 22 3B 3A 89 32 35 33 30 00 D5 0D DD |"...";:.2530....|
000009C0: 09 99 20 22 20 22 45 51 24 28 53 45 25 28 59 29 |.. " "EQ$(SE%(Y)|
000009D0: 29 22 20 22 3B 00 F8 0D E2 09 8B 20 59 B2 57 53 |)" ";...... Y.WS|
000009E0: 20 A7 20 8B 20 58 B2 33 20 A7 20 99 22 2E 2E 2E | . . X.3 . ."...|
000009F0: 22 3B 3A 89 32 35 34 30 00 06 0E E7 09 99 20 53 |";:.2540...... S|
00000A00: 42 24 28 59 29 3B 00 29 0E EC 09 8B 20 59 B2 57 |B$(Y);.).... Y.W|
00000A10: 53 20 A7 20 8B 20 58 B2 34 20 A7 20 99 22 2E 2E |S . . X.4 . ."..|
00000A20: 2E 22 3B 3A 89 32 35 35 30 00 3C 0E F1 09 99 20 |.";:.2550.<.... |
00000A30: 4C 4F 24 28 53 4C 25 28 59 29 29 3B 00 48 0E F6 |LO$(SL%(Y));.H..|
00000A40: 09 82 20 59 3A 99 3A 8E 00 54 0E 8C 0A 8F 20 4D |.. Y:.:..T.... M|
00000A50: 49 53 43 31 00 7F 0E 91 0A 99 22 93 20 20 20 20 |ISC1......". |
00000A60: 20 20 20 20 12 43 48 41 4E 47 45 20 4D 49 53 43 | .CHANGE MISC|
00000A70: 45 4C 4C 41 4E 45 4F 55 53 20 49 54 45 4D 53 00 |ELLANEOUS ITEMS.|
00000A80: A3 0E 96 0A 99 22 11 4B 45 59 53 3A 22 3A 81 58 |.....".KEYS:":.X|
00000A90: B2 30 A4 48 4B 3A 99 22 12 22 58 AA 31 22 9D 92 |.0.HK:."."X.1"..|
00000AA0: 20 22 3B 00 D6 0E 9B 0A 3A 81 20 44 B2 31 A4 53 | ";.....:. D.1.S|
00000AB0: 46 25 28 58 2C 30 29 3A 99 46 54 24 28 53 46 25 |F%(X,0):.FT$(SF%|
00000AC0: 28 58 2C 44 29 29 22 3A 22 3B 3A 82 44 3A 99 22 |(X,D))":";:.D:."|
00000AD0: 9D 20 22 3A 82 58 00 0B 0F A0 0A 3A 99 22 11 57 |. ":.X.....:.".W|
00000AE0: 48 49 43 48 20 4B 45 59 3F 22 3A 58 31 B2 31 3A |HICH KEY?":X1.1:|
00000AF0: 58 32 B2 48 4B AA 31 3A 58 B2 57 4B AA 31 3A 8D |X2.HK.1:X.WK.1:.|
00000B00: 34 38 30 30 3A 57 4B B2 58 AB 31 00 52 0F A5 0A |4800:WK.X.1.R...|
00000B10: 99 22 11 44 45 56 49 43 45 20 4E 4F 3F 20 28 34 |.".DEVICE NO? (4|
00000B20: 3D 4D 4F 53 54 20 50 52 49 4E 54 45 52 53 2C 20 |=MOST PRINTERS, |
00000B30: 33 3D 53 43 52 45 45 4E 2C 20 38 3D 44 49 53 4B |3=SCREEN, 8=DISK|
00000B40: 20 46 49 4C 45 2C 20 31 3D 43 41 53 53 45 54 54 | FILE, 1=CASSETT|
00000B50: 45 29 00 74 0F AA 0A 3A 58 31 B2 31 3A 58 32 B2 |E).t...:X1.1:X2.|
00000B60: 32 35 35 3A 58 B2 50 44 3A 8D 20 34 38 30 30 3A |255:X.PD:. 4800:|
00000B70: 50 44 B2 58 00 8F 0F AF 0A 3A 8B 20 44 39 20 A7 |PD.X.....:. D9 .|
00000B80: 20 8B 20 50 44 B2 44 39 20 A7 20 50 44 B2 38 00 | . PD.D9 . PD.8.|
00000B90: BB 0F B4 0A 8B 20 50 44 B3 B1 38 20 AF 20 50 44 |..... PD..8 . PD|
00000BA0: B3 B1 31 20 A7 20 8D 20 32 38 30 30 3A 89 20 32 |..1 . . 2800:. 2|
00000BB0: 37 36 30 3A 8F 20 50 41 50 45 52 00 DD 0F B9 0A |760:. PAPER.....|
00000BC0: 3A 99 22 11 4F 55 54 50 55 54 20 54 4F 20 57 4F |:.".OUTPUT TO WO|
00000BD0: 52 44 20 50 52 4F 43 45 53 53 4F 52 3F 00 1F 10 |RD PROCESSOR?...|
00000BE0: BA 0A 3A 99 22 28 50 41 47 45 20 4D 41 54 45 2C |..:."(PAGE MATE,|
00000BF0: 20 57 4F 52 44 20 50 52 4F 2C 20 45 41 53 59 20 | WORD PRO, EASY |
00000C00: 53 43 52 49 50 54 29 22 3A 58 B2 57 50 3A 58 33 |SCRIPT)":X.WP:X3|
00000C10: B2 AB 31 3A 8D 20 34 34 30 30 3A 57 50 B2 58 00 |..1:. 4400:WP.X.|
00000C20: 58 10 BE 0A 3A 8B 20 58 46 20 A7 20 99 22 11 4F |X...:. XF . .".O|
00000C30: 55 54 50 55 54 20 54 4F 20 44 49 46 20 46 49 4C |UTPUT TO DIF FIL|
00000C40: 45 3F 22 3A 58 B2 44 46 3A 58 33 B2 31 3A 8D 34 |E?":X.DF:X3.1:.4|
00000C50: 34 30 30 3A 44 46 B2 58 00 87 10 C3 0A 3A 99 22 |400:DF.X.....:."|
00000C60: 11 4E 41 4D 45 20 4F 46 20 53 45 51 20 46 49 4C |.NAME OF SEQ FIL|
00000C70: 45 3F 22 3A 58 24 B2 4E 53 24 3A 8D 34 37 30 30 |E?":X$.NS$:.4700|
00000C80: 3A 4E 53 24 B2 58 24 00 CA 10 C8 0A 99 22 11 43 |:NS$.X$......".C|
00000C90: 48 41 52 41 43 54 45 52 53 20 50 45 52 20 53 45 |HARACTERS PER SE|
00000CA0: 4C 45 43 54 49 4F 4E 20 43 4F 44 45 3F 22 3A 58 |LECTION CODE?":X|
00000CB0: 31 B2 31 3A 58 32 B2 31 30 3A 58 B2 48 54 3A 8D |1.1:X2.10:X.HT:.|
00000CC0: 20 34 38 30 30 3A 48 54 B2 58 00 DC 10 CD 0A 8B | 4800:HT.X......|
00000CD0: 20 58 46 B2 30 20 A7 20 32 37 38 32 00 1E 11 D2 | XF.0 . 2782....|
00000CE0: 0A 3A 99 22 11 48 4F 57 20 4D 41 4E 59 20 46 49 |.:.".HOW MANY FI|
00000CF0: 45 4C 44 53 20 44 45 54 45 52 4D 49 4E 45 20 49 |ELDS DETERMINE I|
00000D00: 46 20 52 45 43 4F 52 44 53 20 41 52 45 20 54 4F |F RECORDS ARE TO|
00000D10: 20 42 45 20 43 4F 4D 42 49 4E 45 44 3F 22 00 5A | BE COMBINED?".Z|
00000D20: 11 D7 0A 3A 99 22 28 45 4E 54 45 52 20 30 20 49 |...:."(ENTER 0 I|
00000D30: 46 20 53 49 4D 49 4C 41 52 20 52 45 43 4F 52 44 |F SIMILAR RECORD|
00000D40: 53 20 41 52 45 20 4E 4F 54 20 54 4F 20 42 45 20 |S ARE NOT TO BE |
00000D50: 43 4F 4D 42 49 4E 45 44 29 22 00 82 11 DC 0A 3A |COMBINED)".....:|
00000D60: 58 31 B2 30 3A 58 32 B2 53 46 25 28 57 4B 2C 30 |X1.0:X2.SF%(WK,0|
00000D70: 29 3A 58 B2 4B 52 3A 8D 20 34 38 30 30 3A 4B 52 |):X.KR:. 4800:KR|
00000D80: B2 58 00 C5 11 DE 0A 99 22 11 41 53 43 45 4E 44 |.X......".ASCEND|
00000D90: 49 4E 47 20 4F 52 44 45 52 3F 28 4E 3D 44 45 53 |ING ORDER?(N=DES|
00000DA0: 43 45 4E 44 49 4E 47 20 4F 52 44 45 52 29 22 3A |CENDING ORDER)":|
00000DB0: 58 B2 41 53 3A 58 33 B2 AB 31 3A 8D 34 34 30 30 |X.AS:X3..1:.4400|
00000DC0: 3A 41 53 B2 58 00 EA 11 E1 0A 8D 20 35 37 30 30 |:AS.X...... 5700|
00000DD0: 3A 8D 33 3A 8B 47 24 B2 22 59 22 A7 32 37 30 30 |:.3:.G$."Y".2700|
00000DE0: 3A 8F 20 24 43 4F 56 45 52 54 00 F0 11 EB 0A 8E |:. $COVERT......|
00000DF0: 00 01 12 F0 0A 8F 20 4D 49 53 43 20 50 41 50 45 |...... MISC PAPE|
00000E00: 52 00 39 12 F5 0A 99 22 11 48 4F 57 20 4D 41 4E |R.9....".HOW MAN|
00000E10: 59 20 53 50 41 43 45 53 20 44 4F 20 59 4F 55 20 |Y SPACES DO YOU |
00000E20: 57 41 4E 54 20 54 4F 20 49 4E 44 45 4E 54 20 43 |WANT TO INDENT C|
00000E30: 4F 4C 55 4D 4E 20 23 31 3F 00 62 12 FA 0A 3A 58 |OLUMN #1?.b...:X|
00000E40: 31 B2 30 3A 58 32 B2 38 30 3A 58 B2 43 50 25 28 |1.0:X2.80:X.CP%(|
00000E50: 30 29 3A 8D 20 34 38 30 30 3A 43 50 25 28 30 29 |0):. 4800:CP%(0)|
00000E60: B2 58 00 9E 12 FC 0A 99 22 11 48 4F 57 20 4D 41 |.X......".HOW MA|
00000E70: 4E 59 20 43 48 41 52 41 43 54 45 52 53 20 41 43 |NY CHARACTERS AC|
00000E80: 52 4F 53 53 20 44 4F 45 53 20 59 4F 55 52 20 50 |ROSS DOES YOUR P|
00000E90: 52 49 4E 54 45 52 20 50 52 49 4E 54 3F 22 00 C1 |RINTER PRINT?"..|
00000EA0: 12 FE 0A 3A 58 31 B2 32 30 3A 58 32 B2 32 35 30 |...:X1.20:X2.250|
00000EB0: 3A 58 B2 50 57 3A 8D 20 34 38 30 30 3A 50 57 B2 |:X.PW:. 4800:PW.|
00000EC0: 58 00 F7 12 09 0B 99 22 11 4C 49 4E 45 53 20 50 |X......".LINES P|
00000ED0: 45 52 20 50 41 47 45 3F 22 3A 58 31 B2 33 30 3A |ER PAGE?":X1.30:|
00000EE0: 58 32 B2 39 45 39 3A 58 B2 4C 50 3A 8D 20 34 38 |X2.9E9:X.LP:. 48|
00000EF0: 30 30 3A 4C 50 B2 58 00 2D 13 0E 0B 99 22 11 50 |00:LP.X.-....".P|
00000F00: 41 55 53 45 20 41 46 54 45 52 20 45 41 43 48 20 |AUSE AFTER EACH |
00000F10: 50 41 47 45 3F 22 3A 58 B2 50 50 3A 58 33 B2 AB |PAGE?":X.PP:X3..|
00000F20: 31 3A 8D 20 34 34 30 30 3A 50 50 B2 58 00 65 13 |1:. 4400:PP.X.e.|
00000F30: 10 0B 99 22 11 46 49 52 53 54 20 50 41 47 45 20 |...".FIRST PAGE |
00000F40: 4E 55 4D 42 45 52 3F 22 3A 58 B2 50 31 3A 58 31 |NUMBER?":X.P1:X1|
00000F50: B2 30 3A 58 32 B2 39 45 39 3A 8D 20 34 38 30 30 |.0:X2.9E9:. 4800|
00000F60: 3A 50 31 B2 58 00 9A 13 13 0B 99 22 11 4E 4F 20 |:P1.X......".NO |
00000F70: 4F 46 20 43 48 41 52 41 43 54 45 52 53 20 53 45 |OF CHARACTERS SE|
00000F80: 4E 54 20 54 4F 20 50 52 49 4E 54 45 52 3F 22 3A |NT TO PRINTER?":|
00000F90: 58 31 B2 30 3A 58 32 B2 31 30 00 CA 13 18 0B 3A |X1.0:X2.10.....:|
00000FA0: 58 B2 43 48 25 28 30 29 3A 8D 20 34 38 30 30 3A |X.CH%(0):. 4800:|
00000FB0: 43 48 25 28 30 29 B2 58 3A 8B 20 58 B2 30 20 A7 |CH%(0).X:. X.0 .|
00000FC0: 20 32 38 38 30 3A 8F 2D 2D 2D 00 00 14 1D 0B 3A | 2880:.---.....:|
00000FD0: 81 59 B2 31 A4 58 3A 99 22 41 53 43 49 49 20 56 |.Y.1.X:."ASCII V|
00000FE0: 41 4C 55 45 20 23 22 59 22 3F 22 3A 58 B2 43 48 |ALUE #"Y"?":X.CH|
00000FF0: 25 28 59 29 3A 58 31 B2 30 3A 58 32 B2 32 35 35 |%(Y):X1.0:X2.255|
00001000: 00 1A 14 22 0B 3A 20 8D 20 34 38 30 30 3A 43 48 |...".: . 4800:CH|
00001010: 25 28 59 29 B2 58 3A 82 20 59 00 5C 14 40 0B 99 |%(Y).X:. Y.\.@..|
00001020: 22 11 48 4F 57 20 4D 41 4E 59 20 4C 45 56 45 4C |".HOW MANY LEVEL|
00001030: 53 20 4F 46 20 53 55 42 54 4F 54 41 4C 53 3F 22 |S OF SUBTOTALS?"|
00001040: 3A 58 32 B2 53 46 25 28 57 4B 2C 30 29 3A 8B 20 |:X2.SF%(WK,0):. |
00001050: 4B 52 20 A7 20 58 32 B2 4B 52 AB 31 00 72 14 45 |KR . X2.KR.1.r.E|
00001060: 0B 3A 58 B2 4C 53 3A 8D 20 34 38 30 30 3A 4C 53 |.:X.LS:. 4800:LS|
00001070: B2 58 00 84 14 4A 0B 8B 20 4C 53 B2 30 20 A7 20 |.X...J.. LS.0 . |
00001080: 32 38 39 39 00 C6 14 4F 0B 3A 99 22 11 53 45 50 |2899...O.:.".SEP|
00001090: 41 52 41 54 45 20 52 45 50 4F 52 54 53 20 46 4F |ARATE REPORTS FO|
000010A0: 52 20 45 41 43 48 20 53 55 42 54 4F 54 41 4C 3F |R EACH SUBTOTAL?|
000010B0: 22 3A 58 B2 53 52 3A 58 33 B2 31 3A 8D 34 34 30 |":X.SR:X3.1:.440|
000010C0: 30 3A 53 52 B2 58 00 CC 14 53 0B 8E 00 D7 14 1C |0:SR.X...S......|
000010D0: 0C 8F 20 43 41 4C 43 00 01 15 21 0C 99 22 93 20 |.. CALC...!..". |
000010E0: 20 20 20 20 20 20 20 20 20 12 43 41 4C 43 55 4C | .CALCUL|
000010F0: 41 54 45 44 20 43 4F 4C 55 4D 4E 53 20 49 4E 46 |ATED COLUMNS INF|
00001100: 4F 00 35 15 26 0C 99 22 11 48 4F 57 20 4D 41 4E |O.5.&..".HOW MAN|
00001110: 59 20 4F 50 45 52 41 54 49 4F 4E 53 20 44 4F 20 |Y OPERATIONS DO |
00001120: 59 4F 55 20 57 41 4E 54 20 54 4F 20 50 45 52 46 |YOU WANT TO PERF|
00001130: 4F 52 4D 3F 22 00 60 15 2B 0C 58 31 B2 30 3A 58 |ORM?".`.+.X1.0:X|
00001140: 32 B2 4D 44 3A 58 B2 48 4F 3A 8D 20 34 38 30 30 |2.MD:X.HO:. 4800|
00001150: 3A 48 4F B2 58 3A 8B 20 48 4F B2 30 20 A7 20 8E |:HO.X:. HO.0 . .|
00001160: 00 7B 15 30 0C 44 45 24 B2 22 20 22 3A 8B 20 46 |.{.0.DE$." ":. F|
00001170: 46 20 A7 20 44 45 24 B2 22 2C 22 00 91 15 32 0C |F . DE$.","...2.|
00001180: 8D 20 33 32 30 30 3A 8F 20 49 4E 53 54 52 55 43 |. 3200:. INSTRUC|
00001190: 54 00 A1 15 35 0C 81 20 57 4F B2 31 20 A4 20 48 |T...5.. WO.1 . H|
000011A0: 4F 00 BC 15 3A 0C 3A 99 22 11 4F 50 45 52 41 54 |O...:.:.".OPERAT|
000011B0: 49 4F 4E 20 23 22 57 4F 22 9D 3A 22 00 F0 15 3F |ION #"WO".:"...?|
000011C0: 0C 3A 58 24 B2 4F 41 24 28 57 4F 29 AA 44 45 24 |.:X$.OA$(WO).DE$|
000011D0: AA 4F 42 24 28 57 4F 29 AA 44 45 24 AA 4F 4F 24 |.OB$(WO).DE$.OO$|
000011E0: 28 57 4F 29 AA 44 45 24 AA 4F 43 24 28 57 4F 29 |(WO).DE$.OC$(WO)|
000011F0: 00 11 16 40 0C 3A 8B 58 24 B2 22 2C 2C 2C 22 A7 |...@.:.X$.",,,".|
00001200: 58 24 B2 22 20 20 20 2C 20 20 20 2C 20 20 20 2C |X$." , , ,|
00001210: 22 00 28 16 41 0C 3A 8D 34 35 30 30 3A 58 31 24 |".(.A.:.4500:X1$|
00001220: B2 58 24 3A 43 58 B2 31 00 63 16 44 0C 3A 8D 33 |.X$:CX.1.c.D.:.3|
00001230: 31 37 30 3A 4F 41 24 28 57 4F 29 B2 58 24 3A 20 |170:OA$(WO).X$: |
00001240: 8D 33 31 37 30 3A 8B 20 58 24 B3 B1 22 3D 22 20 |.3170:. X$.."=" |
00001250: A7 20 4F 42 24 28 57 4F 29 B2 58 24 3A 89 20 33 |. OB$(WO).X$:. 3|
00001260: 31 34 32 00 90 16 45 0C 3A 20 4F 41 24 28 57 4F |142...E.: OA$(WO|
00001270: 29 B2 4F 41 24 28 57 4F 29 AA 22 20 3D 22 3A 8D |).OA$(WO)." =":.|
00001280: 33 31 37 30 3A 4F 42 24 28 57 4F 29 B2 58 24 3A |3170:OB$(WO).X$:|
00001290: 00 B9 16 46 0C 3A 8D 33 31 37 30 3A 4F 4F 24 28 |...F.:.3170:OO$(|
000012A0: 57 4F 29 B2 58 24 3A 20 8D 33 31 37 30 3A 4F 43 |WO).X$: .3170:OC|
000012B0: 24 28 57 4F 29 B2 58 24 3A 00 E6 16 47 0C 3A 58 |$(WO).X$:...G.:X|
000012C0: 24 B2 C8 28 4F 42 24 28 57 4F 29 2C 31 29 3A 8B |$..(OB$(WO),1):.|
000012D0: 20 46 46 B3 B1 30 20 B0 20 58 24 B2 22 43 22 20 | FF..0 . X$."C" |
000012E0: A7 20 33 31 35 30 00 07 17 48 0C 3A 20 8B 20 58 |. 3150...H.: . X|
000012F0: 24 B2 22 30 22 20 B0 20 C5 28 58 24 29 B3 B1 30 |$."0" . .(X$)..0|
00001300: 20 A7 20 33 31 35 30 00 39 17 49 0C 3A 20 20 4F | . 3150.9.I.: O|
00001310: 43 24 28 57 4F 29 B2 4F 4F 24 28 57 4F 29 3A 4F |C$(WO).OO$(WO):O|
00001320: 4F 24 28 57 4F 29 B2 4F 42 24 28 57 4F 29 3A 4F |O$(WO).OB$(WO):O|
00001330: 42 24 28 57 4F 29 B2 22 22 00 59 17 4E 0C 3A 8B |B$(WO)."".Y.N.:.|
00001340: 4F 4F 24 28 57 4F 29 B2 22 22 A7 4F 4F 24 28 57 |OO$(WO)."".OO$(W|
00001350: 4F 29 B2 22 2E 22 AA 22 22 00 74 17 53 0C 3A 82 |O)."."."".t.S.:.|
00001360: 20 57 4F 3A 8D 33 3A 8B 20 47 24 B2 22 59 22 A7 | WO:.3:. G$."Y".|
00001370: 33 31 30 30 00 7A 17 58 0C 8E 00 83 17 62 0C 58 |3100.z.X.....b.X|
00001380: B2 43 58 00 AE 17 67 0C 8B CA 28 58 31 24 2C 58 |.CX...g...(X1$,X|
00001390: 2C 31 29 B3 B1 44 45 24 AF 58 B3 B2 C3 28 58 31 |,1)..DE$.X...(X1|
000013A0: 24 29 A7 58 B2 58 AA 31 3A 89 33 31 37 35 00 D4 |$).X.X.1:.3175..|
000013B0: 17 6C 0C 3A 58 24 B2 CA 28 58 31 24 2C 43 58 2C |.l.:X$..(X1$,CX,|
000013C0: 58 AB 43 58 29 3A 43 58 B2 58 AA 31 3A 8D 34 35 |X.CX):CX.X.1:.45|
000013D0: 38 30 3A 8E 00 07 18 76 0C 4D 44 B2 32 30 3A 4C |80:....v.MD.20:L|
000013E0: 45 24 B2 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |E$."............|
000013F0: 9D 9D 9D 9D 9D 22 3A 20 20 20 20 20 8D 33 31 30 |.....": .310|
00001400: 30 3A 89 33 31 39 30 00 17 18 7B 0C 46 46 B2 31 |0:.3190...{.FF.1|
00001410: 3A 89 20 33 31 39 30 00 2B 18 80 0C 8F 20 49 4E |:. 3190.+.... IN|
00001420: 53 54 52 55 43 54 20 43 41 4C 43 00 4B 18 85 0C |STRUCT CALC.K...|
00001430: 99 22 12 41 92 20 20 20 20 20 12 42 92 20 20 20 |.".A. .B. |
00001440: 20 12 43 92 20 20 20 20 12 44 92 00 73 18 8A 0C | .C. .D..s...|
00001450: 99 22 43 34 3D 20 20 22 44 45 24 22 43 35 20 20 |."C4= "DE$"C5 |
00001460: 22 44 45 24 22 2B 20 20 20 22 44 45 24 22 35 2E |"DE$"+ "DE$"5.|
00001470: 30 37 22 00 9B 18 8B 0C 99 22 43 31 3D 20 20 22 |07"......"C1= "|
00001480: 44 45 24 22 20 20 20 20 22 44 45 24 22 53 49 4E |DE$" "DE$"SIN|
00001490: 20 22 44 45 24 22 43 38 20 20 22 00 D8 18 8F 0C | "DE$"C8 ".....|
000014A0: 99 22 11 57 48 45 52 45 20 12 41 92 20 49 53 20 |.".WHERE .A. IS |
000014B0: 54 48 45 20 4C 45 54 54 45 52 20 27 43 27 20 50 |THE LETTER 'C' P|
000014C0: 4C 55 53 20 41 4E 59 20 43 4F 4C 55 4D 4E 20 4E |LUS ANY COLUMN N|
000014D0: 55 4D 42 45 52 20 22 3B 00 10 19 94 0C 99 22 41 |UMBER ";......"A|
000014E0: 4E 44 20 12 42 92 20 41 4E 44 20 12 44 92 20 41 |ND .B. AND .D. A|
000014F0: 52 45 20 45 49 54 48 45 52 20 52 45 41 4C 20 4E |RE EITHER REAL N|
00001500: 55 4D 42 45 52 53 20 4F 52 20 54 48 45 20 22 3B |UMBERS OR THE ";|
00001510: 00 3B 19 99 0C 99 22 4C 45 54 54 45 52 20 27 43 |.;...."LETTER 'C|
00001520: 27 20 50 4C 55 53 20 41 4E 59 20 43 4F 4C 55 4D |' PLUS ANY COLUM|
00001530: 4E 20 4E 55 4D 42 45 52 20 22 3B 00 65 19 9E 0C |N NUMBER ";.e...|
00001540: 99 22 41 4E 44 20 57 48 45 52 45 20 12 43 92 20 |."AND WHERE .C. |
00001550: 49 53 20 41 20 4D 41 54 48 20 4F 50 45 52 41 54 |IS A MATH OPERAT|
00001560: 49 4F 4E 3A 22 00 97 19 A0 0C 99 22 2E 2C 2B 2C |ION:"......".,+,|
00001570: 2D 2C 2A 2C 2F 2C 5E 2C 4C 4F 47 2C 53 49 4E 2C |-,*,/,^,LOG,SIN,|
00001580: 54 41 4E 2C 49 4E 54 2C 52 4E 44 2C 52 23 2C 42 |TAN,INT,RND,R#,B|
00001590: 41 52 2C 44 41 54 45 00 D1 19 A3 0C 99 22 11 43 |AR,DATE......".C|
000015A0: 4F 4C 55 4D 4E 53 3A 22 3A 81 58 B2 31 A4 48 43 |OLUMNS:":.X.1.HC|
000015B0: 3A 99 22 12 22 58 22 92 22 54 31 24 28 58 29 22 |:."."X"."T1$(X)"|
000015C0: 2F 22 54 32 24 28 58 29 22 20 22 3B 3A 82 58 3A |/"T2$(X)" ";:.X:|
000015D0: 99 00 D7 19 E3 0C 8E 00 EA 19 CC 10 8F 20 48 45 |............. HE|
000015E0: 41 44 45 52 20 4C 49 4E 45 53 00 0B 1A D1 10 99 |ADER LINES......|
000015F0: 22 93 20 20 20 20 20 20 20 20 20 20 20 20 12 48 |". .H|
00001600: 45 41 44 45 52 20 4C 49 4E 45 53 00 37 1A D6 10 |EADER LINES.7...|
00001610: 99 22 11 11 48 4F 57 20 4D 41 4E 59 20 48 45 41 |."..HOW MANY HEA|
00001620: 44 45 52 20 4C 49 4E 45 53 20 44 4F 20 59 4F 55 |DER LINES DO YOU|
00001630: 20 57 41 4E 54 3F 22 00 57 1A DB 10 58 31 B2 31 | WANT?".W...X1.1|
00001640: 3A 58 32 B2 4D 44 3A 58 B2 48 48 3A 8D 20 34 38 |:X2.MD:X.HH:. 48|
00001650: 30 30 3A 48 48 B2 58 00 65 1A E0 10 81 20 58 B2 |00:HH.X.e.... X.|
00001660: 31 A4 20 48 48 00 86 1A E5 10 3A 99 22 11 45 4E |1. HH.....:.".EN|
00001670: 54 45 52 20 48 45 41 44 45 52 20 4C 49 4E 45 20 |TER HEADER LINE |
00001680: 23 22 58 22 3A 22 00 A5 1A EA 10 3A 58 24 B2 48 |#"X":".....:X$.H|
00001690: 4C 24 28 58 29 3A 8D 34 35 30 30 3A 48 4C 24 28 |L$(X):.4500:HL$(|
000016A0: 58 29 B2 58 24 00 B0 1A EF 10 3A 82 20 58 3A 8E |X).X$.....:. X:.|
000016B0: 00 BB 1A 30 11 8F 20 59 45 53 3F 00 DF 1A 35 11 |...0.. YES?...5.|
000016C0: 58 24 B2 CA 28 22 59 4E 22 2C 31 AB 28 28 58 AF |X$..("YN",1.((X.|
000016D0: 58 33 29 B2 30 29 2C 31 29 3A 8D 34 35 30 30 00 |X3).0),1):.4500.|
000016E0: 17 1B 37 11 8B 20 58 24 B3 B1 22 59 22 AF 58 24 |..7.. X$.."Y".X$|
000016F0: B3 B1 22 4E 22 A7 99 22 12 50 4C 45 41 53 45 20 |.."N"..".PLEASE |
00001700: 41 4E 53 57 45 52 20 20 59 20 20 4F 52 20 20 4E |ANSWER Y OR N|
00001710: 22 3A 89 34 34 30 30 00 45 1B 3A 11 58 24 B2 C8 |":.4400.E.:.X$..|
00001720: 28 58 24 2C 31 29 3A 58 B2 28 20 58 AF 28 A8 20 |(X$,1):X.( X.(. |
00001730: 58 33 29 20 B0 20 28 58 24 B2 22 59 22 29 AF 58 |X3) . (X$."Y").X|
00001740: 33 20 29 3A 8E 00 6A 1B 94 11 99 58 24 C8 28 4C |3 ):..j....X$.(L|
00001750: 45 24 2C C3 28 58 24 29 29 3B 3A 43 58 B2 31 3A |E$,.(X$));:CX.1:|
00001760: 8F 20 47 41 52 44 20 49 4E 50 00 9D 1B 99 11 4D |. GARD INP.....M|
00001770: 24 B2 CA 28 58 24 AA 22 20 22 2C 43 58 2C 31 29 |$..(X$." ",CX,1)|
00001780: 3A 99 22 12 22 4D 24 22 92 9D 22 3B 3A A1 47 24 |:."."M$"..";:.G$|
00001790: 3A 8B 47 24 B2 22 22 A7 8D 34 35 36 35 00 D0 1B |:.G$.""..4565...|
000017A0: 9E 11 3A 41 B2 C6 28 47 24 29 3A 99 4D 24 22 9D |..:A..(G$):.M$".|
000017B0: 22 3B 3A 8B 28 41 20 AF 20 31 32 37 29 B3 33 32 |";:.(A . 127).32|
000017C0: B0 43 58 B1 37 37 B0 41 B2 33 34 A7 34 35 32 30 |.CX.77.A.34.4520|
000017D0: 00 05 1C A3 11 3A 20 99 47 24 3B 3A 58 24 B2 C8 |.....: .G$;:X$..|
000017E0: 28 58 24 2C 43 58 AB 31 29 AA 47 24 AA CA 28 58 |(X$,CX.1).G$..(X|
000017F0: 24 2C 43 58 AA 31 29 3A 43 58 B2 43 58 AA 31 3A |$,CX.1):CX.CX.1:|
00001800: 89 34 35 30 35 00 2F 1C A8 11 3A 8B 41 B2 31 35 |.4505./...:.A.15|
00001810: 37 A7 8B 43 58 B1 31 A7 43 58 B2 43 58 AB 31 3A |7..CX.1.CX.CX.1:|
00001820: 99 47 24 3B 3A 89 34 35 30 35 3A 8F 20 4C 46 00 |.G$;:.4505:. LF.|
00001830: 5A 1C AD 11 3A 8B 41 B2 32 39 AF 43 58 B3 B2 C3 |Z...:.A.29.CX...|
00001840: 28 58 24 29 A7 43 58 B2 43 58 AA 31 3A 99 47 24 |(X$).CX.CX.1:.G$|
00001850: 3B 3A 89 34 35 30 35 3A 52 49 00 75 1C B2 11 3A |;:.4505:RI.u...:|
00001860: 8B 41 B2 31 33 A7 99 3A 8D 34 35 38 30 3A 8E 3A |.A.13..:.4580:.:|
00001870: 8F 20 52 45 54 00 AA 1C B7 11 3A 8B 41 B2 32 30 |. RET.....:.A.20|
00001880: A7 8B 43 58 B1 31 A7 99 47 24 3B 3A 58 24 B2 C8 |..CX.1..G$;:X$..|
00001890: 28 58 24 2C 43 58 AB 32 29 AA CA 28 58 24 2C 43 |(X$,CX.2)..(X$,C|
000018A0: 58 29 3A 43 58 B2 43 58 AB 31 00 C5 1C BC 11 3A |X):CX.CX.1.....:|
000018B0: 8B 41 B2 31 34 38 AF C3 28 58 24 29 B3 37 38 A7 |.A.148..(X$).78.|
000018C0: 8D 34 35 35 35 00 EA 1C C1 11 3A 8B 41 B2 31 34 |.4555.....:.A.14|
000018D0: 37 A7 4C B2 C3 28 58 24 29 3A 8D 34 35 36 30 3A |7.L..(X$):.4560:|
000018E0: 43 58 B2 31 3A 58 24 B2 22 22 00 F5 1C C6 11 3A |CX.1:X$."".....:|
000018F0: 89 34 35 30 35 00 24 1D CB 11 58 24 B2 C8 28 58 |.4505.$...X$..(X|
00001900: 24 2C 43 58 AB 31 29 AA 22 20 22 AA CA 28 58 24 |$,CX.1)." "..(X$|
00001910: 2C 43 58 29 3A 99 47 24 22 20 9D 22 3B 3A 8E 3A |,CX):.G$" .";:.:|
00001920: 8F 20 49 4E 00 4D 1D D0 11 99 C8 28 4C 45 24 2C |. IN.M.....(LE$,|
00001930: 43 58 AB 31 29 C8 28 53 50 24 2C 4C 29 C8 28 4C |CX.1).(SP$,L).(L|
00001940: 45 24 2C 4C 29 3B 3A 8E 3A 8F 20 43 4C 00 7B 1D |E$,L);:.:. CL.{.|
00001950: D5 11 99 22 12 22 4D 24 22 9D 92 22 3B 3A 81 57 |..."."M$"..";:.W|
00001960: B2 31 A4 35 30 3A A1 47 24 3A 8B 47 24 B3 B1 22 |.1.50:.G$:.G$.."|
00001970: 22 A7 99 4D 24 22 9D 22 3B 3A 8E 00 A1 1D DA 11 |"..M$".";:......|
00001980: 3A 82 57 3A 99 4D 24 22 9D 22 3B 3A 81 57 B2 31 |:.W:.M$".";:.W.1|
00001990: A4 35 30 3A A1 47 24 3A 8B 47 24 B3 B1 22 22 A7 |.50:.G$:.G$.."".|
000019A0: 8E 00 AF 1D DF 11 3A 82 57 3A 89 34 35 36 35 00 |......:.W:.4565.|
000019B0: DB 1D E4 11 8B C8 28 58 24 2C 31 29 B2 22 20 22 |......(X$,1)." "|
000019C0: A7 58 24 B2 CA 28 58 24 2C 32 29 3A 89 34 35 38 |.X$..(X$,2):.458|
000019D0: 30 3A 8F 20 2D 53 50 41 43 45 53 00 04 1E E9 11 |0:. -SPACES.....|
000019E0: 3A 8B C9 28 58 24 2C 31 29 B2 22 20 22 A7 58 24 |:..(X$,1)." ".X$|
000019F0: B2 C8 28 58 24 2C C3 28 58 24 29 AB 31 29 3A 89 |..(X$,.(X$).1):.|
00001A00: 34 35 38 35 00 0B 1E EE 11 3A 8E 00 20 1E F8 11 |4585.....:.. ...|
00001A10: 8F 20 4A 55 53 54 20 54 4F 54 53 20 41 56 52 53 |. JUST TOTS AVRS|
00001A20: 00 62 1E FD 11 99 22 11 49 53 20 54 48 49 53 20 |.b....".IS THIS |
00001A30: 41 20 4E 55 4D 45 52 49 43 20 43 4F 4C 55 4D 4E |A NUMERIC COLUMN|
00001A40: 3F 22 3A 58 B2 46 4C 25 28 57 43 29 3A 58 33 B2 |?":X.FL%(WC):X3.|
00001A50: 38 3A 8D 20 34 34 30 30 3A 46 4C 25 28 57 43 29 |8:. 4400:FL%(WC)|
00001A60: B2 58 00 7E 1E 02 12 3A 8B 20 58 24 B2 22 4E 22 |.X.~...:. X$."N"|
00001A70: 20 A7 20 46 4C 25 28 57 43 29 B2 30 3A 8E 00 B8 | . FL%(WC).0:...|
00001A80: 1E 07 12 99 22 4E 55 4D 45 52 49 43 20 4A 55 53 |...."NUMERIC JUS|
00001A90: 54 49 46 49 45 44 3F 22 3A 58 B2 46 4C 25 28 57 |TIFIED?":X.FL%(W|
00001AA0: 43 29 3A 58 33 B2 31 3A 8D 20 34 34 30 30 3A 46 |C):X3.1:. 4400:F|
00001AB0: 4C 25 28 57 43 29 B2 58 00 D1 1E 0C 12 3A 8B 20 |L%(WC).X.....:. |
00001AC0: 58 24 B2 22 4E 22 A7 20 34 36 34 30 3A 8F 2D 2D |X$."N". 4640:.--|
00001AD0: 2D 00 FC 1E 11 12 3A 20 99 22 50 4C 41 43 45 53 |-.....: ."PLACES|
00001AE0: 20 54 4F 20 52 49 47 48 54 20 4F 46 20 44 45 43 | TO RIGHT OF DEC|
00001AF0: 49 4D 41 4C 20 50 4F 49 4E 54 3F 22 00 30 1F 16 |IMAL POINT?".0..|
00001B00: 12 3A 20 20 58 31 B2 30 3A 58 32 B2 43 50 25 28 |.: X1.0:X2.CP%(|
00001B10: 57 43 29 AB 31 3A 58 B2 52 44 25 28 57 43 29 3A |WC).1:X.RD%(WC):|
00001B20: 8D 20 34 38 30 30 3A 52 44 25 28 57 43 29 B2 58 |. 4800:RD%(WC).X|
00001B30: 00 6C 1F 1B 12 3A 20 20 4C 44 25 28 57 43 29 B2 |.l...: LD%(WC).|
00001B40: 43 50 25 28 57 43 29 3A 8B 20 52 44 25 28 57 43 |CP%(WC):. RD%(WC|
00001B50: 29 A7 20 4C 44 25 28 57 43 29 B2 43 50 25 28 57 |). LD%(WC).CP%(W|
00001B60: 43 29 AB 52 44 25 28 57 43 29 AB 31 00 A2 1F 20 |C).RD%(WC).1... |
00001B70: 12 3A 99 22 54 4F 54 41 4C 20 41 54 20 45 4E 44 |.:."TOTAL AT END|
00001B80: 3F 22 3A 58 B2 46 4C 25 28 57 43 29 3A 58 33 B2 |?":X.FL%(WC):X3.|
00001B90: 32 3A 8D 20 34 34 30 30 3A 46 4C 25 28 57 43 29 |2:. 4400:FL%(WC)|
00001BA0: B2 58 00 DA 1F 25 12 3A 99 22 41 56 45 52 41 47 |.X...%.:."AVERAG|
00001BB0: 45 20 41 54 20 45 4E 44 3F 22 3A 58 B2 46 4C 25 |E AT END?":X.FL%|
00001BC0: 28 57 43 29 3A 58 33 B2 34 3A 8D 20 34 34 30 30 |(WC):X3.4:. 4400|
00001BD0: 3A 46 4C 25 28 57 43 29 B2 58 00 F2 1F 2A 12 3A |:FL%(WC).X...*.:|
00001BE0: 8B 20 58 46 B2 30 20 A7 20 34 36 36 35 3A 8F 2D |. XF.0 . 4665:.-|
00001BF0: 2D 2D 00 2A 20 2F 12 3A 99 22 53 48 4F 55 4C 44 |--.* /.:."SHOULD|
00001C00: 20 46 49 45 4C 44 53 20 42 45 20 41 44 44 45 44 | FIELDS BE ADDED|
00001C10: 20 49 46 20 52 45 43 4F 52 44 53 20 41 52 45 20 | IF RECORDS ARE |
00001C20: 43 4F 4D 42 49 4E 45 44 3F 22 00 51 20 34 12 3A |COMBINED?".Q 4.:|
00001C30: 20 58 B2 46 4C 25 28 57 43 29 3A 58 33 B2 31 36 | X.FL%(WC):X3.16|
00001C40: 3A 8D 20 34 34 30 30 3A 46 4C 25 28 57 43 29 B2 |:. 4400:FL%(WC).|
00001C50: 58 00 57 20 39 12 8E 00 85 20 5C 12 8D 34 35 30 |X.W 9.... \..450|
00001C60: 30 3A 4C B2 C3 28 58 24 29 3A 8B 4C B3 31 B0 4C |0:L..(X$):.L.1.L|
00001C70: B1 31 35 A7 34 37 38 30 3A 8F 20 46 49 4C 45 20 |.15.4780:. FILE |
00001C80: 4E 41 4D 45 3F 00 C5 20 95 12 3A 81 58 B2 31 A4 |NAME?.. ..:.X.1.|
00001C90: 4C 3A 58 31 24 B2 CA 28 58 24 2C 58 2C 31 29 3A |L:X1$..(X$,X,1):|
00001CA0: 8B 58 31 24 B2 22 2A 22 B0 58 31 24 B2 22 2C 22 |.X1$."*".X1$.","|
00001CB0: B0 58 31 24 B2 22 3A 22 B0 58 31 24 B2 22 3F 22 |.X1$.":".X1$."?"|
00001CC0: A7 34 37 38 30 00 D0 20 96 12 3A 20 82 58 3A 8E |.4780.. ..: .X:.|
00001CD0: 00 11 21 AC 12 3A 99 22 12 45 4E 54 45 52 20 31 |..!..:.".ENTER 1|
00001CE0: 20 54 4F 20 31 35 20 43 48 41 52 41 54 45 52 53 | TO 15 CHARATERS|
00001CF0: 2C 20 44 4F 20 4E 4F 54 20 45 4E 54 45 52 20 50 |, DO NOT ENTER P|
00001D00: 55 4E 43 54 55 41 54 49 4F 4E 22 3A 89 34 37 30 |UNCTUATION":.470|
00001D10: 30 00 22 21 C0 12 8F 20 41 53 4B 20 4E 55 4D 42 |0."!... ASK NUMB|
00001D20: 45 52 00 53 21 CA 12 58 24 B2 CA 28 C4 28 58 29 |ER.S!..X$..(.(X)|
00001D30: 2C 32 29 3A 8D 34 35 30 30 3A 58 B2 C5 28 58 24 |,2):.4500:X..(X$|
00001D40: 29 3A 8B 58 B2 30 AF 58 24 B3 B1 22 30 22 A7 34 |):.X.0.X$.."0".4|
00001D50: 38 31 32 00 66 21 CB 12 8B 58 B2 B1 58 31 AF 58 |812.f!...X..X1.X|
00001D60: B2 B3 58 32 A7 8E 00 94 21 CC 12 99 22 12 49 4C |..X2....!...".IL|
00001D70: 4C 45 47 41 4C 20 45 4E 54 52 59 20 2D 20 50 4C |LEGAL ENTRY - PL|
00001D80: 45 41 53 45 20 45 4E 54 45 52 20 41 20 4E 55 4D |EASE ENTER A NUM|
00001D90: 42 45 52 22 00 BC 21 CF 12 99 22 12 49 4E 20 54 |BER"..!...".IN T|
00001DA0: 48 45 20 52 41 4E 47 45 20 4F 46 22 58 31 22 9D |HE RANGE OF"X1".|
00001DB0: 20 54 4F 22 58 32 3A 89 34 38 30 30 00 D4 21 7C | TO"X2:.4800..!||
00001DC0: 15 8F 20 46 52 4F 4D 2C 54 49 54 4C 45 53 2C 57 |.. FROM,TITLES,W|
00001DD0: 49 44 54 48 00 0A 22 7E 15 99 22 11 52 41 4E 44 |IDTH.."~..".RAND|
00001DE0: 4F 4D 20 46 49 45 4C 44 53 3A 22 3A 81 58 B2 31 |OM FIELDS:":.X.1|
00001DF0: A4 48 46 3A 99 22 20 12 22 58 22 92 9D 22 46 54 |.HF:." ."X".."FT|
00001E00: 24 28 58 29 3B 3A 82 58 3A 99 00 39 22 81 15 99 |$(X);:.X:..9"...|
00001E10: 22 11 4C 4F 41 44 20 43 4F 4C 55 4D 4E 20 23 22 |".LOAD COLUMN #"|
00001E20: 57 43 22 46 52 4F 4D 20 52 41 4E 44 4F 4D 20 46 |WC"FROM RANDOM F|
00001E30: 49 45 4C 44 20 23 3F 22 3A 00 65 22 86 15 3A 58 |IELD #?":.e"..:X|
00001E40: 31 B2 30 3A 58 32 B2 48 46 3A 58 B2 20 41 52 25 |1.0:X2.HF:X. AR%|
00001E50: 28 57 43 29 3A 8D 20 34 38 30 30 3A 41 52 25 28 |(WC):. 4800:AR%(|
00001E60: 57 43 29 B2 58 00 9F 22 90 15 99 22 11 54 49 54 |WC).X.."...".TIT|
00001E70: 4C 45 20 4F 46 20 43 4F 4C 55 4D 4E 20 23 22 57 |LE OF COLUMN #"W|
00001E80: 43 22 3F 22 52 24 22 28 55 53 45 20 20 2F 20 20 |C"?"R$"(USE / |
00001E90: 46 4F 52 20 54 57 4F 20 4C 49 4E 45 53 29 22 00 |FOR TWO LINES)".|
00001EA0: CE 22 95 15 3A 58 24 B2 54 32 24 28 57 43 29 3A |."..:X$.T2$(WC):|
00001EB0: 8B 20 C3 28 54 31 24 28 57 43 29 29 A7 58 24 B2 |. .(T1$(WC)).X$.|
00001EC0: 54 31 24 28 57 43 29 AA 22 2F 22 AA 58 24 00 D9 |T1$(WC)."/".X$..|
00001ED0: 22 9A 15 3A 8D 34 35 30 30 00 0E 23 9F 15 3A 81 |"..:.4500..#..:.|
00001EE0: 20 58 B2 31 A4 C3 28 58 24 29 3A 8B 20 CA 28 58 | X.1..(X$):. .(X|
00001EF0: 24 2C 58 2C 31 29 B3 B1 22 2F 22 A7 20 82 20 58 |$,X,1).."/". . X|
00001F00: 3A 58 B2 31 3A 58 24 B2 22 2F 22 AA 58 24 00 38 |:X.1:X$."/".X$.8|
00001F10: 23 A4 15 3A 20 54 31 24 28 57 43 29 B2 C8 28 58 |#..: T1$(WC)..(X|
00001F20: 24 2C 58 AB 31 29 3A 54 32 24 28 57 43 29 B2 CA |$,X.1):T2$(WC)..|
00001F30: 28 58 24 2C 58 AA 31 29 00 5C 23 A9 15 99 22 11 |(X$,X.1).\#...".|
00001F40: 4E 4F 2E 20 4F 46 20 43 48 41 52 53 20 46 4F 52 |NO. OF CHARS FOR|
00001F50: 20 43 4F 4C 20 23 22 57 43 22 3F 22 00 88 23 AE | COL #"WC"?"..#.|
00001F60: 15 3A 58 31 B2 31 3A 8B 58 31 B3 C3 28 54 31 24 |.:X1.1:.X1..(T1$|
00001F70: 28 57 43 29 29 AD 35 A7 20 58 31 B2 C3 28 54 31 |(WC)).5. X1..(T1|
00001F80: 24 28 57 43 29 29 AD 35 00 AF 23 B3 15 3A 8B 58 |$(WC)).5..#..:.X|
00001F90: 31 B3 C3 28 54 32 24 28 57 43 29 29 AD 35 A7 20 |1..(T2$(WC)).5. |
00001FA0: 58 31 B2 C3 28 54 32 24 28 57 43 29 29 AD 35 00 |X1..(T2$(WC)).5.|
00001FB0: E0 23 B8 15 3A 58 31 B2 B5 28 58 31 AA 31 29 3A |.#..:X1..(X1.1):|
00001FC0: 58 32 B2 38 30 3A 58 B2 43 50 25 28 57 43 29 3A |X2.80:X.CP%(WC):|
00001FD0: 8D 20 34 38 30 30 3A 43 50 25 28 57 43 29 B2 58 |. 4800:CP%(WC).X|
00001FE0: 00 E6 23 BD 15 8E 00 F7 23 E0 15 8F 20 41 53 4B |..#.....#... ASK|
00001FF0: 20 4C 4F 4F 4B 55 50 00 2D 24 E5 15 99 22 11 48 | LOOKUP.-$...".H|
00002000: 4F 57 20 4D 41 4E 59 20 4C 4F 4F 4B 55 50 20 46 |OW MANY LOOKUP F|
00002010: 49 4C 45 53 3F 22 3A 58 31 B2 30 3A 58 32 B2 31 |ILES?":X1.0:X2.1|
00002020: 30 3A 58 B2 48 4C 3A 8D 20 34 38 30 30 00 4C 24 |0:X.HL:. 4800.L$|
00002030: EA 15 8B 20 48 4C B3 B1 58 20 A7 20 48 4C B2 58 |... HL..X . HL.X|
00002040: 3A 8B 20 48 4C 20 A7 20 47 4C B2 31 00 5B 24 EF |:. HL . GL.1.[$.|
00002050: 15 8B 20 48 4C B2 30 20 A7 20 8E 00 89 24 F4 15 |.. HL.0 . ...$..|
00002060: 81 20 57 4C B2 31 20 A4 20 48 4C 3A 99 22 4E 41 |. WL.1 . HL:."NA|
00002070: 4D 45 20 4F 46 20 46 49 4C 45 23 22 57 4C 3A 58 |ME OF FILE#"WL:X|
00002080: 24 B2 4C 54 24 28 57 4C 29 00 C0 24 F9 15 3A 58 |$.LT$(WL)..$..:X|
00002090: 24 B2 4C 54 24 28 57 4C 29 3A 8D 34 35 30 30 3A |$.LT$(WL):.4500:|
000020A0: 8B 20 58 24 B3 B1 20 4C 54 24 28 57 4C 29 20 A7 |. X$.. LT$(WL) .|
000020B0: 20 4C 54 24 28 57 4C 29 B2 58 24 3A 47 4C B2 31 | LT$(WL).X$:GL.1|
000020C0: 00 DA 24 FE 15 82 20 57 4C 3A 8D 33 3A 8B 20 47 |..$... WL:.3:. G|
000020D0: 24 B2 22 59 22 A7 35 36 30 30 00 E0 24 03 16 8E |$."Y".5600..$...|
000020E0: 00 EC 24 44 16 8F 20 43 41 53 45 3F 00 00 25 53 |..$D.. CASE?..%S|
000020F0: 16 8B 20 4D 43 B2 30 20 A7 20 41 43 B2 30 3A 8E |.. MC.0 . AC.0:.|
00002100: 00 35 25 58 16 3A 99 22 11 43 4F 4E 56 45 52 54 |.5%X.:.".CONVERT|
00002110: 20 54 4F 20 41 4C 4C 20 43 41 50 53 3F 22 3A 58 | TO ALL CAPS?":X|
00002120: B2 41 43 3A 58 33 B2 AB 31 3A 8D 20 34 34 30 30 |.AC:X3..1:. 4400|
00002130: 3A 41 43 B2 58 00 3B 25 6C 16 8E 00 46 25 8C 23 |:AC.X.;%l...F%.#|
00002140: 8F 20 45 58 49 54 00 6B 25 8D 23 58 24 B2 22 52 |. EXIT.k%.#X$."R|
00002150: 45 50 4F 52 54 20 57 52 49 54 45 52 22 3A 8D 20 |EPORT WRITER":. |
00002160: 39 32 30 30 3A 89 20 39 31 30 31 00 7B 25 F0 23 |9200:. 9101.{%.#|
00002170: 8F 20 4C 4F 41 44 20 50 52 4F 47 00 B2 25 F1 23 |. LOAD PROG..%.#|
00002180: A0 20 52 41 3A 8B 20 44 54 B2 31 20 AF 20 52 56 |. RA:. DT.1 . RV|
00002190: B2 31 20 A7 20 99 22 11 12 49 4E 53 45 52 54 20 |.1 . ."..INSERT |
000021A0: 50 52 4F 47 52 41 4D 20 44 49 53 4B 22 3A 8D 20 |PROGRAM DISK":. |
000021B0: 31 30 00 D5 25 F5 23 98 4B 4B 28 30 29 2C 22 49 |10..%.#.KK(0),"I|
000021C0: 30 22 3A 99 22 11 28 4C 4F 41 44 49 4E 47 20 22 |0":.".(LOADING "|
000021D0: 58 24 22 29 22 00 08 26 FA 23 9F 20 53 45 2C 38 |X$")"..&.#. SE,8|
000021E0: 2C 53 45 2C 22 30 3A 22 AA 58 24 AA 22 2C 50 2C |,SE,"0:".X$.",P,|
000021F0: 52 22 3A 56 4F B2 30 3A 8D 20 38 3A A0 20 53 45 |R":VO.0:. 8:. SE|
00002200: 3A 8B 20 45 20 A7 20 8E 00 1F 26 FF 23 8B 20 4C |:. E . ...&.#. L|
00002210: 49 B3 32 35 33 20 A7 20 97 20 49 56 2C 4C 49 00 |I.253 . . IV,LI.|
00002220: 31 26 04 24 93 20 22 30 3A 22 AA 58 24 2C 38 3A |1&.$. "0:".X$,8:|
00002230: 90 00 00 00 34 |....4 |
............. 1100.O.... 15,8,15,"I0":.1
5,"S0:CHANGE FORM":."0:CHANGE FORM",8:..
{...."CORRECTIONS?(.Y./.N.)":G1$."YN":.
5:.......4,4:.4:.......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.EADY?":G1$."R":.5:....... MAI
N.&.... SELECT.4.... (CONT).B.... HM CO
LS.V.... DESCRIBE COLS.K.... DISPLAY SEL
ECT.V.... MISC...... MISC PAPER...... CA
LC... .. INSTRUCT CALC...+.. HEADER LINE
S.D.,.. YES?.O.-.. ASK$...... JUST TOTS
AVRS.../.. FILE NAME?...0.. ASK NUMBER..
.7.. FROM,TITLES,WIDTH./.9.. ASK LOOKUP.
>.:.. $CONVERT.I.[.. EXIT.Y.\.. LOAD PRO
G.D.L.. MAIN.W.N.. PD..1 . 1105...P..ML.
44:. B(B7.8).0..".PRESS STOP ON CASSETTE
":.1104.Q.Q..". .CHANGE FORMAT
"...V.."..H.EADER LINES...[.."..N.UMBER
OF COLUMNS.!.].."..D.ESCRIPTION OF COLUM
N.G.`.."..S.ELECTION OF RECORD CRITERIA.
H.E.."..C.ALCULATED COLUMNS INFO...K.. X
F . ."..L.OOKUP FILES...L.."..M.ISC...O.
."..^. RETURN TO REPORT WRITER...T.G1$."
HNDSC"."CM^":. XF . G1$."HNDSC"."LM^"...
Y.. 5:. V . 4300,2300,2400,2100,3100, 56
00,2700,9100.'.... 1100.4.4.. SELECT.A.9
.T$. ". .SELECT CHANGE.".R
$...>..".DO YOU WISH TO SELECT CERTAIN R
ECORDS?"...C.X.HS:X3..1:. 4400:. X.0. HS
.0:....H.. WS.1 . MD:. 2200:. SL%(WS)..3
. . WS...... WS.MD . .".SELECTION TOO C
OMPLEX!!":. 2100.6.... SL%(WS)..3 . WS.W
S.1:X.5:. 2110.\...HS.WS:X.0:. 2500:.3:.
G$."Y".2100.B.....O.... (CONT)......T$"
FIELDS:":. WF.1 . HF:. WF;FT$(WF):. WF.N
...:X.1:. 2500:."..ENTER FIELD NO:":. DI
SP SEL.....:X.SA%(WS):X1.1:X2.HF:. 4800:
SA%(WS).X.3....T$"EQUALITY TYPES:":. X.1
. 9.(XF..0):. X;EQ$(X):. X.`.E.:X.2:. 2
500:."..ENTER EQUALITY TYPE NO:"...J.:X.
SE%(WS):X1.1:X2.9.(XF..0):. 4800:SE%(WS)
.X...O..T$"ARGUMENT CAN BE ANY ALPHA-NUM
STRING"...T.:X.3:. 2500:."..ENTER ARGUM
ENT:"...Y.:X$.SB$(WS):.4500:SB$(WS).X$.<
....T$"LOGICAL CONECTIONS:":. X.1 . 3:.
X;LO$(X):. X.F...:X.4:. 2500:."..ENTER C
ONNECTION NO:".....:.WS.RW.SL%(WS).3:.22
15.....:X.SL%(WS):X1.1:X2.3:.4800:SL%(WS
).X............ HM COLS......".HOW MANY
PRINTED COLUMNS DO YOU WANT?".....:X.HC:
X1.1:X2.MD:.4800:HC.X:WC.1:..(.`.. DESCR
IBE COLS.L.E..".";:. HC.1 . . 2300:. HM
COLS...G..".COLUMNS:":. X.1.HC:."."X"."T
1$(X)"/"T2$(X);:.X:....J..".WHICH COLUMN
DO YOU WANT TO DESCRIBE?".R.O.:X.WC:X1.
1:X2.HC:.4800:WC.X...{.. 5500:. 4600:. F
RO-TIT-WID,JUS-TOT-AVR...~.....D.. DISPL
AY SELECT.;.F.."..YOUR SELECTION STATEME
NT:.X.I.."IF (";:. HS.WS . HS.WS...N.. Y
.1 . HS:. Y.WS . . X.1 . ."...";:.2520..
.S.. FT$(SA%(Y));...X.. Y.WS . . X.2 . .
"...";:.2530.U.... " "EQ$(SE%(Y))" ";...
... Y.WS . . X.3 . ."...";:.2540...... S
B$(Y);.).... Y.WS . . X.4 . ."...";:.255
0.<.... LO$(SL%(Y));.H.... Y:.:..T.... M
ISC1.....". .CHANGE MISCELLANEOU
S ITEMS......".KEYS:":.X.0.HK:."."X.1"..
";.V...:. D.1.SF%(X,0):.FT$(SF%(X,D))":
";:.D:.". ":.X... .:.".WHICH KEY?":X1.1:
X2.HK.1:X.WK.1:.4800:WK.X.1.R....".DEVIC
E NO? (4=MOST PRINTERS, 3=SCREEN, 8=DISK
FILE, 1=CASSETTE).T...:X1.1:X2.255:X.PD
:. 4800:PD.X.....:. D9 . . PD.D9 . PD.8.
..... PD..8 . PD..1 . . 2800:. 2760:. PA
PER.....:.".OUTPUT TO WORD PROCESSOR?...
..:."(PAGE MATE, WORD PRO, EASY SCRIPT)"
:X.WP:X3..1:. 4400:WP.X.X...:. XF . .".O
UTPUT TO DIF FILE?":X.DF:X3.1:.4400:DF.X
...C.:.".NAME OF SEQ FILE?":X$.NS$:.4700
:NS$.X$.J.H..".CHARACTERS PER SELECTION
CODE?":X1.1:X2.10:X.HT:. 4800:HT.X...M..
XF.0 . 2782...R.:.".HOW MANY FIELDS DET
ERMINE IF RECORDS ARE TO BE COMBINED?".Z
.W.:."(ENTER 0 IF SIMILAR RECORDS ARE NO
T TO BE COMBINED)".....:X1.0:X2.SF%(WK,0
):X.KR:. 4800:KR.X.E....".ASCENDING ORDE
R?(N=DESCENDING ORDER)":X.AS:X3..1:.4400
:AS.X...... 5700:.3:.G$."Y".2700:. $COVE
RT............ MISC PAPER.9....".HOW MAN
Y SPACES DO YOU WANT TO INDENT COLUMN #1
?.B...:X1.0:X2.80:X.CP%(0):. 4800:CP%(0)
.X......".HOW MANY CHARACTERS ACROSS DOE
S YOUR PRINTER PRINT?".A...:X1.20:X2.250
:X.PW:. 4800:PW.X......".LINES PER PAGE?
":X1.30:X2.9E9:X.LP:. 4800:LP.X.-....".P
AUSE AFTER EACH PAGE?":X.PP:X3..1:. 4400
:PP.X.E....".FIRST PAGE NUMBER?":X.P1:X1
.0:X2.9E9:. 4800:P1.X......".NO OF CHARA
CTERS SENT TO PRINTER?":X1.0:X2.10.J...:
X.CH%(0):. 4800:CH%(0).X:. X.0 . 2880:.-
--.....:.Y.1.X:."ASCII VALUE #"Y"?":X.CH
%(Y):X1.0:X2.255...".: . 4800:CH%(Y).X:.
Y.\.@..".HOW MANY LEVELS OF SUBTOTALS?"
:X2.SF%(WK,0):. KR . X2.KR.1.R.E.:X.LS:.
4800:LS.X...J.. LS.0 . 2899.F.O.:.".SEP
ARATE REPORTS FOR EACH SUBTOTAL?":X.SR:X
3.1:.4400:SR.X.L.S...W.... CALC...!..".
.CALCULATED COLUMNS INFO.5.&.."
.HOW MANY OPERATIONS DO YOU WANT TO PERF
ORM?".`.+.X1.0:X2.MD:X.HO:. 4800:HO.X:.
HO.0 . ..{.0.DE$." ":. FF . DE$.","...2.
. 3200:. INSTRUCT...5.. WO.1 . HO...:.:.
".OPERATION #"WO".:"...?.:X$.OA$(WO).DE$
.OB$(WO).DE$.OO$(WO).DE$.OC$(WO)...@.:.X
$.",,,".X$." , , ,".(.A.:.4500:X1$
.X$:CX.1.C.D.:.3170:OA$(WO).X$: .3170:.
X$.."=" . OB$(WO).X$:. 3142...E.: OA$(WO
).OA$(WO)." =":.3170:OB$(WO).X$:...F.:.3
170:OO$(WO).X$: .3170:OC$(WO).X$:...G.:X
$.H(OB$(WO),1):. FF..0 . X$."C" . 3150..
.H.: . X$."0" . E(X$)..0 . 3150.9.I.: O
C$(WO).OO$(WO):OO$(WO).OB$(WO):OB$(WO)."
".Y.N.:.OO$(WO)."".OO$(WO)."."."".T.S.:.
WO:.3:. G$."Y".3100.Z.X.....B.X.CX...G.
.J(X1$,X,1)..DE$.X..C(X1$).X.X.1:.3175.T
.L.:X$.J(X1$,CX,X.CX):CX.X.1:.4580:....V
.MD.20:LE$.".................": .310
0:.3190...{.FF.1:. 3190.+.... INSTRUCT C
ALC.K....".A. .B. .C. .D..S...
."C4= "DE$"C5 "DE$"+ "DE$"5.07".....
."C1= "DE$" "DE$"SIN "DE$"C8 ".X...
.".WHERE .A. IS THE LETTER 'C' PLUS ANY
COLUMN NUMBER ";......"AND .B. AND .D. A
RE EITHER REAL NUMBERS OR THE ";.;...."L
ETTER 'C' PLUS ANY COLUMN NUMBER ";.E...
."AND WHERE .C. IS A MATH OPERATION:"...
..".,+,-,*,/,^,LOG,SIN,TAN,INT,RND,R#,B
AR,DATE.Q....".COLUMNS:":.X.1.HC:."."X".
"T1$(X)"/"T2$(X)" ";:.X:..W.......L.. HE
ADER LINES...Q..". .HEADER LI
NES.7.V.."..HOW MANY HEADER LINES DO YOU
WANT?".W...X1.1:X2.MD:X.HH:. 4800:HH.X.
E.... X.1. HH.....:.".ENTER HEADER LINE
#"X":".....:X$.HL$(X):.4500:HL$(X).X$...
..:. X:....0.. YES?...5.X$.J("YN",1.((X.
X3).0),1):.4500...7.. X$.."Y".X$.."N".."
.PLEASE ANSWER Y OR N":.4400.E.:.X$.H
(X$,1):X.( X.(. X3) . (X$."Y").X3 ):..J.
...X$H(LE$,C(X$));:CX.1:. GARD INP.....M
$.J(X$." ",CX,1):."."M$"..";:.G$:.G$."".
.4565.P...: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./...:.A.15
7..CX.1.CX.CX.1:.G$;:.4505:. LF.Z...:.A.
29.CX..C(X$).CX.CX.1:.G$;:.4505:RI.U...:
.A.13..:.4580:.:. RET.....:.A.20..CX.1..
G$;:X$.H(X$,CX.2).J(X$,CX):CX.CX.1.E...:
.A.148.C(X$).78..4555...A.:.A.147.L.C(X$
):.4560:CX.1:X$.""...F.:.4505.$.K.X$.H(X
$,CX.1)." ".J(X$,CX):.G$" .";:.:. IN.M.P
..H(LE$,CX.1)H(SP$,L)H(LE$,L);:.:. CL.{.
U.."."M$"..";:.W.1.50:.G$:.G$..""..M$"."
;:....Z.:.W:.M$".";:.W.1.50:.G$:.G$.."".
......:.W:.4565......H(X$,1)." ".X$.J(X$
,2):.4580:. -SPACES.....:.I(X$,1)." ".X$
.H(X$,C(X$).1):.4585.....:.. .... JUST T
OTS AVRS.B....".IS THIS A NUMERIC COLUMN
?":X.FL%(WC):X3.8:. 4400:FL%(WC).X.~...:
. X$."N" . FL%(WC).0:......."NUMERIC JUS
TIFIED?":X.FL%(WC):X3.1:. 4400:FL%(WC).X
.Q...:. X$."N". 4640:.---.....: ."PLACES
TO RIGHT OF DECIMAL POINT?".0...: X1.0
:X2.CP%(WC).1:X.RD%(WC):. 4800:RD%(WC).X
.L...: LD%(WC).CP%(WC):. RD%(WC). LD%(W
C).CP%(WC).RD%(WC).1... .:."TOTAL AT END
?":X.FL%(WC):X3.2:. 4400:FL%(WC).X.Z.%.:
."AVERAGE AT END?":X.FL%(WC):X3.4:. 4400
:FL%(WC).X...*.:. XF.0 . 4665:.---.* /.:
."SHOULD FIELDS BE ADDED IF RECORDS ARE
COMBINED?".Q 4.: X.FL%(WC):X3.16:. 4400:
FL%(WC).X.W 9.... \..4500:L.C(X$):.L.1.L
.15.4780:. FILE NAME?.E ..:.X.1.L:X1$.J(
X$,X,1):.X1$."*".X1$.",".X1$.":".X1$."?"
.4780.P ..: .X:...!..:.".ENTER 1 TO 15 C
HARATERS, DO NOT ENTER PUNCTUATION":.470
0."!... ASK NUMBER.S!J.X$.J(D(X),2):.450
0:X.E(X$):.X.0.X$.."0".4812.F!K..X..X1.X
..X2....!L..".ILLEGAL ENTRY - PLEASE ENT
ER A NUMBER"..!O..".IN THE RANGE OF"X1".
TO"X2:.4800.T!|.. FROM,TITLES,WIDTH.."~
..".RANDOM FIELDS:":.X.1.HF:." ."X".."FT
$(X);:.X:..9"...".LOAD COLUMN #"WC"FROM
RANDOM FIELD #?":.E"..:X1.0:X2.HF:X. AR%
(WC):. 4800:AR%(WC).X.."...".TITLE OF CO
LUMN #"WC"?"R$"(USE / FOR TWO LINES)".
N"..:X$.T2$(WC):. C(T1$(WC)).X$.T1$(WC).
"/".X$.Y"..:.4500..#..:. X.1.C(X$):. J(X
$,X,1).."/". . X:X.1:X$."/".X$.8#..: T1$
(WC).H(X$,X.1):T2$(WC).J(X$,X.1).\#...".
NO. OF CHARS FOR COL #"WC"?"..#..:X1.1:.
X1.C(T1$(WC)).5. X1.C(T1$(WC)).5..#..:.X
1.C(T2$(WC)).5. X1.C(T2$(WC)).5..#..:X1.
.(X1.1):X2.80:X.CP%(WC):. 4800:CP%(WC).X
..#.....#... ASK LOOKUP.-$...".HOW MANY
LOOKUP FILES?":X1.0:X2.10:X.HL:. 4800.L$
... HL..X . HL.X:. HL . GL.1.[$... HL.0
. ...$... WL.1 . HL:."NAME OF FILE#"WL:X
$.LT$(WL)..$..:X$.LT$(WL):.4500:. X$.. L
T$(WL) . LT$(WL).X$:GL.1.Z$... WL:.3:. G
$."Y".5600..$.....$D.. CASE?..%S.. MC.0
. AC.0:..5%X.:.".CONVERT TO ALL CAPS?":X
.AC:X3..1:. 4400:AC.X.;%L...F%.#. EXIT.K
%.#X$."REPORT WRITER":. 9200:. 9101.{%.#
. LOAD PROG..%.# RA:. DT.1 . RV.1 . .".
.INSERT PROGRAM DISK":. 10.U%.#.KK(0),"I
0":.".(LOADING "X$")"..&.#. SE,8,SE,"0:"
.X$.",P,R":VO.0:. 8: SE:. E . ...&.#. L
I.253 . . IV,LI.1&.$. "0:".X$,8:....4
> CLICK IMAGE PREVIEW FOR FULL MODAL