PRINT REP
FILE INFORMATION
FILENAME(S): PRINT REP
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-11-30 20:14:52
APPEARS ON: 1 disk(s)
FILE HASH
b227288951326697114a4ef037237b347b026cc0da35a421793c72e122253d6f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 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 8F CF 71 F0 |810...... FI..q.|
00000CF0: 9F 8F C1 9F F8 F9 C9 FF 8F 9D FF 9F 89 9F 9F 9F |................|
00000D00: FF FF FF AD F5 F8 78 9F 8F 7F 9F D9 FF 77 9F 8F |......x......w..|
00000D10: 7F 8F DF 99 CC 8F 9F FE 25 22 F7 0A D2 0A 20 68 |........%".... h|
00000D20: 8E 89 D9 C9 A8 89 48 8E 89 DA CA FE 89 98 8F FC |......H.........|
00000D30: 4B FC 8F 48 8E 04 48 10 E8 8F 68 0C A4 4C 0C 05 |K..H..H...h..L..|
00000D40: 8F 48 8E DA B4 0C 48 18 A8 89 FA A5 8F 9E 89 48 |.H....H........H|
00000D50: FA A8 A8 FE DA A1 FF F2 22 05 74 63 A8 E0 09 91 |........".tc....|
00000D60: 17 21 04 0D 98 F9 DF F7 FD 98 0E 33 21 FF 23 4A |.!.........3!.#J|
00000D70: 8F FF F2 FF F0 FA 2F FF FF F0 2F F2 FF 6F FF 7F |....../.../..o..|
00000D80: 9F F9 F1 FF 3F 21 AF 6F E3 34 F3 34 62 FF F2 DC |....?!.o.4.4b...|
00000D90: FD F2 E2 2A 29 AA 32 3A 82 58 00 9F 11 77 10 8E |...*).2:.X...w..|
00000DA0: 00 B6 11 CC 10 80 9F FF F0 79 16 1B 36 1F 17 F2 |.........y..6...|
00000DB0: 3A 3F 16 75 F7 FF 79 FF 5F FF EF FF FF D9 C7 9F |:?.u..y._.......|
00000DC0: 9F 7B 79 CC 9F 9F D4 79 F8 CC 85 8F 8F 8F 8F 8F |.{y....y........|
00000DD0: 9F DC 8F 9D FD 9F F8 FF 4F 3A 08 10 E8 00 DF FF |........O:......|
00000DE0: 12 7F FF EF 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 77 FF 71 1D |........ JUSw.q.|
000011E0: 8F F0 75 FF 1E 02 F1 2A 10 0F 20 AC FF 2F 21 48 |..u....*.. ../!H|
000011F0: 18 F8 8F FF 0F FF F7 0F A1 28 B2 04 64 C2 52 85 |.........(..d.R.|
00001200: 74 32 9A F3 1A 72 04 34 32 4B 24 34 32 42 85 74 |t2...r.42K$42B.t|
00001210: 32 93 A8 B2 04 34 32 4B 3B 12 22 2A 72 08 D3 63 |2....42K;."*r..c|
00001220: 63 03 03 A4 34 32 42 85 74 32 9B 24 27 89 FF F8 |c...42B.t2.$'...|
00001230: FF B4 7F 9F FF 23 DB FF E2 52 23 62 DF 32 FA CF |.....#...R#b.2..|
00001240: 23 2B FB 6F 23 73 BB 71 F3 3B F2 2F E2 DF 72 FE |#+.o#s.q.;./..r.|
00001250: 2F 23 FF 3F E6 41 AF EB 3F 3F EF E2 13 6B 3F 31 |/#.?.A..??...k?1|
00001260: A0 8A 51 FF 58 DF 48 FE 8F DF 8A 1F FF 36 E3 67 |..Q.X.H......6.g|
00001270: 7F E3 F7 F0 E3 7F 7F E2 32 A7 8E 00 A8 16 30 13 |........2.....0.|
00001280: 99 88 F9 FF 7F 7F 7F 71 7F 7F 9F FF 75 F7 F9 FF |.......q....u...|
00001290: 9F 84 9F FF FF 7F 7F 79 13 F2 33 B7 3B 33 BF F2 |.......y..3.;3..|
000012A0: 32 F2 37 3B B7 1F 33 BF FF 22 74 AD FF AF E4 00 |2.7;..3.."t.....|
000012B0: 84 8B FB A8 8D 99 F9 E8 8E 89 CB 9A D9 E8 8A FA |................|
000012C0: A0 8D F0 7F FF BF F7 44 F0 21 FF 98 8C D2 02 12 |.......D.!......|
000012D0: 12 23 A8 93 43 93 03 03 A8 F2 31 3A 8E 00 D4 24 |.#..C.....1:...$|
000012E0: D0 20 8F 20 4F 50 45 4E 20 50 44 20 46 49 4C 45 |. . OPEN PD FILE|
000012F0: 00 F1 24 D2 20 8B 20 50 44 B2 31 20 A7 20 9F 20 |..$. . PD.1 . . |
00001300: 50 52 2C 50 44 2C 31 2C 4E 53 24 3A 8E 00 09 25 |PR,PD,1,NS$:...%|
00001310: D5 20 8B 20 50 44 B3 B1 38 20 A7 20 9F 20 50 52 |. . PD..8 . . PR|
00001320: 2C 50 44 3A 8E 00 41 25 DA 20 99 22 11 12 49 4E |,PD:..A%. ."..IN|
00001330: 53 45 52 54 20 53 45 51 55 45 4E 54 49 41 4C 20 |SERT SEQUENTIAL |
00001340: 44 49 53 4B 20 49 4E 20 44 52 49 56 45 20 30 20 |DISK IN DRIVE 0 |
00001350: 49 46 20 4E 45 43 45 53 53 41 52 59 22 00 7B 25 |IF NECESSARY".{%|
00001360: DF 20 99 22 11 53 45 51 20 46 49 4C 45 20 44 52 |. .".SEQ FILE DR|
00001370: 49 56 45 20 4E 4F 3F 28 12 31 92 2F 12 30 92 29 |IVE NO?(.1./.0.)|
00001380: 22 3A 47 31 24 B2 22 30 31 22 3A 8D 20 35 3A 51 |":G1$."01":. 5:Q|
00001390: 56 B2 C5 28 47 24 29 00 9E 25 E4 20 8B 20 51 56 |V..(G$)..%. . QV|
000013A0: B3 B1 52 56 20 A7 20 98 4B 4B 28 51 56 29 2C 22 |..RV . .KK(QV),"|
000013B0: 49 22 AA 44 52 24 28 51 56 29 00 BE 25 E9 20 98 |I".DR$(QV)..%. .|
000013C0: 4B 4B 28 51 56 29 2C 22 53 22 AA 44 52 24 28 51 |KK(QV),"S".DR$(Q|
000013D0: 56 29 AA 22 3A 22 AA 4E 53 24 00 FA 25 EE 20 9F |V).":".NS$..%. .|
000013E0: 20 50 52 2C 44 56 28 51 56 29 2C 53 45 2C 44 52 | PR,DV(QV),SE,DR|
000013F0: 24 28 51 56 29 AA 22 3A 22 AA 4E 53 24 AA 22 2C |$(QV).":".NS$.",|
00001400: 53 2C 57 22 3A 56 4F B2 51 56 3A 8D 20 38 3A 8B |S,W":VO.QV:. 8:.|
00001410: 20 45 20 A7 20 8E 00 09 26 F3 20 8B 20 44 46 B2 | E . ...&. . DF.|
00001420: 30 20 A7 20 8E 00 29 26 F8 20 98 50 52 2C 22 D4 |0 . ..)&. .PR,".|
00001430: C1 C2 CC C5 22 52 24 22 30 2C 31 22 52 24 51 24 |...."R$"0,1"R$Q$|
00001440: 51 24 52 24 3B 00 4D 26 FD 20 98 50 52 2C 22 D6 |Q$R$;.M&. .PR,".|
00001450: C5 C3 D4 CF D2 D3 22 52 24 22 30 2C 22 48 43 3B |......"R$"0,"HC;|
00001460: 52 24 51 24 51 24 52 24 3B 00 70 26 02 21 98 50 |R$Q$Q$R$;.p&.!.P|
00001470: 52 2C 22 D4 D5 D0 CC C5 D3 22 52 24 22 30 2C 22 |R,"......"R$"0,"|
00001480: 48 52 3B 52 24 51 24 51 24 52 24 3B 00 8F 26 07 |HR;R$Q$Q$R$;..&.|
00001490: 21 98 50 52 2C 22 C4 C1 D4 C1 22 52 24 22 30 2C |!.PR,"...."R$"0,|
000014A0: 30 22 52 24 51 24 51 24 52 24 3B 00 A8 26 0C 21 |0"R$Q$Q$R$;..&.!|
000014B0: 98 50 52 2C 22 2D 31 2C 30 22 52 24 22 C2 CF D4 |.PR,"-1,0"R$"...|
000014C0: 22 52 24 3B 00 D0 26 11 21 81 20 58 B2 31 20 A4 |"R$;..&.!. X.1 .|
000014D0: 20 48 43 3A 4C 4C 24 B2 54 31 24 28 58 29 3A 8B | HC:LL$.T1$(X):.|
000014E0: 50 44 B1 31 A7 9E 4D 4C AA 31 35 33 00 04 27 16 |PD.1..ML.153..'.|
000014F0: 21 3A 98 50 52 2C 22 20 31 2C 30 22 52 24 51 24 |!:.PR," 1,0"R$Q$|
00001500: 4C 4C 24 51 24 52 24 3B 3A 82 58 3A 98 50 52 2C |LL$Q$R$;:.X:.PR,|
00001510: 22 2D 31 2C 30 22 52 24 22 C2 CF D4 22 52 24 3B |"-1,0"R$"..."R$;|
00001520: 00 2C 27 1B 21 81 20 58 B2 31 20 A4 20 48 43 3A |.,'.!. X.1 . HC:|
00001530: 4C 4C 24 B2 54 32 24 28 58 29 3A 8B 50 44 B1 31 |LL$.T2$(X):.PD.1|
00001540: A7 9E 4D 4C AA 31 35 33 00 60 27 20 21 3A 98 50 |..ML.153.`' !:.P|
00001550: 52 2C 22 20 31 2C 30 22 52 24 51 24 4C 4C 24 51 |R," 1,0"R$Q$LL$Q|
00001560: 24 52 24 3B 3A 82 58 3A 98 50 52 2C 22 2D 31 2C |$R$;:.X:.PR,"-1,|
00001570: 30 22 52 24 22 C2 CF D4 22 52 24 3B 00 66 27 25 |0"R$"..."R$;.f'%|
00001580: 21 8E 00 71 27 8C 23 8F 20 45 58 49 54 00 8B 27 |!..q'.#. EXIT..'|
00001590: 8D 23 8B 20 50 44 B3 B1 38 20 B0 20 44 54 B2 31 |.#. PD..8 . DT.1|
000015A0: 20 A7 20 39 31 31 30 00 C3 27 8E 23 99 22 07 07 | . 9110..'.#."..|
000015B0: 07 07 07 07 07 07 07 11 12 52 45 50 4C 41 43 45 |.........REPLACE|
000015C0: 20 50 52 4F 47 52 41 4D 20 44 49 53 4B 20 49 46 | PROGRAM DISK IF|
000015D0: 20 4E 45 43 45 53 53 41 52 59 22 3A 8D 31 30 00 | NECESSARY":.10.|
000015E0: E7 27 96 23 58 24 B2 22 52 45 50 4F 52 54 20 57 |.'.#X$."REPORT W|
000015F0: 52 49 54 45 52 22 3A 8D 20 39 32 30 30 3A 89 39 |RITER":. 9200:.9|
00001600: 31 30 30 00 F7 27 F0 23 8F 20 4C 4F 41 44 20 50 |100..'.#. LOAD P|
00001610: 52 4F 47 00 2E 28 F1 23 A0 20 52 41 3A 8B 20 44 |ROG..(.#. RA:. D|
00001620: 54 B2 31 20 AF 20 52 56 B2 31 20 A7 20 99 22 11 |T.1 . RV.1 . .".|
00001630: 12 49 4E 53 45 52 54 20 50 52 4F 47 52 41 4D 20 |.INSERT PROGRAM |
00001640: 44 49 53 4B 22 3A 8D 20 31 30 00 51 28 F5 23 98 |DISK":. 10.Q(.#.|
00001650: 4B 4B 28 30 29 2C 22 49 30 22 3A 99 22 11 28 4C |KK(0),"I0":.".(L|
00001660: 4F 41 44 49 4E 47 20 22 58 24 22 29 22 00 84 28 |OADING "X$")"..(|
00001670: FA 23 9F 20 53 45 2C 38 2C 53 45 2C 22 30 3A 22 |.#. SE,8,SE,"0:"|
00001680: AA 58 24 AA 22 2C 50 2C 52 22 3A 56 4F B2 30 3A |.X$.",P,R":VO.0:|
00001690: 8D 20 38 3A A0 20 53 45 3A 8B 20 45 20 A7 20 8E |. 8:. SE:. E . .|
000016A0: 00 9B 28 FF 23 8B 20 4C 49 B3 32 35 33 20 A7 20 |..(.#. LI.253 . |
000016B0: 97 20 49 56 2C 4C 49 00 AD 28 04 24 93 20 22 30 |. IV,LI..(.$. "0|
000016C0: 3A 22 AA 58 24 2C 38 3A 90 00 BB 28 54 24 8F 20 |:".X$,8:...(T$. |
000016D0: 4F 50 45 4E 20 52 41 00 EA 28 59 24 8B 20 44 54 |OPEN RA..(Y$. DT|
000016E0: B2 31 20 AF 20 52 56 B2 31 20 A7 20 99 22 11 12 |.1 . RV.1 . ."..|
000016F0: 49 4E 53 45 52 54 20 44 41 54 41 20 44 49 53 4B |INSERT DATA DISK|
00001700: 22 3A 8D 20 31 30 00 01 29 5B 24 98 4B 4B 28 52 |":. 10..)[$.KK(R|
00001710: 56 29 2C 22 49 22 44 52 24 28 52 56 29 00 37 29 |V),"I"DR$(RV).7)|
00001720: 5E 24 9F 20 53 45 2C 44 56 28 52 56 29 2C 53 45 |^$. SE,DV(RV),SE|
00001730: 2C 44 52 24 28 52 56 29 AA 22 3A 44 42 22 AA C7 |,DR$(RV).":DB"..|
00001740: 28 33 34 AA 31 32 38 29 AA 4E 41 24 AA 22 2C 53 |(34.128).NA$.",S|
00001750: 2C 52 22 00 52 29 60 24 56 4F B2 52 56 3A 8D 20 |,R".R)`$VO.RV:. |
00001760: 38 3A A0 20 53 45 3A 8B 20 45 20 A7 20 8E 00 70 |8:. SE:. E . ..p|
00001770: 29 63 24 9F 20 52 41 2C 44 56 28 52 56 29 2C 52 |)c$. RA,DV(RV),R|
00001780: 41 2C 22 23 22 3A 42 4C B2 30 3A 8E 00 7F 29 48 |A,"#":BL.0:...)H|
00001790: 26 8F 20 50 52 49 4E 54 20 4D 53 00 BB 29 4D 26 |&. PRINT MS..)M&|
000017A0: 99 22 93 12 50 92 41 55 53 45 22 52 24 22 11 12 |."..P.AUSE"R$"..|
000017B0: 43 92 4F 4E 54 49 4E 55 45 20 50 52 49 4E 54 49 |C.ONTINUE PRINTI|
000017C0: 4E 47 22 52 24 22 11 12 53 92 54 4F 50 20 50 52 |NG"R$"..S.TOP PR|
000017D0: 49 4E 54 49 4E 47 22 00 E1 29 52 26 99 22 11 28 |INTING"..)R&.".(|
000017E0: 50 52 45 53 53 20 4B 45 59 20 4F 4E 43 45 2C 20 |PRESS KEY ONCE, |
000017F0: 54 48 45 4E 20 57 41 49 54 29 22 3A 8E 00 00 00 |THEN WAIT)":....|
00001800: 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.OQ...A...I.
..............X...Y.W.....L...%"..R. H
..YI..H..ZJ.....K..H..H...H..L...H.Z..H.
.......H....Z...".TC.....!.........3!.#J
....../.../..O.....?!.O.4.4B......*).2:
.X...W.....L.....Y..6...:?.U..Y._....YG.
.{YL..TY.L..............O:..........: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..
........ JUSW.Q...U....*.. ../!H........
.(..DBR.T2...R.42K$42B.T2....42K;."*R.SC
C...42B.T2.$'.......#...R#B.2.O#+.O#S.Q
.;./..R./#.?.A..??...K?1 .Q.X.H......6.G
.....2.....0.....Q..U........Y
..3.;3..2.7;..3.."T...............K.Y...
.....D.!...R...#..C.....1:..T$P . OPEN
PD FILE..$R . PD.1 . . PR,PD,1,NS$:...%
U . PD..8 . . PR,PD:..A%Z ."..INSERT SEQ
UENTIAL DISK IN DRIVE 0 IF NECESSARY".{%
. .".SEQ FILE DRIVE NO?(.1./.0.)":G1$."0
1":. 5:QV.E(G$)..%. . QV..RV . .KK(QV),"
I".DR$(QV)..%. .KK(QV),"S".DR$(QV).":".N
S$..%. . PR,DV(QV),SE,DR$(QV).":".NS$.",
S,W":VO.QV:. 8:. E . ...&. . DF.0 . ..)&
. .PR,"TABLE"R$"0,1"R$Q$Q$R$;.M&. .PR,"V
ECTORS"R$"0,"HC;R$Q$Q$R$;.P&.!.PR,"TUPLE
S"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..'.
!:.PR," 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'.#."..........
.REPLACE PROGRAM DISK IF NECESSARY":.10.
.'.#X$."REPORT WRITER":. 9200:.9100..'.#
. LOAD PROG..(.# RA:. DT.1 . RV.1 . .".
.INSERT PROGRAM DISK":. 10.Q(.#.KK(0),"I
0":.".(LOADING "X$")"..(.#. SE,8,SE,"0:"
.X$.",P,R":VO.0:. 8: SE:. E . ...(.#. L
I.253 . . IV,LI..(.$. "0:".X$,8:...(T$.
OPEN RA..(Y$. DT.1 . RV.1 . ."..INSERT D
ATA 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 PRINTI
NG"R$"..S.TOP PRINTING"..)R&.".(PRESS KE
Y ONCE, THEN WAIT)":.....
> CLICK IMAGE PREVIEW FOR FULL MODAL