DO UPDATE

00000000: 01 04 15 04 00 00 8F 20  35 2F 31 30 2F 38 30 20  |....... 5/10/80 |
00000010: 20 39 3A 32 30 00 20 04  01 00 89 20 31 31 30 30  | 9:20. .... 1100|
00000020: 00 54 04 02 00 A0 31 35  3A 9F 20 31 35 2C 38 2C  |.T....15:. 15,8,|
00000030: 31 35 2C 22 53 30 3A 44  4F 20 55 50 44 41 54 45  |15,"S0:DO UPDATE|
00000040: 22 3A 94 22 30 3A 44 4F  20 55 50 44 41 54 45 22  |":."0:DO UPDATE"|
00000050: 2C 38 3A 80 00 68 04 04  00 9F 34 2C 34 3A 9D 34  |,8:..h....4,4:.4|
00000060: 3A 99 22 93 22 3B 3A 9B  00 92 04 05 00 A1 47 24  |:.".";:.......G$|
00000070: 3A 81 56 B2 31 A4 C3 28  47 31 24 29 3A 8B 47 24  |:.V.1..(G1$):.G$|
00000080: B3 B1 CA 28 47 31 24 2C  56 2C 31 29 A7 82 56 3A  |...(G1$,V,1)..V:|
00000090: 89 35 00 98 04 06 00 8E  00 B4 04 08 00 84 4B 4B  |.5............KK|
000000A0: 28 56 4F 29 2C 45 2C 45  24 2C 53 2C 54 3A 8B 45  |(VO),E,E$,S,T:.E|
000000B0: B3 32 A7 8E 00 CF 04 09  00 99 22 44 49 53 4B 20  |.2........"DISK |
000000C0: 45 52 52 4F 52 3A 22 45  3B 45 24 3B 53 3B 54 00  |ERROR:"E;E$;S;T.|
000000D0: EF 04 0A 00 99 22 12 43  92 4F 4E 54 49 4E 55 45  |.....".C.ONTINUE|
000000E0: 3F 22 3A 47 31 24 B2 22  43 22 3A 8D 35 3A 8E 00  |?":G1$."C":.5:..|
000000F0: FA 04 0B 00 8F 20 4D 41  49 4E 00 0B 05 16 00 8F  |..... MAIN......|
00000100: 20 43 48 41 4E 47 45 20  52 45 43 00 19 05 1F 00  | CHANGE REC.....|
00000110: 8F 20 43 41 4C 43 20 44  4F 00 2D 05 20 00 8F 20  |. CALC DO.-. .. |
00000120: 45 51 55 41 4C 20 20 53  45 41 52 43 48 00 43 05  |EQUAL  SEARCH.C.|
00000130: 22 00 8F 20 4D 41 54 48  20 4F 50 45 52 41 54 49  |".. MATH OPERATI|
00000140: 4F 4E 53 00 53 05 23 00  8F 20 43 41 4E 54 20 46  |ONS.S.#.. CANT F|
00000150: 49 4E 44 00 65 05 29 00  8F 20 57 52 49 54 45 20  |IND.e.).. WRITE |
00000160: 41 20 52 45 43 00 79 05  2A 00 8F 20 52 45 41 44  |A REC.y.*.. READ|
00000170: 20 41 20 52 45 43 4F 52  44 00 90 05 2B 00 8F 20  | A RECORD...+.. |
00000180: 50 4F 53 49 54 49 4F 4E  20 50 4F 49 4E 54 45 52  |POSITION POINTER|
00000190: 00 9B 05 2C 00 8F 20 59  45 53 3F 00 B0 05 2F 00  |...,.. YES?.../.|
000001A0: 8F 20 52 55 4E 4E 49 4E  47 20 54 4F 54 41 4C 53  |. RUNNING TOTALS|
000001B0: 00 C1 05 33 00 8F 20 43  48 55 4E 4B 20 44 4F 57  |...3.. CHUNK DOW|
000001C0: 4E 00 D1 05 34 00 8F 20  20 43 48 55 4E 4B 20 55  |N...4..  CHUNK U|
000001D0: 50 00 E5 05 35 00 8F 20  20 46 49 4E 44 20 50 4F  |P...5..  FIND PO|
000001E0: 49 4E 54 45 52 00 F7 05  3B 00 8F 20 50 41 53 53  |INTER...;.. PASS|
000001F0: 20 50 41 52 41 4D 53 00  05 06 3F 00 8F 20 52 45  | PARAMS...?.. RE|
00000200: 53 4F 52 54 3F 00 10 06  5B 00 8F 20 45 58 49 54  |SORT?...[.. EXIT|
00000210: 00 1F 06 5C 00 8F 20 4F  50 45 4E 20 53 45 51 00  |...\.. OPEN SEQ.|
00000220: 2A 06 4C 04 8F 20 4D 41  49 4E 00 43 06 4E 04 8B  |*.L.. MAIN.C.N..|
00000230: 20 4C 49 B3 32 35 33 20  A7 20 97 20 49 56 2C 4C  | LI.253 . . IV,L|
00000240: 49 AA 33 00 69 06 51 04  99 22 93 20 20 20 20 20  |I.3.i.Q..".     |
00000250: 20 20 20 20 20 12 4D 41  4B 49 4E 47 20 43 41 4C  |     .MAKING CAL|
00000260: 43 55 4C 41 54 49 4F 4E  53 00 8A 06 53 04 8D 20  |CULATIONS...S.. |
00000270: 36 33 30 30 3A 8B 20 43  4B 20 A7 20 53 50 B2 31  |6300:. CK . SP.1|
00000280: 3A 8F 20 52 45 53 4F 52  54 3F 00 AF 06 56 04 8D  |:. RESORT?...V..|
00000290: 20 39 32 30 30 3A 8B 20  45 20 A7 20 31 31 33 35  | 9200:. E . 1135|
000002A0: 3A 8F 20 4F 50 45 4E 20  46 49 4C 45 2D 2D 2D 00  |:. OPEN FILE---.|
000002B0: E7 06 5B 04 81 20 57 43  B2 31 A4 20 48 43 3A 84  |..[.. WC.1. HC:.|
000002C0: 53 45 2C 43 43 24 28 57  43 29 3A 45 46 B2 45 46  |SE,CC$(WC):EF.EF|
000002D0: AA 53 54 3A 82 20 57 43  3A 46 49 24 B2 43 43 24  |.ST:. WC:FI$.CC$|
000002E0: 28 53 4B 29 AA 5A 24 00  05 07 5D 04 3A 8D 20 33  |(SK).Z$...].:. 3|
000002F0: 32 30 30 3A 8F 20 46 49  4E 44 20 52 41 4E 20 52  |200:. FIND RAN R|
00000300: 45 43 4F 52 44 00 2E 07  5E 04 3A 8B 20 46 4F 24  |ECORD...^.:. FO$|
00000310: B3 B1 46 49 24 A7 20 8D  20 33 35 30 30 3A 89 20  |..FI$. . 3500:. |
00000320: 31 31 32 35 3A 8F 20 55  4E 46 4F 55 4E 44 00 72  |1125:. UNFOUND.r|
00000330: 07 5F 04 3A 20 46 4F 24  B2 22 22 3A 8B 20 46 52  |._.: FO$."":. FR|
00000340: B3 B2 48 52 20 A7 20 52  52 B2 46 52 3A 57 52 B2  |..HR . RR.FR:WR.|
00000350: 50 4F 25 28 52 52 2C 57  4B 29 3A 8D 20 34 32 30  |PO%(RR,WK):. 420|
00000360: 30 3A 46 4F 24 B2 46 24  28 53 46 29 3A 8F 20 52  |0:FO$.F$(SF):. R|
00000370: 45 44 00 8C 07 60 04 3A  20 8D 20 33 31 30 30 3A  |ED...`.: . 3100:|
00000380: 8F 20 4D 41 4B 45 20 43  41 4C 43 53 00 A6 07 62  |. MAKE CALCS...b|
00000390: 04 3A 20 8D 20 32 32 30  30 3A 8F 20 43 48 41 4E  |.: . 2200:. CHAN|
000003A0: 47 45 20 52 45 43 00 B9  07 65 04 3A 8B 20 45 46  |GE REC...e.:. EF|
000003B0: B2 30 20 A7 20 31 31 31  35 00 D0 07 6F 04 A0 20  |.0 . 1115...o.. |
000003C0: 53 45 3A 8B 20 53 50 20  A7 20 8D 20 31 39 30 30  |SE:. SP . . 1900|
000003D0: 00 ED 07 74 04 99 22 07  07 07 07 07 22 3A 8D 20  |...t..".....":. |
000003E0: 39 31 30 30 3A 90 3A 8F  20 45 58 49 54 00 FD 07  |9100:.:. EXIT...|
000003F0: 6C 07 8F 20 53 41 56 45  20 42 4F 4F 4B 00 2D 08  |l.. SAVE BOOK.-.|
00000400: 71 07 A0 20 53 45 3A 55  4B B2 57 4B 3A 99 22 11  |q.. SE:UK.WK:.".|
00000410: 28 53 43 52 41 54 43 48  49 4E 47 20 4F 4C 44 20  |(SCRATCHING OLD |
00000420: 42 4F 4F 4B 4B 45 45 50  49 4E 47 29 22 00 65 08  |BOOKKEEPING)".e.|
00000430: 76 07 3A 98 4B 4B 28 52  56 29 2C 22 53 22 AA 44  |v.:.KK(RV),"S".D|
00000440: 52 24 28 52 56 29 AA 22  3A 44 42 A2 22 AA 4E 41  |R$(RV).":DB.".NA|
00000450: 24 3A 56 4F B2 52 56 3A  8D 20 38 3A 8B 20 45 B1  |$:VO.RV:. 8:. E.|
00000460: 31 20 A7 20 8E 00 A3 08  7C 07 9F 20 53 45 2C 44  |1 . ....|.. SE,D|
00000470: 56 28 52 56 29 2C 53 45  2C 44 52 24 28 52 56 29  |V(RV),SE,DR$(RV)|
00000480: AA 22 3A 44 42 A2 22 AA  4E 41 24 AA 22 2C 53 2C  |.":DB.".NA$.",S,|
00000490: 57 22 3A 56 4F B2 52 56  3A 8D 20 38 3A 8B 45 20  |W":VO.RV:. 8:.E |
000004A0: A7 20 8E 00 E9 08 80 07  98 53 45 2C 4D 52 3B 52  |. .......SE,MR;R|
000004B0: 24 48 52 3B 52 24 52 53  3B 52 24 48 42 3B 52 24  |$HR;R$RS;R$HB;R$|
000004C0: 48 46 3B 52 24 53 46 3B  52 24 52 42 3B 52 24 48  |HF;R$SF;R$RB;R$H|
000004D0: 4B 3B 52 24 57 4B 3B 52  24 44 4B 3B 52 24 44 45  |K;R$WK;R$DK;R$DE|
000004E0: 3B 52 24 4D 43 3B 52 24  3B 00 11 09 85 07 81 20  |;R$MC;R$;...... |
000004F0: 57 46 B2 31 20 A4 20 48  46 3A 98 53 45 2C 51 24  |WF.1 . HF:.SE,Q$|
00000500: 3B 46 54 24 28 57 46 29  3B 52 24 3B 3A 82 20 57  |;FT$(WF);R$;:. W|
00000510: 46 00 3D 09 8A 07 81 20  44 B2 30 A4 35 3A 81 20  |F.=.... D.0.5:. |
00000520: 58 B2 30 A4 48 4B 3A 98  53 45 2C 53 46 25 28 58  |X.0.HK:.SE,SF%(X|
00000530: 2C 44 29 3B 52 24 3B 3A  82 20 58 2C 44 00 56 09  |,D);R$;:. X,D.V.|
00000540: 8F 07 99 22 28 53 41 56  49 4E 47 20 50 4F 49 4E  |..."(SAVING POIN|
00000550: 54 45 52 53 29 22 00 8A  09 94 07 3A 81 20 58 B2  |TERS)".....:. X.|
00000560: 30 A4 48 4B 3A 81 20 52  52 B2 31 20 A4 20 48 52  |0.HK:. RR.1 . HR|
00000570: 3A 98 53 45 2C 50 4F 25  28 52 52 2C 58 29 3B 52  |:.SE,PO%(RR,X);R|
00000580: 24 3B 3A 82 20 52 52 3A  82 58 00 B8 09 99 07 8B  |$;:. RR:.X......|
00000590: 20 52 33 20 A7 20 99 22  28 53 41 56 49 4E 47 20  | R3 . ."(SAVING |
000005A0: 42 4C 4F 43 4B 20 4D 41  50 29 22 3A 81 20 58 B2  |BLOCK MAP)":. X.|
000005B0: 31 A4 31 30 3A 82 20 58  00 F0 09 9E 07 3A 8B 20  |1.10:. X.....:. |
000005C0: 52 33 20 A7 20 81 20 57  42 B2 31 20 A4 20 48 42  |R3 . . WB.1 . HB|
000005D0: 3A 98 53 45 2C 22 20 22  54 25 28 57 42 29 52 24  |:.SE," "T%(WB)R$|
000005E0: 22 20 22 53 25 28 57 42  29 52 24 3B 3A 82 57 42  |" "S%(WB)R$;:.WB|
000005F0: 00 22 0A A3 07 8B 52 34  A7 CE 23 28 52 41 29 3A  |."....R4..#(RA):|
00000600: CD 23 28 52 41 29 2C 28  22 52 41 A2 22 AA 4E 41  |.#(RA),("RA.".NA|
00000610: 24 29 2C 4C 28 52 53 29  2C 44 28 44 52 28 52 56  |$),L(RS),D(DR(RV|
00000620: 29 29 00 42 0A A8 07 81  58 B2 31 A4 48 46 3A 98  |)).B....X.1.HF:.|
00000630: 53 45 2C 22 20 22 4D 46  25 28 58 29 52 24 3B 3A  |SE," "MF%(X)R$;:|
00000640: 82 58 00 5C 0A AD 07 53  50 B2 30 3A A0 20 53 45  |.X.\...SP.0:. SE|
00000650: 3A 56 4F B2 52 56 3A 8D  20 38 3A 8E 00 6D 0A 98  |:VO.RV:. 8:..m..|
00000660: 08 8F 20 43 48 41 4E 47  45 20 52 45 43 00 80 0A  |.. CHANGE REC...|
00000670: 9D 08 8B 20 43 4B B2 30  A7 8D 34 31 30 30 3A 8E  |... CK.0..4100:.|
00000680: 00 A3 0A A2 08 55 52 B2  57 52 3A 55 4B B2 57 4B  |.....UR.WR:UK.WK|
00000690: 3A 8D 34 35 30 30 3A 8F  45 4D 42 45 52 20 57 52  |:.4500:.EMBER WR|
000006A0: 2C 57 4B 00 B0 0A A7 08  81 57 4B B2 30 A4 48 4B  |,WK......WK.0.HK|
000006B0: 00 D7 0A AC 08 3A 46 49  B2 55 52 3A 8D 35 33 30  |.....:FI.UR:.530|
000006C0: 30 3A 42 52 B2 46 52 AA  31 3A 54 52 B2 48 52 3A  |0:BR.FR.1:TR.HR:|
000006D0: 48 52 B2 48 52 AB 31 00  F4 0A AE 08 3A 8B 42 52  |HR.HR.1.....:.BR|
000006E0: B3 B2 54 52 A7 8D 35 31  30 30 3A 8F 20 44 45 4C  |..TR..5100:. DEL|
000006F0: 20 50 54 52 00 32 0B B1  08 3A 46 49 24 B2 22 22  | PTR.2...:FI$.""|
00000700: 3A 81 20 44 B2 31 A4 53  46 25 28 57 4B 2C 30 29  |:. D.1.SF%(WK,0)|
00000710: 3A 46 49 24 B2 46 49 24  AA 46 24 28 53 46 25 28  |:FI$.FI$.F$(SF%(|
00000720: 57 4B 2C 44 29 29 AA 5A  24 3A 82 44 3A 8D 33 32  |WK,D)).Z$:.D:.32|
00000730: 30 30 00 66 0B B3 08 3A  42 52 B2 46 52 3A 54 52  |00.f...:BR.FR:TR|
00000740: B2 48 52 3A 8B 42 52 B3  B2 54 52 A7 20 8D 35 32  |.HR:.BR..TR. .52|
00000750: 30 30 3A 8F 20 49 4E 53  52 54 20 46 4F 52 20 4E  |00:. INSRT FOR N|
00000760: 45 57 20 50 4E 54 00 8B  0B B6 08 3A 48 52 B2 48  |EW PNT.....:HR.H|
00000770: 52 AA 31 3A 50 4F 25 28  46 52 2C 57 4B 29 B2 55  |R.1:PO%(FR,WK).U|
00000780: 52 3A 8F 20 4E 45 57 20  50 54 52 00 AA 0B C0 08  |R:. NEW PTR.....|
00000790: 82 57 4B 3A 57 52 B2 55  52 3A 8D 20 34 31 30 30  |.WK:WR.UR:. 4100|
000007A0: 3A 8F 20 4E 45 57 20 52  45 43 00 CE 0B C5 08 57  |:. NEW REC.....W|
000007B0: 4B B2 55 4B 3A 46 49 B2  57 52 3A 8D 35 33 30 30  |K.UK:FI.WR:.5300|
000007C0: 3A 52 52 B2 46 52 3A 8D  33 35 30 30 3A 8E 00 DC  |:RR.FR:.3500:...|
000007D0: 0B 1C 0C 8F 20 43 41 4C  43 20 44 4F 00 EC 0B 1E  |.... CALC DO....|
000007E0: 0C 81 20 57 4F B2 31 20  A4 20 48 4F 00 08 0C 21  |.. WO.1 . HO...!|
000007F0: 0C 41 B2 C5 28 20 20 CA  28 20 4F 41 24 28 57 4F  |.A..(  .( OA$(WO|
00000800: 29 20 2C 32 29 20 20 29  00 40 0C 26 0C 42 24 B2  |) ,2)  ).@.&.B$.|
00000810: 4F 42 24 28 57 4F 29 3A  42 B2 C5 28 42 24 29 3A  |OB$(WO):B..(B$):|
00000820: 8B C8 28 42 24 2C 31 29  B2 22 46 22 A7 42 B2 C5  |..(B$,1)."F".B..|
00000830: 28 46 24 28 C5 28 CA 28  42 24 2C 32 29 29 29 29  |(F$(.(.(B$,2))))|
00000840: 00 67 0C 27 0C 8B C8 28  42 24 2C 32 29 B2 22 53  |.g.'...(B$,2)."S|
00000850: 46 22 A7 42 B2 C5 28 43  43 24 28 C5 28 CA 28 42  |F".B..(CC$(.(.(B|
00000860: 24 2C 33 29 29 29 29 00  A1 0C 2B 0C 43 24 B2 4F  |$,3))))...+.C$.O|
00000870: 43 24 28 57 4F 29 3A 43  B2 C5 28 43 24 29 3A 8B  |C$(WO):C..(C$):.|
00000880: C8 28 43 24 2C 31 29 B2  22 46 22 A7 20 43 B2 20  |.(C$,1)."F". C. |
00000890: C5 28 46 24 28 C5 28 CA  28 43 24 2C 32 29 29 29  |.(F$(.(.(C$,2)))|
000008A0: 29 00 CA 0C 2C 0C 8B C8  28 43 24 2C 32 29 B2 22  |)...,...(C$,2)."|
000008B0: 53 46 22 A7 20 43 B2 20  C5 28 43 43 24 28 C5 28  |SF". C. .(CC$(.(|
000008C0: CA 28 43 24 2C 33 29 29  29 29 00 D9 0C 30 0C 4F  |.(C$,3))))...0.O|
000008D0: 24 B2 4F 4F 24 28 57 4F  29 00 03 0D 32 0C 8B 20  |$.OO$(WO)...2.. |
000008E0: C9 28 4F 24 2C 31 29 B2  22 20 22 A7 20 4F 24 B2  |.(O$,1)." ". O$.|
000008F0: C8 28 4F 24 2C C3 28 4F  24 29 AB 31 29 3A 89 33  |.(O$,.(O$).1):.3|
00000900: 31 32 32 00 28 0D 62 0C  8D 20 33 34 30 30 3A 46  |122.(.b.. 3400:F|
00000910: 24 28 41 29 B2 C4 28 58  29 3A 8F 20 44 4F 20 4F  |$(A)..(X):. DO O|
00000920: 50 45 52 41 54 49 4F 4E  00 4D 0D 76 0C 8B C8 28  |PERATION.M.v...(|
00000930: 46 24 28 41 29 2C 31 29  B2 22 20 22 A7 46 24 28  |F$(A),1)." ".F$(|
00000940: 41 29 B2 CA 28 46 24 28  41 29 2C 32 29 00 58 0D  |A)..(F$(A),2).X.|
00000950: 7F 0C 82 20 57 4F 3A 8E  00 6C 0D 80 0C 8F 20 45  |... WO:..l.... E|
00000960: 51 55 41 4C 20 20 53 45  41 52 43 48 00 91 0D 85  |QUAL  SEARCH....|
00000970: 0C 54 4C B2 30 3A 54 48  B2 48 52 AA 31 3A 8F 20  |.TL.0:TH.HR.1:. |
00000980: 54 4F 4F 20 4C 4F 57 2C  20 54 4F 4F 20 48 49 47  |TOO LOW, TOO HIG|
00000990: 48 00 A6 0D 8A 0C 8B 54  48 AB 54 4C B2 31 A7 46  |H......TH.TL.1.F|
000009A0: 52 B2 54 48 3A 8E 00 DE  0D 8F 0C 3A 50 25 B2 28  |R.TH:......:P%.(|
000009B0: 54 4C AA 54 48 29 AD 32  AA 2E 31 3A 57 52 B2 50  |TL.TH).2..1:WR.P|
000009C0: 4F 25 28 50 25 2C 57 4B  29 3A 8B 20 52 34 20 A7  |O%(P%,WK):. R4 .|
000009D0: 20 8D 20 33 32 34 30 3A  89 20 33 32 32 35 00 0A  | . 3240:. 3225..|
000009E0: 0E 94 0C 3A 8D 20 34 33  30 30 3A 81 20 58 B2 31  |...:. 4300:. X.1|
000009F0: 20 A4 20 44 4B 3A 84 52  41 2C 58 24 28 58 29 3A  | . DK:.RA,X$(X):|
00000A00: 82 20 58 3A 46 4F 24 B2  22 22 00 3A 0E 99 0C 3A  |. X:FO$."".:...:|
00000A10: 81 58 B2 31 A4 53 46 25  28 57 4B 2C 30 29 3A 46  |.X.1.SF%(WK,0):F|
00000A20: 4F 24 B2 46 4F 24 AA 58  24 28 53 46 25 28 57 4B  |O$.FO$.X$(SF%(WK|
00000A30: 2C 58 29 29 AA 5A 24 3A  82 58 00 53 0E 9D 0C 3A  |,X)).Z$:.X.S...:|
00000A40: 8B 20 46 49 24 B2 46 4F  24 20 A7 20 46 52 B2 50  |. FI$.FO$ . FR.P|
00000A50: 25 3A 8E 00 71 0E 9E 0C  3A 8B 20 46 49 24 B3 B2  |%:..q...:. FI$..|
00000A60: 46 4F 24 20 A7 20 54 48  B2 50 25 3A 89 33 32 31  |FO$ . TH.P%:.321|
00000A70: 30 00 82 0E A3 0C 3A 54  4C B2 50 25 3A 89 33 32  |0.....:TL.P%:.32|
00000A80: 31 30 00 BE 0E A8 0C 4C  B2 31 3A 81 58 B2 31 A4  |10.....L.1:.X.1.|
00000A90: 44 4B 3A CF 23 28 52 41  29 2C 28 57 52 29 2C 28  |DK:.#(RA),(WR),(|
00000AA0: 4C 29 3A 84 52 41 2C 58  24 28 58 29 3A 4C B2 4C  |L):.RA,X$(X):L.L|
00000AB0: AA C3 28 58 24 28 58 29  29 AA 32 3A 82 58 00 C4  |..(X$(X)).2:.X..|
00000AC0: 0E AD 0C 8E 00 DA 0E 48  0D 8F 20 4D 41 54 48 20  |.......H.. MATH |
00000AD0: 4F 50 45 52 41 54 49 4F  4E 53 00 F1 0E 61 0D 8B  |OPERATIONS...a..|
00000AE0: 20 4F 24 B2 22 2B 22 20  A7 20 58 B2 42 AA 43 3A  | O$."+" . X.B.C:|
00000AF0: 8E 00 08 0F 66 0D 8B 20  4F 24 B2 22 2D 22 20 A7  |....f.. O$."-" .|
00000B00: 20 58 B2 42 AB 43 3A 8E  00 28 0F 6B 0D 8B 20 4F  | X.B.C:..(.k.. O|
00000B10: 24 B2 22 58 22 20 B0 20  4F 24 B2 22 2A 22 20 A7  |$."X" . O$."*" .|
00000B20: 20 58 B2 42 AC 43 3A 8E  00 41 0F 70 0D 8B 20 4F  | X.B.C:..A.p.. O|
00000B30: 24 B2 22 2F 22 20 A7 8B  43 A7 58 B2 42 AD 43 3A  |$."/" ..C.X.B.C:|
00000B40: 8E 00 58 0F 75 0D 8B 20  4F 24 B2 22 5E 22 20 A7  |..X.u.. O$."^" .|
00000B50: 20 58 B2 42 AE 43 3A 8E  00 72 0F 7A 0D 8B 20 4F  | X.B.C:..r.z.. O|
00000B60: 24 B2 22 53 49 4E 22 20  A7 20 58 B2 BF 28 43 29  |$."SIN" . X..(C)|
00000B70: 3A 8E 00 8C 0F 7B 0D 8B  20 4F 24 B2 22 52 4E 44  |:....{.. O$."RND|
00000B80: 22 20 A7 20 58 B2 BB 28  43 29 3A 8E 00 A6 0F 7F  |" . X..(C):.....|
00000B90: 0D 8B 20 4F 24 B2 22 54  41 4E 22 20 A7 20 58 B2  |.. O$."TAN" . X.|
00000BA0: C0 28 43 29 3A 8E 00 C0  0F 80 0D 8B 20 4F 24 B2  |.(C):....... O$.|
00000BB0: 22 41 42 53 22 20 A7 20  58 B2 B6 28 43 29 3A 8E  |"ABS" . X..(C):.|
00000BC0: 00 DA 0F 84 0D 8B 20 4F  24 B2 22 4C 4F 47 22 20  |...... O$."LOG" |
00000BD0: A7 20 58 B2 BC 28 43 29  3A 8E 00 EF 0F 89 0D 8B  |. X..(C):.......|
00000BE0: 20 4F 24 B2 22 2E 22 20  A7 20 58 B2 42 3A 8E 00  | O$."." . X.B:..|
00000BF0: 09 10 8B 0D 8B 20 4F 24  B2 22 49 4E 54 22 20 A7  |..... O$."INT" .|
00000C00: 20 58 B2 B5 28 43 29 3A  8E 00 24 10 8E 0D 8B 20  | X..(C):..$.... |
00000C10: 4F 24 B2 22 2E 2E 2E 22  20 A7 20 58 B2 42 2E 2E  |O$."..." . X.B..|
00000C20: 2E 43 3A 8E 00 42 10 98  0D 99 22 93 11 11 12 45  |.C:..B...."....E|
00000C30: 52 52 4F 52 20 49 4E 20  43 41 4C 43 23 22 57 4F  |RROR IN CALC#"WO|
00000C40: 3A 8E 00 52 10 AC 0D 8F  20 43 41 4E 54 20 46 49  |:..R.... CANT FI|
00000C50: 4E 44 00 84 10 B1 0D 99  22 12 43 41 4E 27 54 20  |ND......".CAN'T |
00000C60: 46 49 4E 44 20 52 41 4E  44 4F 4D 20 52 45 43 4F  |FIND RANDOM RECO|
00000C70: 52 44 20 57 48 4F 53 45  20 4B 45 59 20 49 53 20  |RD WHOSE KEY IS |
00000C80: 22 46 49 24 00 BF 10 B6  0D 99 22 11 44 4F 20 59  |"FI$......".DO Y|
00000C90: 4F 55 20 57 49 53 48 20  54 4F 20 43 4F 4E 54 49  |OU WISH TO CONTI|
00000CA0: 4E 55 45 20 57 49 54 48  20 54 48 45 20 52 45 53  |NUE WITH THE RES|
00000CB0: 54 20 4F 46 20 54 48 45  20 46 49 4C 45 3F 22 00  |T OF THE FILE?".|
00000CC0: E0 10 BB 0D 58 B2 31 3A  58 33 B2 31 3A 8D 20 34  |....X.1:X3.1:. 4|
00000CD0: 34 30 30 3A 8B 20 58 B2  30 20 A7 20 45 46 B2 31  |400:. X.0 . EF.1|
00000CE0: 00 E6 10 0F 0E 8E 00 F8  10 04 10 8F 20 57 52 49  |............ WRI|
00000CF0: 54 45 20 41 20 52 45 43  00 23 11 0E 10 58 24 B2  |TE A REC.#...X$.|
00000D00: 22 22 3A 81 20 58 B2 31  20 A4 20 48 46 3A 58 24  |"":. X.1 . HF:X$|
00000D10: B2 58 24 AA 51 24 AA 46  24 28 58 29 AA 52 24 3A  |.X$.Q$.F$(X).R$:|
00000D20: 82 20 58 00 46 11 18 10  8B 20 52 34 20 A7 20 CF  |. X.F.... R4 . .|
00000D30: 23 28 52 41 29 2C 28 57  52 29 3A 98 28 52 41 29  |#(RA),(WR):.(RA)|
00000D40: 2C 58 24 3B 3A 8E 00 59  11 22 10 8D 20 34 33 30  |,X$;:..Y.".. 430|
00000D50: 30 3A 98 52 41 2C 58 24  3B 00 8E 11 27 10 98 4B  |0:.RA,X$;...'..K|
00000D60: 4B 28 52 56 29 2C 22 55  32 3A 22 52 41 3B 44 52  |K(RV),"U2:"RA;DR|
00000D70: 28 52 56 29 3B 54 25 28  42 4C 29 3B 53 25 28 42  |(RV);T%(BL);S%(B|
00000D80: 4C 29 3A 56 4F B2 52 56  3A 8D 20 38 3A 8E 00 A2  |L):VO.RV:. 8:...|
00000D90: 11 68 10 8F 20 52 45 41  44 20 41 20 52 45 43 4F  |.h.. READ A RECO|
00000DA0: 52 44 00 D2 11 6D 10 8B  20 52 33 20 A7 20 8D 20  |RD...m.. R3 . . |
00000DB0: 34 33 30 30 3A 81 20 57  46 B2 31 20 A4 20 48 46  |4300:. WF.1 . HF|
00000DC0: 3A 84 52 41 2C 46 24 28  57 46 29 3A 82 20 57 46  |:.RA,F$(WF):. WF|
00000DD0: 3A 8E 00 0E 12 72 10 4C  B2 31 3A 81 58 B2 31 A4  |:....r.L.1:.X.1.|
00000DE0: 48 46 3A CF 23 28 52 41  29 2C 28 57 52 29 2C 28  |HF:.#(RA),(WR),(|
00000DF0: 4C 29 3A 84 52 41 2C 46  24 28 58 29 3A 4C B2 4C  |L):.RA,F$(X):L.L|
00000E00: AA C3 28 46 24 28 58 29  29 AA 32 3A 82 58 00 14  |..(F$(X)).2:.X..|
00000E10: 12 77 10 8E 00 2B 12 CC  10 8F 20 50 4F 53 49 54  |.w...+.... POSIT|
00000E20: 49 4F 4E 20 50 4F 49 4E  54 45 52 00 55 12 D1 10  |ION POINTER.U...|
00000E30: 58 B2 B5 28 28 57 52 AB  31 29 AD 52 42 AA 2E 30  |X..((WR.1).RB..0|
00000E40: 30 30 30 31 29 AA 31 3A  8B 20 42 4C B2 58 20 A7  |0001).1:. BL.X .|
00000E50: 20 34 33 31 35 00 92 12  D4 10 3A 42 4C B2 58 3A  | 4315.....:BL.X:|
00000E60: 98 4B 4B 28 52 56 29 2C  22 55 31 3A 22 52 41 3B  |.KK(RV),"U1:"RA;|
00000E70: 44 52 28 52 56 29 3B 54  25 28 42 4C 29 3B 53 25  |DR(RV);T%(BL);S%|
00000E80: 28 42 4C 29 3A 56 4F B2  52 56 3A 8D 38 3A 8B 45  |(BL):VO.RV:.8:.E|
00000E90: A7 8E 00 CD 12 DB 10 58  B2 28 57 52 AB 31 29 AB  |.......X.(WR.1).|
00000EA0: 28 42 4C AB 31 29 AC 52  42 3A 8F 20 4E 4F 2E 20  |(BL.1).RB:. NO. |
00000EB0: 52 45 43 53 20 42 45 46  4F 52 20 54 48 49 53 20  |RECS BEFOR THIS |
00000EC0: 49 4E 20 54 48 49 53 20  42 4C 4F 43 4B 00 F2 12  |IN THIS BLOCK...|
00000ED0: DF 10 42 50 B2 31 AA 52  53 AC 58 3A 98 4B 4B 28  |..BP.1.RS.X:.KK(|
00000EE0: 52 56 29 2C 22 42 2D 50  3A 22 3B 52 41 3B 42 50  |RV),"B-P:";RA;BP|
00000EF0: 3A 8E 00 FD 12 30 11 8F  20 59 45 53 3F 00 25 13  |:....0.. YES?.%.|
00000F00: 35 11 99 CA 28 22 59 4E  22 2C 31 AB 28 28 58 AF  |5...("YN",1.((X.|
00000F10: 58 33 29 B2 30 29 2C 31  29 22 91 22 3A 84 4B 45  |X3).0),1)".":.KE|
00000F20: 2C 58 24 3A 99 00 5D 13  37 11 8B 20 58 24 B3 B1  |,X$:..].7.. X$..|
00000F30: 22 59 22 AF 58 24 B3 B1  22 4E 22 A7 99 22 12 50  |"Y".X$.."N"..".P|
00000F40: 4C 45 41 53 45 20 41 4E  53 57 45 52 20 20 59 20  |LEASE ANSWER  Y |
00000F50: 20 4F 52 20 20 4E 22 3A  89 34 34 30 30 00 8B 13  | OR  N":.4400...|
00000F60: 3A 11 58 24 B2 C8 28 58  24 2C 31 29 3A 58 B2 28  |:.X$..(X$,1):X.(|
00000F70: 20 58 AF 28 A8 20 58 33  29 20 B0 20 28 58 24 B2  | X.(. X3) . (X$.|
00000F80: 22 59 22 29 AF 58 33 20  29 3A 8E 00 A0 13 5C 12  |"Y").X3 ):....\.|
00000F90: 8F 20 52 55 4E 4E 49 4E  47 20 54 4F 54 41 4C 53  |. RUNNING TOTALS|
00000FA0: 00 AF 13 61 12 81 57 46  B2 31 20 A4 20 48 46 00  |...a..WF.1 . HF.|
00000FB0: DB 13 6B 12 8B 20 46 4C  25 28 57 46 29 20 AF 20  |..k.. FL%(WF) . |
00000FC0: 36 20 A7 20 43 54 28 57  46 29 B2 43 54 28 57 46  |6 . CT(WF).CT(WF|
00000FD0: 29 AA C5 28 46 24 28 57  46 29 29 00 E6 13 70 12  |)..(F$(WF))...p.|
00000FE0: 82 20 57 46 3A 8E 00 F7  13 EC 13 8F 20 43 48 55  |. WF:....... CHU|
00000FF0: 4E 4B 20 44 4F 57 4E 00  37 14 F1 13 3A 8F 20 20  |NK DOWN.7...:.  |
00001000: 20 20 20 20 20 46 4F 52  20 58 3D 42 52 20 54 4F  |     FOR X=BR TO|
00001010: 20 54 52 3A 50 4F 25 28  58 2D 31 2C 57 4B 29 3D  | TR:PO%(X-1,WK)=|
00001020: 50 4F 25 28 58 2C 57 4B  29 3A 4E 45 58 54 20 58  |PO%(X,WK):NEXT X|
00001030: 3A 52 45 54 55 52 4E 00  44 14 F3 13 8B 42 52 B1  |:RETURN.D....BR.|
00001040: 54 52 A7 8E 00 63 14 F6  13 53 B2 42 52 AC 32 3A  |TR...c...S.BR.2:|
00001050: 44 B2 28 42 52 AB 31 29  AC 32 3A 45 B2 28 54 52  |D.(BR.1).2:E.(TR|
00001060: 29 AC 32 00 74 14 FB 13  8D 35 39 30 30 3A 9E 20  |).2.t....5900:. |
00001070: 4D 4C 3A 8E 00 84 14 50  14 8F 20 20 43 48 55 4E  |ML:....P..  CHUN|
00001080: 4B 20 55 50 00 CB 14 55  14 3A 8F 20 20 20 20 20  |K UP...U.:.     |
00001090: 20 20 46 4F 52 20 58 3D  54 52 20 54 4F 20 42 52  |  FOR X=TR TO BR|
000010A0: 20 53 54 45 50 2D 31 3A  50 4F 25 28 58 2B 31 2C  | STEP-1:PO%(X+1,|
000010B0: 57 4B 29 3D 50 4F 25 28  58 2C 57 4B 29 3A 4E 45  |WK)=PO%(X,WK):NE|
000010C0: 58 54 20 58 3A 52 45 54  55 52 4E 00 EC 14 5A 14  |XT X:RETURN...Z.|
000010D0: 53 B2 28 54 52 29 AC 32  3A 44 B2 28 54 52 AA 31  |S.(TR).2:D.(TR.1|
000010E0: 29 AC 32 3A 45 B2 28 42  52 29 AC 32 00 00 15 5F  |).2:E.(BR).2..._|
000010F0: 14 8D 35 39 30 30 3A 9E  20 4D 4C AA 35 31 3A 8E  |..5900:. ML.51:.|
00001100: 00 14 15 B4 14 8F 20 20  46 49 4E 44 20 50 4F 49  |......  FIND POI|
00001110: 4E 54 45 52 00 4E 15 B5  14 3A 8F 20 20 20 20 20  |NTER.N...:.     |
00001120: 20 46 4F 52 20 46 52 3D  31 20 54 4F 20 48 52 3A  | FOR FR=1 TO HR:|
00001130: 49 46 20 50 4F 25 28 46  52 2C 57 4B 29 3C 3E 46  |IF PO%(FR,WK)<>F|
00001140: 49 20 54 48 45 4E 20 4E  45 58 54 20 46 52 00 61  |I THEN NEXT FR.a|
00001150: 15 B6 14 3A 8F 20 20 20  20 20 3A 52 45 54 55 52  |...:.     :RETUR|
00001160: 4E 00 71 15 B9 14 53 B2  31 AC 32 3A 8D 35 39 30  |N.q...S.1.2:.590|
00001170: 30 00 9D 15 BE 14 97 20  42 37 AA 32 2C 46 49 AD  |0...... B7.2,FI.|
00001180: 32 35 36 3A 97 20 42 37  AA 33 2C 46 49 20 AF 20  |256:. B7.3,FI . |
00001190: 32 35 35 3A 8F 20 48 49  20 4C 4F 20 21 00 BB 15  |255:. HI LO !...|
000011A0: C3 14 97 20 42 37 AA 34  2C 31 3A 97 20 42 37 AA  |... B7.4,1:. B7.|
000011B0: 35 2C 30 3A 8F 20 4C 4F  20 48 49 00 E7 15 C5 14  |5,0:. LO HI.....|
000011C0: 97 20 42 37 AA 36 2C 48  52 AD 32 35 36 3A 97 20  |. B7.6,HR.256:. |
000011D0: 42 37 AA 37 2C 48 52 20  AF 20 32 35 35 3A 8F 20  |B7.7,HR . 255:. |
000011E0: 48 49 20 4C 4F 20 21 00  0D 16 C8 14 9E 20 4D 4C  |HI LO !...... ML|
000011F0: AA 31 30 34 3A 46 52 B2  C2 28 42 37 AA 34 29 AA  |.104:FR..(B7.4).|
00001200: 32 35 36 AC C2 28 42 37  AA 35 29 3A 8E 00 1F 16  |256..(B7.5):....|
00001210: 0C 17 8F 20 50 41 53 53  20 50 41 52 41 4D 53 00  |... PASS PARAMS.|
00001220: 35 16 11 17 50 4F 25 28  30 2C 30 29 B2 35 AA 32  |5...PO%(0,0).5.2|
00001230: 35 36 AC 31 30 00 66 16  16 17 58 B2 C2 28 5A 56  |56.10.f...X..(ZV|
00001240: AA 32 29 AA 32 35 36 AC  C2 28 5A 56 AA 33 29 AA  |.2).256..(ZV.3).|
00001250: 39 AA 41 4F 3A 8F 20 50  4F 53 20 4F 46 20 50 4F  |9.AO:. POS OF PO|
00001260: 25 28 30 2C 30 29 00 98  16 1B 17 58 B2 58 AA 28  |%(0,0).....X.X.(|
00001270: 4D 52 AA 31 29 AC 32 AC  57 4B 3A 8F 20 50 4F 53  |MR.1).2.WK:. POS|
00001280: 20 4F 46 20 50 4F 25 28  30 2C 57 4B 29 20 48 49  | OF PO%(0,WK) HI|
00001290: 20 4C 4F 20 42 59 54 45  00 BC 16 20 17 97 20 42  | LO BYTE... .. B|
000012A0: 37 2C 28 58 AA 53 29 AF  32 35 35 3A 97 20 42 37  |7,(X.S).255:. B7|
000012B0: AA 31 2C 28 58 AA 53 29  AD 32 35 36 00 E2 16 25  |.1,(X.S).256...%|
000012C0: 17 97 20 42 37 AA 32 2C  28 58 AA 44 29 AF 32 35  |.. B7.2,(X.D).25|
000012D0: 35 3A 97 20 42 37 AA 33  2C 28 58 AA 44 29 AD 32  |5:. B7.3,(X.D).2|
000012E0: 35 36 00 08 17 2A 17 97  20 42 37 AA 34 2C 28 58  |56...*.. B7.4,(X|
000012F0: AA 45 29 AF 32 35 35 3A  97 20 42 37 AA 35 2C 28  |.E).255:. B7.5,(|
00001300: 58 AA 45 29 AD 32 35 36  00 0E 17 2F 17 8E 00 1C  |X.E).256.../....|
00001310: 17 9C 18 8F 20 52 45 53  4F 52 54 3F 00 33 17 A1  |.... RESORT?.3..|
00001320: 18 43 4B B2 30 3A 8F 20  43 48 41 4E 47 45 20 4B  |.CK.0:. CHANGE K|
00001330: 45 59 3F 00 42 17 A6 18  81 20 58 B2 30 20 A4 20  |EY?.B.... X.0 . |
00001340: 48 4B 00 58 17 A7 18 3A  81 20 59 B2 31 20 A4 20  |HK.X...:. Y.1 . |
00001350: 53 46 25 28 58 2C 30 29  00 6A 17 A8 18 3A 20 81  |SF%(X,0).j...: .|
00001360: 20 57 4F B2 31 20 A4 20  48 4F 00 94 17 AB 18 3A  | WO.1 . HO.....:|
00001370: 20 20 8B 20 53 46 25 28  58 2C 59 29 B2 C5 28 20  |  . SF%(X,Y)..( |
00001380: CA 28 4F 41 24 28 57 4F  29 2C 32 29 20 29 A7 20  |.(OA$(WO),2) ). |
00001390: 43 4B B2 31 00 A1 17 B0  18 82 20 57 4F 2C 59 2C  |CK.1...... WO,Y,|
000013A0: 58 00 A7 17 FF 18 8E 00  B2 17 8C 23 8F 20 45 58  |X..........#. EX|
000013B0: 49 54 00 C9 17 8E 23 8B  20 4C 49 B3 32 35 33 20  |IT....#. LI.253 |
000013C0: A7 20 97 20 49 56 2C 4C  49 00 E3 17 91 23 93 22  |. . IV,LI....#."|
000013D0: 55 50 44 41 54 45 22 2C  38 3A 56 4F B2 30 3A 8D  |UPDATE",8:VO.0:.|
000013E0: 38 3A 8E 00 F2 17 F0 23  8F 20 4F 50 45 4E 20 53  |8:.....#. OPEN S|
000013F0: 45 51 00 FA 17 FA 23 58  B2 30 00 37 18 FF 23 99  |EQ....#X.0.7..#.|
00001400: 22 53 45 51 55 45 4E 54  49 41 4C 20 46 49 4C 45  |"SEQUENTIAL FILE|
00001410: 20 44 52 49 56 45 3F 28  12 31 92 2F 12 30 92 29  | DRIVE?(.1./.0.)|
00001420: 22 3A 47 31 24 B2 22 30  31 22 3A 8D 20 35 3A 51  |":G1$."01":. 5:Q|
00001430: 56 B2 C5 28 47 24 29 00  5B 18 01 24 3A 8B 20 51  |V..(G$).[..$:. Q|
00001440: 56 B3 B1 52 56 20 A7 20  98 4B 4B 28 51 56 29 2C  |V..RV . .KK(QV),|
00001450: 22 49 22 AA 44 52 24 28  51 56 29 00 86 18 04 24  |"I".DR$(QV)....$|
00001460: 3A 9F 20 53 45 2C 44 56  28 51 56 29 2C 53 45 2C  |:. SE,DV(QV),SE,|
00001470: 44 52 24 28 51 56 29 AA  22 3A 22 AA 4E 53 24 AA  |DR$(QV).":".NS$.|
00001480: 22 2C 53 2C 52 22 00 A0  18 09 24 3A 56 4F B2 51  |",S,R"....$:VO.Q|
00001490: 56 3A 8D 20 38 3A 8B 20  45 20 A7 20 A0 20 53 45  |V:. 8:. E . . SE|
000014A0: 00 BC 18 0E 24 3A 8B 20  45 20 AF 20 58 B2 30 20  |....$:. E . X.0 |
000014B0: A7 20 58 B2 31 3A 89 20  39 32 31 35 00 C2 18 53  |. X.1:. 9215...S|
000014C0: 24 8E 00 00 00 46 8C                              |$....F.         |

....... 5/10/80  9:20. .... 1100.T... 15
:. 15,8,15,"S0:DO UPDATE":."0:DO UPDATE"
,8:..H....4,4:.4:.".";:.......G$:.V.1.C(
G1$):.G$..J(G1$,V,1)..V:.5............KK
(VO),E,E$,S,T:.E.2...O...."DISK ERROR:"E
;E$;S;T......".C.ONTINUE?":G1$."C":.5:..
..... MAIN...... CHANGE REC...... CALC D
O.-. .. EQUAL  SEARCH.C.".. MATH OPERATI
ONS.S.#.. CANT FIND.E.).. WRITE A REC.Y.
*.. READ A RECORD...+.. POSITION POINTER
...,.. YES?.../.. RUNNING TOTALS.A.3.. C
HUNK DOWN.Q.4..  CHUNK UP...5..  FIND PO
INTER...;.. PASS PARAMS...?.. RESORT?...
[.. EXIT...\.. OPEN SEQ.*.L.. MAIN.C.N..
 LI.253 . . IV,LI.3.I.Q..".          .MA
KING CALCULATIONS...S.. 6300:. CK . SP.1
:. RESORT?...V.. 9200:. E . 1135:. OPEN 
FILE---...[.. WC.1. HC:.SE,CC$(WC):EF.EF
.ST:. WC:FI$.CC$(SK).Z$...].:. 3200:. FI
ND RAN RECORD...^.:. FO$..FI$. . 3500:. 
1125:. UNFOUND.R._.: FO$."":. FR..HR . R
R.FR:WR.PO%(RR,WK):. 4200:FO$.F$(SF):. R
ED...`.: . 3100:. MAKE CALCS...B.: . 220
0:. CHANGE REC...E.:. EF.0 . 1115.P.O.  
SE:. SP . . 1900...T..".....":. 9100:.:.
 EXIT...L.. SAVE BOOK.-.Q.  SE:UK.WK:.".
(SCRATCHING OLD BOOKKEEPING)".E.V.:.KK(R
V),"S".DR$(RV).":DB.".NA$:VO.RV:. 8:. E.
1 . ....|.. SE,DV(RV),SE,DR$(RV).":DB.".
NA$.",S,W":VO.RV:. 8:.E . .......SE,MR;R
$HR;R$RS;R$HB;R$HF;R$SF;R$RB;R$HK;R$WK;R
$DK;R$DE;R$MC;R$;...... WF.1 . HF:.SE,Q$
;FT$(WF);R$;:. WF.=.... D.0.5:. X.0.HK:.
SE,SF%(X,D);R$;:. X,D.V...."(SAVING POIN
TERS)".....:. X.0.HK:. RR.1 . HR:.SE,PO%
(RR,X);R$;:. RR:.X...... R3 . ."(SAVING 
BLOCK MAP)":. X.1.10:. X.....:. R3 . . W
B.1 . HB:.SE," "T%(WB)R$" "S%(WB)R$;:.WB
."....R4.N#(RA):M#(RA),("RA.".NA$),L(RS)
,D(DR(RV)).B....X.1.HF:.SE," "MF%(X)R$;:
.X.\...SP.0:  SE:VO.RV:. 8:..M.... CHANG
E REC...... CK.0..4100:......UR.WR:UK.WK
:.4500:.EMBER WR,WK......WK.0.HK.W...:FI
.UR:.5300:BR.FR.1:TR.HR:HR.HR.1.....:.BR
..TR..5100:. DEL PTR.2...:FI$."":. D.1.S
F%(WK,0):FI$.FI$.F$(SF%(WK,D)).Z$:.D:.32
00.F...:BR.FR:TR.HR:.BR..TR. .5200:. INS
RT FOR NEW PNT.....:HR.HR.1:PO%(FR,WK).U
R:. NEW PTR......WK:WR.UR:. 4100:. NEW R
EC.N.E.WK.UK:FI.WR:.5300:RR.FR:.3500:...
.... CALC DO...... WO.1 . HO...!.A.E(  J
( OA$(WO) ,2)  ).@.&.B$.OB$(WO):B.E(B$):
.H(B$,1)."F".B.E(F$(E(J(B$,2)))).G.'..H(
B$,2)."SF".B.E(CC$(E(J(B$,3))))...+.C$.O
C$(WO):C.E(C$):.H(C$,1)."F". C. E(F$(E(J
(C$,2)))).J.,..H(C$,2)."SF". C. E(CC$(E(
J(C$,3)))).Y.0.O$.OO$(WO)...2.. I(O$,1).
" ". O$.H(O$,C(O$).1):.3122.(.B.. 3400:F
$(A).D(X):. DO OPERATION.M.V..H(F$(A),1)
." ".F$(A).J(F$(A),2).X... WO:..L.... E
QUAL  SEARCH.....TL.0:TH.HR.1:. TOO LOW,
 TOO HIGH......TH.TL.1.FR.TH:......:P%.(
TL.TH).2..1:WR.PO%(P%,WK):. R4 . . 3240:
. 3225.....:. 4300:. X.1 . DK:.RA,X$(X):
. X:FO$."".:...:.X.1.SF%(WK,0):FO$.FO$.X
$(SF%(WK,X)).Z$:.X.S...:. FI$.FO$ . FR.P
%:..Q...:. FI$..FO$ . TH.P%:.3210.....:T
L.P%:.3210.....L.1:.X.1.DK:O#(RA),(WR),(
L):.RA,X$(X):L.L.C(X$(X)).2:.X.D.....Z.H
.. MATH OPERATIONS...A.. O$."+" . X.B.C:
....F.. O$."-" . X.B.C:..(.K.. O$."X" . 
O$."*" . X.B.C:..A.P.. O$."/" ..C.X.B.C:
..X.U.. O$."^" . X.B.C:..R.Z.. O$."SIN" 
. X..(C):....{.. O$."RND" . X..(C):....
.. O$."TAN" . X..(C):....... O$."ABS" . 
X..(C):..Z.... O$."LOG" . X..(C):.......
 O$."." . X.B:....... O$."INT" . X..(C):
..$.... O$."..." . X.B...C:..B...."....E
RROR IN CALC#"WO:..R.... CANT FIND......
".CAN'T FIND RANDOM RECORD WHOSE KEY IS 
"FI$......".DO YOU WISH TO CONTINUE WITH
 THE REST OF THE FILE?".....X.1:X3.1:. 4
400:. X.0 . EF.1............ WRITE A REC
.#...X$."":. X.1 . HF:X$.X$.Q$.F$(X).R$:
. X.F.... R4 . O#(RA),(WR):.(RA),X$;:..Y
.".. 4300:.RA,X$;...'..KK(RV),"U2:"RA;DR
(RV);T%(BL);S%(BL):VO.RV:. 8:....H.. REA
D A RECORD.R.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.U.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...M...X.(WR.1).(BL.1).RB:. NO. 
RECS BEFOR THIS IN THIS BLOCK.....BP.1.R
S.X:.KK(RV),"B-P:";RA;BP:....0.. YES?.%.
5..J("YN",1.((X.X3).0),1)".":.KE,X$:..].
7.. X$.."Y".X$.."N"..".PLEASE ANSWER  Y 
 OR  N":.4400...:.X$.H(X$,1):X.( X.(. X3
) . (X$."Y").X3 ):.. .\.. RUNNING TOTALS
...A..WF.1 . HF...K.. FL%(WF) . 6 . CT(W
F).CT(WF).E(F$(WF))...P.. WF:....... CHU
NK DOWN.7...:.       FOR X=BR TO TR:PO%(
X-1,WK)=PO%(X,WK):NEXT X:RETURN.D....BR.
TR...C...S.BR.2:D.(BR.1).2:E.(TR).2.T...
.5900:. ML:....P..  CHUNK UP.K.U.:.     
  FOR X=TR TO BR STEP-1:PO%(X+1,WK)=PO%(
X,WK):NEXT X:RETURN...Z.S.(TR).2:D.(TR.1
).2:E.(BR).2..._..5900:. ML.51:.......  
FIND POINTER.N...:.      FOR FR=1 TO HR:
IF PO%(FR,WK)<>FI THEN NEXT FR.A...:.   
  :RETURN.Q...S.1.2:.5900...... B7.2,FI.
