PRINT REP
FILE INFORMATION
FILENAME(S): PRINT REP
FILE TYPE(S): PRG
FILE SIZE: 9.5K
FIRST SEEN: 2025-11-30 20:14:48
APPEARS ON: 2 disk(s)
FILE HASH
05f5f84c0340a0a0fc7a063feb3ded94c0cd2486869631a77078ebcaf8552a26
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PER CEDERHOLM | PRINT REP | PRG | Curtcool, LPN | 23 | 2 | DOWNLOAD FILE |
| PRACTIFILE | PRINT REP | PRG | Curtcool, LPN | 23 | 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 4B 04 02 00 9F 20 31 35 2C 38 2C 31 35 |00.K.... 15,8,15|
00000020: 2C 22 49 30 22 3A 98 31 35 2C 22 53 30 3A 50 52 |,"I0":.15,"S0:PR|
00000030: 49 4E 54 20 52 45 50 22 3A 94 22 30 3A 50 52 49 |INT REP":."0:PRI|
00000040: 4E 54 20 52 45 50 22 2C 38 3A 80 00 77 04 03 00 |NT REP",8:..w...|
00000050: 99 22 43 4F 52 52 45 43 54 49 4F 4E 53 3F 28 12 |."CORRECTIONS?(.|
00000060: 59 92 2F 12 4E 92 29 22 3A 47 31 24 B2 22 59 4E |Y./.N.)":G1$."YN|
00000070: 22 3A 8D 20 35 3A 8E 00 85 04 04 00 9F 34 2C 34 |":. 5:.......4,4|
00000080: 3A 9D 34 3A 9B 00 AF 04 05 00 A1 47 24 3A 81 56 |:.4:.......G$:.V|
00000090: B2 31 A4 C3 28 47 31 24 29 3A 8B 47 24 B3 B1 CA |.1..(G1$):.G$...|
000000A0: 28 47 31 24 2C 56 2C 31 29 A7 82 56 3A 89 35 00 |(G1$,V,1)..V:.5.|
000000B0: B5 04 06 00 8E 00 D1 04 08 00 84 4B 4B 28 56 4F |...........KK(VO|
000000C0: 29 2C 45 2C 45 24 2C 53 2C 54 3A 8B 45 B3 32 A7 |),E,E$,S,T:.E.2.|
000000D0: 8E 00 EC 04 09 00 99 22 44 49 53 4B 20 45 52 52 |......."DISK ERR|
000000E0: 4F 52 3A 22 45 3B 45 24 3B 53 3B 54 00 0A 05 0A |OR:"E;E$;S;T....|
000000F0: 00 99 22 11 12 52 92 45 41 44 59 3F 22 3A 47 31 |.."..R.EADY?":G1|
00000100: 24 B2 22 52 22 3A 8D 35 3A 8E 00 15 05 0B 00 8F |$."R":.5:.......|
00000110: 20 4D 41 49 4E 00 21 05 0C 00 8F 20 53 45 54 55 | MAIN.!.... SETU|
00000120: 50 00 37 05 1B 00 8F 20 53 45 4C 20 54 45 53 54 |P.7.... SEL TEST|
00000130: 20 45 41 20 52 45 43 00 53 05 1C 00 8F 20 53 45 | EA REC.S.... SE|
00000140: 4C 20 54 45 53 54 20 45 41 20 43 4F 4E 44 49 54 |L TEST EA CONDIT|
00000150: 49 4F 4E 00 61 05 21 00 8F 20 43 41 4C 43 20 44 |ION.a.!.. CALC D|
00000160: 4F 00 77 05 22 00 8F 20 4D 41 54 48 20 4F 50 45 |O.w.".. MATH OPE|
00000170: 52 41 54 49 4F 4E 53 00 84 05 26 00 8F 20 4C 4F |RATIONS...&.. LO|
00000180: 4F 4B 55 50 00 94 05 2E 00 8F 20 53 55 42 20 50 |OKUP...... SUB P|
00000190: 52 49 4E 54 00 A9 05 2F 00 8F 20 53 55 42 54 2C |RINT.../.. SUBT,|
000001A0: 4A 55 53 54 2C 41 43 55 4D 00 BC 05 30 00 8F 20 |JUST,ACUM...0.. |
000001B0: 4A 55 53 54 49 46 59 20 4F 4E 4C 59 00 CD 05 31 |JUSTIFY ONLY...1|
000001C0: 00 8F 20 41 53 4B 20 4E 55 4D 42 45 52 00 DD 05 |.. ASK NUMBER...|
000001D0: 3A 00 8F 20 47 45 54 20 43 4F 4D 42 4F 00 EB 05 |:.. GET COMBO...|
000001E0: 3B 00 8F 20 47 45 54 2D 53 45 4C 00 F6 05 3D 00 |;.. GET-SEL...=.|
000001F0: 8F 20 52 45 43 53 00 06 06 3E 00 8F 20 52 45 43 |. RECS...>.. REC|
00000200: 53 2D 44 49 53 4B 00 16 06 3F 00 8F 20 50 47 20 |S-DISK...?.. PG |
00000210: 46 4F 52 43 45 3F 00 24 06 40 00 8F 20 48 45 41 |FORCE?.$.@.. HEA|
00000220: 44 49 4E 47 00 31 06 41 00 8F 20 54 49 54 4C 45 |DING.1.A.. TITLE|
00000230: 53 00 40 06 42 00 8F 20 44 45 43 20 4A 55 53 54 |S.@.B.. DEC JUST|
00000240: 00 4F 06 43 00 8F 20 50 47 20 46 4F 52 43 45 00 |.O.C.. PG FORCE.|
00000250: 5C 06 44 00 8F 20 4C 4E 20 50 52 54 00 70 06 49 |\.D.. LN PRT.p.I|
00000260: 00 8F 20 50 52 54 20 54 4F 54 53 20 41 56 52 53 |.. PRT TOTS AVRS|
00000270: 00 7B 06 4F 00 8F 20 44 4F 54 53 00 8A 06 52 00 |.{.O.. DOTS...R.|
00000280: 8F 20 52 45 41 44 20 52 45 43 00 9A 06 53 00 8F |. READ REC...S..|
00000290: 20 50 4F 53 20 50 4F 49 4E 54 00 AD 06 54 00 8F | POS POINT...T..|
000002A0: 20 4F 50 45 4E 20 50 44 20 46 49 4C 45 00 B8 06 | OPEN PD FILE...|
000002B0: 5B 00 8F 20 45 58 49 54 00 C7 06 5C 00 8F 20 50 |[.. EXIT...\.. P|
000002C0: 52 49 4E 54 20 4D 53 00 DB 06 5D 00 8F 20 53 50 |RINT MS...].. SP|
000002D0: 45 43 49 41 4C 20 43 4F 55 4E 54 00 EA 06 62 00 |ECIAL COUNT...b.|
000002E0: 8F 20 50 52 49 4E 54 20 4D 53 00 F5 06 4C 04 8F |. PRINT MS...L..|
000002F0: 20 4D 41 49 4E 00 0F 07 51 04 8D 20 39 33 30 30 | MAIN...Q.. 9300|
00000300: 3A 8D 20 31 32 30 30 3A 8F 20 53 45 54 55 50 00 |:. 1200:. SETUP.|
00000310: 2C 07 54 04 8D 20 38 34 30 30 3A 8B 20 45 20 A7 |,.T.. 8400:. E .|
00000320: 20 31 31 39 39 3A 8F 20 4F 50 45 4E 00 58 07 56 | 1199:. OPEN.X.V|
00000330: 04 8B 20 50 44 B2 38 20 B0 20 50 44 B2 31 20 A7 |.. PD.8 . PD.1 .|
00000340: 20 8D 20 36 32 30 30 3A 89 31 31 39 39 3A 8F 20 | . 6200:.1199:. |
00000350: 44 49 53 4B 20 50 52 54 00 88 07 58 04 3A 8B 20 |DISK PRT...X.:. |
00000360: 43 48 25 28 30 29 20 A7 20 81 58 B2 31 20 A4 43 |CH%(0) . .X.1 .C|
00000370: 48 25 28 30 29 3A 98 50 52 2C C7 28 43 48 25 28 |H%(0):.PR,.(CH%(|
00000380: 58 29 29 3B 3A 82 20 58 00 A6 07 5B 04 3A 8B 20 |X));:. X...[.:. |
00000390: 50 44 B3 B1 33 20 A7 3A 8D 20 39 38 30 30 3A 8F |PD..3 .:. 9800:.|
000003A0: 20 50 52 20 4D 53 00 C6 07 5D 04 3A 8D 20 36 34 | PR MS...].:. 64|
000003B0: 30 30 3A 8B 47 24 B2 22 53 22 A7 31 31 39 39 3A |00:.G$."S".1199:|
000003C0: 8F 20 48 45 41 44 00 DB 07 60 04 3A 8D 20 36 35 |. HEAD...`.:. 65|
000003D0: 30 30 3A 8F 20 54 49 54 4C 45 53 00 EE 07 65 04 |00:. TITLES...e.|
000003E0: 3A 8D 20 36 31 30 30 3A 8F 20 52 45 43 53 00 00 |:. 6100:. RECS..|
000003F0: 08 AF 04 A0 20 50 52 3A 89 20 39 31 30 30 3A 90 |.... PR:. 9100:.|
00000400: 00 0C 08 B0 04 8F 20 53 45 54 55 50 00 25 08 B2 |...... SETUP.%..|
00000410: 04 8B 20 4C 49 B3 32 35 33 20 A7 20 97 20 49 56 |.. LI.253 . . IV|
00000420: 2C 4C 49 AA 33 00 61 08 B5 04 81 57 43 B2 30 A4 |,LI.3.a....WC.0.|
00000430: 4D 44 3A 43 43 24 28 57 43 29 B2 22 22 3A 58 24 |MD:CC$(WC)."":X$|
00000440: 28 57 43 29 B2 22 22 3A 81 20 58 B2 31 A4 44 45 |(WC)."":. X.1.DE|
00000450: 3A 43 54 28 57 43 2C 58 29 B2 30 3A 82 58 2C 57 |:CT(WC,X).0:.X,W|
00000460: 43 00 B0 08 BA 04 48 49 24 B2 22 3D 3D 3D 3D 3D |C.....HI$."=====|
00000470: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000480: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000490: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000004A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 |==============="|
000004B0: 00 F5 08 BF 04 50 46 B2 35 AA 48 4D AA 33 AC 4C |.....PF.5.HM.3.L|
000004C0: 53 AC 48 4D 3A 43 43 24 28 30 29 B2 22 22 3A 46 |S.HM:CC$(0)."":F|
000004D0: 24 28 30 29 B2 22 22 3A 52 43 B2 30 3A 52 52 B2 |$(0)."":RC.0:RR.|
000004E0: 52 31 AB 31 3A 8B 20 41 53 B2 30 20 A7 20 52 52 |R1.1:. AS.0 . RR|
000004F0: B2 52 32 AA 31 00 FB 08 13 05 8E 00 11 09 8C 0A |.R2.1...........|
00000500: 8F 20 53 45 4C 20 54 45 53 54 20 45 41 20 52 45 |. SEL TEST EA RE|
00000510: 43 00 3E 09 91 0A 47 53 B2 31 3A 81 20 57 53 B2 |C.>...GS.1:. WS.|
00000520: 31 A4 48 53 3A 58 B2 53 45 25 28 57 53 29 3A 20 |1.HS:X.SE%(WS): |
00000530: 20 20 8F 20 53 54 41 52 54 20 54 52 55 45 00 81 | . START TRUE..|
00000540: 09 96 0A 8B 20 47 53 20 A7 20 91 20 58 20 8D 20 |.... GS . . X . |
00000550: 32 38 31 30 2C 32 38 31 35 2C 32 38 32 30 2C 32 |2810,2815,2820,2|
00000560: 38 32 35 2C 32 38 33 30 2C 32 38 33 35 2C 32 38 |825,2830,2835,28|
00000570: 34 30 2C 32 38 37 30 2C 32 38 39 30 2C 32 38 39 |40,2870,2890,289|
00000580: 35 00 B6 09 A0 0A 8B 20 53 4C 25 28 57 53 29 B3 |5...... SL%(WS).|
00000590: B1 32 20 A7 20 82 20 57 53 3A 8E 3A 8F 20 49 46 |.2 . . WS:.:. IF|
000005A0: 20 27 41 4E 44 27 20 54 48 45 4E 20 54 45 53 54 | 'AND' THEN TEST|
000005B0: 20 41 47 41 49 4E 00 C9 09 A5 0A 8F 20 4D 55 53 | AGAIN...... MUS|
000005C0: 54 20 42 45 20 27 4F 52 27 00 D6 09 AA 0A 8B 20 |T BE 'OR'...... |
000005D0: 47 53 20 A7 20 8E 00 FD 09 AF 0A 47 53 B2 31 3A |GS . ......GS.1:|
000005E0: 82 20 57 53 3A 99 22 53 45 4C 45 43 54 20 53 59 |. WS:."SELECT SY|
000005F0: 4E 54 45 58 20 45 52 52 4F 52 22 3A 8E 00 19 0A |NTEX ERROR":....|
00000600: F0 0A 8F 20 53 45 4C 20 54 45 53 54 20 45 41 20 |... SEL TEST EA |
00000610: 43 4F 4E 44 49 54 49 4F 4E 00 38 0A FA 0A 47 53 |CONDITION.8...GS|
00000620: B2 28 46 24 28 53 41 25 28 57 53 29 29 B2 53 42 |.(F$(SA%(WS)).SB|
00000630: 24 28 57 53 29 29 3A 8E 00 5D 0A FF 0A 47 53 B2 |$(WS)):..]...GS.|
00000640: 28 C5 28 46 24 28 53 41 25 28 57 53 29 29 29 B3 |(.(F$(SA%(WS))).|
00000650: C5 28 53 42 24 28 57 53 29 29 29 3A 8E 00 82 0A |.(SB$(WS))):....|
00000660: 04 0B 47 53 B2 28 C5 28 46 24 28 53 41 25 28 57 |..GS.(.(F$(SA%(W|
00000670: 53 29 29 29 B1 C5 28 53 42 24 28 57 53 29 29 29 |S)))..(SB$(WS)))|
00000680: 3A 8E 00 A1 0A 09 0B 47 53 B2 28 46 24 28 53 41 |:......GS.(F$(SA|
00000690: 25 28 57 53 29 29 B3 53 42 24 28 57 53 29 29 3A |%(WS)).SB$(WS)):|
000006A0: 8E 00 C0 0A 0E 0B 47 53 B2 28 46 24 28 53 41 25 |......GS.(F$(SA%|
000006B0: 28 57 53 29 29 B1 53 42 24 28 57 53 29 29 3A 8E |(WS)).SB$(WS)):.|
000006C0: 00 E0 0A 13 0B 47 53 B2 28 46 24 28 53 41 25 28 |.....GS.(F$(SA%(|
000006D0: 57 53 29 29 B3 B1 53 42 24 28 57 53 29 29 3A 8E |WS))..SB$(WS)):.|
000006E0: 00 00 0B 18 0B 41 31 24 B2 46 24 28 53 41 25 28 |.....A1$.F$(SA%(|
000006F0: 57 53 29 29 3A 41 32 24 B2 53 42 24 28 57 53 29 |WS)):A2$.SB$(WS)|
00000700: 00 2E 0B 1D 0B 3A 8B 20 C9 28 41 32 24 2C 31 29 |.....:. .(A2$,1)|
00000710: B2 22 2A 22 20 A7 20 41 31 24 B2 C8 28 41 31 24 |."*" . A1$..(A1$|
00000720: 2C C3 28 41 32 24 29 AB 31 29 AA 22 2A 22 00 4C |,.(A2$).1)."*".L|
00000730: 0B 22 0B 3A 8B 20 C3 28 41 31 24 29 B3 B1 C3 28 |.".:. .(A1$)...(|
00000740: 41 32 24 29 A7 20 47 53 B2 30 3A 8E 00 60 0B 27 |A2$). GS.0:..`.'|
00000750: 0B 3A 81 20 58 B2 31 20 A4 20 C3 28 41 32 24 29 |.:. X.1 . .(A2$)|
00000760: 00 98 0B 2C 0B 3A 8B 20 CA 28 41 32 24 2C 58 2C |...,.:. .(A2$,X,|
00000770: 31 29 B3 B1 22 3F 22 20 AF 20 CA 28 41 32 24 2C |1).."?" . .(A2$,|
00000780: 58 2C 31 29 B3 B1 CA 28 41 31 24 2C 58 2C 31 29 |X,1)...(A1$,X,1)|
00000790: A7 20 47 53 B2 30 3A 8E 00 A2 0B 31 0B 3A 82 58 |. GS.0:....1.:.X|
000007A0: 3A 8E 00 DD 0B 36 0B 58 24 B2 46 24 28 53 41 25 |:....6.X$.F$(SA%|
000007B0: 28 57 53 29 29 3A 59 24 B2 53 42 24 28 57 53 29 |(WS)):Y$.SB$(WS)|
000007C0: 3A 81 58 B2 31 A4 C3 28 58 24 29 A9 48 54 3A 58 |:.X.1..(X$).HT:X|
000007D0: 31 24 B2 CA 28 58 24 2C 58 2C 48 54 29 00 07 0C |1$..(X$,X,HT)...|
000007E0: 38 0B 3A 81 59 B2 31 A4 C3 28 59 24 29 A9 48 54 |8.:.Y.1..(Y$).HT|
000007F0: 3A 8B 58 31 24 B2 CA 28 59 24 2C 59 2C 48 54 29 |:.X1$..(Y$,Y,HT)|
00000800: A7 47 53 B2 31 3A 8E 00 18 0C 40 0B 3A 82 59 2C |.GS.1:....@.:.Y,|
00000810: 58 3A 47 53 B2 30 3A 8E 00 44 0C 4A 0B 47 53 B2 |X:GS.0:..D.J.GS.|
00000820: 28 C5 28 46 24 28 53 41 25 28 57 53 29 29 29 B1 |(.(F$(SA%(WS))).|
00000830: C5 28 46 24 28 C5 28 53 42 24 28 57 53 29 29 29 |.(F$(.(SB$(WS)))|
00000840: 29 29 3A 8E 00 7B 0C 4F 0B 47 53 B2 30 3A 41 24 |)):..{.O.GS.0:A$|
00000850: B2 46 24 28 53 41 25 28 57 53 29 29 3A 42 24 B2 |.F$(SA%(WS)):B$.|
00000860: 53 42 24 28 57 53 29 3A 42 B2 C3 28 42 24 29 3A |SB$(WS):B..(B$):|
00000870: 44 B2 C3 28 41 24 29 AB 42 AA 31 00 A0 0C 50 0B |D..(A$).B.1...P.|
00000880: 81 20 58 B2 31 20 A4 20 44 3A 8B 20 42 24 B2 CA |. X.1 . D:. B$..|
00000890: 28 41 24 2C 58 2C 42 29 A7 20 47 53 B2 31 3A 8E |(A$,X,B). GS.1:.|
000008A0: 00 AA 0C 51 0B 82 20 58 3A 8E 00 B8 0C E4 0C 8F |...Q.. X:.......|
000008B0: 20 43 41 4C 43 20 44 4F 00 C8 0C E6 0C 81 20 57 | CALC DO...... W|
000008C0: 4F B2 31 20 A4 20 48 4F 00 F9 0C E9 0C 3A 42 24 |O.1 . HO.....:B$|
000008D0: B2 4F 42 24 28 57 4F 29 3A 8B C8 28 42 24 2C 31 |.OB$(WO):..(B$,1|
000008E0: 29 B2 22 43 22 A7 20 42 24 B2 43 43 24 28 C5 28 |)."C". B$.CC$(.(|
000008F0: CA 28 42 24 2C 32 29 29 29 00 2A 0D EB 0C 3A 43 |.(B$,2))).*...:C|
00000900: 24 B2 4F 43 24 28 57 4F 29 3A 8B C8 28 43 24 2C |$.OC$(WO):..(C$,|
00000910: 31 29 B2 22 43 22 A7 20 43 24 B2 43 43 24 28 C5 |1)."C". C$.CC$(.|
00000920: 28 CA 28 43 24 2C 32 29 29 29 00 5E 0D EC 0C 3A |(.(C$,2))).^...:|
00000930: 41 B2 C5 28 CA 28 20 4F 41 24 28 57 4F 29 20 2C |A..(.( OA$(WO) ,|
00000940: 32 29 29 3A 42 B2 C5 28 42 24 29 3A 43 B2 C5 28 |2)):B..(B$):C..(|
00000950: 43 24 29 3A 4F 24 B2 4F 4F 24 28 57 4F 29 00 86 |C$):O$.OO$(WO)..|
00000960: 0D 2A 0D 3A 4E 4F B2 31 3A 8D 20 33 34 30 30 3A |.*.:NO.1:. 3400:|
00000970: 8F 20 4E 55 4D 45 52 49 43 20 4F 50 3F 2C 20 44 |. NUMERIC OP?, D|
00000980: 4F 20 4F 50 45 52 00 C2 0D 3E 0D 3A 8B 20 4E 4F |O OPER...>.:. NO|
00000990: 20 A7 20 43 43 24 28 41 29 B2 C4 28 58 29 3A 8B | . CC$(A)..(X):.|
000009A0: C8 28 43 43 24 28 41 29 2C 31 29 B2 22 20 22 A7 |.(CC$(A),1)." ".|
000009B0: 43 43 24 28 41 29 B2 CA 28 43 43 24 28 41 29 2C |CC$(A)..(CC$(A),|
000009C0: 32 29 00 CD 0D 47 0D 82 20 57 4F 3A 8E 00 E3 0D |2)...G.. WO:....|
000009D0: 48 0D 8F 20 4D 41 54 48 20 4F 50 45 52 41 54 49 |H.. MATH OPERATI|
000009E0: 4F 4E 53 00 F8 0D 57 0D 8B 4F 24 B2 22 2B 22 A7 |ONS...W..O$."+".|
000009F0: 20 58 B2 42 AA 43 3A 8E 00 0B 0E 5C 0D 8B 4F 24 | X.B.C:....\..O$|
00000A00: B2 22 2E 22 A7 20 58 B2 42 3A 8E 00 20 0E 61 0D |.".". X.B:.. .a.|
00000A10: 8B 4F 24 B2 22 52 23 22 A7 20 58 B2 52 4E 3A 8E |.O$."R#". X.RN:.|
00000A20: 00 35 0E 66 0D 8B 4F 24 B2 22 2D 22 A7 20 58 B2 |.5.f..O$."-". X.|
00000A30: 42 AB 43 3A 8E 00 53 0E 6B 0D 8B 4F 24 B2 22 58 |B.C:..S.k..O$."X|
00000A40: 22 B0 20 4F 24 B2 22 2A 22 20 A7 20 58 B2 42 AC |". O$."*" . X.B.|
00000A50: 43 3A 8E 00 6A 0E 70 0D 8B 4F 24 B2 22 2F 22 A7 |C:..j.p..O$."/".|
00000A60: 8B 43 A7 58 B2 42 AD 43 3A 8E 00 7F 0E 75 0D 8B |.C.X.B.C:....u..|
00000A70: 4F 24 B2 22 5E 22 A7 20 58 B2 42 AE 43 3A 8E 00 |O$."^". X.B.C:..|
00000A80: 97 0E 7A 0D 8B 4F 24 B2 22 53 49 4E 22 A7 20 58 |..z..O$."SIN". X|
00000A90: B2 BF 28 43 29 3A 8E 00 AF 0E 7B 0D 8B 4F 24 B2 |..(C):....{..O$.|
00000AA0: 22 52 4E 44 22 A7 20 58 B2 BB 28 43 29 3A 8E 00 |"RND". X..(C):..|
00000AB0: C7 0E 7F 0D 8B 4F 24 B2 22 54 41 4E 22 A7 20 58 |.....O$."TAN". X|
00000AC0: B2 C0 28 43 29 3A 8E 00 DF 0E 84 0D 8B 4F 24 B2 |..(C):.......O$.|
00000AD0: 22 4C 4F 47 22 A7 20 58 B2 BC 28 43 29 3A 8E 00 |"LOG". X..(C):..|
00000AE0: F7 0E 8B 0D 8B 4F 24 B2 22 49 4E 54 22 A7 20 58 |.....O$."INT". X|
00000AF0: B2 B5 28 43 29 3A 8E 00 00 0F 8C 0D 4E 4F B2 30 |..(C):......NO.0|
00000B00: 00 18 0F 8E 0D 8B 4F 24 B2 22 4C 55 22 20 A7 20 |......O$."LU" . |
00000B10: 8D 20 33 38 30 30 3A 8E 00 4E 0F 91 0D 8B 4F 24 |. 3800:..N....O$|
00000B20: B2 22 44 41 54 45 22 20 A7 20 43 43 24 28 41 29 |."DATE" . CC$(A)|
00000B30: B2 CA 28 43 43 24 28 41 29 2C 34 29 AA 22 2F 22 |..(CC$(A),4)."/"|
00000B40: AA C8 28 43 43 24 28 41 29 2C 32 29 3A 8E 00 75 |..(CC$(A),2):..u|
00000B50: 0F 94 0D 8B 4F 24 B2 22 42 41 52 22 20 A7 20 8B |....O$."BAR" . .|
00000B60: 20 C5 28 43 43 24 28 41 29 29 B1 43 50 25 28 41 | .(CC$(A)).CP%(A|
00000B70: 29 20 A7 20 8E 00 9F 0F 97 0D 8B 4F 24 B2 22 42 |) . .......O$."B|
00000B80: 41 52 22 20 A7 20 43 43 24 28 41 29 B2 C8 28 48 |AR" . CC$(A)..(H|
00000B90: 49 24 2C C5 28 43 43 24 28 41 29 29 29 3A 8E 00 |I$,.(CC$(A))):..|
00000BA0: C1 0F 9A 0D 8B 4F 24 B2 22 24 2B 22 20 A7 20 43 |.....O$."$+" . C|
00000BB0: 43 24 28 41 29 B2 42 24 AA 22 20 22 AA 43 24 3A |C$(A).B$." ".C$:|
00000BC0: 8E 00 DF 0F 9C 0D 8B 4F 24 B2 22 3D 22 20 A7 20 |.......O$."=" . |
00000BD0: 57 4F B2 57 4F AB 41 AC 28 42 B2 43 29 3A 8E 00 |WO.WO.A.(B.C):..|
00000BE0: FD 0F 9E 0D 8B 4F 24 B2 22 3E 22 20 A7 20 57 4F |.....O$.">" . WO|
00000BF0: B2 57 4F AB 41 AC 28 42 B1 43 29 3A 8E 00 24 10 |.WO.A.(B.C):..$.|
00000C00: AB 0D 99 22 12 45 52 52 4F 52 20 49 4E 20 43 41 |...".ERROR IN CA|
00000C10: 4C 43 23 22 57 4F 22 46 4F 52 20 52 45 43 23 22 |LC#"WO"FOR REC#"|
00000C20: 52 4E 3A 8E 00 31 10 D8 0E 8F 20 4C 4F 4F 4B 55 |RN:..1.... LOOKU|
00000C30: 50 00 5A 10 DA 0E 8B 43 B3 31 B0 43 B1 48 4C A7 |P.Z....C.1.C.HL.|
00000C40: 99 22 45 52 52 4F 52 20 49 4E 20 4F 50 45 52 41 |."ERROR IN OPERA|
00000C50: 54 49 4F 4E 23 22 57 4F 3A 8E 00 87 10 DD 0E 42 |TION#"WO:......B|
00000C60: 52 B2 28 4C 52 25 28 43 AB 31 29 AB 32 29 AD 32 |R.(LR%(C.1).2).2|
00000C70: 3A 54 52 B2 4C 52 25 28 43 29 AD 32 3A 46 49 24 |:TR.LR%(C).2:FI$|
00000C80: B2 43 43 24 28 41 29 00 A4 10 E2 0E 8B 20 54 52 |.CC$(A)...... TR|
00000C90: AB 42 52 B3 32 20 A7 20 43 43 24 28 41 29 B2 46 |.BR.2 . CC$(A).F|
00000CA0: 49 24 3A 8E 00 C6 10 E7 0E 50 25 B2 28 42 52 AA |I$:......P%.(BR.|
00000CB0: 54 52 AA 2E 31 29 AD 32 3A 46 4F 24 B2 4C 55 24 |TR..1).2:FO$.LU$|
00000CC0: 28 50 25 AC 32 29 00 E3 10 EC 0E 8B 20 46 49 24 |(P%.2)...... FI$|
00000CD0: B3 46 4F 24 20 A7 20 54 52 B2 50 25 3A 89 20 33 |.FO$ . TR.P%:. 3|
00000CE0: 38 31 30 00 00 11 F1 0E 8B 20 46 49 24 B1 46 4F |810...... FI$.FO|
00000CF0: 24 20 A7 20 42 52 B2 50 25 3A 89 20 33 38 31 30 |$ . BR.P%:. 3810|
00000D00: 00 19 11 FB 0E 43 43 24 28 41 29 B2 4C 55 24 28 |.....CC$(A).LU$(|
00000D10: 50 25 AC 32 AA 31 29 3A 8E 00 2D 11 68 10 8F 20 |P%.2.1):..-.h.. |
00000D20: 52 45 41 44 20 41 20 52 45 43 4F 52 44 00 5D 11 |READ A RECORD.].|
00000D30: 6D 10 8B 20 52 33 20 A7 20 8D 20 34 33 30 30 3A |m.. R3 . . 4300:|
00000D40: 81 20 57 46 B2 31 20 A4 20 48 46 3A 84 52 41 2C |. WF.1 . HF:.RA,|
00000D50: 46 24 28 57 46 29 3A 82 20 57 46 3A 8E 00 99 11 |F$(WF):. WF:....|
00000D60: 72 10 4C B2 31 3A 81 58 B2 31 A4 48 46 3A CF 23 |r.L.1:.X.1.HF:.#|
00000D70: 28 52 41 29 2C 28 57 52 29 2C 28 4C 29 3A 84 52 |(RA),(WR),(L):.R|
00000D80: 41 2C 46 24 28 58 29 3A 4C B2 4C AA C3 28 46 24 |A,F$(X):L.L..(F$|
00000D90: 28 58 29 29 AA 32 3A 82 58 00 9F 11 77 10 8E 00 |(X)).2:.X...w...|
00000DA0: B6 11 CC 10 8F 20 50 4F 53 49 54 49 4F 4E 20 50 |..... POSITION P|
00000DB0: 4F 49 4E 54 45 52 00 E0 11 D1 10 58 B2 B5 28 28 |OINTER.....X..((|
00000DC0: 57 52 AB 31 29 AD 52 42 AA 2E 30 30 30 30 31 29 |WR.1).RB..00001)|
00000DD0: AA 31 3A 8B 20 42 4C B2 58 20 A7 20 34 33 31 35 |.1:. BL.X . 4315|
00000DE0: 00 1D 12 D4 10 3A 42 4C B2 58 3A 98 4B 4B 28 52 |.....:BL.X:.KK(R|
00000DF0: 56 29 2C 22 55 31 3A 22 52 41 3B 44 52 28 52 56 |V),"U1:"RA;DR(RV|
00000E00: 29 3B 54 25 28 42 4C 29 3B 53 25 28 42 4C 29 3A |);T%(BL);S%(BL):|
00000E10: 56 4F B2 52 56 3A 8D 38 3A 8B 45 A7 8E 00 58 12 |VO.RV:.8:.E...X.|
00000E20: DB 10 58 B2 28 57 52 AB 31 29 AB 28 42 4C AB 31 |..X.(WR.1).(BL.1|
00000E30: 29 AC 52 42 3A 8F 20 4E 4F 2E 20 52 45 43 53 20 |).RB:. NO. RECS |
00000E40: 42 45 46 4F 52 20 54 48 49 53 20 49 4E 20 54 48 |BEFOR THIS IN TH|
00000E50: 49 53 20 42 4C 4F 43 4B 00 7D 12 DF 10 42 50 B2 |IS BLOCK.}...BP.|
00000E60: 31 AA 52 53 AC 58 3A 98 4B 4B 28 52 56 29 2C 22 |1.RS.X:.KK(RV),"|
00000E70: 42 2D 50 3A 22 3B 52 41 3B 42 50 3A 8E 00 8D 12 |B-P:";RA;BP:....|
00000E80: F8 11 8F 20 53 55 42 20 50 52 49 4E 54 00 C6 12 |... SUB PRINT...|
00000E90: FD 11 4E 52 B2 28 53 43 B2 31 29 3A 81 20 57 43 |..NR.(SC.1):. WC|
00000EA0: B2 31 20 A4 20 48 43 3A 58 24 28 57 43 29 B2 43 |.1 . HC:X$(WC).C|
00000EB0: 43 24 28 57 43 29 3A 43 43 24 28 57 43 29 B2 22 |C$(WC):CC$(WC)."|
00000EC0: 22 3A 82 20 57 43 00 EE 12 16 12 58 B2 53 43 3A |":. WC.....X.SC:|
00000ED0: 81 20 53 43 B2 4C 53 20 A4 20 58 20 A9 AB 31 3A |. SC.LS . X ..1:|
00000EE0: 55 4B 24 28 53 43 29 B2 58 24 28 53 43 29 00 12 |UK$(SC).X$(SC)..|
00000EF0: 13 20 12 3A 44 4C 24 B2 22 2D 22 3A 58 33 B2 32 |. .:DL$."-":X3.2|
00000F00: 3A 57 4D B2 31 3A 8D 20 37 39 30 30 3A 8F 20 44 |:WM.1:. 7900:. D|
00000F10: 4F 54 00 39 13 2F 12 3A 81 20 57 43 B2 31 20 A4 |OT.9./.:. WC.1 .|
00000F20: 20 48 43 3A 46 4C B2 46 4C 25 28 57 43 29 3A 43 | HC:FL.FL%(WC):C|
00000F30: 43 24 28 57 43 29 B2 22 22 00 63 13 39 12 3A 20 |C$(WC)."".c.9.: |
00000F40: 8B 20 46 4C AF 32 20 A7 20 43 43 24 28 57 43 29 |. FL.2 . CC$(WC)|
00000F50: B2 C4 28 43 54 28 57 43 2C 53 43 29 29 3A 8F 20 |..(CT(WC,SC)):. |
00000F60: 54 4F 54 00 A9 13 3B 12 3A 20 8B 20 46 4C AF 36 |TOT...;.: . FL.6|
00000F70: 20 A7 20 43 54 28 57 43 2C 53 43 AB 31 29 B2 43 | . CT(WC,SC.1).C|
00000F80: 54 28 57 43 2C 53 43 AB 31 29 AA 43 54 28 57 43 |T(WC,SC.1).CT(WC|
00000F90: 2C 53 43 29 3A 43 54 28 57 43 2C 53 43 29 B2 30 |,SC):CT(WC,SC).0|
00000FA0: 3A 8F 20 54 4F 54 20 41 56 00 D7 13 43 12 3A 82 |:. TOT AV...C.:.|
00000FB0: 20 57 43 3A 8D 20 34 38 30 30 3A 43 43 24 28 53 | WC:. 4800:CC$(S|
00000FC0: 43 29 B2 22 2A 22 3A 8D 20 36 38 30 30 3A 8F 20 |C)."*":. 6800:. |
00000FD0: 4A 55 53 2C 50 52 54 00 F6 13 48 12 82 20 53 43 |JUS,PRT...H.. SC|
00000FE0: 3A 98 50 52 2C 22 20 22 52 24 4C 46 24 3B 3A 52 |:.PR," "R$LF$;:R|
00000FF0: 4F B2 52 4F AA 31 00 1A 14 4B 12 81 20 57 43 B2 |O.RO.1...K.. WC.|
00001000: 31 20 A4 20 48 43 3A 43 43 24 28 57 43 29 B2 58 |1 . HC:CC$(WC).X|
00001010: 24 28 57 43 29 3A 82 20 57 43 00 41 14 4D 12 8B |$(WC):. WC.A.M..|
00001020: 20 53 52 20 A7 20 8B 20 4E 52 20 A7 20 8D 20 36 | SR . . NR . . 6|
00001030: 37 30 30 3A 8D 20 36 34 30 30 3A 8D 20 36 35 30 |700:. 6400:. 650|
00001040: 30 00 80 14 5B 12 8E 3A 8F 20 34 36 36 37 20 2D |0...[..:. 4667 -|
00001050: 20 41 43 55 4D 53 20 46 4F 52 20 54 4F 54 20 2B | ACUMS FOR TOT +|
00001060: 20 41 56 20 4D 4F 56 45 44 20 44 4F 57 4E 20 44 | AV MOVED DOWN D|
00001070: 55 52 52 49 4E 47 20 53 55 42 20 50 52 49 4E 54 |URRING SUB PRINT|
00001080: 00 95 14 5C 12 8F 20 53 55 42 54 2C 4A 55 53 54 |...\.. SUBT,JUST|
00001090: 2C 41 43 55 4D 00 A7 14 5E 12 8B 20 4C 53 B2 30 |,ACUM...^.. LS.0|
000010A0: 20 A7 20 34 37 32 35 00 D9 14 5F 12 3A 8B 20 52 | . 4725..._.:. R|
000010B0: 43 B2 31 20 A7 20 81 20 58 B2 31 20 A4 20 4C 53 |C.1 . . X.1 . LS|
000010C0: 3A 55 4B 24 28 58 29 B2 43 43 24 28 58 29 3A 82 |:UK$(X).CC$(X):.|
000010D0: 20 58 3A 89 20 34 37 32 35 00 12 15 61 12 3A 20 | X:. 4725...a.: |
000010E0: 81 20 53 43 B2 31 20 A4 20 4C 53 3A 8B 20 55 4B |. SC.1 . LS:. UK|
000010F0: 24 28 53 43 29 B2 43 43 24 28 53 43 29 A7 43 43 |$(SC).CC$(SC).CC|
00001100: 24 28 53 43 29 B2 22 22 3A 82 53 43 3A 89 34 37 |$(SC)."":.SC:.47|
00001110: 32 35 00 2A 15 66 12 3A 20 20 8D 20 34 36 30 30 |25.*.f.: . 4600|
00001120: 3A 8F 20 53 55 42 20 50 52 54 00 52 15 75 12 81 |:. SUB PRT.R.u..|
00001130: 57 43 B2 31 20 A4 20 48 43 3A 46 4C B2 46 4C 25 |WC.1 . HC:FL.FL%|
00001140: 28 57 43 29 3A 8B 20 46 4C B2 30 20 A7 20 34 37 |(WC):. FL.0 . 47|
00001150: 34 30 00 89 15 7A 12 3A 43 43 24 B2 43 43 24 28 |40...z.:CC$.CC$(|
00001160: 57 43 29 3A 8B 20 46 4C 20 AF 31 20 A7 20 8D 36 |WC):. FL .1 . .6|
00001170: 36 30 30 3A 43 43 24 28 57 43 29 B2 43 43 24 3A |600:CC$(WC).CC$:|
00001180: 8F 20 44 45 43 20 4A 55 53 00 C3 15 7F 12 3A 20 |. DEC JUS.....: |
00001190: 8B 20 46 4C 20 AF 36 20 A7 20 43 54 28 57 43 2C |. FL .6 . CT(WC,|
000011A0: 4C 53 29 B2 43 54 28 57 43 2C 4C 53 29 AA C5 28 |LS).CT(WC,LS)..(|
000011B0: 43 43 24 29 3A 89 34 37 34 30 3A 8F 20 54 4F 54 |CC$):.4740:. TOT|
000011C0: 20 41 56 00 CC 15 84 12 82 20 57 43 00 D2 15 BF | AV...... WC....|
000011D0: 12 8E 00 E5 15 C0 12 8F 20 4A 55 53 54 49 46 59 |........ JUSTIFY|
000011E0: 20 4F 4E 4C 59 00 F4 15 C5 12 81 57 43 B2 31 20 | ONLY......WC.1 |
000011F0: A4 20 48 43 00 2E 16 CA 12 8B 20 46 4C 25 28 57 |. HC...... FL%(W|
00001200: 43 29 AF 31 A7 20 43 43 24 B2 43 43 24 28 57 43 |C).1. CC$.CC$(WC|
00001210: 29 3A 8B 20 43 43 24 B3 B1 22 22 A7 20 8D 36 36 |):. CC$.."". .66|
00001220: 30 30 3A 43 43 24 28 57 43 29 B2 43 43 24 00 39 |00:CC$(WC).CC$.9|
00001230: 16 D4 12 82 20 57 43 3A 8E 00 4A 16 24 13 8F 20 |.... WC:..J.$.. |
00001240: 41 53 4B 20 4E 55 4D 42 45 52 00 7A 16 2E 13 A1 |ASK NUMBER.z....|
00001250: 20 47 24 3A 99 58 3B 44 24 3B 3A 84 4B 45 2C 58 | G$:.X;D$;:.KE,X|
00001260: 24 3A 99 3A 58 B2 C5 28 58 24 29 3A 8B 58 B1 B2 |$:.:X..(X$):.X..|
00001270: 58 31 AF 58 B3 B2 58 32 A7 8E 00 A8 16 30 13 99 |X1.X..X2.....0..|
00001280: 22 12 49 4C 4C 45 47 41 4C 20 45 4E 54 52 59 20 |".ILLEGAL ENTRY |
00001290: 2D 20 50 4C 45 41 53 45 20 45 4E 54 45 52 20 41 |- PLEASE ENTER A|
000012A0: 20 4E 55 4D 42 45 52 22 00 DB 16 33 13 99 22 12 | NUMBER"...3..".|
000012B0: 49 4E 20 54 48 45 20 52 41 4E 47 45 20 4F 46 22 |IN THE RANGE OF"|
000012C0: 58 31 22 9D 20 54 4F 22 58 32 22 9D 20 21 21 22 |X1". TO"X2". !!"|
000012D0: 3A 89 34 39 30 30 3A 8F 2D 2D 2D 00 EB 16 A8 16 |:.4900:.---.....|
000012E0: 8F 20 47 45 54 20 43 4F 4D 42 4F 00 1C 17 AD 16 |. GET COMBO.....|
000012F0: 52 4E B2 52 52 3A 81 20 58 B2 31 20 A4 20 48 43 |RN.RR:. X.1 . HC|
00001300: 3A 8B 20 41 52 25 28 58 29 A7 20 43 43 24 28 58 |:. AR%(X). CC$(X|
00001310: 29 B2 46 24 28 41 52 25 28 58 29 29 00 42 17 AE |).F$(AR%(X)).B..|
00001320: 16 3A 82 20 58 3A 8D 20 35 39 30 30 3A 8B 20 4B |.:. X:. 5900:. K|
00001330: 52 B2 30 20 A7 20 8E 3A 8F 20 3F 47 45 54 2D 53 |R.0 . .:. ?GET-S|
00001340: 45 4C 00 7D 17 B2 16 81 20 58 B2 31 A4 48 43 3A |EL.}.... X.1.HC:|
00001350: 8B 20 46 4C 25 28 58 29 AF 31 36 20 A7 20 43 54 |. FL%(X).16 . CT|
00001360: 28 58 2C 4C 53 AA 31 29 B2 43 54 28 58 2C 4C 53 |(X,LS.1).CT(X,LS|
00001370: AA 31 29 AA C5 28 43 43 24 28 58 29 29 00 86 17 |.1)..(CC$(X))...|
00001380: B3 16 3A 82 20 58 00 C0 17 BC 16 8B 20 47 53 20 |..:. X...... GS |
00001390: A7 81 20 58 B2 31 A4 4B 52 3A 8B 20 46 24 28 53 |.. X.1.KR:. F$(S|
000013A0: 46 25 28 57 4B 2C 58 29 29 B2 43 43 24 28 58 29 |F%(WK,X)).CC$(X)|
000013B0: A7 20 82 58 3A 89 35 38 30 30 3A 8F 53 49 4D 3F |. .X:.5800:.SIM?|
000013C0: 00 FD 17 BE 16 81 20 58 B2 31 A4 48 43 3A 8B 20 |...... X.1.HC:. |
000013D0: 46 4C 25 28 58 29 AF 31 36 20 A7 20 43 43 24 28 |FL%(X).16 . CC$(|
000013E0: 58 29 B2 C4 28 43 54 28 58 2C 4C 53 AA 31 29 29 |X)..(CT(X,LS.1))|
000013F0: 3A 43 54 28 58 2C 4C 53 AA 31 29 B2 30 00 23 18 |:CT(X,LS.1).0.#.|
00001400: BF 16 82 20 58 3A 8E 3A 8F 20 54 48 49 53 20 52 |... X:.:. THIS R|
00001410: 4F 55 54 20 4E 4F 54 20 45 4E 54 20 49 46 20 47 |OUT NOT ENT IF G|
00001420: 53 3D 30 00 31 18 0C 17 8F 20 47 45 54 2D 53 45 |S=0.1.... GET-SE|
00001430: 4C 00 46 18 0E 17 47 53 B2 30 3A 8B 20 41 53 20 |L.F...GS.0:. AS |
00001440: A7 20 35 39 31 30 00 5F 18 11 17 3A 52 52 B2 52 |. 5910._...:RR.R|
00001450: 52 AB 31 3A 8B 20 52 52 B3 52 31 20 A7 20 8E 00 |R.1:. RR.R1 . ..|
00001460: 69 18 13 17 89 35 39 31 32 00 82 18 16 17 3A 52 |i....5912.....:R|
00001470: 52 B2 52 52 AA 31 3A 8B 20 52 52 B1 52 32 20 A7 |R.RR.1:. RR.R2 .|
00001480: 20 8E 00 BC 18 18 17 47 53 B2 31 3A 57 52 B2 50 | ......GS.1:WR.P|
00001490: 4F 25 28 52 52 2C 57 4B 29 3A 8D 20 34 32 30 30 |O%(RR,WK):. 4200|
000014A0: 3A 8B 20 48 53 20 A7 20 8D 20 32 37 30 30 3A 8B |:. HS . . 2700:.|
000014B0: 20 47 53 B2 30 20 A7 20 35 39 30 30 00 E1 18 1B | GS.0 . 5900....|
000014C0: 17 8E 3A 8F 20 52 52 20 41 4C 57 41 59 53 20 3D |..:. RR ALWAYS =|
000014D0: 20 4C 41 53 54 20 53 45 4C 43 54 44 20 52 45 43 | LAST SELCTD REC|
000014E0: 23 00 EC 18 D4 17 8F 20 52 45 43 53 00 01 19 D6 |#...... RECS....|
000014F0: 17 8D 20 35 39 30 30 3A 8F 20 47 45 54 20 53 45 |.. 5900:. GET SE|
00001500: 4C 00 31 19 D9 17 8B 20 47 53 B2 30 20 A7 20 98 |L.1.... GS.0 . .|
00001510: 50 52 2C 22 4E 4F 20 52 45 43 4F 52 44 53 22 52 |PR,"NO RECORDS"R|
00001520: 24 4C 46 24 3B 3A 89 20 36 31 36 35 3A 8F 2D 2D |$LF$;:. 6165:.--|
00001530: 2D 00 47 19 DB 17 8D 20 35 38 30 30 3A 8F 20 47 |-.G.... 5800:. G|
00001540: 45 54 20 43 4F 4D 42 00 64 19 DE 17 3A A1 47 24 |ET COMB.d...:.G$|
00001550: 3A 8B 47 24 B2 22 50 22 A7 47 31 24 B2 22 43 53 |:.G$."P".G1$."CS|
00001560: 22 3A 8D 35 00 74 19 E3 17 3A 8B 47 24 B2 22 53 |":.5.t...:.G$."S|
00001570: 22 A7 20 8E 00 81 19 F9 17 3A 52 43 B2 52 43 AA |". ......:RC.RC.|
00001580: 31 00 9B 19 FC 17 3A 8B 20 48 4F 20 A7 20 8D 20 |1.....:. HO . . |
00001590: 33 33 30 30 3A 8F 20 43 41 4C 43 00 B8 19 01 18 |3300:. CALC.....|
000015A0: 3A 8D 20 34 37 30 30 3A 8F 20 53 55 42 54 2C 4A |:. 4700:. SUBT,J|
000015B0: 55 53 54 2C 41 43 55 4D 00 F3 19 06 18 3A 81 20 |UST,ACUM.....:. |
000015C0: 57 4D B2 31 20 A4 20 48 4D 3A 8D 36 38 30 30 3A |WM.1 . HM:.6800:|
000015D0: 82 20 57 4D 3A 8B 20 48 4D B1 31 20 A7 20 98 50 |. WM:. HM.1 . .P|
000015E0: 52 2C 22 20 22 52 24 4C 46 24 3B 3A 52 4F B2 52 |R," "R$LF$;:RO.R|
000015F0: 4F AA 31 00 16 1A 08 18 8D 20 36 33 30 30 3A 8B |O.1...... 6300:.|
00001600: 20 47 53 20 A7 20 36 31 30 37 20 3A 8F 20 50 47 | GS . 6107 :. PG|
00001610: 20 46 4F 52 43 45 00 38 1A 0B 18 8B 20 4C 53 20 | FORCE.8.... LS |
00001620: A7 20 53 43 B2 31 3A 8D 20 34 36 30 30 3A 8F 20 |. SC.1:. 4600:. |
00001630: 41 4C 4C 20 53 55 42 53 00 4F 1A 0D 18 8D 20 37 |ALL SUBS.O.... 7|
00001640: 33 30 30 3A 8F 20 54 4F 54 53 2C 41 56 52 53 00 |300:. TOTS,AVRS.|
00001650: 68 1A 15 18 99 22 07 07 07 22 3A 8B 20 50 44 B2 |h...."...":. PD.|
00001660: 33 20 A7 20 8D 20 31 30 00 75 1A 1A 18 8D 20 36 |3 . . 10.u.... 6|
00001670: 37 30 30 3A 8E 00 85 1A 38 18 8F 20 52 45 43 53 |700:....8.. RECS|
00001680: 2D 44 49 53 4B 00 9A 1A 3D 18 8D 20 35 39 30 30 |-DISK...=.. 5900|
00001690: 3A 8F 20 47 45 54 20 53 45 4C 00 B1 1A 42 18 8B |:. GET SEL...B..|
000016A0: 20 47 53 B2 30 20 A7 20 8E 3A 8F 20 45 4D 50 54 | GS.0 . .:. EMPT|
000016B0: 59 00 C8 1A 47 18 8D 20 35 38 30 30 3A 8F 20 47 |Y...G.. 5800:. G|
000016C0: 45 54 20 43 4F 4D 42 4F 00 EC 1A 4C 18 3A 8F 20 |ET COMBO...L.:. |
000016D0: 20 20 47 45 54 20 47 24 3A 49 46 47 24 3D 22 53 | GET G$:IFG$="S|
000016E0: 22 54 48 45 4E 20 52 45 54 55 52 4E 00 F9 1A 51 |"THEN RETURN...Q|
000016F0: 18 3A 52 43 B2 52 43 AA 31 00 13 1B 56 18 3A 8B |.:RC.RC.1...V.:.|
00001700: 20 48 4F 20 A7 20 8D 20 33 33 30 30 3A 8F 20 43 | HO . . 3300:. C|
00001710: 41 4C 43 00 2B 1B 5B 18 3A 8D 20 34 38 30 30 3A |ALC.+.[.:. 4800:|
00001720: 8F 20 4A 55 53 54 20 4F 4E 4C 59 00 4C 1B 60 18 |. JUST ONLY.L.`.|
00001730: 3A 8B 20 44 46 20 A7 20 98 50 52 2C 22 2D 31 2C |:. DF . .PR,"-1,|
00001740: 30 22 52 24 22 C2 CF D4 22 52 24 3B 00 76 1B 65 |0"R$"..."R$;.v.e|
00001750: 18 3A 81 58 B2 31 A4 48 43 3A 4C 4C 24 B2 43 43 |.:.X.1.HC:LL$.CC|
00001760: 24 28 58 29 3A 8B 20 50 44 B1 31 20 A7 20 9E 20 |$(X):. PD.1 . . |
00001770: 4D 4C AA 31 35 33 00 9F 1B 6A 18 3A 8B 20 57 50 |ML.153...j.:. WP|
00001780: B2 30 20 AF 20 44 46 B2 30 20 A7 20 98 50 52 2C |.0 . DF.0 . .PR,|
00001790: 51 24 4C 4C 24 52 24 3B 3A 89 20 36 32 37 30 00 |Q$LL$R$;:. 6270.|
000017A0: B8 1B 6F 18 3A 20 8B 20 4C 4C 24 B2 22 22 20 A7 |..o.: . LL$."" .|
000017B0: 20 4C 4C 24 B2 22 20 22 00 D7 1B 74 18 3A 20 8B | LL$." "...t.: .|
000017C0: 20 57 50 20 A7 20 98 50 52 2C 4C 4C 24 52 24 3B | WP . .PR,LL$R$;|
000017D0: 3A 89 20 36 32 37 30 00 0A 1C 79 18 3A 20 20 8B |:. 6270...y.: .|
000017E0: 28 46 4C 25 28 58 29 AF 20 38 29 A7 20 98 50 52 |(FL%(X). 8). .PR|
000017F0: 2C 22 30 2C 22 43 43 24 28 58 29 52 24 22 D6 22 |,"0,"CC$(X)R$"."|
00001800: 52 24 3B 3A 89 20 36 32 37 30 00 28 1C 7B 18 3A |R$;:. 6270.(.{.:|
00001810: 20 20 20 98 50 52 2C 22 31 2C 30 22 52 24 51 24 | .PR,"1,0"R$Q$|
00001820: 4C 4C 24 51 24 52 24 3B 00 41 1C 7E 18 82 20 58 |LL$Q$R$;.A.~.. X|
00001830: 3A 8B 20 47 53 20 A7 20 36 32 31 35 3A 8F 2D 2D |:. GS . 6215:.--|
00001840: 2D 00 62 1C 80 18 8B 20 44 46 20 A7 20 98 20 50 |-.b.... DF . . P|
00001850: 52 2C 22 2D 31 2C 30 22 52 24 22 C5 CF C4 22 52 |R,"-1,0"R$"..."R|
00001860: 24 3B 00 68 1C 8D 18 8E 00 78 1C 9C 18 8F 20 50 |$;.h.....x.... P|
00001870: 47 20 46 4F 52 43 45 3F 00 8C 1C A1 18 8B 20 52 |G FORCE?...... R|
00001880: 4F AA 50 46 B3 B2 4C 50 20 A7 20 8E 00 BF 1C B5 |O.PF..LP . .....|
00001890: 18 8D 20 36 37 30 30 3A 81 58 B2 31 A4 33 3A 98 |.. 6700:.X.1.3:.|
000018A0: 50 52 2C 22 20 22 52 24 4C 46 24 3B 3A 52 4F B2 |PR," "R$LF$;:RO.|
000018B0: 52 4F AA 31 3A 82 58 3A 8F 20 46 4F 52 43 45 00 |RO.1:.X:. FORCE.|
000018C0: D5 1C BA 18 8D 20 36 35 30 30 3A 8E 3A 8F 20 54 |..... 6500:.:. T|
000018D0: 49 54 4C 45 53 00 E3 1C 00 19 8F 20 48 45 41 44 |ITLES...... HEAD|
000018E0: 49 4E 47 00 05 1D 04 19 81 58 B2 31 A4 33 3A 98 |ING......X.1.3:.|
000018F0: 50 52 2C 22 20 22 52 24 3B 4C 46 24 3B 3A 82 58 |PR," "R$;LF$;:.X|
00001900: 3A 52 4F B2 34 00 35 1D 05 19 81 20 57 48 B2 31 |:RO.4.5.... WH.1|
00001910: A4 20 48 48 3A 4C B2 C3 28 48 4C 24 28 57 48 29 |. HH:L..(HL$(WH)|
00001920: 29 3A 4C 4C 24 B2 22 4C 49 4E 45 20 54 4F 4F 20 |):LL$."LINE TOO |
00001930: 57 49 44 45 22 00 51 1D 07 19 3A A1 47 24 3A 8B |WIDE".Q...:.G$:.|
00001940: 47 24 B2 22 50 22 A7 47 31 24 B2 22 43 53 22 8D |G$."P".G1$."CS".|
00001950: 35 00 60 1D 08 19 3A 8B 47 24 B2 22 53 22 A7 8E |5.`...:.G$."S"..|
00001960: 00 9D 1D 09 19 3A 8B 20 50 57 B2 B1 4C 20 A7 20 |.....:. PW..L . |
00001970: 4C 4C 24 B2 C8 28 53 50 24 AA 53 50 24 2C 28 50 |LL$..(SP$.SP$,(P|
00001980: 57 AB 4C 29 AD 32 29 AA 48 4C 24 28 57 48 29 3A |W.L).2).HL$(WH):|
00001990: 8B 50 44 B1 31 A7 9E 4D 4C AA 31 35 33 00 C0 1D |.PD.1..ML.153...|
000019A0: 0A 19 3A 98 50 52 2C 44 4E 24 4C 4C 24 52 24 4C |..:.PR,DN$LL$R$L|
000019B0: 46 24 3B 3A 52 4F B2 52 4F AA 31 3A 82 20 57 48 |F$;:RO.RO.1:. WH|
000019C0: 00 D9 1D 0F 19 98 50 52 2C 52 24 4C 46 24 3B 3A |......PR,R$LF$;:|
000019D0: 52 4F B2 52 4F AA 31 3A 8E 00 E6 1D 64 19 8F 20 |RO.RO.1:....d.. |
000019E0: 54 49 54 4C 45 53 00 15 1E 66 19 81 20 57 43 B2 |TITLES...f.. WC.|
000019F0: 31 20 A4 20 48 43 3A 58 24 28 57 43 29 B2 43 43 |1 . HC:X$(WC).CC|
00001A00: 24 28 57 43 29 3A 43 43 24 28 57 43 29 B2 22 22 |$(WC):CC$(WC).""|
00001A10: 3A 82 20 57 43 00 25 1E 69 19 81 20 57 4D B2 31 |:. WC.%.i.. WM.1|
00001A20: 20 A4 20 48 4D 00 63 1E 6E 19 3A 81 20 57 43 B2 | . HM.c.n.:. WC.|
00001A30: 31 20 A4 20 48 43 3A 43 43 24 28 57 43 29 B2 54 |1 . HC:CC$(WC).T|
00001A40: 31 24 28 57 43 29 3A 8D 20 36 35 35 30 3A 82 20 |1$(WC):. 6550:. |
00001A50: 57 43 3A 8D 20 36 38 30 30 3A 8F 20 44 52 41 57 |WC:. 6800:. DRAW|
00001A60: 20 4C 4E 00 97 1E 73 19 3A 81 20 57 43 B2 31 20 | LN...s.:. WC.1 |
00001A70: A4 20 48 43 3A 43 43 24 28 57 43 29 B2 54 32 24 |. HC:CC$(WC).T2$|
00001A80: 28 57 43 29 3A 8D 20 36 35 35 30 3A 82 20 57 43 |(WC):. 6550:. WC|
00001A90: 3A 8D 20 36 38 30 30 00 B7 1E 7D 19 3A 44 4C 24 |:. 6800...}.:DL$|
00001AA0: B2 22 2D 22 3A 58 33 B2 30 3A 8D 20 37 39 30 30 |."-":X3.0:. 7900|
00001AB0: 3A 8F 20 44 4F 54 53 00 E0 1E 82 19 82 20 57 4D |:. DOTS...... WM|
00001AC0: 3A 8B 20 48 4D B1 31 20 A7 20 98 50 52 2C 22 20 |:. HM.1 . .PR," |
00001AD0: 22 52 24 3B 4C 46 24 3B 3A 52 4F B2 52 4F AA 31 |"R$;LF$;:RO.RO.1|
00001AE0: 00 06 1F 84 19 81 20 57 43 B2 31 20 A4 20 48 43 |...... WC.1 . HC|
00001AF0: 3A 43 43 24 28 57 43 29 B2 58 24 28 57 43 29 3A |:CC$(WC).X$(WC):|
00001B00: 82 20 57 43 3A 8E 00 37 1F 96 19 8B 20 46 4C 25 |. WC:..7.... FL%|
00001B10: 28 57 43 29 AF 31 20 A7 20 43 43 24 28 57 43 29 |(WC).1 . CC$(WC)|
00001B20: B2 C9 28 53 50 24 AA 43 43 24 28 57 43 29 2C 43 |..(SP$.CC$(WC),C|
00001B30: 50 25 28 57 43 29 29 00 3D 1F 9B 19 8E 00 4C 1F |P%(WC)).=.....L.|
00001B40: C8 19 8F 20 44 45 43 20 4A 55 53 54 00 6C 1F CD |... DEC JUST.l..|
00001B50: 19 52 B2 52 44 25 28 57 43 29 3A 54 B2 4C 44 25 |.R.RD%(WC):T.LD%|
00001B60: 28 57 43 29 AA 52 AB 28 52 B1 30 29 00 89 1F D2 |(WC).R.(R.0)....|
00001B70: 19 43 43 24 B2 C4 28 B5 28 C5 28 43 43 24 29 AC |.CC$..(.(.(CC$).|
00001B80: 31 30 AE 52 AA 2E 35 29 29 00 A9 1F D7 19 8B 20 |10.R..5))...... |
00001B90: C8 28 43 43 24 2C 31 29 B2 22 20 22 A7 43 43 24 |.(CC$,1)." ".CC$|
00001BA0: B2 CA 28 43 43 24 2C 32 29 00 CF 1F D9 19 8B 52 |..(CC$,2)......R|
00001BB0: B1 C3 28 43 43 24 29 A7 43 43 24 B2 C9 28 22 30 |..(CC$).CC$..("0|
00001BC0: 30 30 30 30 30 30 30 22 AA 43 43 24 2C 52 29 00 |0000000".CC$,R).|
00001BD0: FD 1F DC 19 8B 20 52 20 A7 20 43 43 24 B2 C8 28 |..... R . CC$..(|
00001BE0: 43 43 24 2C C3 28 43 43 24 29 AB 52 29 AA 22 2E |CC$,.(CC$).R).".|
00001BF0: 22 AA C9 28 5A 24 AA 43 43 24 2C 52 29 00 1E 20 |"..(Z$.CC$,R).. |
00001C00: E1 19 8B 20 C3 28 43 43 24 29 B3 54 A7 20 43 43 |... .(CC$).T. CC|
00001C10: 24 B2 C9 28 53 50 24 AA 43 43 24 2C 54 29 00 24 |$..(SP$.CC$,T).$|
00001C20: 20 E6 19 8E 00 33 20 2C 1A 8F 20 50 47 20 46 4F | ....3 ,.. PG FO|
00001C30: 52 43 45 00 50 20 31 1A 8B 20 50 31 B2 30 20 B0 |RCE.P 1.. P1.0 .|
00001C40: 20 52 4F B3 B1 4C 50 AB 33 20 A7 20 36 37 31 30 | RO..LP.3 . 6710|
00001C50: 00 81 20 33 1A 3A 98 50 52 2C C9 28 53 50 24 AA |.. 3.:.PR,.(SP$.|
00001C60: 53 50 24 AA 22 50 41 47 45 22 AA C4 28 50 4E 29 |SP$."PAGE"..(PN)|
00001C70: 2C 50 57 AD 32 AA 34 29 3B 3A 50 4E B2 50 4E AA |,PW.2.4);:PN.PN.|
00001C80: 31 00 AD 20 36 1A 98 50 52 2C 22 20 22 52 24 3B |1.. 6..PR," "R$;|
00001C90: 4C 46 24 3B 3A 52 4F B2 52 4F AA 31 3A 8B 20 52 |LF$;:RO.RO.1:. R|
00001CA0: 4F B3 4C 50 AA 31 20 A7 20 36 37 30 35 00 C4 20 |O.LP.1 . 6705.. |
00001CB0: 38 1A 8B 20 50 50 20 A7 20 47 31 24 B2 22 43 22 |8.. PP . G1$."C"|
00001CC0: 3A 8D 20 35 00 CF 20 3B 1A 52 4F B2 31 3A 8E 00 |:. 5.. ;.RO.1:..|
00001CD0: DC 20 90 1A 8F 20 4C 4E 20 50 52 54 00 E5 20 95 |. ... LN PRT.. .|
00001CE0: 1A 57 58 B2 30 00 1A 21 9A 1A 4C 4C 24 B2 C8 28 |.WX.0..!..LL$..(|
00001CF0: 53 50 24 2C 43 50 25 28 30 29 29 3A 41 58 B2 30 |SP$,CP%(0)):AX.0|
00001D00: 3A 81 20 57 43 B2 46 43 25 28 57 4D 29 A4 20 46 |:. WC.FC%(WM). F|
00001D10: 43 25 28 57 4D AA 31 29 AB 31 00 4D 21 A1 1A 3A |C%(WM.1).1.M!..:|
00001D20: 4C B2 43 50 25 28 57 43 29 3A 4C 4C 24 B2 4C 4C |L.CP%(WC):LL$.LL|
00001D30: 24 AA CA 28 43 43 24 28 57 43 29 AA 53 50 24 2C |$..(CC$(WC).SP$,|
00001D40: 31 AA 4C AC 57 58 2C 4C 29 AA 22 20 22 00 72 21 |1.L.WX,L)." ".r!|
00001D50: A4 1A 3A 8B 28 57 58 AA 31 29 AC 4C B3 C3 28 43 |..:.(WX.1).L..(C|
00001D60: 43 24 28 57 43 29 29 A7 20 41 58 B2 41 58 20 B0 |C$(WC)). AX.AX .|
00001D70: 20 31 00 8D 21 B3 1A 82 20 57 43 3A 8B 20 50 44 | 1..!... WC:. PD|
00001D80: B1 31 20 A7 20 9E 20 4D 4C AA 31 35 33 00 C0 21 |.1 . . ML.153..!|
00001D90: BA 1A 98 50 52 2C 44 4E 24 C8 28 4C 4C 24 2C 50 |...PR,DN$.(LL$,P|
00001DA0: 57 29 52 24 4C 46 24 3B 3A 52 4F B2 52 4F AA 31 |W)R$LF$;:RO.RO.1|
00001DB0: 3A 4C 4C 24 B2 CA 28 4C 4C 24 2C 50 57 AA 31 29 |:LL$..(LL$,PW.1)|
00001DC0: 00 D9 21 BD 1A 8B 20 41 58 20 A7 20 57 58 B2 57 |..!... AX . WX.W|
00001DD0: 58 AA 31 3A 89 36 38 31 30 00 DF 21 C2 1A 8E 00 |X.1:.6810..!....|
00001DE0: F3 21 84 1C 8F 20 50 52 54 20 54 4F 54 53 20 41 |.!... PRT TOTS A|
00001DF0: 56 52 53 00 30 22 86 1C 50 46 B2 36 AA 32 AC 48 |VRS.0"..PF.6.2.H|
00001E00: 4D 3A 58 B2 30 3A 81 20 57 43 B2 31 A4 48 43 3A |M:X.0:. WC.1.HC:|
00001E10: 58 B2 58 AA 28 46 4C 25 28 57 43 29 AF 32 29 3A |X.X.(FL%(WC).2):|
00001E20: 82 20 57 43 3A 8B 20 58 B2 30 20 A7 37 33 31 35 |. WC:. X.0 .7315|
00001E30: 00 53 22 87 1C 98 50 52 2C 44 4E 24 22 54 4F 54 |.S"...PR,DN$"TOT|
00001E40: 41 4C 53 3A 22 52 24 4C 46 24 3B 3A 52 4F B2 52 |ALS:"R$LF$;:RO.R|
00001E50: 4F AA 31 00 8D 22 89 1C 8D 20 36 33 30 30 3A 44 |O.1.."... 6300:D|
00001E60: 4C 24 B2 22 3D 22 3A 58 33 B2 32 3A 81 20 57 4D |L$."=":X3.2:. WM|
00001E70: B2 31 20 A4 20 48 4D 3A 8D 20 37 39 30 30 3A 82 |.1 . HM:. 7900:.|
00001E80: 20 57 4D 3A 8F 20 46 52 43 2C 44 4F 54 00 C5 22 | WM:. FRC,DOT.."|
00001E90: 8E 1C 3A 81 57 43 B2 31 A4 48 43 3A 43 43 24 28 |..:.WC.1.HC:CC$(|
00001EA0: 57 43 29 B2 22 22 3A 8B 46 4C 25 28 57 43 29 AF |WC)."":.FL%(WC).|
00001EB0: 32 A7 43 43 24 28 57 43 29 B2 C4 28 43 54 28 57 |2.CC$(WC)..(CT(W|
00001EC0: 43 2C 30 29 29 00 FD 22 92 1C 3A 82 57 43 3A 8D |C,0)).."..:.WC:.|
00001ED0: 20 34 38 30 30 3A 81 20 57 4D B2 31 20 A4 20 48 | 4800:. WM.1 . H|
00001EE0: 4D 3A 8D 20 36 38 30 30 3A 82 20 57 4D 3A 8F 20 |M:. 6800:. WM:. |
00001EF0: 4A 55 53 54 2C 50 52 54 20 41 20 4C 4E 00 2E 23 |JUST,PRT A LN..#|
00001F00: 93 1C 58 B2 30 3A 81 20 57 43 B2 31 A4 48 43 3A |..X.0:. WC.1.HC:|
00001F10: 58 B2 58 AA 28 46 4C 25 28 57 43 29 AF 34 29 3A |X.X.(FL%(WC).4):|
00001F20: 82 20 57 43 3A 8B 20 58 B2 30 20 A7 20 8E 00 53 |. WC:. X.0 . ..S|
00001F30: 23 94 1C 98 50 52 2C 44 4E 24 22 41 56 45 52 41 |#...PR,DN$"AVERA|
00001F40: 47 45 53 3A 22 52 24 4C 46 24 3B 3A 52 4F B2 52 |GES:"R$LF$;:RO.R|
00001F50: 4F AA 31 00 83 23 95 1C 8D 20 36 33 30 30 3A 44 |O.1..#... 6300:D|
00001F60: 4C 24 B2 22 3D 22 3A 58 33 B2 34 3A 81 20 57 4D |L$."=":X3.4:. WM|
00001F70: B2 31 20 A4 20 48 4D 3A 8D 20 37 39 30 30 3A 82 |.1 . HM:. 7900:.|
00001F80: 20 57 4D 00 BE 23 98 1C 3A 81 57 43 B2 31 A4 48 | WM..#..:.WC.1.H|
00001F90: 43 3A 43 43 24 28 57 43 29 B2 22 22 3A 8B 46 4C |C:CC$(WC)."":.FL|
00001FA0: 25 28 57 43 29 AF 34 A7 43 43 24 28 57 43 29 B2 |%(WC).4.CC$(WC).|
00001FB0: C4 28 43 54 28 57 43 2C 30 29 AD 52 43 29 00 E7 |.(CT(WC,0).RC)..|
00001FC0: 23 A2 1C 3A 82 57 43 3A 8D 20 34 38 30 30 3A 81 |#..:.WC:. 4800:.|
00001FD0: 20 57 4D B2 31 20 A4 20 48 4D 3A 8D 36 38 30 30 | WM.1 . HM:.6800|
00001FE0: 3A 82 20 57 4D 3A 8E 00 F2 23 DC 1E 8F 20 44 4F |:. WM:...#... DO|
00001FF0: 54 53 00 28 24 E1 1E 58 31 24 B2 22 22 3A 8B 20 |TS.($..X1$."":. |
00002000: 43 50 25 28 30 29 B1 31 20 A7 20 81 20 58 B2 31 |CP%(0).1 . . X.1|
00002010: 20 A4 20 43 50 25 28 30 29 3A 58 31 24 B2 58 31 | . CP%(0):X1$.X1|
00002020: 24 AA 22 20 22 3A 82 58 00 47 24 E6 1E 81 20 57 |$." ":.X.G$... W|
00002030: 43 B2 46 43 25 28 57 4D 29 20 A4 20 46 43 25 28 |C.FC%(WM) . FC%(|
00002040: 57 4D AA 31 29 AB 31 00 71 24 E7 1E 3A 58 24 B2 |WM.1).1.q$..:X$.|
00002050: 44 4C 24 3A 8B 20 58 33 20 A7 20 8B 28 58 33 AF |DL$:. X3 . .(X3.|
00002060: 46 4C 25 28 57 43 29 29 B2 30 A7 58 24 B2 22 20 |FL%(WC)).0.X$." |
00002070: 22 00 A0 24 E8 1E 3A 81 20 58 B2 31 20 A4 20 43 |"..$..:. X.1 . C|
00002080: 50 25 28 57 43 29 3A 58 31 24 B2 58 31 24 AA 58 |P%(WC):X1$.X1$.X|
00002090: 24 3A 82 58 3A 58 31 24 B2 58 31 24 AA 22 20 22 |$:.X:X1$.X1$." "|
000020A0: 00 C1 24 EB 1E 82 20 57 43 3A 98 50 52 2C 58 31 |..$... WC:.PR,X1|
000020B0: 24 52 24 4C 46 24 3B 3A 52 4F B2 52 4F AA 31 3A |$R$LF$;:RO.RO.1:|
000020C0: 8E 00 D4 24 D0 20 8F 20 4F 50 45 4E 20 50 44 20 |...$. . OPEN PD |
000020D0: 46 49 4C 45 00 F1 24 D2 20 8B 20 50 44 B2 31 20 |FILE..$. . PD.1 |
000020E0: A7 20 9F 20 50 52 2C 50 44 2C 31 2C 4E 53 24 3A |. . PR,PD,1,NS$:|
000020F0: 8E 00 09 25 D5 20 8B 20 50 44 B3 B1 38 20 A7 20 |...%. . PD..8 . |
00002100: 9F 20 50 52 2C 50 44 3A 8E 00 41 25 DA 20 99 22 |. PR,PD:..A%. ."|
00002110: 11 12 49 4E 53 45 52 54 20 53 45 51 55 45 4E 54 |..INSERT SEQUENT|
00002120: 49 41 4C 20 44 49 53 4B 20 49 4E 20 44 52 49 56 |IAL DISK IN DRIV|
00002130: 45 20 30 20 49 46 20 4E 45 43 45 53 53 41 52 59 |E 0 IF NECESSARY|
00002140: 22 00 7B 25 DF 20 99 22 11 53 45 51 20 46 49 4C |".{%. .".SEQ FIL|
00002150: 45 20 44 52 49 56 45 20 4E 4F 3F 28 12 31 92 2F |E DRIVE NO?(.1./|
00002160: 12 30 92 29 22 3A 47 31 24 B2 22 30 31 22 3A 8D |.0.)":G1$."01":.|
00002170: 20 35 3A 51 56 B2 C5 28 47 24 29 00 9E 25 E4 20 | 5:QV..(G$)..%. |
00002180: 8B 20 51 56 B3 B1 52 56 20 A7 20 98 4B 4B 28 51 |. QV..RV . .KK(Q|
00002190: 56 29 2C 22 49 22 AA 44 52 24 28 51 56 29 00 BE |V),"I".DR$(QV)..|
000021A0: 25 E9 20 98 4B 4B 28 51 56 29 2C 22 53 22 AA 44 |%. .KK(QV),"S".D|
000021B0: 52 24 28 51 56 29 AA 22 3A 22 AA 4E 53 24 00 FA |R$(QV).":".NS$..|
000021C0: 25 EE 20 9F 20 50 52 2C 44 56 28 51 56 29 2C 53 |%. . PR,DV(QV),S|
000021D0: 45 2C 44 52 24 28 51 56 29 AA 22 3A 22 AA 4E 53 |E,DR$(QV).":".NS|
000021E0: 24 AA 22 2C 53 2C 57 22 3A 56 4F B2 51 56 3A 8D |$.",S,W":VO.QV:.|
000021F0: 20 38 3A 8B 20 45 20 A7 20 8E 00 09 26 F3 20 8B | 8:. E . ...&. .|
00002200: 20 44 46 B2 30 20 A7 20 8E 00 29 26 F8 20 98 50 | DF.0 . ..)&. .P|
00002210: 52 2C 22 D4 C1 C2 CC C5 22 52 24 22 30 2C 31 22 |R,"....."R$"0,1"|
00002220: 52 24 51 24 51 24 52 24 3B 00 4D 26 FD 20 98 50 |R$Q$Q$R$;.M&. .P|
00002230: 52 2C 22 D6 C5 C3 D4 CF D2 D3 22 52 24 22 30 2C |R,"......."R$"0,|
00002240: 22 48 43 3B 52 24 51 24 51 24 52 24 3B 00 70 26 |"HC;R$Q$Q$R$;.p&|
00002250: 02 21 98 50 52 2C 22 D4 D5 D0 CC C5 D3 22 52 24 |.!.PR,"......"R$|
00002260: 22 30 2C 22 48 52 3B 52 24 51 24 51 24 52 24 3B |"0,"HR;R$Q$Q$R$;|
00002270: 00 8F 26 07 21 98 50 52 2C 22 C4 C1 D4 C1 22 52 |..&.!.PR,"...."R|
00002280: 24 22 30 2C 30 22 52 24 51 24 51 24 52 24 3B 00 |$"0,0"R$Q$Q$R$;.|
00002290: A8 26 0C 21 98 50 52 2C 22 2D 31 2C 30 22 52 24 |.&.!.PR,"-1,0"R$|
000022A0: 22 C2 CF D4 22 52 24 3B 00 D0 26 11 21 81 20 58 |"..."R$;..&.!. X|
000022B0: B2 31 20 A4 20 48 43 3A 4C 4C 24 B2 54 31 24 28 |.1 . HC:LL$.T1$(|
000022C0: 58 29 3A 8B 50 44 B1 31 A7 9E 4D 4C AA 31 35 33 |X):.PD.1..ML.153|
000022D0: 00 04 27 16 21 3A 98 50 52 2C 22 20 31 2C 30 22 |..'.!:.PR," 1,0"|
000022E0: 52 24 51 24 4C 4C 24 51 24 52 24 3B 3A 82 58 3A |R$Q$LL$Q$R$;:.X:|
000022F0: 98 50 52 2C 22 2D 31 2C 30 22 52 24 22 C2 CF D4 |.PR,"-1,0"R$"...|
00002300: 22 52 24 3B 00 2C 27 1B 21 81 20 58 B2 31 20 A4 |"R$;.,'.!. X.1 .|
00002310: 20 48 43 3A 4C 4C 24 B2 54 32 24 28 58 29 3A 8B | HC:LL$.T2$(X):.|
00002320: 50 44 B1 31 A7 9E 4D 4C AA 31 35 33 00 60 27 20 |PD.1..ML.153.`' |
00002330: 21 3A 98 50 52 2C 22 20 31 2C 30 22 52 24 51 24 |!:.PR," 1,0"R$Q$|
00002340: 4C 4C 24 51 24 52 24 3B 3A 82 58 3A 98 50 52 2C |LL$Q$R$;:.X:.PR,|
00002350: 22 2D 31 2C 30 22 52 24 22 C2 CF D4 22 52 24 3B |"-1,0"R$"..."R$;|
00002360: 00 66 27 25 21 8E 00 71 27 8C 23 8F 20 45 58 49 |.f'%!..q'.#. EXI|
00002370: 54 00 8B 27 8D 23 8B 20 50 44 B3 B1 38 20 B0 20 |T..'.#. PD..8 . |
00002380: 44 54 B2 31 20 A7 20 39 31 31 30 00 C3 27 8E 23 |DT.1 . 9110..'.#|
00002390: 99 22 07 07 07 07 07 07 07 07 07 11 12 52 45 50 |."...........REP|
000023A0: 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 44 49 53 |LACE PROGRAM DIS|
000023B0: 4B 20 49 46 20 4E 45 43 45 53 53 41 52 59 22 3A |K IF NECESSARY":|
000023C0: 8D 31 30 00 E7 27 96 23 58 24 B2 22 52 45 50 4F |.10..'.#X$."REPO|
000023D0: 52 54 20 57 52 49 54 45 52 22 3A 8D 20 39 32 30 |RT WRITER":. 920|
000023E0: 30 3A 89 39 31 30 30 00 F7 27 F0 23 8F 20 4C 4F |0:.9100..'.#. LO|
000023F0: 41 44 20 50 52 4F 47 00 2E 28 F1 23 A0 20 52 41 |AD PROG..(.#. RA|
00002400: 3A 8B 20 44 54 B2 31 20 AF 20 52 56 B2 31 20 A7 |:. DT.1 . RV.1 .|
00002410: 20 99 22 11 12 49 4E 53 45 52 54 20 50 52 4F 47 | ."..INSERT PROG|
00002420: 52 41 4D 20 44 49 53 4B 22 3A 8D 20 31 30 00 51 |RAM DISK":. 10.Q|
00002430: 28 F5 23 98 4B 4B 28 30 29 2C 22 49 30 22 3A 99 |(.#.KK(0),"I0":.|
00002440: 22 11 28 4C 4F 41 44 49 4E 47 20 22 58 24 22 29 |".(LOADING "X$")|
00002450: 22 00 84 28 FA 23 9F 20 53 45 2C 38 2C 53 45 2C |"..(.#. SE,8,SE,|
00002460: 22 30 3A 22 AA 58 24 AA 22 2C 50 2C 52 22 3A 56 |"0:".X$.",P,R":V|
00002470: 4F B2 30 3A 8D 20 38 3A A0 20 53 45 3A 8B 20 45 |O.0:. 8:. SE:. E|
00002480: 20 A7 20 8E 00 9B 28 FF 23 8B 20 4C 49 B3 32 35 | . ...(.#. LI.25|
00002490: 33 20 A7 20 97 20 49 56 2C 4C 49 00 AD 28 04 24 |3 . . IV,LI..(.$|
000024A0: 93 20 22 30 3A 22 AA 58 24 2C 38 3A 90 00 BB 28 |. "0:".X$,8:...(|
000024B0: 54 24 8F 20 4F 50 45 4E 20 52 41 00 EA 28 59 24 |T$. OPEN RA..(Y$|
000024C0: 8B 20 44 54 B2 31 20 AF 20 52 56 B2 31 20 A7 20 |. DT.1 . RV.1 . |
000024D0: 99 22 11 12 49 4E 53 45 52 54 20 44 41 54 41 20 |."..INSERT DATA |
000024E0: 44 49 53 4B 22 3A 8D 20 31 30 00 01 29 5B 24 98 |DISK":. 10..)[$.|
000024F0: 4B 4B 28 52 56 29 2C 22 49 22 44 52 24 28 52 56 |KK(RV),"I"DR$(RV|
00002500: 29 00 37 29 5E 24 9F 20 53 45 2C 44 56 28 52 56 |).7)^$. SE,DV(RV|
00002510: 29 2C 53 45 2C 44 52 24 28 52 56 29 AA 22 3A 44 |),SE,DR$(RV).":D|
00002520: 42 22 AA C7 28 33 34 AA 31 32 38 29 AA 4E 41 24 |B"..(34.128).NA$|
00002530: AA 22 2C 53 2C 52 22 00 52 29 60 24 56 4F B2 52 |.",S,R".R)`$VO.R|
00002540: 56 3A 8D 20 38 3A A0 20 53 45 3A 8B 20 45 20 A7 |V:. 8:. SE:. E .|
00002550: 20 8E 00 70 29 63 24 9F 20 52 41 2C 44 56 28 52 | ..p)c$. RA,DV(R|
00002560: 56 29 2C 52 41 2C 22 23 22 3A 42 4C B2 30 3A 8E |V),RA,"#":BL.0:.|
00002570: 00 7F 29 48 26 8F 20 50 52 49 4E 54 20 4D 53 00 |..)H&. PRINT MS.|
00002580: BB 29 4D 26 99 22 93 12 50 92 41 55 53 45 22 52 |.)M&."..P.AUSE"R|
00002590: 24 22 11 12 43 92 4F 4E 54 49 4E 55 45 20 50 52 |$"..C.ONTINUE PR|
000025A0: 49 4E 54 49 4E 47 22 52 24 22 11 12 53 92 54 4F |INTING"R$"..S.TO|
000025B0: 50 20 50 52 49 4E 54 49 4E 47 22 00 E1 29 52 26 |P PRINTING"..)R&|
000025C0: 99 22 11 28 50 52 45 53 53 20 4B 45 59 20 4F 4E |.".(PRESS KEY ON|
000025D0: 43 45 2C 20 54 48 45 4E 20 57 41 49 54 29 22 3A |CE, THEN WAIT)":|
000025E0: 8E 00 00 00 07 |..... |
............. 1100.K.... 15,8,15,"I0":.1
5,"S0:PRINT REP":."0:PRINT REP",8:..W...
."CORRECTIONS?(.Y./.N.)":G1$."YN":. 5:..
.....4,4:.4:.......G$:.V.1.C(G1$):.G$..J
(G1$,V,1)..V:.5.......Q....KK(VO),E,E$,S
,T:.E.2........"DISK ERROR:"E;E$;S;T....
.."..R.EADY?":G1$."R":.5:....... MAIN.!.
... SETUP.7.... SEL TEST EA REC.S.... SE
L TEST EA CONDITION.A.!.. CALC DO.W."..
MATH OPERATIONS...&.. LOOKUP...... SUB P
RINT.../.. SUBT,JUST,ACUM...0.. JUSTIFY
ONLY.M.1.. ASK NUMBER...:.. GET COMBO...
;.. GET-SEL...=.. RECS...>.. RECS-DISK..
.?.. PG FORCE?.$.@.. HEADING.1.A.. TITLE
S.@.B.. DEC JUST.O.C.. PG FORCE.\.D.. LN
PRT.P.I.. PRT TOTS AVRS.{.O.. DOTS...R.
. READ REC...S.. POS POINT...T.. OPEN PD
FILE...[.. EXIT.G.\.. PRINT MS...].. SP
ECIAL COUNT...B.. PRINT MS...L.. MAIN...
Q.. 9300:. 1200:. SETUP.,.T.. 8400:. E .
1199:. OPEN.X.V.. PD.8 . PD.1 . . 6200:
.1199:. DISK PRT...X.:. CH%(0) . .X.1 .C
H%(0):.PR,G(CH%(X));:. X...[.:. PD..3 .:
. 9800:. PR MS.F.].:. 6400:.G$."S".1199:
. HEAD...`.:. 6500:. TITLES...E.:. 6100:
. RECS..... PR:. 9100:....... SETUP.%..
.. LI.253 . . IV,LI.3.A....WC.0.MD:CC$(W
C)."":X$(WC)."":. X.1.DE:CT(WC,X).0:.X,W
C.....HI$."=============================
======================================="
.....PF.5.HM.3.LS.HM:CC$(0)."":F$(0)."":
RC.0:RR.R1.1:. AS.0 . RR.R2.1...........
. SEL TEST EA REC.>...GS.1:. WS.1.HS:X.S
E%(WS): . START TRUE...... GS . . X .
2810,2815,2820,2825,2830,2835,2840,2870,
2890,2895... .. SL%(WS)..2 . . WS:.:. IF
'AND' THEN TEST AGAIN.I.... MUST BE 'OR
'.V.... GS . ......GS.1:. WS:."SELECT SY
NTEX ERROR":....... SEL TEST EA CONDITIO
N.8...GS.(F$(SA%(WS)).SB$(WS)):..]...GS.
(E(F$(SA%(WS))).E(SB$(WS))):......GS.(E(
F$(SA%(WS))).E(SB$(WS))):......GS.(F$(SA
%(WS)).SB$(WS)):......GS.(F$(SA%(WS)).SB
$(WS)):......GS.(F$(SA%(WS))..SB$(WS)):.
.....A1$.F$(SA%(WS)):A2$.SB$(WS).....:.
I(A2$,1)."*" . A1$.H(A1$,C(A2$).1)."*".L
.".:. C(A1$)..C(A2$). GS.0:..`.'.:. X.1
. C(A2$)...,.:. J(A2$,X,1).."?" . J(A2$,
X,1)..J(A1$,X,1). GS.0:....1.:.X:....6.X
$.F$(SA%(WS)):Y$.SB$(WS):.X.1.C(X$).HT:X
1$.J(X$,X,HT)...8.:.Y.1.C(Y$).HT:.X1$.J(
Y$,Y,HT).GS.1:....@.:.Y,X:GS.0:..D.J.GS.
(E(F$(SA%(WS))).E(F$(E(SB$(WS))))):..{.O
.GS.0:A$.F$(SA%(WS)):B$.SB$(WS):B.C(B$):
D.C(A$).B.1. .P.. X.1 . D:. B$.J(A$,X,B)
. GS.1:....Q.. X:....... CALC DO.H.... W
O.1 . HO.....:B$.OB$(WO):.H(B$,1)."C". B
$.CC$(E(J(B$,2))).*...:C$.OC$(WO):.H(C$,
1)."C". C$.CC$(E(J(C$,2))).^...:A.E(J( O
A$(WO) ,2)):B.E(B$):C.E(C$):O$.OO$(WO)..
.*.:NO.1:. 3400:. NUMERIC OP?, DO OPER.B
.>.:. NO . CC$(A).D(X):.H(CC$(A),1)." ".
CC$(A).J(CC$(A),2).M.G.. WO:....H.. MATH
OPERATIONS...W..O$."+". X.B.C:....\..O$
.".". X.B:.. .A..O$."R#". X.RN:..5.F..O$
."-". X.B.C:..S.K..O$."X". O$."*" . X.B.
C:..J.P..O$."/"..C.X.B.C:...U..O$."^".
X.B.C:....Z..O$."SIN". X..(C):....{..O$.
"RND". X..(C):..G...O$."TAN". X..(C):..
.....O$."LOG". X..(C):.......O$."INT". X
..(C):......NO.0......O$."LU" . . 3800:.
.N....O$."DATE" . CC$(A).J(CC$(A),4)."/"
.H(CC$(A),2):..U....O$."BAR" . . E(CC$(A
)).CP%(A) . .......O$."BAR" . CC$(A).H(H
I$,E(CC$(A))):..A....O$."$+" . CC$(A).B$
." ".C$:.......O$."=" . WO.WO.A.(B.C):..
.....O$.">" . WO.WO.A.(B.C):..$....".ERR
OR IN CALC#"WO"FOR REC#"RN:..1.X.. LOOKU
P.Z.Z..C.1.C.HL.."ERROR IN OPERATION#"WO
:......BR.(LR%(C.1).2).2:TR.LR%(C).2:FI$
.CC$(A)...... TR.BR.2 . CC$(A).FI$:..F..
.P%.(BR.TR..1).2:FO$.LU$(P%.2)...... FI$
.FO$ . TR.P%:. 3810...... FI$.FO$ . BR.P
%:. 3810.....CC$(A).LU$(P%.2.1):..-.H..
READ A RECORD.].M.. R3 . . 4300:. WF.1 .
HF:.RA,F$(WF):. WF:....R.L.1:.X.1.HF:O#
(RA),(WR),(L):.RA,F$(X):L.L.C(F$(X)).2:.
X...W.....L.. POSITION POINTER...Q.X..((
WR.1).RB..00001).1:. BL.X . 4315...T.:BL
.X:.KK(RV),"U1:"RA;DR(RV);T%(BL);S%(BL):
VO.RV:.8:.E...X...X.(WR.1).(BL.1).RB:. N
O. RECS BEFOR THIS IN THIS BLOCK.}...BP.
1.RS.X:.KK(RV),"B-P:";RA;BP:....... SUB
PRINT.F...NR.(SC.1):. WC.1 . HC:X$(WC).C
C$(WC):CC$(WC)."":. WC.....X.SC:. SC.LS
. X ..1:UK$(SC).X$(SC)... .:DL$."-":X3.2
:WM.1:. 7900:. DOT.9./.:. WC.1 . HC:FL.F
L%(WC):CC$(WC)."".C.9.: . FL.2 . CC$(WC)
.D(CT(WC,SC)):. TOT...;.: . FL.6 . CT(WC
,SC.1).CT(WC,SC.1).CT(WC,SC):CT(WC,SC).0
:. TOT AV.W.C.:. WC:. 4800:CC$(SC)."*":.
6800:. JUS,PRT...H.. SC:.PR," "R$LF$;:R
O.RO.1...K.. WC.1 . HC:CC$(WC).X$(WC):.
WC.A.M.. SR . . NR . . 6700:. 6400:. 650
0...[..:. 4667 - ACUMS FOR TOT + AV MOVE
D DOWN DURRING SUB PRINT...\.. SUBT,JUST
,ACUM...^.. LS.0 . 4725.Y._.:. RC.1 . .
X.1 . LS:UK$(X).CC$(X):. X:. 4725...A.:
. SC.1 . LS:. UK$(SC).CC$(SC).CC$(SC).""
:.SC:.4725.*.F.: . 4600:. SUB PRT.R.U..
WC.1 . HC:FL.FL%(WC):. FL.0 . 4740...Z.:
CC$.CC$(WC):. FL .1 . .6600:CC$(WC).CC$:
. DEC JUS.C..: . FL .6 . CT(WC,LS).CT(W
C,LS).E(CC$):.4740:. TOT AV.L.... WC.R..
........ JUSTIFY ONLY...E..WC.1 . HC...J
.. FL%(WC).1. CC$.CC$(WC):. CC$.."". .66
00:CC$(WC).CC$.9.T.. WC:..J.$.. ASK NUMB
ER.Z.... G$:.X;D$;:.KE,X$:.:X.E(X$):.X..
X1.X..X2.....0..".ILLEGAL ENTRY - PLEASE
ENTER A NUMBER"...3..".IN THE RANGE OF"
X1". TO"X2". !!":.4900:.---...... GET CO
MBO.....RN.RR:. X.1 . HC:. AR%(X). CC$(X
).F$(AR%(X)).B...:. X:. 5900:. KR.0 . .:
. ?GET-SEL.}.... X.1.HC:. FL%(X).16 . CT
(X,LS.1).CT(X,LS.1).E(CC$(X)).....:. X..
.... GS .. X.1.KR:. F$(SF%(WK,X)).CC$(X)
. .X:.5800:.SIM?...... X.1.HC:. FL%(X).1
6 . CC$(X).D(CT(X,LS.1)):CT(X,LS.1).0.#.
... X:.:. THIS ROUT NOT ENT IF GS=0.1...
. GET-SEL.F...GS.0:. AS . 5910._...:RR.R
R.1:. RR.R1 . ..I....5912.....:RR.RR.1:.
RR.R2 . ......GS.1:WR.PO%(RR,WK):. 4200
:. HS . . 2700:. GS.0 . 5900......:. RR
ALWAYS = LAST SELCTD REC#...T.. RECS...V
.. 5900:. GET SEL.1.Y.. GS.0 . .PR,"NO R
ECORDS"R$LF$;:. 6165:.---.G.... 5800:. G
ET COMB.D...:.G$:.G$."P".G1$."CS":.5.T..
.:.G$."S". ......:RC.RC.1.....:. HO . .
3300:. CALC.....:. 4700:. SUBT,JUST,ACUM
.....:. WM.1 . HM:.6800:. WM:. HM.1 . .P
R," "R$LF$;:RO.RO.1...... 6300:. GS . 61
07 :. PG FORCE.8.... LS . SC.1:. 4600:.
ALL SUBS.O.... 7300:. TOTS,AVRS.H...."..
.":. PD.3 . . 10.U.... 6700:....8.. RECS
-DISK...=.. 5900:. GET SEL...B.. GS.0 .
.:. EMPTY.H.G.. 5800:. GET COMBO...L.:.
GET G$:IFG$="S"THEN RETURN...Q.:RC.RC.
1...V.:. HO . . 3300:. CALC.+.[.:. 4800:
. JUST ONLY.L.`.:. DF . .PR,"-1,0"R$"BOT
"R$;.V.E.:.X.1.HC:LL$.CC$(X):. PD.1 . .
ML.153...J.:. WP.0 . DF.0 . .PR,Q$LL$R$;
:. 6270...O.: . LL$."" . LL$." ".W.T.: .
WP . .PR,LL$R$;:. 6270...Y.: .(FL%(X).
8). .PR,"0,"CC$(X)R$"V"R$;:. 6270.(.{.:
.PR,"1,0"R$Q$LL$Q$R$;.A.~.. X:. GS .
6215:.---.B.... DF . . PR,"-1,0"R$"EOD"R
$;.H.....X.... PG FORCE?...... RO.PF..LP
. ....... 6700:.X.1.3:.PR," "R$LF$;:RO.
RO.1:.X:. FORCE.U.... 6500:.:. TITLES...
... HEADING......X.1.3:.PR," "R$;LF$;:.X
:RO.4.5.... WH.1. HH:L.C(HL$(WH)):LL$."L
INE TOO WIDE".Q...:.G$:.G$."P".G1$."CS".
5.`...:.G$."S".......:. PW..L . LL$.H(SP
$.SP$,(PW.L).2).HL$(WH):.PD.1..ML.153...
..:.PR,DN$LL$R$LF$;:RO.RO.1:. WH.Y....PR
,R$LF$;:RO.RO.1:....D.. TITLES...F.. WC.
1 . HC:X$(WC).CC$(WC):CC$(WC)."":. WC.%.
I.. WM.1 . HM.C.N.:. WC.1 . HC:CC$(WC).T
1$(WC):. 6550:. WC:. 6800:. DRAW LN...S.
:. WC.1 . HC:CC$(WC).T2$(WC):. 6550:. WC
:. 6800...}.:DL$."-":X3.0:. 7900:. DOTS.
..... WM:. HM.1 . .PR," "R$;LF$;:RO.RO.1
...... WC.1 . HC:CC$(WC).X$(WC):. WC:..7
.... FL%(WC).1 . CC$(WC).I(SP$.CC$(WC),C
P%(WC)).=.....L.H.. DEC JUST.L.M.R.RD%(W
C):T.LD%(WC).R.(R.0)...R.CC$.D(.(E(CC$).
10.R..5))...W.. H(CC$,1)." ".CC$.J(CC$,2
).O.Y..R.C(CC$).CC$.I("00000000".CC$,R).
..... R . CC$.H(CC$,C(CC$).R).".".I(Z$.C
C$,R).. ... C(CC$).T. CC$.I(SP$.CC$,T).$
....3 ,.. PG FORCE.P 1.. P1.0 . RO..LP.
3 . 6710.. 3.:.PR,I(SP$.SP$."PAGE".D(PN)
,PW.2.4);:PN.PN.1.. 6..PR," "R$;LF$;:RO.
RO.1:. RO.LP.1 . 6705.D 8.. PP . G1$."C"
:. 5.O ;.RO.1:... ... LN PRT.. ..WX.0..!
..LL$.H(SP$,CP%(0)):AX.0:. WC.FC%(WM). F
C%(WM.1).1.M!..:L.CP%(WC):LL$.LL$.J(CC$(
WC).SP$,1.L.WX,L)." ".R!..:.(WX.1).L.C(C
C$(WC)). AX.AX . 1..!... WC:. PD.1 . . M
L.153..!...PR,DN$H(LL$,PW)R$LF$;:RO.RO.1
:LL$.J(LL$,PW.1).Y!... AX . WX.WX.1:.681
0..!B....!... PRT TOTS AVRS.0"..PF.6.2.H
M:X.0:. WC.1.HC:X.X.(FL%(WC).2):. WC:. X
.0 .7315.S"...PR,DN$"TOTALS:"R$LF$;:RO.R
O.1.."... 6300:DL$."=":X3.2:. WM.1 . HM:
. 7900:. WM:. FRC,DOT.E"..:.WC.1.HC:CC$(
WC)."":.FL%(WC).2.CC$(WC).D(CT(WC,0)).."
..:.WC:. 4800:. WM.1 . HM:. 6800:. WM:.
JUST,PRT A LN..#..X.0:. WC.1.HC:X.X.(FL%
(WC).4):. WC:. X.0 . ..S#...PR,DN$"AVERA
GES:"R$LF$;:RO.RO.1..#... 6300:DL$."=":X
3.4:. WM.1 . HM:. 7900:. WM..#..:.WC.1.H
C:CC$(WC)."":.FL%(WC).4.CC$(WC).D(CT(WC,
0).RC)..#..:.WC:. 4800:. WM.1 . HM:.6800
:. WM:...#... DOTS.($..X1$."":. CP%(0).1
. . X.1 . CP%(0):X1$.X1$." ":.X.G$... W
C.FC%(WM) . FC%(WM.1).1.Q$..:X$.DL$:. X3
. .(X3.FL%(WC)).0.X$." ". $..:. X.1 . C
P%(WC):X1$.X1$.X$:.X:X1$.X1$." ".A$... W
C:.PR,X1$R$LF$;:RO.RO.1:..T$P . OPEN PD
FILE..$R . PD.1 . . PR,PD,1,NS$:...%U .
PD..8 . . PR,PD:..A%Z ."..INSERT SEQUENT
IAL DISK IN DRIVE 0 IF NECESSARY".{%. ."
.SEQ FILE DRIVE NO?(.1./.0.)":G1$."01":.
5:QV.E(G$)..%. . QV..RV . .KK(QV),"I".D
R$(QV)..%. .KK(QV),"S".DR$(QV).":".NS$..
%. . PR,DV(QV),SE,DR$(QV).":".NS$.",S,W"
:VO.QV:. 8:. E . ...&. . DF.0 . ..)&. .P
R,"TABLE"R$"0,1"R$Q$Q$R$;.M&. .PR,"VECTO
RS"R$"0,"HC;R$Q$Q$R$;.P&.!.PR,"TUPLES"R$
"0,"HR;R$Q$Q$R$;..&.!.PR,"DATA"R$"0,0"R$
Q$Q$R$;..&.!.PR,"-1,0"R$"BOT"R$;.P&.!. X
.1 . HC:LL$.T1$(X):.PD.1..ML.153..'.!:.P
R," 1,0"R$Q$LL$Q$R$;:.X:.PR,"-1,0"R$"BOT
"R$;.,'.!. X.1 . HC:LL$.T2$(X):.PD.1..ML
.153.`' !:.PR," 1,0"R$Q$LL$Q$R$;:.X:.PR,
"-1,0"R$"BOT"R$;.F'%!..Q'.#. EXIT..'.#.
PD..8 . DT.1 . 9110.C'.#."...........REP
LACE PROGRAM DISK IF NECESSARY":.10..'.#
X$."REPORT WRITER":. 9200:.9100..'.#. LO
AD PROG..(.# RA:. DT.1 . RV.1 . ."..INS
ERT PROGRAM DISK":. 10.Q(.#.KK(0),"I0":.
".(LOADING "X$")"..(.#. SE,8,SE,"0:".X$.
",P,R":VO.0:. 8: SE:. E . ...(.#. LI.25
3 . . IV,LI..(.$. "0:".X$,8:...(T$. OPEN
RA..(Y$. DT.1 . RV.1 . ."..INSERT DATA
DISK":. 10..)[$.KK(RV),"I"DR$(RV).7)^$.
SE,DV(RV),SE,DR$(RV).":DB".G(34.128).NA$
.",S,R".R)`$VO.RV:. 8: SE:. E . ..P)C$.
RA,DV(RV),RA,"#":BL.0:..)H&. PRINT MS.
.)M&."..P.AUSE"R$"..C.ONTINUE PRINTING"R
$"..S.TOP PRINTING"..)R&.".(PRESS KEY ON
CE, THEN WAIT)":.....
> CLICK IMAGE PREVIEW FOR FULL MODAL