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 4E 04 02 00 A0 31 35  3A 9F 20 31 35 2C 38 2C  |.N....15:. 15,8,|
00000030: 31 35 2C 22 53 30 3A 55  50 44 41 54 45 22 3A 94  |15,"S0:UPDATE":.|
00000040: 22 30 3A 55 50 44 41 54  45 22 2C 38 3A 80 00 62  |"0:UPDATE",8:..b|
00000050: 04 04 00 9F 34 2C 34 3A  9D 34 3A 99 22 93 22 3B  |....4,4:.4:.".";|
00000060: 3A 9B 00 8C 04 05 00 A1  47 24 3A 81 56 B2 31 A4  |:.......G$:.V.1.|
00000070: C3 28 47 31 24 29 3A 8B  47 24 B3 B1 CA 28 47 31  |.(G1$):.G$...(G1|
00000080: 24 2C 56 2C 31 29 A7 82  56 3A 89 35 00 92 04 06  |$,V,1)..V:.5....|
00000090: 00 8E 00 AE 04 08 00 84  4B 4B 28 51 56 29 2C 45  |........KK(QV),E|
000000A0: 2C 45 24 2C 53 2C 54 3A  8B 45 B3 32 A7 8E 00 C9  |,E$,S,T:.E.2....|
000000B0: 04 09 00 99 22 44 49 53  4B 20 45 52 52 4F 52 3A  |...."DISK ERROR:|
000000C0: 22 45 3B 45 24 3B 53 3B  54 00 E9 04 0A 00 99 22  |"E;E$;S;T......"|
000000D0: 12 43 92 4F 4E 54 49 4E  55 45 3F 22 3A 47 31 24  |.C.ONTINUE?":G1$|
000000E0: B2 22 43 22 3A 8D 35 3A  8E 00 F9 04 0B 00 8F 2A  |."C":.5:.......*|
000000F0: 2A 2A 2A 2A 2A 4D 41 49  4E 00 0B 05 0D 00 8F 2A  |*****MAIN......*|
00000100: 2A 2A 2A 2A 2A 53 45 54  20 55 50 00 16 05 0F 00  |*****SET UP.....|
00000110: 8F 20 4C 4F 41 44 00 26  05 11 00 8F 2A 2A 2A 2A  |. LOAD.&....****|
00000120: 2A 2A 53 41 56 45 00 3D  05 1F 00 8F 2A 2A 2A 2A  |**SAVE.=....****|
00000130: 2A 2A 43 41 4C 43 20 43  48 41 4E 47 45 00 56 05  |**CALC CHANGE.V.|
00000140: 20 00 8F 2A 2A 2A 2A 2A  2A 49 4E 53 54 52 55 43  | ..******INSTRUC|
00000150: 54 20 43 41 4C 43 00 6B  05 3D 00 8F 2A 2A 2A 2A  |T CALC.k.=..****|
00000160: 2A 2A 44 4F 20 55 50 44  41 54 45 00 84 05 51 00  |**DO UPDATE...Q.|
00000170: 8F 2A 2A 2A 2A 2A 2A 43  48 41 4E 47 45 20 46 4F  |.******CHANGE FO|
00000180: 52 4D 41 54 00 94 05 5B  00 8F 2A 2A 2A 2A 2A 2A  |RMAT...[..******|
00000190: 45 58 49 54 00 A8 05 62  00 8F 2A 2A 2A 2A 2A 4E  |EXIT...b..*****N|
000001A0: 55 4D 20 49 4E 50 55 54  00 B8 05 4C 04 8F 2A 2A  |UM INPUT...L..**|
000001B0: 2A 2A 2A 2A 4D 41 49 4E  00 D9 05 51 04 4E 32 24  |****MAIN...Q.N2$|
000001C0: B2 4E 41 24 3A 8B 20 4C  49 B3 32 35 33 20 A7 20  |.NA$:. LI.253 . |
000001D0: 97 20 49 56 2C 4C 49 AA  33 00 06 06 55 04 99 22  |. IV,LI.3...U.."|
000001E0: 93 20 20 12 55 50 44 41  54 45 20 52 41 4E 44 4F  |.  .UPDATE RANDO|
000001F0: 4D 20 46 49 4C 45 20 46  52 4F 4D 20 41 20 53 45  |M FILE FROM A SE|
00000200: 51 20 46 49 4C 45 00 1C  06 56 04 99 22 11 12 4C  |Q FILE...V.."..L|
00000210: 92 4F 41 44 20 46 4F 52  4D 41 54 22 00 44 06 58  |.OAD FORMAT".D.X|
00000220: 04 99 22 11 12 43 92 48  41 4E 47 45 2C 20 43 52  |.."..C.HANGE, CR|
00000230: 45 41 54 45 2C 20 49 4E  53 50 45 43 54 20 46 4F  |EATE, INSPECT FO|
00000240: 52 4D 41 54 00 5A 06 5A  04 99 22 11 12 53 92 41  |RMAT.Z.Z.."..S.A|
00000250: 56 45 20 46 4F 52 4D 41  54 22 00 76 06 5C 04 99  |VE FORMAT".v.\..|
00000260: 22 11 12 55 92 50 44 41  54 45 20 52 41 4E 44 4F  |"..U.PDATE RANDO|
00000270: 4D 20 46 49 4C 45 00 95  06 5E 04 99 22 11 12 5E  |M FILE...^.."..^|
00000280: 92 20 52 45 54 55 52 4E  20 54 4F 20 46 49 4C 45  |. RETURN TO FILE|
00000290: 20 4D 45 4E 55 00 C7 06  60 04 47 31 24 B2 22 4C  | MENU...`.G1$."L|
000002A0: 43 53 55 5E 22 3A 8D 35  3A 91 20 56 20 8D 20 31  |CSU^":.5:. V . 1|
000002B0: 35 30 30 2C 38 31 30 30  2C 31 37 30 30 2C 36 31  |500,8100,1700,61|
000002C0: 30 30 2C 39 31 30 30 00  E1 06 AF 04 81 20 58 B2  |00,9100...... X.|
000002D0: 31 A4 31 30 3A A1 47 24  3A 82 58 3A 89 31 31 30  |1.10:.G$:.X:.110|
000002E0: 39 00 EC 06 DC 05 8F 20  4C 4F 41 44 00 07 07 E6  |9...... LOAD....|
000002F0: 05 58 31 24 B2 22 52 22  3A 8D 20 35 33 30 30 3A  |.X1$."R":. 5300:|
00000300: 8B 20 45 20 A7 20 8E 00  1E 07 F5 05 84 20 53 45  |. E . ....... SE|
00000310: 2C 20 48 43 2C 53 4B 2C  48 4F 2C 4E 53 24 00 2E  |, HC,SK,HO,NS$..|
00000320: 07 FC 05 3A 81 20 58 B2  31 20 A4 20 48 4F 00 5A  |...:. X.1 . HO.Z|
00000330: 07 FD 05 84 20 53 45 2C  4F 41 24 28 58 29 2C 20  |.... SE,OA$(X), |
00000340: 4F 42 24 28 58 29 2C 20  4F 4F 24 28 58 29 2C 20  |OB$(X), OO$(X), |
00000350: 4F 43 24 28 58 29 3A 82  20 58 00 6C 07 3F 06 84  |OC$(X):. X.l.?..|
00000360: 53 45 2C 57 4B 3A A0 20  53 45 3A 8E 00 77 07 A4  |SE,WK:. SE:..w..|
00000370: 06 8F 20 53 41 56 45 00  92 07 AE 06 58 31 24 B2  |.. SAVE.....X1$.|
00000380: 22 57 22 3A 8D 20 35 33  30 30 3A 8B 20 45 20 A7  |"W":. 5300:. E .|
00000390: 20 8E 00 B9 07 BD 06 98  20 53 45 2C 20 48 43 3B  | ....... SE, HC;|
000003A0: 52 24 3B 20 53 4B 3B 52  24 3B 20 48 4F 3B 52 24  |R$; SK;R$; HO;R$|
000003B0: 3B 20 4E 53 24 3B 52 24  3B 00 C8 07 C4 06 81 20  |; NS$;R$;...... |
000003C0: 58 B2 31 20 A4 20 48 4F  00 FC 07 C5 06 3A 98 20  |X.1 . HO.....:. |
000003D0: 53 45 2C 20 4F 41 24 28  58 29 52 24 20 4F 42 24  |SE, OA$(X)R$ OB$|
000003E0: 28 58 29 52 24 20 4F 4F  24 28 58 29 52 24 20 4F  |(X)R$ OO$(X)R$ O|
000003F0: 43 24 28 58 29 52 24 3B  3A 82 20 58 00 0E 08 07  |C$(X)R$;:. X....|
00000400: 07 98 53 45 2C 57 4B 3A  A0 20 53 45 3A 8E 00 25  |..SE,WK:. SE:..%|
00000410: 08 1C 0C 8F 2A 2A 2A 2A  2A 2A 43 41 4C 43 20 43  |....******CALC C|
00000420: 48 41 4E 47 45 00 4B 08  21 0C 99 22 93 20 20 20  |HANGE.K.!..".   |
00000430: 20 20 20 20 20 20 20 12  55 50 44 41 54 45 20 43  |       .UPDATE C|
00000440: 41 4C 43 55 4C 41 54 49  4F 4E 53 00 7F 08 24 0C  |ALCULATIONS...$.|
00000450: 99 22 11 48 4F 57 20 4D  41 4E 59 20 4F 50 45 52  |.".HOW MANY OPER|
00000460: 41 54 49 4F 4E 53 20 44  4F 20 59 4F 55 20 57 41  |ATIONS DO YOU WA|
00000470: 4E 54 20 54 4F 20 50 45  52 46 4F 52 4D 3F 22 00  |NT TO PERFORM?".|
00000480: 9E 08 25 0C 58 B2 48 4F  3A 58 31 B2 31 3A 58 32  |..%.X.HO:X1.1:X2|
00000490: B2 4D 44 3A 8D 34 38 30  30 3A 48 4F B2 58 00 AA  |.MD:.4800:HO.X..|
000004A0: 08 26 0C 8B 48 4F B2 30  A7 8E 00 C0 08 30 0C 8D  |.&..HO.0.....0..|
000004B0: 20 33 32 30 30 3A 8F 20  49 4E 53 54 52 55 43 54  | 3200:. INSTRUCT|
000004C0: 00 D0 08 34 0C 81 20 57  4F B2 31 20 A4 20 48 4F  |...4.. WO.1 . HO|
000004D0: 00 EA 08 35 0C 99 22 11  4F 50 45 52 41 54 49 4F  |...5..".OPERATIO|
000004E0: 4E 20 23 22 57 4F 22 9D  3A 22 00 25 09 3A 0C 99  |N #"WO".:".%.:..|
000004F0: 20 4F 41 24 28 57 4F 29  3B A3 34 29 22 2C 22 4F  | OA$(WO);.4)","O|
00000500: 42 24 28 57 4F 29 A3 31  30 29 22 2C 22 4F 4F 24  |B$(WO).10)","OO$|
00000510: 28 57 4F 29 A3 31 35 29  22 2C 22 4F 43 24 28 57  |(WO).15)","OC$(W|
00000520: 4F 29 22 91 22 00 4A 09  3F 0C 84 4B 45 2C 4F 41  |O)".".J.?..KE,OA|
00000530: 24 28 57 4F 29 2C 4F 42  24 28 57 4F 29 2C 58 24  |$(WO),OB$(WO),X$|
00000540: 2C 4F 43 24 28 57 4F 29  3A 99 00 7E 09 41 0C 3A  |,OC$(WO):..~.A.:|
00000550: 4F 4F 24 28 57 4F 29 B2  58 24 3A 8B C9 28 58 24  |OO$(WO).X$:..(X$|
00000560: 2C 31 29 B2 22 20 22 A7  58 24 B2 C8 28 58 24 2C  |,1)." ".X$..(X$,|
00000570: C3 28 58 24 29 AB 31 29  3A 89 33 31 33 37 00 9A  |.(X$).1):.3137..|
00000580: 09 42 0C 8B 20 58 24 B2  22 22 A7 20 4F 4F 24 28  |.B.. X$."". OO$(|
00000590: 57 4F 29 B2 22 2E 22 AA  22 22 00 A3 09 44 0C 82  |WO).".".""...D..|
000005A0: 20 57 4F 00 A9 09 7F 0C  8E 00 C2 09 80 0C 8F 2A  | WO............*|
000005B0: 2A 2A 2A 2A 2A 49 4E 53  54 52 55 43 54 20 43 41  |*****INSTRUCT CA|
000005C0: 4C 43 00 E2 09 85 0C 99  22 12 41 92 20 20 20 20  |LC......".A.    |
000005D0: 20 12 42 92 20 20 20 20  12 43 92 20 20 20 20 12  | .B.    .C.    .|
000005E0: 44 92 00 FD 09 8A 0C 99  22 46 34 3D 20 20 2C 46  |D......."F4=  ,F|
000005F0: 34 20 20 2C 2D 20 20 20  2C 53 46 32 22 00 19 0A  |4  ,-   ,SF2"...|
00000600: 8B 0C 99 22 46 35 3D 20  20 2C 46 34 20 20 2C 2A  |..."F5=  ,F4  ,*|
00000610: 20 20 20 2C 46 38 20 20  22 00 55 0A 8F 0C 99 22  |   ,F8  ".U...."|
00000620: 11 57 48 45 52 45 20 12  41 92 20 49 53 20 54 48  |.WHERE .A. IS TH|
00000630: 45 20 4C 45 54 54 45 52  20 27 46 27 20 50 4C 55  |E LETTER 'F' PLU|
00000640: 53 20 41 4E 59 20 46 49  45 4C 44 20 4E 55 4D 42  |S ANY FIELD NUMB|
00000650: 45 52 20 22 3B 00 8D 0A  94 0C 99 22 41 4E 44 20  |ER ";......"AND |
00000660: 12 42 92 20 41 4E 44 20  12 44 92 20 41 52 45 20  |.B. AND .D. ARE |
00000670: 45 49 54 48 45 52 20 52  45 41 4C 20 4E 55 4D 42  |EITHER REAL NUMB|
00000680: 45 52 53 20 4F 52 20 54  48 45 20 22 3B 00 BE 0A  |ERS OR THE ";...|
00000690: 99 0C 99 22 4C 45 54 54  45 52 20 27 46 27 20 50  |..."LETTER 'F' P|
000006A0: 4C 55 53 20 41 4E 59 20  52 41 4E 44 4F 4D 20 46  |LUS ANY RANDOM F|
000006B0: 49 45 4C 44 20 4E 55 4D  42 45 52 20 22 3B 00 FC  |IELD NUMBER ";..|
000006C0: 0A 9A 0C 99 22 4F 52 20  54 48 45 20 4C 45 54 54  |...."OR THE LETT|
000006D0: 45 52 53 20 27 53 46 27  20 50 4C 55 53 20 41 4E  |ERS 'SF' PLUS AN|
000006E0: 59 20 53 45 51 55 45 4E  54 49 41 4C 20 46 49 45  |Y SEQUENTIAL FIE|
000006F0: 4C 44 20 4E 55 4D 42 45  52 20 22 3B 00 27 0B 9E  |LD NUMBER ";.'..|
00000700: 0C 99 22 41 4E 44 20 57  48 45 52 45 20 12 43 92  |.."AND WHERE .C.|
00000710: 20 49 53 20 41 20 4D 41  54 48 20 4F 50 45 52 41  | IS A MATH OPERA|
00000720: 54 49 4F 4E 3A 22 3B 00  59 0B A0 0C 99 22 2B 2C  |TION:";.Y...."+,|
00000730: 2D 2C 58 20 5B 4F 52 20  2A 5D 2C 2F 2C 5E 2C 53  |-,X [OR *],/,^,S|
00000740: 49 4E 2C 54 41 4E 2C 49  4E 54 20 79 F5 FF 8F 12  |IN,TAN,INT y....|
00000750: BF 3F F3 1F 1F F2 32 FA  FA D8 8F F1 50 0F F9 98  |.?....2.....P...|
00000760: 8F F7 1F F7 F7 F7 FF 99  D8 88 DF F7 FD 98 FD FF  |................|
00000770: F7 18 DF FF F2 FF F3 A0  01 0F F3 F7 78 F8 F7 FF  |............x...|
00000780: 6F FF 2F FF EF E2 08 DF  FF 32 FF 30 F7 DF FA 3F  |o./......2.0...?|
00000790: FF FF F6 AF 7F 31 FF F6  FF D7 FF DF EE DA DF FE  |.....1..........|
000007A0: FF FF BF F6 BF 7F F7 FF  D5 FD FF 32 E3 F6 FD FD  |...........2....|
000007B0: F7 FF 2F D6 FF FF 58 8F  84 66 0F 8F F7 FF 82 88  |../...X..f......|
000007C0: 80 F2 AF F2 F8 8F FF CC  0F FF FC AF F9 88 0F F6  |................|
000007D0: FF BF AF AF F2 27 F2 6B  4A F2 4B A4 F6 AB AC FD  |.....'.kJ.K.....|
000007E0: 07 FD 9C 97 F9 9C 1F FF  FF 7F F6 6F 9F F9 8F 9F  |...........o....|
000007F0: 4C 45 47 41 4C 20 45 4E  54 52 59 20 2D 20 50 4C  |LEGAL ENTRY - PL|
00000800: 45 41 53 45 20 45 4E 54  45 52 20 41 20 4E 55 4D  |EASE ENTER A NUM|
00000810: 42 45 52 22 00 42 0C CF  12 99 22 12 49 4E 20 54  |BER".B....".IN T|
00000820: 48 45 20 52 41 4E 47 45  20 4F 46 22 58 31 22 9D  |HE RANGE OF"X1".|
00000830: 20 54 4F 22 58 32 22 9D  20 21 21 22 3A 89 34 38  | TO"X2". !!":.48|
00000840: 30 30 00 52 0C B4 14 8F  20 4F 50 45 4E 20 46 4F  |00.R.... OPEN FO|
00000850: 52 4D 00 7B 0C B9 14 99  22 4E 41 4D 45 20 4F 46  |RM.{...."NAME OF|
00000860: 20 46 4F 52 4D 41 54 3A  22 3A 99 4E 32 24 22 91  | FORMAT:":.N2$".|
00000870: 22 3A 84 4B 45 2C 4E 32  24 3A 99 00 AD 0C BE 14  |":.KE,N2$:......|
00000880: 45 B2 31 3A 4C B2 C3 28  4E 32 24 29 3A 8B 20 4C  |E.1:L..(N2$):. L|
00000890: B1 31 32 20 A7 20 99 22  46 49 4C 45 20 4E 41 4D  |.12 . ."FILE NAM|
000008A0: 45 20 54 4F 4F 20 4C 4F  4E 47 22 3A 8E 00 DC 0C  |E TOO LONG":....|
000008B0: C3 14 81 20 58 B2 31 20  A4 20 4C 3A 8B 20 CA 28  |... X.1 . L:. .(|
000008C0: 4E 32 24 2C 31 29 B2 22  2A 22 A7 20 99 22 27 2A  |N2$,1)."*". ."'*|
000008D0: 27 20 49 4C 4C 45 47 41  4C 22 3A 8E 00 EF 0C C4  |' ILLEGAL":.....|
000008E0: 14 3A 82 20 58 3A 8B 20  4C B2 30 20 A7 20 8E 00  |.:. X:. L.0 . ..|
000008F0: 20 0D C8 14 45 B2 30 3A  99 22 44 52 49 56 45 28  | ...E.0:."DRIVE(|
00000900: 12 31 92 2F 12 30 92 29  3F 22 3A 47 31 24 B2 22  |.1./.0.)?":G1$."|
00000910: 30 31 22 3A 8D 20 35 3A  51 56 B2 C5 28 47 24 29  |01":. 5:QV..(G$)|
00000920: 00 43 0D CD 14 8B 20 51  56 B3 B1 52 56 20 A7 20  |.C.... QV..RV . |
00000930: 98 4B 4B 28 51 56 29 2C  22 49 22 AA 44 52 24 28  |.KK(QV),"I".DR$(|
00000940: 51 56 29 00 77 0D D2 14  8B 20 58 31 24 B2 22 57  |QV).w.... X1$."W|
00000950: 22 A7 20 98 4B 4B 28 51  56 29 2C 22 53 22 AA 44  |". .KK(QV),"S".D|
00000960: 52 24 28 51 56 29 AA 22  3A 55 50 22 AA C7 28 31  |R$(QV).":UP"..(1|
00000970: 36 32 29 AA 4E 32 24 00  A7 0D DC 14 9F 20 53 45  |62).N2$...... SE|
00000980: 2C 44 56 28 51 56 29 2C  53 45 2C 44 52 24 28 51  |,DV(QV),SE,DR$(Q|
00000990: 56 29 AA 22 3A 55 50 A2  22 AA 4E 32 24 AA 22 2C  |V).":UP.".N2$.",|
000009A0: 53 2C 22 AA 58 31 24 00  C0 0D DE 14 56 4F B2 51  |S,".X1$.....VO.Q|
000009B0: 56 3A 8D 20 38 3A 8B 20  45 20 A7 20 A0 20 53 45  |V:. 8:. E . . SE|
000009C0: 00 C6 0D E1 14 8E 00 DB  0D D4 17 8F 2A 2A 2A 2A  |............****|
000009D0: 2A 2A 44 4F 20 55 50 44  41 54 45 00 F2 0D D6 17  |**DO UPDATE.....|
000009E0: 8B 20 4C 49 B3 32 35 33  20 A7 20 97 20 49 56 2C  |. LI.253 . . IV,|
000009F0: 4C 49 00 07 0E D9 17 93  22 44 4F 20 55 50 44 41  |LI......"DO UPDA|
00000A00: 54 45 22 2C 38 3A 90 00  20 0E A4 1F 8F 2A 2A 2A  |TE",8:.. ....***|
00000A10: 2A 2A 2A 43 48 41 4E 47  45 20 46 4F 52 4D 41 54  |***CHANGE FORMAT|
00000A20: 00 3F 0E A9 1F 99 22 93  1D 1D 1D 1D 1D 1D 1D 1D  |.?....".........|
00000A30: 1D 12 43 48 41 4E 47 45  20 46 4F 52 4D 41 54 00  |..CHANGE FORMAT.|
00000A40: 72 0E AB 1F 99 22 4E 41  4D 45 20 4F 46 20 53 45  |r...."NAME OF SE|
00000A50: 51 55 45 4E 54 49 41 4C  20 46 49 4C 45 3F 22 3A  |QUENTIAL FILE?":|
00000A60: 99 20 4E 53 24 22 91 22  3A 84 4B 45 2C 4E 53 24  |. NS$".":.KE,NS$|
00000A70: 3A 99 00 94 0E AC 1F 3A  8B 20 4E 53 24 B2 22 22  |:......:. NS$.""|
00000A80: B0 20 C9 28 4E 53 24 2C  31 29 B2 22 2A 22 A7 20  |. .(NS$,1)."*". |
00000A90: 38 31 30 37 00 C4 0E AE  1F 99 22 11 48 4F 57 20  |8107......".HOW |
00000AA0: 4D 41 4E 59 20 46 49 45  4C 44 53 20 44 4F 45 53  |MANY FIELDS DOES|
00000AB0: 20 54 48 45 20 53 45 51  20 46 49 4C 45 20 48 41  | THE SEQ FILE HA|
00000AC0: 56 45 3F 22 00 E4 0E B3  1F 3A 58 B2 48 43 3A 58  |VE?".....:X.HC:X|
00000AD0: 31 B2 31 3A 58 32 B2 4D  44 3A 8D 34 38 30 30 3A  |1.1:X2.MD:.4800:|
00000AE0: 48 43 B2 58 00 25 0F B8  1F 99 28 FF FA FF 7F F8  |HC.X.%....(.....|
00000AF0: 12 02 3D 13 BA F2 3F 36  13 B3 13 F2 3D B6 13 12  |..=...?6....=...|
00000B00: 68 8B FB 99 9B FA C9 CD  99 E8 8D 99 F9 E8 8E 89  |h...............|
00000B10: DA CA FE 89 A8 8D 9A 68  8A 89 E8 8B FA F9 9B FA  |.......h........|
00000B20: 9B F9 D9 A4 60 88 89 D0  75 F4 65 8D F4 8E 0D 7F  |....`...u.e.....|
00000B30: FE 26 77 FF 7F FE 23 2B  24 84 33 A8 D3 43 83 03  |.&w...#+$.3..C..|
00000B40: 03 A5 34 BB 25 80 05 30  FC 21 F9 98 8F 9F C7 F7  |..4.%..0.!......|
00000B50: F7 99 D8 8F F1 FF 06 BF  A9 DF F9 FF FD 98 F8 FC  |................|
00000B60: F8 FF F7 C9 DF F7 FD C8  F9 D9 DF F9 FF FC 98 FD  |................|
00000B70: F8 FF 97 18 F9 F7 F9 FF  AF 60 26 50 F1 10 DF EF  |.........`&P....|
00000B80: 26 40 88 A9 DA 8A 8F EC  AA 8E 8F DF 8F 9A 1F 10  |&@..............|
00000B90: 00 80 00 54 58 F0 88 9A  51 FF 58 F0 88 DF 88 69  |...TX...Q.X....i|
00000BA0: 07 FC 46 51 FF 08 CC ED  9F BF AC 9F 88 E8 9C B9  |..FQ............|
00000BB0: 99 AF B6 88 BC 9D FF 88  ED BF 9F 96 88 BF DA 88  |................|
00000BC0: BF 9C D9 AC 9F F1 FF FF  FA F1 BF 71 FF E3 7F F4  |...........q....|
00000BD0: D7 FF F7 FF E2 31 B2 31  3A 58 89 C9 FF 7C DC 8F  |.....1.1:X...|..|
00000BE0: 9D FE 97 8F FA FA FE 3D  20 22 58 24 22 29 22 00  |.......= "X$")".|
00000BF0: 0E 1A FA 23 9F 20 53 45  2C 38 2C 53 45 2C 22 30  |...#. SE,8,SE,"0|
00000C00: 3A 22 AA 58 24 AA 22 2C  50 2C 52 22 3A 56 4F B2  |:".X$.",P,R":VO.|
00000C10: 30 3A 8D 20 38 3A A0 20  53 45 3A 8B 20 45 20 A7  |0:. 8:. SE:. E .|
00000C20: 20 8E 00 25 1A FF 23 8B  20 4C 49 B3 32 35 33 20  | ..%..#. LI.253 |
00000C30: A7 20 97 20 49 56 2C 4C  49 00 37 1A 04 24 93 20  |. . IV,LI.7..$. |
00000C40: 22 30 3A 22 AA 58 24 2C  38 3A 90 00 45 1A 54 24  |"0:".X$,8:..E.T$|
00000C50: 8F 20 4F 50 45 4E 20 52  41 00 74 1A 59 24 8B 20  |. OPEN RA.t.Y$. |
00000C60: 44 54 B2 31 20 AF 20 52  56 B2 31 20 A7 20 99 22  |DT.1 . RV.1 . ."|
00000C70: 11 12 49 4E 53 45 52 54  20 44 41 54 41 20 44 49  |..INSERT DATA DI|
00000C80: 53 4B 22 3A 8D 20 31 30  00 8B 1A 5B 24 98 4B 4B  |SK":. 10...[$.KK|
00000C90: 28 52 56 29 2C 22 49 22  44 52 24 28 52 56 29 00  |(RV),"I"DR$(RV).|
00000CA0: C1 1A 5E 24 9F 20 53 45  2C 44 56 28 52 56 29 2C  |..^$. SE,DV(RV),|
00000CB0: 53 45 2C 44 52 24 28 52  56 29 AA 22 3A 44 42 22  |SE,DR$(RV).":DB"|
00000CC0: AA C7 28 33 34 AA 31 32  38 29 AA 4E 41 24 AA 22  |..(34.128).NA$."|
00000CD0: 2C 53 2C 52 22 00 DF 1A  60 24 56 4F B2 52 56 3A  |,S,R"...`$VO.RV:|
00000CE0: 8D 20 38 3A A0 20 53 45  3A 8B 20 45 20 A7 20 39  |. 8:. SE:. E . 9|
00000CF0: 33 30 35 00 FD 1A 63 24  9F 20 52 41 2C 44 56 28  |305...c$. RA,DV(|
00000D00: 52 56 29 2C 52 41 2C 22  23 22 3A 42 4C B2 30 3A  |RV),RA,"#":BL.0:|
00000D10: 8E 00 0A 1B E4 25 8F 20  43 48 41 4E 47 45 00 28  |.....%. CHANGE.(|
00000D20: 1B E9 25 58 24 B2 22 43  48 41 4E 47 45 20 46 4F  |..%X$."CHANGE FO|
00000D30: 52 4D 22 3A 8D 20 39 32  30 30 3A 8E 00 00 00 31  |RM":. 9200:....1|
00000D40: 45 2C                                             |E,              |

....... 5/10/80  9:20. .... 1100.N... 15
:. 15,8,15,"S0:UPDATE":."0:UPDATE",8:..B
....4,4:.4:.".";:.......G$:.V.1.C(G1$):.
G$..J(G1$,V,1)..V:.5............KK(QV),E
,E$,S,T:.E.2...I...."DISK ERROR:"E;E$;S;
T......".C.ONTINUE?":G1$."C":.5:.......*
*****MAIN......******SET UP...... LOAD.&
....******SAVE.=....******CALC CHANGE.V.
 ..******INSTRUCT CALC.K.=..******DO UPD
ATE...Q..******CHANGE FORMAT...[..******
EXIT...B..*****NUM INPUT...L..******MAIN
.Y.Q.N2$.NA$:. LI.253 . . IV,LI.3...U.."
.  .UPDATE RANDOM FILE FROM A SEQ FILE..
.V.."..L.OAD FORMAT".D.X.."..C.HANGE, CR
EATE, INSPECT FORMAT.Z.Z.."..S.AVE FORMA
T".V.\.."..U.PDATE RANDOM FILE...^.."..^
. RETURN TO FILE MENU.G.`.G1$."LCSU^":.5
:. V . 1500,8100,1700,6100,9100...... X.
1.10:.G$:.X:.1109...... LOAD.....X1$."R"
:. 5300:. E . ....... SE, HC,SK,HO,NS$..
...:. X.1 . HO.Z.... SE,OA$(X), OB$(X), 
OO$(X), OC$(X):. X.L.?..SE,WK:  SE:..W..
.. SAVE.....X1$."W":. 5300:. E . .......
 SE, HC;R$; SK;R$; HO;R$; NS$;R$;.H.D.. 
X.1 . HO...E.:. SE, OA$(X)R$ OB$(X)R$ OO
$(X)R$ OC$(X)R$;:. X......SE,WK:  SE:..%
....******CALC CHANGE.K.!..".          .
UPDATE CALCULATIONS..$..".HOW MANY OPER
ATIONS DO YOU WANT TO PERFORM?"...%.X.HO
:X1.1:X2.MD:.4800:HO.X...&..HO.0.....0..
 3200:. INSTRUCT.P.4.. WO.1 . HO...5..".
OPERATION #"WO".:".%.:.. OA$(WO);.4)","O
B$(WO).10)","OO$(WO).15)","OC$(WO)".".J.
?..KE,OA$(WO),OB$(WO),X$,OC$(WO):..~.A.:
OO$(WO).X$:.I(X$,1)." ".X$.H(X$,C(X$).1)
:.3137...B.. X$."". OO$(WO).".".""...D..
 WO......B....******INSTRUCT CALC......
".A.     .B.    .C.    .D......."F4=  ,F
4  ,-   ,SF2"......"F5=  ,F4  ,*   ,F8  
".U....".WHERE .A. IS THE LETTER 'F' PLU
S ANY FIELD NUMBER ";......"AND .B. AND 
.D. ARE EITHER REAL NUMBERS OR THE ";...
..."LETTER 'F' PLUS ANY RANDOM FIELD NUM
BER ";......"OR THE LETTERS 'SF' PLUS AN
Y SEQUENTIAL FIELD NUMBER ";.'...."AND W
HERE .C. IS A MATH OPERATION:";.Y. .."+,
-,X [OR *],/,^,SIN,TAN,INT Y.....?....2.
.X..P...........X.............. ....X...
O./......2.0...?....1...W...Z.........
U..2....../V..X..F.............L........
.....'.KJ.K...............O....LEGAL EN
TRY - PLEASE ENTER A NUMBER".B.O..".IN T
HE RANGE OF"X1". TO"X2". !!":.4800.R....
 OPEN FORM.{...."NAME OF FORMAT:":.N2$".
":.KE,N2$:......E.1:L.C(N2$):. L.12 . ."
FILE NAME TOO LONG":....C.. X.1 . L:. J(
N2$,1)."*". ."'*' ILLEGAL":....D.:. X:. 
L.0 . .. .H.E.0:."DRIVE(.1./.0.)?":G1$."
01":. 5:QV.E(G$).C.M.. QV..RV . .KK(QV),
"I".DR$(QV).W.R.. X1$."W". .KK(QV),"S".D
R$(QV).":UP".G(162).N2$...... SE,DV(QV),
SE,DR$(QV).":UP.".N2$.",S,".X1$.....VO.Q
V:. 8:. E .   SE.F.......T..******DO UPD
ATE...V.. LI.253 . . IV,LI...Y.."DO UPDA
TE",8:.. ....******CHANGE FORMAT.?....".
..........CHANGE FORMAT.R...."NAME OF SE
QUENTIAL FILE?":. NS$".":.KE,NS$:......:
. NS$."". I(NS$,1)."*". 8107.D....".HOW 
MANY FIELDS DOES THE SEQ FILE HAVE?"....
.:X.HC:X1.1:X2.MD:.4800:HC.X.%....(....
..=...?6....=...H.....IM........ZJ.....H
..........Y.`..PU.E.....&W..#+$.3.SC..
..4.%..0.!....G...X................I...H
.Y...............`&P....&@..Z...........
...TX...Q.X....I..FQ..L.................
......Z...Y........Q...W....1.1:X.I.|..
.......= "X$")"....#. SE,8,SE,"0:".X$.",
P,R":VO.0:. 8:  SE:. E . ..%..#. LI.253 
. . IV,LI.7..$. "0:".X$,8:..E.T$. OPEN R
A.T.Y$. DT.1 . RV.1 . ."..INSERT DATA DI
SK":. 10...[$.KK(RV),"I"DR$(RV).A.^$. SE
,DV(RV),SE,DR$(RV).":DB".G(34.128).NA$."
,S,R"...`$VO.RV:. 8:  SE:. E . 9305...C$
. RA,DV(RV),RA,"#":BL.0:.....%. CHANGE.(
..%X$."CHANGE FORM":. 9200:....1E,

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL