UPDATE
FILE INFORMATION
FILENAME(S): UPDATE
FILE TYPE(S): PRG
FILE SIZE: 3.1K
FIRST SEEN: 2025-11-30 20:14:48
APPEARS ON: 2 disk(s)
FILE HASH
d27d94f604225453ad497dbefad7ea2796daf88c4829ee92906e4a35d99007ee
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PER CEDERHOLM | UPDATE | PRG | Curtcool, LPN | 28 | 3 | DOWNLOAD FILE |
| PRACTIFILE | UPDATE | PRG | Curtcool, LPN | 28 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
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 2C 52 4E 44 2C 41 |IN,TAN,INT,RND,A|
00000750: 42 53 2C 4F 52 20 4C 4F 47 00 89 0B A3 0C 99 22 |BS,OR LOG......"|
00000760: 11 46 49 45 4C 44 53 3A 22 3A 81 58 B2 31 A4 48 |.FIELDS:":.X.1.H|
00000770: 46 3A 99 22 12 22 58 22 92 22 46 54 24 28 58 29 |F:."."X"."FT$(X)|
00000780: 22 20 22 3B 3A 82 58 3A 99 00 8F 0B E3 0C 8E 00 |" ";:.X:........|
00000790: A0 0B C0 12 8F 20 41 53 4B 20 4E 55 4D 42 45 52 |..... ASK NUMBER|
000007A0: 00 D3 0B CA 12 A1 20 47 24 3A 99 58 3B 44 24 3B |...... G$:.X;D$;|
000007B0: 3A 84 4B 45 2C 58 24 3A 99 3A 58 B2 C5 28 58 24 |:.KE,X$:.:X..(X$|
000007C0: 29 3A 8B 58 B2 30 AF 58 24 B3 B1 22 30 22 A7 34 |):.X.0.X$.."0".4|
000007D0: 38 31 32 00 E6 0B CB 12 8B 58 B2 B1 58 31 AF 58 |812......X..X1.X|
000007E0: B2 B3 58 32 A7 8E 00 14 0C CC 12 99 22 12 49 4C |..X2........".IL|
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 22 11 57 48 49 43 |HC.X.%....".WHIC|
00000AF0: 48 20 53 45 51 20 46 49 45 4C 44 20 57 49 4C 4C |H SEQ FIELD WILL|
00000B00: 20 49 4E 44 49 43 41 54 45 20 54 48 45 20 52 45 | INDICATE THE RE|
00000B10: 43 4F 52 44 20 54 4F 20 42 45 20 4D 4F 44 49 46 |CORD TO BE MODIF|
00000B20: 49 45 44 3F 22 00 45 0F BD 1F 3A 58 B2 53 4B 3A |IED?".E...:X.SK:|
00000B30: 58 31 B2 31 3A 58 32 B2 48 43 3A 8D 34 38 30 30 |X1.1:X2.HC:.4800|
00000B40: 3A 53 4B B2 58 00 53 0F C2 1F 99 22 12 4B 45 59 |:SK.X.S....".KEY|
00000B50: 53 3A 22 00 79 0F C7 1F 3A 81 20 58 B2 30 20 A4 |S:".y...:. X.0 .|
00000B60: 20 48 4B 3A 99 58 AA 31 3B 3A 81 20 44 B2 31 A4 | HK:.X.1;:. D.1.|
00000B70: 20 53 46 25 28 58 2C 30 29 00 9D 0F CC 1F 3A 20 | SF%(X,0).....: |
00000B80: 99 20 46 54 24 28 53 46 25 28 58 2C 44 29 29 22 |. FT$(SF%(X,D))"|
00000B90: 20 22 3B 3A 82 20 44 3A 99 3A 82 20 58 00 C6 0F | ";:. D:.:. X...|
00000BA0: D1 1F 3A 99 22 11 57 48 49 43 48 20 52 41 4E 44 |..:.".WHICH RAND|
00000BB0: 4F 4D 20 4B 45 59 20 57 49 4C 4C 20 49 54 20 4D |OM KEY WILL IT M|
00000BC0: 41 54 43 48 3F 22 00 EC 0F D6 1F 3A 58 B2 57 4B |ATCH?".....:X.WK|
00000BD0: AA 31 3A 58 31 B2 31 3A 58 32 B2 48 4B AA 31 3A |.1:X1.1:X2.HK.1:|
00000BE0: 8D 34 38 30 30 3A 57 4B B2 58 AB 31 00 07 10 07 |.4800:WK.X.1....|
00000BF0: 20 8D 20 33 31 30 30 3A 8E 3A 8F 20 43 41 4C 43 | . 3100:.:. CALC|
00000C00: 20 43 48 41 4E 47 45 00 17 10 8C 23 8F 2A 2A 2A | CHANGE....#.***|
00000C10: 2A 2A 2A 45 58 49 54 00 2E 10 8E 23 8B 20 4C 49 |***EXIT....#. LI|
00000C20: B3 32 35 33 20 A7 20 97 20 49 56 2C 4C 49 00 4B |.253 . . IV,LI.K|
00000C30: 10 91 23 93 22 44 41 54 41 20 42 41 53 45 22 2C |..#."DATA BASE",|
00000C40: 38 3A 56 4F B2 30 3A 8D 38 3A 8E 00 00 00 3A 4B |8:VO.0:.8:....:K|
....... 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,RND,ABS,OR LO
G......".FIELDS:":.X.1.HF:."."X"."FT$(X)
" ";:.X:........ .... ASK NUMBER.S.J.. G
$:.X;D$;:.KE,X$:.:X.E(X$):.X.0.X$.."0".4
812...K..X..X1.X..X2.....L..".ILLEGAL 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.%....".WHIC
H SEQ FIELD WILL INDICATE THE RECORD TO
BE MODIFIED?".E...:X.SK:X1.1:X2.HC:.4800
:SK.X.S.B..".KEYS:".Y.G.:. X.0 . HK:.X.1
;:. D.1. SF%(X,0)...L.: . FT$(SF%(X,D))"
";:. D:.:. X.F.Q.:.".WHICH RANDOM KEY W
ILL IT MATCH?"...V.:X.WK.1:X1.1:X2.HK.1:
.4800:WK.X.1.... . 3100:.:. CALC CHANGE.
...#.******EXIT....#. LI.253 . . IV,LI.K
..#."DATA BASE",8:VO.0:.8:....:K
> CLICK IMAGE PREVIEW FOR FULL MODAL