CONVERT
FILE INFORMATION
FILENAME(S): CONVERT
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-11-02 16:30:33
APPEARS ON: 1 disk(s)
FILE HASH
e780da6a963b1c5f537599e1db36e07ec1ed87659180c96390e03eefbe1f35a9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES 2 A | CONVERT | PRG | Treasure Chest - OzzyC64 | 3 | 0 |
⚠ CORRUPT DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 01 00 97 20 34 35 2C 30 38 32 3A 97 |.. .... 45,082:.|
00000010: 20 34 36 2C 30 36 36 3A 9C 3A 89 34 39 39 39 39 | 46,066:.:.49999|
00000020: 00 35 08 0A 00 9C 3A 8D 35 32 32 31 30 3A 8D 20 |.5....:.52210:. |
00000030: 33 33 30 30 30 00 59 08 14 00 59 24 B2 22 13 11 |33000.Y...Y$."..|
00000040: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000050: 11 11 11 11 11 11 11 11 22 00 7E 08 15 00 53 53 |........".~...SS|
00000060: 24 B2 22 22 3A 81 49 B2 31 A4 38 30 3A 53 53 24 |$."":.I.1.80:SS$|
00000070: B2 53 53 24 AA C7 28 31 36 30 29 3A 82 49 00 A3 |.SS$..(160):.I..|
00000080: 08 16 00 53 50 24 B2 22 22 3A 81 49 B2 31 A4 33 |...SP$."":.I.1.3|
00000090: 39 3A 53 50 24 B2 53 50 24 AA C7 28 33 32 29 3A |9:SP$.SP$..(32):|
000000A0: 82 20 49 00 C8 08 19 00 44 54 24 B2 22 22 3A 81 |. I.....DT$."":.|
000000B0: 49 B2 31 A4 33 39 3A 44 54 24 B2 44 54 24 AA C7 |I.1.39:DT$.DT$..|
000000C0: 28 34 36 29 3A 82 20 49 00 D3 08 1E 00 99 C7 28 |(46):. I.......(|
000000D0: 31 34 29 00 D9 08 23 00 8F 00 00 09 25 00 86 20 |14)...#.....%.. |
000000E0: 46 24 28 4E 46 29 2C 47 24 28 4E 46 29 2C 44 54 |F$(NF),G$(NF),DT|
000000F0: 25 28 31 32 29 2C 47 53 25 28 4E 46 AA 4E 43 29 |%(12),GS%(NF.NC)|
00000100: 00 1A 09 34 00 81 20 49 B2 31 A4 31 32 3A 44 54 |...4.. I.1.12:DT|
00000110: 25 28 49 29 B2 33 31 3A 82 49 00 51 09 36 00 44 |%(I).31:.I.Q.6.D|
00000120: 54 25 28 32 29 B2 32 39 3A 44 54 25 28 34 29 B2 |T%(2).29:DT%(4).|
00000130: 33 30 3A 44 54 25 28 36 29 B2 33 30 3A 44 54 25 |30:DT%(6).30:DT%|
00000140: 28 39 29 B2 33 30 3A 44 54 25 28 31 31 29 B2 33 |(9).30:DT%(11).3|
00000150: 30 00 5A 09 48 00 50 51 B2 30 00 6D 09 49 00 8B |0.Z.H.PQ.0.m.I..|
00000160: 20 46 53 B3 B1 30 20 A7 20 50 51 B2 31 00 80 09 | FS..0 . PQ.1...|
00000170: 4A 00 8B 20 46 53 B2 AB 31 20 A7 20 46 53 B2 30 |J.. FS..1 . FS.0|
00000180: 00 AF 09 5A 00 81 20 49 B2 31 20 A4 20 4E 46 3A |...Z.. I.1 . NF:|
00000190: 47 24 28 49 29 B2 22 22 3A 46 24 28 49 29 B2 22 |G$(I)."":F$(I)."|
000001A0: 22 3A 82 20 49 3A 46 43 B2 30 3A 55 46 B2 30 00 |":. I:FC.0:UF.0.|
000001B0: B8 09 5B 00 8D 33 31 38 00 EA 09 5F 00 47 24 B2 |..[..318..._.G$.|
000001C0: 22 22 3A 99 C7 28 31 34 37 29 3B C7 28 38 29 3A |"":..(147);.(8):|
000001D0: 81 49 B2 31 A4 4E 43 3A 43 45 28 49 29 B2 30 3A |.I.1.NC:CE(I).0:|
000001E0: 43 44 28 49 29 B2 30 3A 82 49 00 1D 0A 78 00 99 |CD(I).0:.I...x..|
000001F0: 3A 99 3A 99 20 3A 20 8F 20 5E 5E 5E 5E 5E 5E 5E |:.:. : . ^^^^^^^|
00000200: 5E 5E 5E 5E 5E 5E 5E 5E 5E 5E 5E 5E 5E 5E 5E 5E |^^^^^^^^^^^^^^^^|
00000210: 5E 5E 5E 5E 5E 5E 5E 5E 5E 5E 5E 5E 5E 00 4F 0A |^^^^^^^^^^^^^.O.|
00000220: 82 00 99 A3 31 29 3B 22 C6 49 4C 45 20 D0 52 45 |....1);".ILE .RE|
00000230: 50 41 52 41 54 49 4F 4E 20 28 46 49 52 53 54 20 |PARATION (FIRST |
00000240: 54 49 4D 45 20 4F 4E 4C 59 21 29 2E 20 46 22 00 |TIME ONLY!). F".|
00000250: 55 0A 8C 00 99 00 87 0A 96 00 99 A3 31 29 3B 22 |U...........1);"|
00000260: C5 4E 54 45 52 20 44 41 54 41 20 2E 2E 2E 2E 2E |.NTER DATA .....|
00000270: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000280: 2E 2E 2E 2E 20 45 22 00 B9 0A A0 00 99 A3 31 29 |.... E".......1)|
00000290: 3B 22 D5 50 44 41 54 45 20 44 41 54 41 20 2E 2E |;".PDATE DATA ..|
000002A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000002B0: 2E 2E 2E 2E 2E 2E 20 55 22 00 EB 0A AA 00 99 A3 |...... U".......|
000002C0: 31 29 3B 22 CC 4F 4F 4B 20 55 50 20 52 45 43 4F |1);".OOK UP RECO|
000002D0: 52 44 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |RD .............|
000002E0: 2E 2E 2E 2E 2E 2E 2E 2E 20 4C 22 00 1D 0B B4 00 |........ L".....|
000002F0: 99 A3 31 29 3B 22 D3 45 41 52 43 48 20 52 45 43 |..1);".EARCH REC|
00000300: 4F 52 44 53 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ORDS............|
00000310: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 53 22 00 4F 0B |.......... S".O.|
00000320: BE 00 99 A3 31 29 3B 22 C4 45 4C 45 54 45 20 52 |....1);".ELETE R|
00000330: 45 43 4F 52 44 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ECORD ..........|
00000340: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 44 22 00 |............ D".|
00000350: 81 0B C3 00 99 A3 31 29 3B 22 D6 45 52 49 46 59 |......1);".ERIFY|
00000360: 20 47 4C 4F 42 41 4C 20 54 4F 54 41 4C 53 20 2E | GLOBAL TOTALS .|
00000370: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 56 |.............. V|
00000380: 22 00 B2 0B C5 00 99 A3 31 29 22 D3 45 54 20 44 |".......1)".ET D|
00000390: 49 53 50 4C 41 59 20 43 4F 4C 4F 55 52 53 20 2E |ISPLAY COLOURS .|
000003A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 20 |............... |
000003B0: 5A 22 00 B8 0B C8 00 99 00 EA 0B D2 00 99 A3 31 |Z".............1|
000003C0: 29 3B 22 C5 58 49 54 20 2E 2E 2E 28 41 46 54 45 |);".XIT ...(AFTE|
000003D0: 52 20 C5 C1 C3 C8 20 53 45 53 53 49 4F 4E 29 2E |R .... SESSION).|
000003E0: 2E 2E 2E 2E 2E 2E 2E 20 58 22 00 FA 0B D7 00 99 |....... X"......|
000003F0: 20 C8 28 59 24 2C 32 31 29 3B 00 28 0C DC 00 99 | .(Y$,21);.(....|
00000400: 22 C5 4E 54 45 52 20 59 4F 55 52 20 43 48 4F 49 |".NTER YOUR CHOI|
00000410: 43 45 20 54 48 45 4E 20 50 52 45 53 53 20 12 D2 |CE THEN PRESS ..|
00000420: C5 D4 D5 D2 CE 92 22 3B 00 59 0C E6 00 99 C8 28 |......";.Y.....(|
00000430: 59 24 2C 32 33 29 22 D4 4F 20 52 45 54 55 52 4E |Y$,23)".O RETURN|
00000440: 20 54 4F 20 54 48 45 20 4D 45 4E 55 20 50 52 45 | TO THE MENU PRE|
00000450: 53 53 20 12 46 31 92 20 22 00 6C 0C EB 00 43 33 |SS .F1. ".l...C3|
00000460: B2 C2 28 35 36 31 32 38 29 AF 31 35 00 99 0C F0 |..(56128).15....|
00000470: 00 58 25 B2 33 38 3A 59 25 B2 32 31 3A 4C 25 B2 |.X%.38:Y%.21:L%.|
00000480: 31 3A 8D 20 33 34 30 30 30 3A 41 4E 24 B2 49 4E |1:. 34000:AN$.IN|
00000490: 24 3A 46 46 24 B2 49 4E 24 00 AD 0C FA 00 8B 20 |$:FF$.IN$...... |
000004A0: 41 4E 24 B2 22 45 22 A7 20 31 30 30 30 00 C3 0C |AN$."E". 1000...|
000004B0: FF 00 8B 20 41 4E 24 B2 22 5A 22 20 A7 20 35 33 |... AN$."Z" . 53|
000004C0: 30 30 30 00 D8 0C 04 01 8B 20 41 4E 24 B2 22 4C |000...... AN$."L|
000004D0: 22 A7 20 31 30 30 30 30 00 ED 0C 0E 01 8B 20 41 |". 10000...... A|
000004E0: 4E 24 B2 22 53 22 A7 20 33 35 30 30 30 00 02 0D |N$."S". 35000...|
000004F0: 18 01 8B 20 41 4E 24 B2 22 55 22 A7 20 31 31 30 |... AN$."U". 110|
00000500: 30 30 00 17 0D 22 01 8B 20 41 4E 24 B2 22 44 22 |00...".. AN$."D"|
00000510: A7 20 31 32 30 30 30 00 2C 0D 2C 01 8B 20 41 4E |. 12000.,.,.. AN|
00000520: 24 B2 22 46 22 A7 20 33 32 30 30 30 00 41 0D 31 |$."F". 32000.A.1|
00000530: 01 8B 20 41 4E 24 B2 22 56 22 A7 20 31 33 32 30 |.. AN$."V". 1320|
00000540: 30 00 54 0D 36 01 8B 20 41 4E 24 B3 B1 22 58 22 |0.T.6.. AN$.."X"|
00000550: A7 20 39 30 00 62 0D 3B 01 8D 33 31 38 3A 89 33 |. 90.b.;..318:.3|
00000560: 33 30 00 87 0D 3F 01 8B 20 50 51 B2 31 20 AF 20 |30...?.. PQ.1 . |
00000570: 46 53 B2 30 20 AF 20 41 4E 24 B3 B1 22 46 22 20 |FS.0 . AN$.."F" |
00000580: A7 20 46 53 B2 AB 31 00 AD 0D 40 01 41 31 B2 31 |. FS..1...@.A1.1|
00000590: 3A 50 B2 30 3A 8D 35 32 31 30 30 3A 98 32 2C C4 |:P.0:.52100:.2,.|
000005A0: 28 4E 52 29 3A 98 32 2C C4 28 46 53 29 00 B7 0D |(NR):.2,.(FS)...|
000005B0: 42 01 A0 32 20 3A 8E 00 C8 0D 4A 01 A0 31 35 3A |B..2 :....J..15:|
000005C0: 99 20 C7 28 39 29 3A 80 00 EC 0D 54 01 9F 34 2C |. .(9):....T..4,|
000005D0: 38 2C 34 2C 22 4D 45 4E 55 22 3A 8D 35 32 32 32 |8,4,"MENU":.5222|
000005E0: 30 3A 8B 20 44 53 B1 30 20 A7 20 80 00 FA 0D 5E |0:. DS.0 . ....^|
000005F0: 01 93 22 4D 45 4E 55 22 2C 38 00 1F 0E E8 03 99 |.."MENU",8......|
00000600: 20 C7 28 31 34 37 29 20 3A 20 8F 20 2A 2A 2A 20 | .(147) : . *** |
00000610: 42 45 47 49 4E 20 45 4E 54 52 59 20 2A 2A 2A 00 |BEGIN ENTRY ***.|
00000620: 31 0E E9 03 8B 20 50 51 B2 31 20 A7 20 31 30 31 |1.... PQ.1 . 101|
00000630: 30 00 5C 0E EA 03 99 22 D4 48 45 20 44 41 54 41 |0.\....".HE DATA|
00000640: 20 46 49 4C 45 53 20 4D 55 53 54 20 42 45 20 49 | FILES MUST BE I|
00000650: 4E 49 54 49 41 4C 49 5A 45 44 2E 22 00 93 0E EB |NITIALIZED."....|
00000660: 03 99 22 D0 4C 45 41 53 45 20 53 45 4C 45 43 54 |..".LEASE SELECT|
00000670: 20 54 48 45 20 46 49 4C 45 20 50 52 45 50 41 52 | THE FILE PREPAR|
00000680: 41 54 49 4F 4E 20 20 20 20 20 20 4F 50 54 49 4F |ATION OPTIO|
00000690: 4E 2E 22 00 C4 0E ED 03 99 C8 28 59 24 2C 32 34 |N.".......(Y$,24|
000006A0: 29 22 D0 4C 45 41 53 45 20 50 52 45 53 53 20 12 |)".LEASE PRESS .|
000006B0: D2 C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 49 |....... TO CONTI|
000006C0: 4E 55 45 22 00 E2 0E EE 03 A1 20 41 41 24 3A 8B |NUE"...... AA$:.|
000006D0: 20 41 41 24 B3 B1 C7 28 31 33 29 20 A7 20 31 30 | AA$...(13) . 10|
000006E0: 30 36 00 EB 0E EF 03 89 20 39 30 00 06 0F 06 04 |06...... 90.....|
000006F0: 99 3A 99 22 D9 4F 55 52 20 46 49 4C 45 20 49 53 |.:.".OUR FILE IS|
00000700: 20 46 55 4C 4C 22 00 2A 0F 0B 04 99 3A 99 22 D0 | FULL".*....:.".|
00000710: 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 54 4F |RESS ........ TO|
00000720: 20 43 4F 4E 54 49 4E 55 45 22 00 48 0F 10 04 A1 | CONTINUE".H....|
00000730: 20 41 41 24 3A 8B 20 41 41 24 B3 B1 C7 28 31 33 | AA$:. AA$...(13|
00000740: 29 20 A7 20 31 30 34 30 00 51 0F 15 04 89 20 39 |) . 1040.Q.... 9|
00000750: 30 00 70 0F 1A 04 81 49 B2 31 20 A4 20 4E 46 3A |0.p....I.1 . NF:|
00000760: 53 44 24 B2 C8 28 44 54 24 2C 4C 25 28 49 29 29 |SD$..(DT$,L%(I))|
00000770: 00 8E 0F 1D 04 8B 54 24 28 49 29 B2 22 44 22 A7 |......T$(I)."D".|
00000780: 53 44 24 B2 22 2E 2E 2F 2E 2E 2F 2E 2E 22 00 B2 |SD$."../../.."..|
00000790: 0F 20 04 99 C8 28 59 24 2C 59 25 28 49 29 29 3B |. ...(Y$,Y%(I));|
000007A0: A3 58 25 28 49 29 29 3B 50 52 24 28 49 29 3B 53 |.X%(I));PR$(I);S|
000007B0: 44 24 00 BA 0F 24 04 82 20 49 00 CA 0F 25 04 8B |D$...$.. I...%..|
000007C0: 4E 54 B2 B3 30 A7 31 30 36 35 00 D9 0F 26 04 81 |NT..0.1065...&..|
000007D0: 20 49 B2 31 20 A4 20 4E 54 00 FD 0F 27 04 99 C8 | I.1 . NT...'...|
000007E0: 28 59 24 2C 54 59 25 28 49 29 29 3B A3 54 58 25 |(Y$,TY%(I));.TX%|
000007F0: 28 49 29 AA 31 29 3B 54 50 24 28 49 29 00 05 10 |(I).1);TP$(I)...|
00000800: 28 04 82 20 49 00 0B 10 29 04 8F 00 17 10 38 04 |(.. I...).....8.|
00000810: 46 43 B2 46 43 AA 31 00 29 10 74 04 99 C8 28 59 |FC.FC.1.).t...(Y|
00000820: 24 2C 32 33 29 3B 53 50 24 00 3C 10 88 04 99 C8 |$,23);SP$.<.....|
00000830: 28 59 24 2C 32 34 29 3B 53 50 24 3B 00 75 10 92 |(Y$,24);SP$;.u..|
00000840: 04 99 C8 28 59 24 2C 32 34 29 3B 22 C9 53 20 54 |...(Y$,24);".S T|
00000850: 48 49 53 20 41 4C 4C 20 43 4F 52 52 45 43 54 3F |HIS ALL CORRECT?|
00000860: 20 28 20 12 D2 C5 D4 D5 D2 CE 92 20 3D 20 59 45 | ( ........ = YE|
00000870: 53 20 29 22 3B 00 A6 10 9C 04 58 25 B2 33 38 3A |S )";.....X%.38:|
00000880: 59 25 B2 32 34 3A 4C 25 B2 31 3A 8D 20 33 34 30 |Y%.24:L%.1:. 340|
00000890: 30 30 3A 99 C8 28 59 24 2C 32 33 29 3B 53 50 24 |00:..(Y$,23);SP$|
000008A0: 3A 99 53 50 24 3B 00 BA 10 AB 04 8B 20 49 4E 24 |:.SP$;...... IN$|
000008B0: B3 B1 22 4E 22 A7 31 31 37 30 00 E6 10 C4 04 8B |.."N".1170......|
000008C0: 20 49 4E 24 B2 22 4C 49 53 54 22 20 A7 20 46 B2 | IN$."LIST" . F.|
000008D0: 31 3A 8D 32 30 30 30 30 3A 8D 32 31 30 30 30 3A |1:.20000:.21000:|
000008E0: 89 20 31 32 30 30 00 F8 10 D8 04 99 C8 28 59 24 |. 1200.......(Y$|
000008F0: 2C 32 33 29 3B 53 50 24 00 25 11 10 27 8F 20 2A |,23);SP$.%..'. *|
00000900: 2A 2A 20 42 45 47 49 4E 20 54 48 45 20 46 49 4C |** BEGIN THE FIL|
00000910: 45 20 4C 4F 4F 4B 20 55 50 20 52 4F 55 54 49 4E |E LOOK UP ROUTIN|
00000920: 45 20 2A 2A 2A 00 2F 11 15 27 99 20 22 93 22 00 |E ***./..'. ".".|
00000930: 54 11 1A 27 8D 20 32 37 30 30 30 3A 8F 20 54 52 |T..'. 27000:. TR|
00000940: 59 20 54 4F 20 46 49 4E 44 20 54 48 45 20 52 45 |Y TO FIND THE RE|
00000950: 43 4F 52 44 00 63 11 24 27 8B 20 4C 45 25 20 A7 |CORD.c.$'. LE% .|
00000960: 20 39 30 00 9B 11 D7 27 8F 20 2A 2A 2A 20 55 4E | 90....'. *** UN|
00000970: 50 41 43 4B 20 54 48 45 20 46 49 45 4C 44 53 20 |PACK THE FIELDS |
00000980: 49 4E 20 54 48 45 20 46 49 4C 45 20 46 4F 52 20 |IN THE FILE FOR |
00000990: 44 49 53 50 4C 41 59 20 2A 2A 2A 00 C8 11 2F 2A |DISPLAY ***.../*|
000009A0: 8F 20 2A 2A 2A 20 44 49 53 50 4C 41 59 20 52 45 |. *** DISPLAY RE|
000009B0: 43 4F 52 44 20 49 46 20 4D 41 54 43 48 20 4F 4E |CORD IF MATCH ON|
000009C0: 20 4B 45 59 20 2A 2A 2A 00 D4 11 30 2A 8D 20 32 | KEY ***...0*. 2|
000009D0: 39 30 30 30 00 DD 11 6C 2A 89 20 39 30 00 E6 11 |9000...l*. 90...|
000009E0: 94 2A 89 20 39 30 00 12 12 F8 2A 8F 20 2A 2A 2A |.*. 90....*. ***|
000009F0: 20 42 45 47 49 4E 20 54 48 45 20 46 49 4C 45 20 | BEGIN THE FILE |
00000A00: 55 50 44 41 54 45 20 52 4F 55 54 49 4E 45 20 2A |UPDATE ROUTINE *|
00000A10: 2A 2A 00 24 12 FD 2A 99 20 22 93 22 3A 8D 20 31 |**.$..*. ".":. 1|
00000A20: 32 30 31 30 00 33 12 02 2B 8B 20 4C 45 25 20 A7 |2010.3..+. LE% .|
00000A30: 20 39 30 00 5D 12 18 2E 41 4E 24 20 B2 20 22 53 | 90.]...AN$ . "S|
00000A40: 22 3A 20 81 20 49 B2 31 20 A4 20 4E 46 3A 47 24 |": . I.1 . NF:G$|
00000A50: 28 49 29 B2 46 24 28 49 29 3A 82 20 49 00 73 12 |(I).F$(I):. I.s.|
00000A60: 22 2E 8D 20 32 38 30 30 30 20 3A 20 8D 20 32 39 |".. 28000 : . 29|
00000A70: 30 30 30 00 9B 12 24 2E 99 C8 28 59 24 2C 32 33 |000...$...(Y$,23|
00000A80: 29 3B 22 D7 48 49 43 48 20 46 49 45 4C 44 20 54 |);".HICH FIELD T|
00000A90: 4F 20 55 50 44 41 54 45 3F 22 3B 00 B7 12 29 2E |O UPDATE?";...).|
00000AA0: 99 20 22 3A 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 |. ":........ TO |
00000AB0: 53 41 56 45 29 22 3B 00 DE 12 2C 2E 58 25 B2 20 |SAVE)";...,.X%. |
00000AC0: 33 35 20 3A 59 25 B2 32 34 3A 4C 25 B2 34 3A 41 |35 :Y%.24:L%.4:A|
00000AD0: 4E 24 B2 22 45 22 3A 8D 20 33 34 30 30 30 00 04 |N$."E":. 34000..|
00000AE0: 13 2F 2E 55 46 B2 C5 28 49 4E 24 29 3A 41 4E 24 |./.UF..(IN$):AN$|
00000AF0: B2 22 53 22 3A 8B 20 49 4E 24 B2 22 22 A7 20 31 |."S":. IN$."". 1|
00000B00: 31 38 38 36 00 1E 13 30 2E 8B 20 49 4E 24 B3 B1 |1886...0.. IN$..|
00000B10: C7 28 31 33 33 29 20 A7 20 31 31 38 32 38 00 3A |.(133) . 11828.:|
00000B20: 13 31 2E 8F 20 2A 2A 2A 20 43 4C 45 41 52 20 43 |.1.. *** CLEAR C|
00000B30: 48 41 4E 47 45 53 20 2A 2A 2A 00 46 13 32 2E 89 |HANGES ***.F.2..|
00000B40: 20 31 31 38 30 30 00 62 13 33 2E 8F 20 2A 2A 2A | 11800.b.3.. ***|
00000B50: 20 4C 49 53 54 20 20 46 49 45 4C 44 53 20 20 2A | LIST FIELDS *|
00000B60: 2A 2A 00 8A 13 34 2E 8B 20 49 4E 24 B2 22 4C 49 |**...4.. IN$."LI|
00000B70: 53 54 22 A7 20 46 B2 30 20 3A 20 8D 20 32 30 30 |ST". F.0 : . 200|
00000B80: 30 30 3A 89 20 31 31 38 31 30 00 AB 13 35 2E 8F |00:. 11810...5..|
00000B90: 20 2A 2A 2A 20 54 45 53 54 20 31 20 3C 3D 20 55 | *** TEST 1 <= U|
00000BA0: 46 20 3C 3D 20 4E 46 20 2A 2A 2A 00 C8 13 36 2E |F <= NF ***...6.|
00000BB0: 8B 20 55 46 B1 30 20 AF 20 55 46 20 B3 B2 4E 46 |. UF.0 . UF ..NF|
00000BC0: 20 A7 20 31 31 38 35 30 00 EE 13 40 2E 99 20 C8 | . 11850...@.. .|
00000BD0: 28 59 24 2C 32 33 29 3B 22 C9 4E 56 41 4C 49 44 |(Y$,23);".NVALID|
00000BE0: 20 46 49 45 4C 44 22 3A 89 31 31 38 31 32 00 09 | FIELD":.11812..|
00000BF0: 14 4A 2E 8F 20 2A 2A 2A 20 43 48 41 4E 47 45 20 |.J.. *** CHANGE |
00000C00: 46 49 45 4C 44 20 2A 2A 2A 00 35 14 4C 2E 53 44 |FIELD ***.5.L.SD|
00000C10: 24 B2 C8 28 44 54 24 2C 4C 25 28 55 46 29 29 3A |$..(DT$,L%(UF)):|
00000C20: 8B 20 54 24 28 55 46 29 B3 B1 22 24 22 20 A7 20 |. T$(UF).."$" . |
00000C30: 31 31 38 35 35 00 57 14 4F 2E 8B 20 54 24 28 55 |11855.W.O.. T$(U|
00000C40: 46 29 B2 22 44 22 20 A7 20 53 44 24 B2 22 2E 2E |F)."D" . SD$."..|
00000C50: 2F 2E 2E 2F 2E 2E 22 00 7E 14 51 2E 99 C8 28 59 |/../..".~.Q...(Y|
00000C60: 24 2C 59 25 28 55 46 29 29 3B A3 58 25 28 55 46 |$,Y%(UF));.X%(UF|
00000C70: 29 29 3B 50 52 24 28 55 46 29 3B 53 44 24 00 9B |));PR$(UF);SD$..|
00000C80: 14 54 2E 8B 20 55 46 B3 B2 20 30 20 B0 20 55 46 |.T.. UF.. 0 . UF|
00000C90: B1 20 35 20 A7 20 31 31 38 36 34 00 C7 14 56 2E |. 5 . 11864...V.|
00000CA0: 91 20 55 46 AB 20 30 20 8D 20 20 32 30 31 30 2C |. UF. 0 . 2010,|
00000CB0: 20 32 30 35 30 2C 20 32 31 32 30 2C 20 32 31 37 | 2050, 2120, 217|
00000CC0: 30 2C 20 32 32 35 30 00 D3 14 58 2E 89 20 31 31 |0, 2250...X.. 11|
00000CD0: 38 31 30 00 EB 14 6E 2E 5A 5A 24 B2 47 24 28 20 |810...n.ZZ$.G$( |
00000CE0: 35 20 29 3A 8D 20 32 36 30 30 30 00 F7 14 70 2E |5 ):. 26000...p.|
00000CF0: 8D 20 20 32 34 32 30 00 12 15 7C 2E 8F 20 2A 2A |. 2420...|.. **|
00000D00: 2A 20 42 45 47 49 4E 20 4F 55 54 50 55 54 20 2A |* BEGIN OUTPUT *|
00000D10: 2A 2A 00 1E 15 D6 2E 8D 20 34 32 30 30 30 00 27 |**...... 42000.'|
00000D20: 15 DA 2E 89 20 39 30 00 55 15 E0 2E 8F 20 2A 2A |.... 90.U.... **|
00000D30: 2A 20 42 45 47 49 4E 20 54 48 45 20 52 45 43 4F |* BEGIN THE RECO|
00000D40: 52 44 20 44 45 4C 45 54 45 20 52 4F 55 54 49 4E |RD DELETE ROUTIN|
00000D50: 45 20 2A 2A 2A 00 6C 15 E5 2E 99 20 22 93 22 3A |E ***.l.... ".":|
00000D60: 8D 20 31 32 30 31 30 3A 89 20 39 30 00 91 15 EA |. 12010:. 90....|
00000D70: 2E 8D 20 32 37 30 30 30 3A 8F 20 54 52 59 20 54 |.. 27000:. TRY T|
00000D80: 4F 20 46 49 4E 44 20 54 48 45 20 52 45 43 4F 52 |O FIND THE RECOR|
00000D90: 44 00 9F 15 F4 2E 8B 20 4C 45 25 20 A7 20 8E 00 |D...... LE% . ..|
00000DA0: CC 15 FF 31 8F 20 2A 2A 2A 20 44 49 53 50 4C 41 |...1. *** DISPLA|
00000DB0: 59 20 52 45 43 4F 52 44 20 49 46 20 4D 41 54 43 |Y RECORD IF MATC|
00000DC0: 48 20 4F 4E 20 4B 45 59 20 2A 2A 2A 00 E4 15 00 |H ON KEY ***....|
00000DD0: 32 8D 20 32 39 30 30 30 20 3A 20 8B 20 4C 45 25 |2. 29000 : . LE%|
00000DE0: 20 A7 20 8E 00 FB 15 01 32 8B 20 41 4E 24 B3 B1 | . .....2. AN$..|
00000DF0: 22 44 22 20 A7 20 31 32 39 31 30 00 2C 16 64 32 |"D" . 12910.,.d2|
00000E00: 8F 20 2A 2A 2A 20 44 45 4C 45 54 45 20 43 4F 44 |. *** DELETE COD|
00000E10: 45 20 57 52 49 54 54 45 4E 20 54 4F 20 46 49 52 |E WRITTEN TO FIR|
00000E20: 53 54 20 46 49 45 4C 44 20 2A 2A 2A 00 3F 16 65 |ST FIELD ***.?.e|
00000E30: 32 99 C8 28 59 24 2C 32 34 29 3B 53 50 24 3B 00 |2..(Y$,24);SP$;.|
00000E40: 7B 16 66 32 99 C8 28 59 24 2C 32 34 29 3B 22 C1 |{.f2..(Y$,24);".|
00000E50: 52 45 20 59 4F 55 20 53 55 52 45 3F 20 28 59 2F |RE YOU SURE? (Y/|
00000E60: 4E 29 22 3A 59 25 B2 32 34 3A 58 25 B2 32 31 3A |N)":Y%.24:X%.21:|
00000E70: 4C 25 B2 31 3A 8D 33 34 30 30 30 00 9B 16 67 32 |L%.1:.34000...g2|
00000E80: 8B 20 49 4E 24 B3 B1 22 59 22 AF 20 49 4E 24 B3 |. IN$.."Y". IN$.|
00000E90: B1 22 4E 22 A7 20 31 32 39 30 31 00 B0 16 68 32 |."N". 12901...h2|
00000EA0: 8B 20 49 4E 24 B2 22 59 22 A7 20 31 32 39 31 30 |. IN$."Y". 12910|
00000EB0: 00 B6 16 69 32 8E 00 EE 16 6E 32 5A 24 B2 47 24 |...i2....n2Z$.G$|
00000EC0: 28 31 29 3A 47 24 28 31 29 B2 C8 28 C7 28 32 35 |(1):G$(1)..(.(25|
00000ED0: 35 29 AA 53 53 24 2C 4C 25 28 31 29 29 3A 8D 20 |5).SS$,L%(1)):. |
00000EE0: 34 32 30 30 30 3A 47 24 28 31 29 B2 5A 24 00 0D |42000:G$(1).Z$..|
00000EF0: 17 7D 32 41 31 B2 52 50 3A 8D 35 32 31 30 30 3A |.}2A1.RP:.52100:|
00000F00: 98 32 2C C4 28 AB 49 4B 29 3A 20 A0 32 00 1B 17 |.2,.(.IK): .2...|
00000F10: 82 32 4E 52 B2 4E 52 AB 31 3A 8E 00 55 17 C7 32 |.2NR.NR.1:..U..2|
00000F20: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 47 4C 4F 42 |.***********GLOB|
00000F30: 41 4C 20 54 4F 54 41 4C 20 49 4E 50 55 54 20 52 |AL TOTAL INPUT R|
00000F40: 4F 55 54 49 4E 45 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |OUTINE**********|
00000F50: 2A 2A 2A 2A 2A 00 5B 17 28 33 8F 00 8D 17 29 33 |*****.[.(3....)3|
00000F60: 8F 2A 2A 2A 2A 2A 2A 47 4C 4F 42 41 4C 20 54 4F |.******GLOBAL TO|
00000F70: 54 41 4C 20 55 50 44 41 54 45 20 52 4F 55 54 49 |TAL UPDATE ROUTI|
00000F80: 4E 45 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B6 17 |NE***********...|
00000F90: 2A 33 8F 20 57 39 20 49 53 20 54 48 45 20 44 41 |*3. W9 IS THE DA|
00000FA0: 54 41 20 46 49 4C 45 27 53 20 46 49 45 4C 44 20 |TA FILE'S FIELD |
00000FB0: 4E 55 4D 42 45 52 00 F1 17 2B 33 8F 20 49 4A 20 |NUMBER...+3. IJ |
00000FC0: 49 53 20 46 49 45 4C 44 20 4E 55 4D 42 45 52 20 |IS FIELD NUMBER |
00000FD0: 4F 46 20 54 48 45 20 43 4F 52 52 45 53 50 4F 4E |OF THE CORRESPON|
00000FE0: 44 49 4E 47 20 47 4C 4F 42 41 4C 20 54 4F 54 41 |DING GLOBAL TOTA|
00000FF0: 4C 00 F7 17 8E 33 8F 00 2F 18 8F 33 8F 2A 2A 2A |L....3../..3.***|
00001000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 56 45 52 49 46 59 20 |*********VERIFY |
00001010: 41 4C 4C 20 47 4C 4F 42 41 4C 20 56 41 52 49 41 |ALL GLOBAL VARIA|
00001020: 42 4C 45 53 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |BLES***********.|
00001030: 6A 18 90 33 8F 20 47 45 4E 45 52 41 54 4F 52 20 |j..3. GENERATOR |
00001040: 57 49 4C 4C 20 4B 4E 4F 57 20 57 48 49 43 48 20 |WILL KNOW WHICH |
00001050: 54 4F 54 41 4C 53 20 41 52 45 20 54 48 45 20 47 |TOTALS ARE THE G|
00001060: 4C 4F 42 41 4C 20 4F 4E 45 53 00 70 18 94 34 8F |LOBAL ONES.p..4.|
00001070: 00 91 18 1F 4E 8F 20 2A 2A 2A 20 4C 49 53 54 20 |....N. *** LIST |
00001080: 46 49 45 4C 44 20 4E 55 4D 42 45 52 53 20 2A 2A |FIELD NUMBERS **|
00001090: 2A 00 C1 18 20 4E 99 22 93 CB 45 59 42 4F 41 52 |*... N."..EYBOAR|
000010A0: 44 2D 45 4E 54 45 52 45 44 20 46 49 45 4C 44 53 |D-ENTERED FIELDS|
000010B0: 3A 22 3A 81 20 4A B2 31 20 A4 20 4E 46 20 A9 20 |:":. J.1 . NF . |
000010C0: 32 00 D6 18 2A 4E 99 20 4A 3B 22 2D 20 22 2C 50 |2...*N. J;"- ",P|
000010D0: 52 24 28 4A 29 3B 00 FB 18 34 4E 8B 4A B3 4E 46 |R$(J);...4N.J.NF|
000010E0: 20 A7 20 99 A3 31 39 29 3B 4A AA 31 3B 22 2D 20 | . ..19);J.1;"- |
000010F0: 22 3B 50 52 24 28 4A AA 31 29 3B 00 07 19 3E 4E |";PR$(J.1);...>N|
00001100: 99 20 3A 20 82 20 4A 00 34 19 6E 50 99 20 C8 28 |. : . J.4.nP. .(|
00001110: 59 24 2C 32 34 29 3B 22 D0 52 45 53 53 20 12 D2 |Y$,24);".RESS ..|
00001120: C5 D4 D5 D2 CE 92 20 54 4F 20 43 4F 4E 54 49 4E |...... TO CONTIN|
00001130: 55 45 22 3B 00 55 19 78 50 A1 20 41 41 24 20 3A |UE";.U.xP. AA$ :|
00001140: 20 8B 20 41 41 24 B3 B1 C7 28 31 33 29 20 A7 20 | . AA$...(13) . |
00001150: 32 30 36 30 30 00 65 19 82 50 99 C7 28 31 34 37 |20600.e..P..(147|
00001160: 29 20 3A 20 8E 00 90 19 07 52 8F 20 2A 2A 2A 20 |) : .....R. *** |
00001170: 44 49 53 50 4C 41 59 20 4E 45 57 4C 59 2D 45 4E |DISPLAY NEWLY-EN|
00001180: 54 45 52 45 44 20 52 45 43 4F 52 44 20 2A 2A 2A |TERED RECORD ***|
00001190: 00 BE 19 08 52 81 20 49 B2 31 20 A4 20 4E 46 3A |....R. I.1 . NF:|
000011A0: 8B 54 24 28 49 29 B3 B1 22 44 22 A7 20 53 44 24 |.T$(I).."D". SD$|
000011B0: B2 47 24 28 49 29 3A 89 20 32 31 30 32 30 00 F1 |.G$(I):. 21020..|
000011C0: 19 12 52 53 44 24 B2 C8 28 47 24 28 49 29 2C 32 |..RSD$..(G$(I),2|
000011D0: 29 AA 22 2F 22 AA CA 28 47 24 28 49 29 2C 33 2C |)."/"..(G$(I),3,|
000011E0: 32 29 AA 22 2F 22 AA C9 28 47 24 28 49 29 2C 32 |2)."/"..(G$(I),2|
000011F0: 29 00 19 1A 1C 52 99 C8 28 59 24 2C 59 25 28 49 |)....R..(Y$,Y%(I|
00001200: 29 29 3B A3 58 25 28 49 29 29 3B 50 52 24 28 49 |));.X%(I));PR$(I|
00001210: 29 3B 53 44 24 3A 82 20 49 00 35 1A 26 52 81 49 |);SD$:. I.5.&R.I|
00001220: B2 31 A4 4E 43 3A 8B 43 53 25 28 49 29 B2 30 A7 |.1.NC:.CS%(I).0.|
00001230: 32 31 30 36 30 00 46 1A 30 52 53 44 24 B2 C4 28 |21060.F.0RSD$..(|
00001240: 43 44 28 49 29 29 00 6D 1A 3A 52 99 C8 28 59 24 |CD(I)).m.:R..(Y$|
00001250: 2C 43 59 25 28 49 29 29 3B A3 43 58 25 28 49 29 |,CY%(I));.CX%(I)|
00001260: 29 3B 43 50 24 28 49 29 3B 53 44 24 3B 00 74 1A |);CP$(I);SD$;.t.|
00001270: 44 52 82 49 00 83 1A 46 52 81 20 49 B2 31 20 A4 |DR.I...FR. I.1 .|
00001280: 20 4E 54 00 A6 1A 48 52 99 20 C8 28 59 24 2C 54 | NT...HR. .(Y$,T|
00001290: 59 25 28 49 29 29 A3 54 58 25 28 49 29 AA 31 29 |Y%(I)).TX%(I).1)|
000012A0: 54 50 24 28 49 29 00 AE 1A 4A 52 82 20 49 00 B4 |TP$(I)...JR. I..|
000012B0: 1A 4E 52 8E 00 DF 1A 8F 65 8F 20 2A 2A 2A 20 48 |.NR.....e. *** H|
000012C0: 41 53 48 49 4E 47 20 41 4C 47 4F 52 49 54 48 4D |ASHING ALGORITHM|
000012D0: 20 53 55 42 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 | SUBROUTINE ***.|
000012E0: F3 1A 90 65 81 20 5A 5A B2 31 20 A4 20 C3 28 5A |...e. ZZ.1 . .(Z|
000012F0: 5A 24 29 00 0D 1B 9A 65 58 B2 58 AA 5A 5A AC C6 |Z$)....eX.X.ZZ..|
00001300: 28 CA 28 5A 5A 24 2C 5A 5A 2C 31 29 29 00 16 1B |(.(ZZ$,ZZ,1))...|
00001310: A4 65 82 20 5A 5A 00 3D 1B AE 65 58 B2 BC 28 58 |.e. ZZ.=..eX..(X|
00001320: 29 3A 58 24 B2 C4 28 58 29 3A 52 50 B2 C5 28 CA |):X$..(X):RP..(.|
00001330: 28 58 24 2C 35 2C 34 29 29 3A 58 B2 30 00 43 1B |(X$,5,4)):X.0.C.|
00001340: C2 65 8E 00 6C 1B 77 69 8F 20 2A 2A 2A 20 4C 4F |.e..l.wi. *** LO|
00001350: 4F 4B 20 46 4F 52 20 52 45 43 4F 52 44 20 53 55 |OK FOR RECORD SU|
00001360: 42 52 4F 55 54 49 4E 45 20 2A 2A 2A 00 A0 1B 8C |BROUTINE ***....|
00001370: 69 99 C8 28 59 24 2C 32 34 29 3B 22 D0 4C 45 41 |i..(Y$,24);".LEA|
00001380: 53 45 20 45 4E 54 45 52 20 4B 45 59 20 4F 46 20 |SE ENTER KEY OF |
00001390: 44 45 53 49 52 45 44 20 52 45 43 4F 52 44 2E 22 |DESIRED RECORD."|
000013A0: 00 C6 1B A0 69 8F 20 57 45 20 48 41 56 45 20 4E |....i. WE HAVE N|
000013B0: 4F 57 20 49 4E 50 55 54 20 54 48 45 20 4B 45 59 |OW INPUT THE KEY|
000013C0: 20 46 49 45 4C 44 00 E5 1B AA 69 5A 5A 24 B2 4B | FIELD....iZZ$.K|
000013D0: 46 24 3A 8D 20 32 36 30 30 30 3A 52 46 B2 30 3A |F$:. 26000:RF.0:|
000013E0: 4C 45 25 B2 30 00 16 1C BE 69 41 31 B2 52 50 3A |LE%.0....iA1.RP:|
000013F0: 8D 35 32 31 30 30 3A 84 32 2C 49 4B 24 3A A0 32 |.52100:.2,IK$:.2|
00001400: 3A 49 4B B2 C5 28 49 4B 24 29 3A 8B 49 4B B2 30 |:IK..(IK$):.IK.0|
00001410: A7 32 37 31 32 35 00 29 1C C8 69 8B 20 49 4B B3 |.27125.)..i. IK.|
00001420: 30 20 A7 20 32 37 30 36 30 00 35 1C D2 69 8D 20 |0 . 27060.5..i. |
00001430: 34 30 30 30 30 00 56 1C E6 69 8F 20 4E 4F 20 4D |40000.V..i. NO M|
00001440: 41 54 43 48 20 2D 20 54 52 59 20 4E 45 58 54 20 |ATCH - TRY NEXT |
00001450: 52 45 43 4F 52 44 00 69 1C F5 69 99 C8 28 59 24 |RECORD.i..i..(Y$|
00001460: 2C 32 34 29 3B 53 50 24 3B 00 A2 1C FA 69 99 C8 |,24);SP$;....i..|
00001470: 28 59 24 2C 32 33 29 22 D2 45 43 4F 52 44 20 4E |(Y$,23)".ECORD N|
00001480: 4F 54 20 46 4F 55 4E 44 20 2D 20 D4 59 50 45 20 |OT FOUND - .YPE |
00001490: 12 D2 C5 D4 D5 D2 CE 92 20 54 4F 20 45 58 49 54 |........ TO EXIT|
000014A0: 2E 22 00 C1 1C 04 6A A1 20 41 41 24 3A 8B 20 41 |."....j. AA$:. A|
000014B0: 41 24 B3 B1 C7 28 31 33 29 20 A7 20 32 37 31 34 |A$...(13) . 2714|
000014C0: 30 00 D0 1C 0E 6A 4C 45 25 B2 AB 31 20 3A 20 8E |0....jLE%..1 : .|
000014D0: 00 F8 1C 5F 6D 8F 4D B7 4D B7 4D B7 4D B7 4D B7 |..._m.M.M.M.M.M.|
000014E0: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
000014F0: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
00001500: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
00001510: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
00001520: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
00001530: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
00001540: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
00001550: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
00001560: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
00001570: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
00001580: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
00001590: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
000015A0: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
000015B0: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
000015C0: 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 4D B7 |M.M.M.M.M.M.M.M.|
000015D0: 4D B7 4D B7 |M.M. |
.. .... 45,082:. 46,066:.:.49999.5....:.
52210:. 33000.Y...Y$."..................
........".~...SS$."":.I.1.80:SS$.SS$.G(1
60):.I.....SP$."":.I.1.39:SP$.SP$.G(32):
. I.H...DT$."":.I.1.39:DT$.DT$.G(46):. I
.S....G(14).Y.#.....%.. F$(NF),G$(NF),DT
%(12),GS%(NF.NC)...4.. I.1.12:DT%(I).31:
.I.Q.6.DT%(2).29:DT%(4).30:DT%(6).30:DT%
(9).30:DT%(11).30.Z.H.PQ.0.M.I.. FS..0 .
PQ.1...J.. FS..1 . FS.0...Z.. I.1 . NF:
G$(I)."":F$(I)."":. I:FC.0:UF.0...[..318
..._.G$."":.G(147);G(8):.I.1.NC:CE(I).0:
CD(I).0:.I...X..:.:. : . ^^^^^^^^^^^^^^^
^^^^^^^^^^^^^^^^^^^^^.O.....1);"FILE PRE
PARATION (FIRST TIME ONLY!). F".U.......
....1);"ENTER DATA .....................
.... E"... ...1);"UPDATE DATA ..........
.............. U".......1);"LOOK UP RECO
RD ..................... L".......1);"SE
ARCH RECORDS...................... S".O.
....1);"DELETE RECORD ..................
.... D"...C...1);"VERIFY GLOBAL TOTALS .
.............. V"...E...1)"SET DISPLAY C
OLOURS ................ Z"...H.....R...1
);"EXIT ...(AFTER EACH SESSION)........
X"...W.. H(Y$,21);.(...."ENTER YOUR CHOI
CE THEN PRESS .RETURN.";.Y....H(Y$,23)"T
O RETURN TO THE MENU PRESS .F1. ".L...C3
.B(56128).15.....X%.38:Y%.21:L%.1:. 3400
0:AN$.IN$:FF$.IN$...... AN$."E". 1000.C.
... AN$."Z" . 53000.X.... AN$."L". 10000
...... AN$."S". 35000...... AN$."U". 110
00...".. AN$."D". 12000.,.,.. AN$."F". 3
2000.A.1.. AN$."V". 13200.T.6.. AN$.."X"
. 90.B.;..318:.330...?.. PQ.1 . FS.0 . A
N$.."F" . FS..1...@.A1.1:P.0:.52100:.2,D
(NR):.2,D(FS)...B. 2 :..H.J. 15:. G(9):.
...T..4,8,4,"MENU":.52220:. DS.0 . ....^
.."MENU",8...... G(147) : . *** BEGIN EN
TRY ***.1.... PQ.1 . 1010.\...."THE DATA
FILES MUST BE INITIALIZED."......"PLEAS
E SELECT THE FILE PREPARATION OPTIO
N.".D....H(Y$,24)"PLEASE PRESS .RETURN.
TO CONTINUE"...... AA$:. AA$..G(13) . 10
06...... 90......:."YOUR FILE IS FULL".*
....:."PRESS .RETURN. TO CONTINUE".H....
AA$:. AA$..G(13) . 1040.Q.... 90.P....I
.1 . NF:SD$.H(DT$,L%(I))......T$(I)."D".
SD$."../../.."... ..H(Y$,Y%(I));.X%(I));
PR$(I);SD$...$.. I.J.%..NT..0.1065.Y.&..
I.1 . NT...'..H(Y$,TY%(I));.TX%(I).1);T
P$(I)...(.. I...).....8.FC.FC.1.).T..H(Y
$,23);SP$.<....H(Y$,24);SP$;.U....H(Y$,2
4);"IS THIS ALL CORRECT? ( .RETURN. = YE
S )";.....X%.38:Y%.24:L%.1:. 34000:.H(Y$
,23);SP$:.SP$;...... IN$.."N".1170...D..
IN$."LIST" . F.1:.20000:.21000:. 1200..
.X..H(Y$,23);SP$.%..'. *** BEGIN THE FIL
E LOOK UP ROUTINE ***./..'. ".".T..'. 27
000:. TRY TO FIND THE RECORD.C.$'. LE% .
90...W'. *** UNPACK THE FIELDS IN THE F
ILE FOR DISPLAY ***.H./*. *** DISPLAY RE
CORD IF MATCH ON KEY ***.T.0*. 29000...L
*. 90....*. 90....*. *** BEGIN THE FILE
UPDATE ROUTINE ***.$..*. ".":. 12010.3..
+. LE% . 90.]...AN$ . "S": . I.1 . NF:G$
(I).F$(I):. I.S.".. 28000 : . 29000...$.
.H(Y$,23);"WHICH FIELD TO UPDATE?";...).
. ":.RETURN. TO SAVE)";...,.X%. 35 :Y%.2
4:L%.4:AN$."E":. 34000.../.UF.E(IN$):AN$
."S":. IN$."". 11886...0.. IN$..G(133) .
11828.:.1.. *** CLEAR CHANGES ***.F.2..
11800.B.3.. *** LIST FIELDS ***...4..
IN$."LIST". F.0 : . 20000:. 11810...5..
*** TEST 1 <= UF <= NF ***.H.6.. UF.0 .
UF ..NF . 11850...@.. H(Y$,23);"INVALID
FIELD":.11812...J.. *** CHANGE FIELD **
*.5.L.SD$.H(DT$,L%(UF)):. T$(UF).."$" .
11855.W.O.. T$(UF)."D" . SD$."../../..".
~.Q..H(Y$,Y%(UF));.X%(UF));PR$(UF);SD$..
.T.. UF.. 0 . UF. 5 . 11864.G.V.. UF. 0
. 2010, 2050, 2120, 2170, 2250.S.X.. 11
810...N.ZZ$.G$( 5 ):. 26000...P.. 2420.
..|.. *** BEGIN OUTPUT ***...V.. 42000.'
.Z.. 90.U.... *** BEGIN THE RECORD DELET
E ROUTINE ***.L.... ".":. 12010:. 90....
.. 27000:. TRY TO FIND THE RECORD......
LE% . ..L..1. *** DISPLAY RECORD IF MATC
H ON KEY ***....2. 29000 : . LE% . .....
2. AN$.."D" . 12910.,.D2. *** DELETE COD
E WRITTEN TO FIRST FIELD ***.?.E2.H(Y$,2
4);SP$;.{.F2.H(Y$,24);"ARE YOU SURE? (Y/
N)":Y%.24:X%.21:L%.1:.34000...G2. IN$.."
Y". IN$.."N". 12901...H2. IN$."Y". 12910
...I2....N2Z$.G$(1):G$(1).H(G(255).SS$,L
%(1)):. 42000:G$(1).Z$...}2A1.RP:.52100:
.2,D(.IK): 2....2NR.NR.1:..U.G2.*******
****GLOBAL TOTAL INPUT ROUTINE**********
*****.[.(3....)3.******GLOBAL TOTAL UPDA
TE ROUTINE***********...*3. W9 IS THE DA
TA FILE'S FIELD NUMBER...+3. IJ IS FIELD
NUMBER OF THE CORRESPONDING GLOBAL TOTA
L....3../..3.************VERIFY ALL GLOB
AL VARIABLES***********.J..3. GENERATOR
WILL KNOW WHICH TOTALS ARE THE GLOBAL ON
ES.P..4.....N. *** LIST FIELD NUMBERS **
*.A. N.".KEYBOARD-ENTERED FIELDS:":. J.1
. NF . 2.V.*N. J;"- ",PR$(J);...4N.J.NF
. ..19);J.1;"- ";PR$(J.1);...>N. : . J.
4.NP. H(Y$,24);"PRESS .RETURN. TO CONTIN
UE";.U.XP. AA$ : . AA$..G(13) . 20600.E.
.P.G(147) : .....R. *** DISPLAY NEWLY-EN
TERED RECORD ***....R. I.1 . NF:.T$(I)..
"D". SD$.G$(I):. 21020....RSD$.H(G$(I),2
)."/".J(G$(I),3,2)."/".I(G$(I),2)....R.H
(Y$,Y%(I));.X%(I));PR$(I);SD$:. I.5.&R.I
.1.NC:.CS%(I).0.21060.F.0RSD$.D(CD(I)).M
.:R.H(Y$,CY%(I));.CX%(I));CP$(I);SD$;.T.
DR.I...FR. I.1 . NT...HR. H(Y$,TY%(I)).T
X%(I).1)TP$(I)...JR. I...NR.....E. *** H
ASHING ALGORITHM SUBROUTINE ***....E. ZZ
.1 . C(ZZ$)....EX.X.ZZ.F(J(ZZ$,ZZ,1))...
.E. ZZ.=..EX..(X):X$.D(X):RP.E(J(X$,5,4)
):X.0.C.BE..L.WI. *** LOOK FOR RECORD SU
BROUTINE ***. ..I.H(Y$,24);"PLEASE ENTER
KEY OF DESIRED RECORD.".F. I. WE HAVE N
OW INPUT THE KEY FIELD....IZZ$.KF$:. 260
00:RF.0:LE%.0....IA1.RP:.52100:.2,IK$: 2
:IK.E(IK$):.IK.0.27125.).HI. IK.0 . 2706
0.5.RI. 40000.V..I. NO MATCH - TRY NEXT
RECORD.I..I.H(Y$,24);SP$;....I.H(Y$,23)"
RECORD NOT FOUND - TYPE .RETURN. TO EXIT
.".A..J. AA$:. AA$..G(13) . 27140.P..JLE
%..1 : ...._M.M.M.M.M.M.M.M.M.M.M.M.M.M.
M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.
M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.
M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.
M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.
M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.M.
M.M.M.M.M.M.M.M.M.M.M.M.M.M.
> CLICK IMAGE PREVIEW FOR FULL MODAL