256:. B7.3,FI . 255:. HI LO !...C.. B7.4
,1:. B7.5,0:. LO HI...E.. B7.6,HR.256:. 
B7.7,HR . 255:. HI LO !...H.. ML.104:FR.
B(B7.4).256.B(B7.5):....... PASS PARAMS.
5...PO%(0,0).5.256.10.F...X.B(ZV.2).256.
B(ZV.3).9.AO:. POS OF PO%(0,0).....X.X.(
MR.1).2.WK:. POS OF PO%(0,WK) HI LO BYTE
... .. B7,(X.S).255:. B7.1,(X.S).256...%
.. B7.2,(X.D).255:. B7.3,(X.D).256...*..
 B7.4,(X.E).255:. B7.5,(X.E).256.../....
.... RESORT?.3...CK.0:. CHANGE KEY?.B...
. X.0 . HK.X...:. Y.1 . SF%(X,0).J...: .
 WO.1 . HO.....:  . SF%(X,Y).E( J(OA$(WO
),2) ). CK.1...... WO,Y,X..........#. EX
IT.I..#. LI.253 . . IV,LI....#."UPDATE",
8:VO.0:.8:.....#. OPEN SEQ....#X.0.7..#.
"SEQUENTIAL FILE DRIVE?(.1./.0.)":G1$."0
1":. 5:QV.E(G$).[..$:. QV..RV . .KK(QV),
"I".DR$(QV)....$:. SE,DV(QV),SE,DR$(QV).
":".NS$.",S,R". ..$:VO.QV:. 8:. E .   SE
....$:. E . X.0 . X.1:. 9215.B.S$....F.

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL