GTDATA
FILE INFORMATION
FILENAME(S): GTDATA
FILE TYPE(S): PRG
FILE SIZE: 7K
FIRST SEEN: 2025-10-19 22:48:34
APPEARS ON: 1 disk(s)
FILE HASH
2783a816ceacdfaf8c9bcc52ad68f1aaf82a2b7815161870d4d9b12759e60434
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MM UTILITY | GTDATA | PRG | Radd Maxx | 24 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 58 08 00 00 8F 20 43 4F 50 59 52 49 47 48 |..X.... COPYRIGH|
00000010: 54 20 28 43 29 31 39 38 33 20 42 59 20 43 48 41 |T (C)1983 BY CHA|
00000020: 52 4C 45 53 20 44 2E 20 41 52 43 45 4E 45 41 55 |RLES D. ARCENEAU|
00000030: 58 2D 41 4C 4C 20 52 49 47 48 54 53 20 52 45 53 |X-ALL RIGHTS RES|
00000040: 45 52 56 45 44 20 2A 2A 4D 49 43 52 4F 42 41 53 |ERVED **MICROBAS|
00000050: 45 20 56 31 2E 36 2A 2A 00 9A 08 01 00 9C 3A 41 |E V1.6**......:A|
00000060: 24 B2 C7 28 31 33 29 3A 43 24 B2 22 5E 22 3A 52 |$..(13):C$."^":R|
00000070: 24 B2 22 1C 22 3A 42 24 B2 22 1F 22 3A 99 C7 28 |$.".":B$.".":..(|
00000080: 31 34 29 3B 42 24 3A 8B C2 28 34 34 29 B3 B1 31 |14);B$:..(44)..1|
00000090: 38 A7 97 35 33 32 38 31 2C 31 00 B7 08 02 00 86 |8..53281,1......|
000000A0: 4E 24 28 31 31 29 2C 4C 28 31 31 29 2C 53 28 31 |N$(11),L(11),S(1|
000000B0: 31 29 3A 89 31 30 37 00 C0 08 03 00 89 31 33 38 |1):.107......138|
000000C0: 00 CD 08 04 00 9F 34 2C 34 2C 37 3A 8E 00 E2 08 |......4,4,7:....|
000000D0: 05 00 98 34 2C 22 A0 22 3A 4C 4E B2 4C 4E AA 31 |...4,".":LN.LN.1|
000000E0: 3A 8E 00 EF 08 06 00 98 34 2C 51 24 3B 3A 8E 00 |:.......4,Q$;:..|
000000F0: F8 08 07 00 A0 34 3A 8E 00 10 09 08 00 81 49 B2 |.....4:.......I.|
00000100: 30 A4 43 AB 32 3A 81 4B B2 49 AA 31 A4 43 AB 31 |0.C.2:.K.I.1.C.1|
00000110: 00 24 09 09 00 8B C8 28 53 24 2C 31 29 B2 22 CE |.$.....(S$,1).".|
00000120: 22 A7 31 32 00 56 09 0A 00 8B CA 28 46 24 28 4B |".12.V.....(F$(K|
00000130: 29 2C 53 28 4A 29 AA 31 2C 4C 28 4A 29 29 B3 CA |),S(J).1,L(J))..|
00000140: 28 46 24 28 49 29 2C 53 28 4A 29 AA 31 2C 4C 28 |(F$(I),S(J).1,L(|
00000150: 4A 29 29 A7 31 34 00 5E 09 0B 00 89 31 35 00 96 |J)).14.^....15..|
00000160: 09 0C 00 8B C5 28 CA 28 46 24 28 4B 29 2C 53 28 |.....(.(F$(K),S(|
00000170: 4A 29 AA 31 2C 4C 28 4A 29 29 29 B3 C5 28 CA 28 |J).1,L(J)))..(.(|
00000180: 46 24 28 49 29 2C 53 28 4A 29 AA 31 2C 4C 28 4A |F$(I),S(J).1,L(J|
00000190: 29 29 29 A7 31 34 00 9E 09 0D 00 89 31 35 00 C0 |))).14......15..|
000001A0: 09 0E 00 51 24 B2 46 24 28 4B 29 3A 46 24 28 4B |...Q$.F$(K):F$(K|
000001B0: 29 B2 46 24 28 49 29 3A 46 24 28 49 29 B2 51 24 |).F$(I):F$(I).Q$|
000001C0: 00 CA 09 0F 00 82 3A 82 3A 8E 00 DA 09 10 00 8B |......:.:.......|
000001D0: 53 54 B2 36 36 A7 A0 32 3A 8E 00 EF 09 11 00 A1 |ST.66..2:.......|
000001E0: 23 32 2C 51 24 3A 8B 51 24 B2 22 22 A7 31 36 00 |#2,Q$:.Q$."".16.|
000001F0: 00 0A 12 00 8B C6 28 51 24 29 B2 31 32 39 A7 8E |......(Q$).129..|
00000200: 00 08 0A 13 00 89 31 36 00 19 0A 14 00 8B 4D 24 |......16......M$|
00000210: B2 22 22 A7 54 B2 31 3A 8E 00 46 0A 15 00 54 B2 |."".T.1:..F...T.|
00000220: 30 3A 49 24 B2 CA 28 46 24 28 49 29 2C 53 28 52 |0:I$..(F$(I),S(R|
00000230: 29 AA 31 2C 4C 28 52 29 29 3A 8B 46 B3 34 A7 41 |).1,L(R)):.F.4.A|
00000240: B2 C5 28 49 24 29 00 62 0A 16 00 91 46 89 32 33 |..(I$).b....F.23|
00000250: 2C 32 35 2C 32 37 2C 32 39 2C 33 31 2C 33 33 2C |,25,27,29,31,33,|
00000260: 33 35 00 6F 0A 17 00 8B 41 B2 42 A7 54 B2 31 00 |35.o....A.B.T.1.|
00000270: 75 0A 18 00 8E 00 82 0A 19 00 8B 41 B3 42 A7 54 |u..........A.B.T|
00000280: B2 31 00 88 0A 1A 00 8E 00 95 0A 1B 00 8B 41 B1 |.1............A.|
00000290: 42 A7 54 B2 31 00 9B 0A 1C 00 8E 00 CA 0A 1D 00 |B.T.1...........|
000002A0: 81 4D B2 31 A4 C3 28 49 24 29 AB C3 28 4D 24 29 |.M.1..(I$)..(M$)|
000002B0: 3A 8B 4D 24 B2 CA 28 49 24 2C 4D 2C C3 28 4D 24 |:.M$..(I$,M,.(M$|
000002C0: 29 29 A7 54 B2 31 3A 4D B2 4C 00 D2 0A 1E 00 82 |)).T.1:M.L......|
000002D0: 3A 8E 00 E1 0A 1F 00 8B 49 24 B2 4D 24 A7 54 B2 |:.......I$.M$.T.|
000002E0: 31 00 E7 0A 20 00 8E 00 F6 0A 21 00 8B 49 24 B3 |1... .....!..I$.|
000002F0: 4D 24 A7 54 B2 31 00 FC 0A 22 00 8E 00 0B 0B 23 |M$.T.1...".....#|
00000300: 00 8B 49 24 B1 4D 24 A7 54 B2 31 00 11 0B 24 00 |..I$.M$.T.1...$.|
00000310: 8E 00 2C 0B 25 00 99 22 12 C1 92 4C 4C 20 4F 52 |..,.%.."...LL OR|
00000320: 20 12 D3 92 45 4C 45 43 54 45 44 22 00 38 0B 26 | ...ELECTED".8.&|
00000330: 00 45 B2 37 3A 89 36 37 00 4C 0B 27 00 8B 51 24 |.E.7:.67.L.'..Q$|
00000340: B2 22 41 22 A7 4D 24 B2 22 22 3A 8E 00 5C 0B 28 |."A".M$."":..\.(|
00000350: 00 8B 51 24 B3 B1 22 53 22 A7 33 38 00 99 0B 29 |..Q$.."S".38...)|
00000360: 00 99 22 11 12 31 92 20 CE 55 4D 45 52 49 43 3D |.."..1. .UMERIC=|
00000370: 20 20 12 35 92 20 C1 4C 50 48 41 3D 22 3A 99 22 | .5. .LPHA=":."|
00000380: 11 12 32 92 20 CE 55 4D 45 52 49 43 3C 20 20 12 |..2. .UMERIC< .|
00000390: 36 92 20 C1 4C 50 48 41 3C 00 E5 0B 2A 00 99 22 |6. .LPHA<...*.."|
000003A0: 11 12 33 92 20 CE 55 4D 45 52 49 43 3E 20 20 12 |..3. .UMERIC> .|
000003B0: 37 92 20 C1 4C 50 48 41 3E 22 3A 99 22 11 12 34 |7. .LPHA>":."..4|
000003C0: 92 20 C3 48 41 52 41 43 54 45 52 20 CD 41 54 43 |. .HARACTER .ATC|
000003D0: 48 11 22 3A 99 22 C5 4E 54 45 52 20 C3 48 4F 49 |H.":.".NTER .HOI|
000003E0: 43 45 2D 22 3B 00 00 0C 2B 00 A1 51 24 3A 8B 51 |CE-";...+..Q$:.Q|
000003F0: 24 B3 B1 22 22 A7 8B 51 24 B2 43 24 A7 31 33 39 |$..""..Q$.C$.139|
00000400: 00 18 0C 2C 00 46 B2 C5 28 51 24 29 3A 8B 46 B3 |...,.F..(Q$):.F.|
00000410: 31 B0 46 B1 37 A7 34 33 00 59 0C 2D 00 99 51 24 |1.F.7.43.Y.-..Q$|
00000420: 3A 8D 31 30 32 3A 52 B2 4A 3A 4D 24 B2 22 22 3A |:.102:R.J:M$."":|
00000430: 99 22 C5 4E 54 45 52 20 D3 45 41 52 43 48 20 CB |.".NTER .EARCH .|
00000440: 45 59 22 3A 85 4D 24 3A 42 B2 C5 28 4D 24 29 3A |EY":.M$:B..(M$):|
00000450: 8B 46 B3 B1 34 A7 8D 35 33 00 68 0C 2E 00 8B 4D |.F..4..53.h....M|
00000460: 24 B2 43 24 A7 31 33 39 00 6E 0C 2F 00 8E 00 8A |$.C$.139.n./....|
00000470: 0C 30 00 4A B2 C6 28 51 24 29 3A 8B 4A B1 31 39 |.0.J..(Q$):.J.19|
00000480: 32 AF 4A B3 32 30 35 A7 35 31 00 9C 0C 31 00 8B |2.J.205.51...1..|
00000490: 4A B1 36 34 AF 4A B3 37 37 A7 35 32 00 A7 0C 32 |J.64.J.77.52...2|
000004A0: 00 4A B2 39 39 3A 8E 00 B3 0C 33 00 4A B2 4A AB |.J.99:....3.J.J.|
000004B0: 31 32 38 00 C0 0C 34 00 4A B2 4A AB 36 35 3A 8E |128...4.J.J.65:.|
000004C0: 00 D2 0C 35 00 8B C3 28 4E 24 29 B2 4C 28 4A 29 |...5...(N$).L(J)|
000004D0: A7 8E 00 F2 0C 36 00 8B C3 28 4E 24 29 B1 4C 28 |.....6...(N$).L(|
000004E0: 4A 29 A7 4E 24 B2 C8 28 4E 24 2C 4C 28 4A 29 29 |J).N$..(N$,L(J))|
000004F0: 3A 8E 00 04 0D 37 00 4E 24 B2 4E 24 AA 22 A0 22 |:....7.N$.N$."."|
00000500: 3A 89 35 33 00 30 0D 38 00 85 22 D4 41 50 45 20 |:.53.0.8..".APE |
00000510: 4F 52 20 C4 49 53 4B 3F 20 C4 9D 9D 9D 22 3B 44 |OR .ISK? ....";D|
00000520: 24 3A 8B 44 24 B2 22 44 22 A7 44 24 B2 22 C4 22 |$:.D$."D".D$."."|
00000530: 00 40 0D 39 00 8B 44 24 B2 43 24 A7 89 31 33 39 |.@.9..D$.C$..139|
00000540: 00 51 0D 3A 00 8B 44 24 B2 22 C4 22 A7 8D 32 33 |.Q.:..D$."."..23|
00000550: 33 00 90 0D 3B 00 85 22 C6 49 4C 45 20 4E 41 4D |3...;..".ILE NAM|
00000560: 45 22 3B 46 24 3A 8B 44 24 B2 22 C4 22 AF 46 24 |E";F$:.D$.".".F$|
00000570: B2 22 22 A7 99 22 CD 55 53 54 20 53 55 50 50 4C |.""..".UST SUPPL|
00000580: 59 20 46 49 4C 45 20 4E 41 4D 45 22 3A 89 35 39 |Y FILE NAME":.59|
00000590: 00 CD 0D 3C 00 99 22 C4 45 56 49 43 45 3D 22 3B |...<..".EVICE=";|
000005A0: 44 24 3A 99 22 C6 49 4C 45 20 20 3D 22 3B 46 24 |D$:.".ILE =";F$|
000005B0: 3A 85 22 D2 49 47 48 54 3F 20 D9 9D 9D 9D 22 3B |:.".IGHT? ....";|
000005C0: 51 24 3A 8B 51 24 B2 43 24 A7 31 33 39 00 E6 0D |Q$:.Q$.C$.139...|
000005D0: 3D 00 8B 51 24 B3 B1 22 D9 22 AF 51 24 B3 B1 22 |=..Q$..".".Q$.."|
000005E0: 59 22 A7 89 35 36 00 F2 0D 3E 00 8B 44 B2 31 A7 |Y"..56...>..D.1.|
000005F0: 36 35 00 11 0E 3F 00 8B 44 24 B2 22 C4 22 A7 9F |65...?..D$."."..|
00000600: 31 2C 38 2C 32 2C 46 24 AA 22 2C 53 2C 52 22 3A |1,8,2,F$.",S,R":|
00000610: 8E 00 21 0E 40 00 9F 31 2C 31 2C 30 2C 46 24 3A |..!.@..1,1,0,F$:|
00000620: 8E 00 45 0E 41 00 8B 44 24 B2 22 C4 22 A7 9F 31 |..E.A..D$."."..1|
00000630: 2C 38 2C 32 2C 22 40 3A 22 AA 46 24 AA 22 2C 53 |,8,2,"@:".F$.",S|
00000640: 2C 57 22 3A 8E 00 55 0E 42 00 9F 31 2C 31 2C 31 |,W":..U.B..1,1,1|
00000650: 2C 46 24 3A 8E 00 67 0E 43 00 A1 51 24 3A 8B 51 |,F$:..g.C..Q$:.Q|
00000660: 24 B2 22 22 A7 36 37 00 77 0E 44 00 8B 51 24 B2 |$."".67.w.D..Q$.|
00000670: 22 5E 22 A7 31 33 39 00 94 0E 45 00 8B C6 28 51 |"^".139...E...(Q|
00000680: 24 29 B1 39 36 A7 51 24 B2 C7 28 C6 28 51 24 29 |$).96.Q$..(.(Q$)|
00000690: AB 36 34 29 00 B6 0E 46 00 91 45 89 32 32 30 2C |.64)...F..E.220,|
000006A0: 31 36 39 2C 31 31 30 2C 31 32 30 2C 31 34 34 2C |169,110,120,144,|
000006B0: 32 30 35 2C 33 39 00 C1 0E 47 00 8B 4F B2 31 A7 |205,39...G..O.1.|
000006C0: 8E 00 09 0F 48 00 4C B2 30 3A 4F B2 31 3A 81 49 |....H.L.0:O.1:.I|
000006D0: B2 30 A4 31 31 3A 53 28 49 29 B2 4C 3A 4C B2 4C |.0.11:S(I).L:L.L|
000006E0: AA 4C 28 49 29 3A 82 3A 58 B2 B8 28 58 29 AB 31 |.L(I):.:X..(X).1|
000006F0: 30 30 30 3A 58 B2 B5 28 58 AD 28 4C AA 34 29 29 |000:X..(X.(L.4))|
00000700: 3A 86 46 24 28 58 29 3A 8E 00 14 0F 49 00 8B 4F |:.F$(X):....I..O|
00000710: B2 30 A7 8E 00 5E 0F 4A 00 99 22 C1 52 45 20 59 |.0...^.J..".RE Y|
00000720: 4F 55 52 20 53 55 52 45 3F 22 3A 99 22 C4 4F 49 |OUR SURE?":.".OI|
00000730: 4E 47 20 54 48 49 53 20 57 49 4C 4C 20 44 45 4C |NG THIS WILL DEL|
00000740: 45 54 45 22 3A 99 22 41 4E 59 20 44 41 54 41 20 |ETE":."ANY DATA |
00000750: 49 4E 20 4D 45 4D 4F 52 59 20 4E 4F 57 22 00 90 |IN MEMORY NOW"..|
00000760: 0F 4B 00 99 3A 99 22 C1 4E 53 57 45 52 20 28 D9 |.K..:.".NSWER (.|
00000770: 2F CE 29 3F 20 CE 9D 9D 9D 22 3B 3A 85 51 24 3A |/.)? ....";:.Q$:|
00000780: 8B 51 24 B2 22 D9 22 B0 51 24 B2 22 59 22 A7 31 |.Q$.".".Q$."Y".1|
00000790: 00 99 0F 4C 00 89 31 33 39 00 D8 0F 4D 00 99 4E |...L..139...M..N|
000007A0: 24 28 4A 29 3B 22 3A 22 3A 99 22 20 20 22 3B CA |$(J);":":." ";.|
000007B0: 28 4C 24 2C 53 28 4A 29 AA 31 2C 4C 28 4A 29 29 |(L$,S(J).1,L(J))|
000007C0: 3B 3A 81 4E B2 31 A4 4C 28 4A 29 AA 32 3A 99 C7 |;:.N.1.L(J).2:..|
000007D0: 28 31 35 37 29 3B 3A 82 00 F0 0F 4E 00 85 4E 24 |(157);:....N..N$|
000007E0: 3A 8B C8 28 4E 24 2C 31 29 B2 43 24 A7 31 33 39 |:..(N$,1).C$.139|
000007F0: 00 23 10 4F 00 8D 35 33 3A 53 B2 31 3A 4C 24 B2 |.#.O..53:S.1:L$.|
00000800: C8 28 4C 24 2C 53 28 4A 29 29 AA 4E 24 AA C9 28 |.(L$,S(J)).N$..(|
00000810: 4C 24 2C 4C AB 28 53 28 4A 29 AA 4C 28 4A 29 29 |L$,L.(S(J).L(J))|
00000820: 29 3A 8E 00 3F 10 50 00 8B 53 24 B2 22 22 A7 46 |):..?.P..S$."".F|
00000830: 24 28 43 29 B2 4C 24 3A 43 B2 43 AA 31 3A 8E 00 |$(C).L$:C.C.1:..|
00000840: 60 10 51 00 49 B2 C5 28 C9 28 53 24 2C 32 29 29 |`.Q.I..(.(S$,2))|
00000850: 3A 8B C8 28 53 24 2C 31 29 B2 22 CE 22 A7 38 34 |:..(S$,1).".".84|
00000860: 00 98 10 52 00 81 4A B2 30 A4 43 AB 31 3A 8B CA |...R..J.0.C.1:..|
00000870: 28 46 24 28 4A 29 2C 53 28 49 29 AA 31 2C 4C 28 |(F$(J),S(I).1,L(|
00000880: 49 29 29 B1 CA 28 4C 24 2C 53 28 49 29 AA 31 2C |I))..(L$,S(I).1,|
00000890: 4C 28 49 29 29 A7 38 36 00 AF 10 53 00 82 3A 46 |L(I)).86...S..:F|
000008A0: 24 28 43 29 B2 4C 24 3A 43 B2 43 AA 31 3A 8E 00 |$(C).L$:C.C.1:..|
000008B0: EE 10 54 00 81 4A B2 30 A4 43 AB 31 3A 8B C5 28 |..T..J.0.C.1:..(|
000008C0: CA 28 46 24 28 4A 29 2C 53 28 49 29 AA 31 2C 4C |.(F$(J),S(I).1,L|
000008D0: 28 49 29 29 29 B1 C5 28 CA 28 4C 24 2C 53 28 49 |(I)))..(.(L$,S(I|
000008E0: 29 AA 31 2C 4C 28 49 29 29 29 A7 20 38 36 00 05 |).1,L(I))). 86..|
000008F0: 11 55 00 82 3A 46 24 28 43 29 B2 4C 24 3A 43 B2 |.U..:F$(C).L$:C.|
00000900: 43 AA 31 3A 8E 00 36 11 56 00 81 4B B2 43 A4 4A |C.1:..6.V..K.C.J|
00000910: AA 31 A9 AB 31 3A 46 24 28 4B 29 B2 46 24 28 4B |.1..1:F$(K).F$(K|
00000920: AB 31 29 3A 82 3A 46 24 28 4A 29 B2 4C 24 3A 43 |.1):.:F$(J).L$:C|
00000930: B2 43 AA 31 3A 8E 00 66 11 57 00 85 22 C1 52 45 |.C.1:..f.W..".RE|
00000940: 20 59 4F 55 20 53 55 52 45 3F 20 CE 9D 9D 9D 22 | YOU SURE? ...."|
00000950: 3B 51 24 3A 8B 51 24 B3 B1 22 D9 22 AF 51 24 B3 |;Q$:.Q$..".".Q$.|
00000960: B1 22 59 22 A7 8E 00 8B 11 58 00 99 22 C4 C5 CC |."Y".....X.."...|
00000970: C5 D4 C5 22 3A 8B 43 B2 58 AA 31 A7 49 B2 49 AB |...":.C.X.1.I.I.|
00000980: 31 3A 43 B2 43 AB 31 3A 89 39 30 00 B9 11 59 00 |1:C.C.1:.90...Y.|
00000990: 81 4A B2 49 A4 43 AB 32 3A 46 24 28 4A 29 B2 46 |.J.I.C.2:F$(J).F|
000009A0: 24 28 4A AA 31 29 3A 82 3A 43 B2 43 AB 31 3A 8B |$(J.1):.:C.C.1:.|
000009B0: 49 B2 43 A7 49 B2 43 AB 31 00 C8 11 5A 00 46 24 |I.C.I.C.1...Z.F$|
000009C0: 28 43 29 B2 22 22 3A 8E 00 E6 11 5B 00 99 22 93 |(C)."":....[..".|
000009D0: 11 20 20 20 C6 49 45 4C 44 53 20 C4 45 46 49 4E |. .IELDS .EFIN|
000009E0: 49 54 49 4F 4E 22 00 17 12 5C 00 99 22 11 C6 49 |ITION"...\.."..I|
000009F0: 45 4C 44 20 22 3B C7 28 39 37 AA 4A 29 3B 22 20 |ELD ";.(97.J);" |
00000A00: CE 41 4D 45 3A 13 11 11 11 11 20 20 22 3B 4E 24 |.AME:..... ";N$|
00000A10: 28 4A 29 3B 22 91 22 00 41 12 5D 00 85 4E 24 28 |(J);".".A.]..N$(|
00000A20: 4A 29 3A 8B C3 28 4E 24 28 4A 29 29 B1 31 32 A7 |J):..(N$(J)).12.|
00000A30: 4E 24 28 4A 29 B2 C8 28 4E 24 28 4A 29 2C 31 32 |N$(J)..(N$(J),12|
00000A40: 29 00 62 12 5E 00 8B C8 28 4E 24 28 4A 29 2C 31 |).b.^...(N$(J),1|
00000A50: 29 B2 43 24 A7 4E 24 28 4A 29 B2 22 22 3A 89 31 |).C$.N$(J)."":.1|
00000A60: 33 39 00 74 12 5F 00 8B 4E 24 28 4A 29 B2 22 22 |39.t._..N$(J).""|
00000A70: A7 31 30 31 00 B1 12 60 00 99 22 11 11 11 11 C6 |.101...`..".....|
00000A80: 49 45 4C 44 20 22 3B C7 28 39 37 AA 4A 29 3B 22 |IELD ";.(97.J);"|
00000A90: 20 D3 49 5A 45 3A 22 3B C7 28 31 33 29 3B 22 3F | .IZE:";.(13);"?|
00000AA0: 22 3B 4C 28 4A 29 3B C7 28 31 33 29 3B 22 91 22 |";L(J);.(13);"."|
00000AB0: 3B 00 E4 12 61 00 85 4C 28 4A 29 3A 8B 4C 28 4A |;...a..L(J):.L(J|
00000AC0: 29 B1 38 37 A7 99 22 11 3E 38 37 20 CE 4F 54 20 |).87..".>87 .OT |
00000AD0: C1 4C 4C 4F 57 45 44 91 91 91 91 91 91 91 91 22 |.LLOWED........"|
00000AE0: 3A 89 39 36 00 0B 13 62 00 4C B2 30 3A 81 49 B2 |:.96...b.L.0:.I.|
00000AF0: 30 A4 31 31 3A 4C B2 4C AA 4C 28 49 29 3A 82 3A |0.11:L.L.L(I):.:|
00000B00: 8B 4C B3 B2 31 37 34 A7 31 30 31 00 38 13 63 00 |.L..174.101.8.c.|
00000B10: 8B 4C 28 4A 29 B2 30 A7 99 22 11 DA 45 52 4F 20 |.L(J).0.."..ERO |
00000B20: 4E 4F 54 20 41 4C 4C 4F 57 45 44 91 91 91 91 91 |NOT ALLOWED.....|
00000B30: 91 91 91 22 3A 89 39 36 00 64 13 64 00 99 22 11 |...":.96.d.d..".|
00000B40: D2 45 43 4F 52 44 20 45 58 43 45 45 44 53 20 4D |.ECORD EXCEEDS M|
00000B50: 41 58 49 4D 55 4D 91 91 91 91 91 91 91 91 91 22 |AXIMUM........."|
00000B60: 3A 89 39 36 00 6A 13 65 00 8E 00 92 13 66 00 81 |:.96.j.e.....f..|
00000B70: 4A B2 30 A4 31 31 3A 8B 4C 28 4A 29 B3 B1 30 A7 |J.0.11:.L(J)..0.|
00000B80: 99 C7 28 39 37 AA 4A 29 3B 22 A0 22 3B 4E 24 28 |..(97.J);".";N$(|
00000B90: 4A 29 00 98 13 67 00 82 00 C3 13 68 00 85 22 11 |J)...g.....h..".|
00000BA0: C5 4E 54 45 52 20 C6 49 45 4C 44 20 C9 C4 2D 22 |.NTER .IELD ..-"|
00000BB0: 3B 51 24 3A 8B C8 28 51 24 2C 31 29 B2 43 24 A7 |;Q$:..(Q$,1).C$.|
00000BC0: 31 33 38 00 E9 13 69 00 8D 34 38 3A 8B 4A B2 39 |138...i..48:.J.9|
00000BD0: 39 A7 99 3A 99 22 C1 20 54 48 52 55 20 CC 20 4F |9..:.". THRU . O|
00000BE0: 4E 4C 59 22 3A 89 31 30 32 00 EF 13 6A 00 8E 00 |NLY":.102...j...|
00000BF0: 2D 14 6B 00 99 22 93 11 C4 C1 D4 C1 20 CD C1 CE |-.k.."...... ...|
00000C00: C1 C7 C5 D2 A0 C5 CE D4 D2 D9 22 3A 99 22 11 12 |..........":."..|
00000C10: CE 92 20 CE 45 57 20 C6 49 4C 45 22 3A 99 22 11 |.. .EW .ILE":.".|
00000C20: 12 CF 92 20 CF 4C 44 20 C6 49 4C 45 22 00 47 14 |... .LD .ILE".G.|
00000C30: 6C 00 99 22 11 20 20 20 CD C1 CB C5 A0 D3 C5 CC |l..". ........|
00000C40: C5 C3 D4 C9 CF CE 22 00 53 14 6D 00 45 B2 33 3A |......".S.m.E.3:|
00000C50: 89 36 37 00 63 14 6E 00 8B 51 24 B2 22 4E 22 A7 |.67.c.n..Q$."N".|
00000C60: 31 31 33 00 73 14 6F 00 8B 51 24 B2 22 4F 22 A7 |113.s.o..Q$."O".|
00000C70: 31 32 35 00 7C 14 70 00 89 31 30 39 00 9E 14 71 |125.|.p..109...q|
00000C80: 00 8D 37 33 3A 81 4A B2 30 A4 31 31 3A 8D 39 31 |..73:.J.0.11:.91|
00000C90: 3A 8B 4E 24 28 4A 29 B2 22 22 A7 31 31 35 00 A5 |:.N$(J)."".115..|
00000CA0: 14 72 00 82 4A 00 C9 14 73 00 99 22 93 12 C6 49 |.r..J...s.."...I|
00000CB0: 45 4C 44 13 11 11 C9 C4 92 20 20 12 D3 49 5A 45 |ELD...... ..IZE|
00000CC0: 92 20 12 CE 41 4D 45 92 22 00 D5 14 74 00 81 49 |. ..AME."...t..I|
00000CD0: B2 30 A4 31 31 00 06 15 75 00 99 C7 28 39 37 AA |.0.11...u...(97.|
00000CE0: 49 29 3B 22 A0 20 20 22 3B 22 A0 22 3B C9 28 C4 |I);". ";".";.(.|
00000CF0: 28 4C 28 49 29 29 2C 32 29 3B 22 20 20 22 3B 4E |(L(I)),2);" ";N|
00000D00: 24 28 49 29 3A 82 00 49 15 76 00 99 22 11 12 C1 |$(I):..I.v.."...|
00000D10: 92 20 C1 44 44 2F C3 48 41 4E 47 45 20 C6 49 45 |. .DD/.HANGE .IE|
00000D20: 4C 44 22 3A 99 22 12 C4 92 20 C4 45 4C 45 54 45 |LD":."... .ELETE|
00000D30: 20 C6 49 45 4C 44 22 3A 99 22 12 C5 92 20 C5 4E | .IELD":."... .N|
00000D40: 54 45 52 20 C4 41 54 41 22 00 6C 15 77 00 99 22 |TER .ATA".l.w.."|
00000D50: 20 20 20 20 20 20 20 D4 59 50 45 20 CF 50 54 49 | .YPE .PTI|
00000D60: 4F 4E 2D 22 3A 45 B2 34 3A 89 36 37 00 86 15 78 |ON-":E.4:.67...x|
00000D70: 00 8B 51 24 B2 22 41 22 A7 8D 31 30 34 3A 8D 39 |..Q$."A"..104:.9|
00000D80: 31 3A 89 31 31 35 00 96 15 79 00 8B 51 24 B2 22 |1:.115...y..Q$."|
00000D90: 44 22 A7 31 32 34 00 A6 15 7A 00 8B 51 24 B2 22 |D".124...z..Q$."|
00000DA0: 45 22 A7 31 35 39 00 AF 15 7B 00 89 31 31 35 00 |E".159...{..115.|
00000DB0: CD 15 7C 00 8D 31 30 34 3A 4E 24 28 4A 29 B2 22 |..|..104:N$(J)."|
00000DC0: 22 3A 4C 28 4A 29 B2 30 3A 89 31 31 35 00 FF 15 |":L(J).0:.115...|
00000DD0: 7D 00 8D 37 33 3A 44 B2 30 3A 99 22 93 20 CC CF |}..73:D.0:.". ..|
00000DE0: C1 C4 22 3A 8D 35 36 3A 81 49 B2 30 A4 31 31 3A |..":.56:.I.0.11:|
00000DF0: 84 31 2C 4E 24 28 49 29 2C 4C 28 49 29 3A 82 00 |.1,N$(I),L(I):..|
00000E00: 1A 16 7E 00 84 31 2C 49 24 3A 99 49 24 3A 8B 49 |..~..1,I$:.I$:.I|
00000E10: 24 B2 22 53 3D 22 A7 31 33 30 00 2B 16 7F 00 8B |$."S=".130.+....|
00000E20: 49 24 B2 22 50 3D 22 A7 31 33 31 00 3C 16 80 00 |I$."P=".131.<...|
00000E30: 8B 49 24 B2 22 44 3D 22 A7 31 33 32 00 45 16 81 |.I$."D=".132.E..|
00000E40: 00 89 31 32 36 00 54 16 82 00 84 31 2C 53 24 3A |..126.T....1,S$:|
00000E50: 89 31 32 36 00 76 16 83 00 84 31 2C 50 3A 81 49 |.126.v....1,P:.I|
00000E60: B2 30 A4 50 AB 31 3A 84 31 2C 50 24 28 49 29 3A |.0.P.1:.1,P$(I):|
00000E70: 82 3A 89 31 32 36 00 82 16 84 00 8D 37 32 3A 43 |.:.126......72:C|
00000E80: B2 30 00 91 16 85 00 8B 53 54 B3 B1 30 A7 31 33 |.0......ST..0.13|
00000E90: 38 00 B0 16 86 00 84 31 2C 46 24 28 43 29 3A 8B |8......1,F$(C):.|
00000EA0: 46 24 28 43 29 B2 22 2A 45 4E 44 22 A7 31 33 38 |F$(C)."*END".138|
00000EB0: 00 CF 16 87 00 8B 4C B1 38 37 A7 84 31 2C 46 24 |......L.87..1,F$|
00000EC0: 3A 46 24 28 43 29 B2 46 24 28 43 29 AA 46 24 00 |:F$(C).F$(C).F$.|
00000ED0: E5 16 88 00 43 B2 43 AA 31 3A 8B 43 B1 B2 58 AA |....C.C.1:.C..X.|
00000EE0: 31 A7 31 36 31 00 EE 16 89 00 89 31 33 33 00 F5 |1.161......133..|
00000EF0: 16 8A 00 A0 31 00 32 17 8B 00 8D 37 3A 99 22 93 |....1.2....7:.".|
00000F00: 20 20 20 20 20 CD C1 C9 CE A0 CD C5 CE D5 22 3A | .........":|
00000F10: 99 22 11 12 CE 92 20 CE 45 57 20 C6 49 4C 45 22 |.".... .EW .ILE"|
00000F20: 3A 99 22 11 12 CC 92 20 CC 4F 41 44 20 C6 49 4C |:.".... .OAD .IL|
00000F30: 45 22 00 5D 17 8C 00 99 22 11 12 D3 92 20 D3 41 |E".]....".... .A|
00000F40: 56 45 20 C6 49 4C 45 22 3A 99 22 11 12 C1 92 20 |VE .ILE":.".... |
00000F50: C1 44 44 20 41 20 D2 45 43 4F 52 44 22 00 95 17 |.DD A .ECORD"...|
00000F60: 8D 00 99 22 11 12 CF 92 20 CF 52 44 45 52 20 20 |...".... .RDER |
00000F70: 20 20 12 D1 92 20 D1 55 49 54 22 3A 99 22 11 12 | ... .UIT":."..|
00000F80: D0 92 20 D0 52 49 4E 54 20 20 20 20 12 C6 92 20 |.. .RINT ... |
00000F90: C6 49 4E 44 22 00 B0 17 8E 00 99 22 11 20 20 20 |.IND"......". |
00000FA0: 4D 41 4B 45 20 53 45 4C 45 43 54 49 4F 4E 2D 22 |MAKE SELECTION-"|
00000FB0: 00 BC 17 8F 00 45 B2 35 3A 89 36 37 00 CC 17 90 |.....E.5:.67....|
00000FC0: 00 8B 51 24 B2 22 46 22 A7 32 31 35 00 DC 17 91 |..Q$."F".215....|
00000FD0: 00 8B 51 24 B2 22 4F 22 A7 32 30 39 00 EC 17 92 |..Q$."O".209....|
00000FE0: 00 8B 51 24 B2 22 4E 22 A7 31 31 33 00 FC 17 93 |..Q$."N".113....|
00000FF0: 00 8B 51 24 B2 22 4C 22 A7 31 32 35 00 12 18 94 |..Q$."L".125....|
00001000: 00 8B 51 24 B2 22 53 22 A7 8D 31 35 33 3A 89 31 |..Q$."S"..153:.1|
00001010: 33 39 00 22 18 95 00 8B 51 24 B2 22 41 22 A7 31 |39."....Q$."A".1|
00001020: 35 39 00 32 18 96 00 8B 51 24 B2 22 50 22 A7 31 |59.2....Q$."P".1|
00001030: 37 36 00 42 18 97 00 8B 51 24 B2 22 51 22 A7 32 |76.B....Q$."Q".2|
00001040: 33 30 00 4B 18 98 00 89 31 33 39 00 7D 18 99 00 |30.K....139.}...|
00001050: 99 22 93 20 D3 C1 D6 C5 22 3A 44 B2 31 3A 8D 35 |.". ....":D.1:.5|
00001060: 36 3A 81 49 B2 30 A4 31 31 3A 98 31 2C 4E 24 28 |6:.I.0.11:.1,N$(|
00001070: 49 29 3B 22 2C 22 3B 4C 28 49 29 3A 82 00 97 18 |I);",";L(I):....|
00001080: 9A 00 8B 53 24 B3 B1 22 22 A7 98 31 2C 22 53 3D |...S$..""..1,"S=|
00001090: 22 3A 98 31 2C 53 24 00 C2 18 9B 00 8B 50 B3 B1 |":.1,S$......P..|
000010A0: 30 A7 98 31 2C 22 50 3D 22 3A 98 31 2C 50 3A 81 |0..1,"P=":.1,P:.|
000010B0: 49 B2 30 A4 50 AB 31 3A 98 31 2C 50 24 28 49 29 |I.0.P.1:.1,P$(I)|
000010C0: 3A 82 00 F0 18 9C 00 98 31 2C 22 44 3D 22 3A 81 |:.......1,"D=":.|
000010D0: 49 B2 30 A4 43 3A 98 31 2C CA 28 46 24 28 49 29 |I.0.C:.1,.(F$(I)|
000010E0: 2C 31 2C 38 37 29 3A 8B 4C B3 38 38 A7 31 35 38 |,1,87):.L.88.158|
000010F0: 00 06 19 9D 00 98 31 2C CA 28 46 24 28 49 29 2C |......1,.(F$(I),|
00001100: 38 38 2C 38 37 29 00 1F 19 9E 00 82 3A 98 31 2C |88,87)......:.1,|
00001110: 22 2A 45 4E 44 22 3A 53 B2 30 3A A0 31 3A 8E 00 |"*END":S.0:.1:..|
00001120: 27 19 9F 00 8D 37 31 00 49 19 A0 00 99 22 93 22 |'....71.I...."."|
00001130: 3B 58 AA 31 3B 22 D2 45 43 4F 52 44 53 22 3B 43 |;X.1;".ECORDS";C|
00001140: 3B 22 D5 53 45 44 22 3A 99 00 68 19 A1 00 8B 43 |;".SED":..h....C|
00001150: B2 58 AA 31 A7 99 22 CD C5 CD CF D2 D9 A0 C6 D5 |.X.1..".........|
00001160: CC CC 22 3A 89 32 32 37 00 9D 19 A2 00 4C 24 B2 |..":.227.....L$.|
00001170: 22 22 3A 81 49 B2 31 A4 4C 3A 4C 24 B2 4C 24 AA |"":.I.1.L:L$.L$.|
00001180: 22 A0 22 3A 82 3A 81 4A B2 30 A4 31 31 3A 8B 4C |".":.:.J.0.11:.L|
00001190: 28 4A 29 B2 30 A7 31 36 34 3A 8D 37 37 00 A5 19 |(J).0.164:.77...|
000011A0: A3 00 8D 37 37 00 AB 19 A4 00 82 00 C8 19 A5 00 |...77...........|
000011B0: 99 22 93 22 3A 81 4A B2 30 A4 31 31 3A 8B 4C 28 |.".":.J.0.11:.L(|
000011C0: 4A 29 B2 30 A7 31 36 37 00 FB 19 A6 00 99 52 24 |J).0.167......R$|
000011D0: 3B C7 28 39 37 AA 4A 29 3B 22 20 22 3B 4E 24 28 |;.(97.J);" ";N$(|
000011E0: 4A 29 3B 22 3A 22 3B 42 24 3B CA 28 4C 24 2C 53 |J);":";B$;.(L$,S|
000011F0: 28 4A 29 AA 31 2C 4C 28 4A 29 29 00 1E 1A A7 00 |(J).1,L(J)).....|
00001200: 82 3A 99 22 12 CE 92 45 58 54 20 12 C1 92 4C 54 |.:."...EXT ...LT|
00001210: 45 52 20 12 CD 92 41 49 4E CD 45 4E 55 22 00 2A |ER ...AIN.ENU".*|
00001220: 1A A8 00 45 B2 32 3A 89 36 37 00 40 1A A9 00 8B |...E.2:.67.@....|
00001230: 51 24 B2 22 4E 22 B0 51 24 B2 41 24 A7 31 37 33 |Q$."N".Q$.A$.173|
00001240: 00 5C 1A AA 00 8B 51 24 B2 22 41 22 A7 8D 31 30 |.\....Q$."A"..10|
00001250: 34 3A 99 3A 8D 37 37 3A 89 31 36 35 00 74 1A AB |4:.:.77:.165.t..|
00001260: 00 8B 51 24 B2 22 4D 22 A7 51 24 B2 22 51 22 3A |..Q$."M".Q$."Q":|
00001270: 89 31 37 33 00 7D 1A AC 00 89 31 36 38 00 85 1A |.173.}....168...|
00001280: AD 00 8D 38 30 00 95 1A AE 00 8B 51 24 B2 22 51 |...80......Q$."Q|
00001290: 22 A7 31 33 39 00 9E 1A AF 00 89 31 36 30 00 D9 |".139......160..|
000012A0: 1A B0 00 8D 34 3A 8B 50 B3 B1 30 A7 85 22 D5 53 |....4:.P..0..".S|
000012B0: 45 20 CC 41 53 54 20 D0 52 49 4E 54 3F 20 D9 9D |E .AST .RINT? ..|
000012C0: 9D 9D 22 3B 51 24 3A 8B 51 24 B2 22 D9 22 B0 51 |..";Q$:.Q$.".".Q|
000012D0: 24 B2 22 59 22 A7 31 38 36 00 13 1B B1 00 85 22 |$."Y".186......"|
000012E0: 11 CC 49 4E 45 53 20 50 45 52 20 C5 4E 54 52 59 |..INES PER .NTRY|
000012F0: 3F 20 36 9D 9D 9D 22 3B 50 3A 8B 50 B1 36 36 B0 |? 6...";P:.P.66.|
00001300: 50 B3 31 A7 99 22 C9 4E 56 41 4C 49 44 22 3A 89 |P.1..".NVALID":.|
00001310: 31 37 37 00 51 1B B2 00 99 22 93 22 3A 81 4A B2 |177.Q....".":.J.|
00001320: 30 A4 31 31 3A 8B 4C 28 4A 29 B3 B1 30 A7 99 C7 |0.11:.L(J)..0...|
00001330: 28 36 35 AA 4A 29 3B 22 A0 22 3B C9 28 C4 28 4C |(65.J);".";.(.(L|
00001340: 28 4A 29 29 2C 32 29 3B 22 20 22 3B 4E 24 28 4A |(J)),2);" ";N$(J|
00001350: 29 00 6A 1B B3 00 82 3A 81 49 B2 30 A4 50 AB 31 |).j....:.I.0.P.1|
00001360: 3A 8B 49 B1 31 30 A7 31 38 31 00 A1 1B B4 00 50 |:.I.10.181.....P|
00001370: 24 28 49 29 B2 22 22 3A 99 22 CC 49 4E 45 22 49 |$(I)."":.".INE"I|
00001380: AA 31 22 D4 45 4D 50 4C 41 54 45 22 3A 85 50 24 |.1".EMPLATE":.P$|
00001390: 28 49 29 3A 8B 50 24 28 49 29 B2 43 24 A7 31 33 |(I):.P$(I).C$.13|
000013A0: 39 00 A7 1B B5 00 82 00 C3 1B B6 00 99 22 93 22 |9............"."|
000013B0: 3A 81 49 B2 30 A4 50 AB 31 3A 8B 49 B1 31 30 A7 |:.I.0.P.1:.I.10.|
000013C0: 31 38 34 00 D2 1B B7 00 99 49 AA 31 3B 50 24 28 |184......I.1;P$(|
000013D0: 49 29 00 16 1C B8 00 82 3A 99 22 C3 48 41 4E 47 |I)......:.".HANG|
000013E0: 45 20 41 4E 59 54 48 49 4E 47 22 3A 85 22 C5 4E |E ANYTHING":.".N|
000013F0: 54 45 52 20 CC 49 4E 45 20 23 20 4F 52 20 30 3F |TER .INE # OR 0?|
00001400: 20 30 9D 9D 9D 22 3B 51 3A 8B 51 B3 31 B0 51 B1 | 0...";Q:.Q.1.Q.|
00001410: 31 31 A7 31 38 36 00 4E 1C B9 00 99 22 CC 49 4E |11.186.N....".IN|
00001420: 45 22 51 3A 99 22 3F 20 22 3B 50 24 28 51 AB 31 |E"Q:."? ";P$(Q.1|
00001430: 29 3B 22 91 22 3A 50 24 28 51 AB 31 29 B2 22 22 |);".":P$(Q.1).""|
00001440: 3A 85 50 24 28 51 AB 31 29 3A 89 31 38 32 00 69 |:.P$(Q.1):.182.i|
00001450: 1C BA 00 99 22 93 20 20 D0 D2 C9 CE D4 A0 D3 C5 |....". ........|
00001460: CC C5 C3 D4 22 3A 8D 33 37 00 8E 1C BB 00 4C 4E |....":.37.....LN|
00001470: B2 36 35 3A 50 47 B2 30 3A 81 49 B2 30 A4 43 AB |.65:PG.0:.I.0.C.|
00001480: 31 3A 8D 32 30 3A 8B 54 B2 30 A7 32 30 32 00 9B |1:.20:.T.0.202..|
00001490: 1C BC 00 8B 50 B1 32 A7 31 39 35 00 AA 1C BD 00 |....P.2.195.....|
000014A0: 8B 4C 4E B3 35 37 A7 31 39 35 00 DF 1C BE 00 50 |.LN.57.195.....P|
000014B0: 47 B2 50 47 AA 31 3A 81 4E B2 4C 4E A4 36 35 3A |G.PG.1:.N.LN.65:|
000014C0: 8D 35 3A 82 4E 3A 4C 4E B2 30 3A 51 24 B2 22 A0 |.5:.N:LN.0:Q$.".|
000014D0: 22 3A 81 4E B2 31 A4 37 30 3A 8D 36 3A 82 4E 00 |":.N.1.70:.6:.N.|
000014E0: 1B 1D BF 00 51 24 B2 22 50 41 47 45 22 AA C4 28 |....Q$."PAGE"..(|
000014F0: 50 47 29 3A 8D 36 3A 8D 35 3A 4E B2 30 3A 81 4B |PG):.6:.5:N.0:.K|
00001500: B2 31 A4 C3 28 50 24 28 30 29 29 3A 51 24 B2 CA |.1..(P$(0)):Q$..|
00001510: 28 50 24 28 30 29 2C 4B 2C 31 29 00 43 1D C0 00 |(P$(0),K,1).C...|
00001520: 4A B2 C6 28 51 24 29 AB 36 35 3A 8B 4A B3 30 B0 |J..(Q$).65:.J.0.|
00001530: 4A B1 31 31 A7 51 24 B2 22 A0 22 3A 8D 36 3A 89 |J.11.Q$.".":.6:.|
00001540: 31 39 34 00 82 1D C1 00 51 24 B2 4E 24 28 4A 29 |194.....Q$.N$(J)|
00001550: 3A 8D 36 3A 4E B2 4E AA 4C 28 4A 29 AB C3 28 4E |:.6:N.N.L(J)..(N|
00001560: 24 28 4A 29 29 3A 8B 4E B1 30 A7 51 24 B2 22 A0 |$(J)):.N.0.Q$.".|
00001570: 22 3A 81 4A B2 31 A4 4E 3A 8D 36 3A 82 4A 3A 4E |":.J.1.N:.6:.J:N|
00001580: B2 30 00 8F 1D C2 00 82 4B 3A 8D 35 3A 8D 35 00 |.0......K:.5:.5.|
00001590: AA 1D C3 00 81 4E B2 30 A4 50 AB 31 3A 8B 4E B1 |.....N.0.P.1:.N.|
000015A0: 31 30 A7 8D 35 3A 89 32 30 31 00 C0 1D C4 00 8B |10..5:.201......|
000015B0: 50 24 28 4E 29 B2 22 22 A7 8D 35 3A 89 32 30 31 |P$(N).""..5:.201|
000015C0: 00 E2 1D C5 00 81 4B B2 31 A4 C3 28 50 24 28 4E |......K.1..(P$(N|
000015D0: 29 29 3A 51 24 B2 CA 28 50 24 28 4E 29 2C 4B 2C |)):Q$..(P$(N),K,|
000015E0: 31 29 00 03 1E C6 00 4A B2 C6 28 51 24 29 AB 36 |1).....J..(Q$).6|
000015F0: 35 3A 8B 4A B3 30 B0 4A B1 31 32 A7 8D 36 3A 89 |5:.J.0.J.12..6:.|
00001600: 32 30 30 00 22 1E C7 00 51 24 B2 CA 28 46 24 28 |200."...Q$..(F$(|
00001610: 49 29 2C 53 28 4A 29 AA 31 2C 4C 28 4A 29 29 3A |I),S(J).1,L(J)):|
00001620: 8D 36 00 2B 1E C8 00 82 3A 8D 35 00 31 1E C9 00 |.6.+....:.5.1...|
00001630: 82 00 46 1E CA 00 A1 51 24 3A 8B 51 24 B3 B1 22 |..F....Q$:.Q$.."|
00001640: 5F 22 A7 32 30 38 00 6A 1E CB 00 99 22 12 D2 92 |_".208.j...."...|
00001650: 45 53 54 41 52 54 20 12 C3 92 4F 4E 54 20 12 5E |ESTART ...ONT .^|
00001660: 92 CD 41 49 4E CD 45 4E 55 22 00 76 1E CC 00 45 |..AIN.ENU".v...E|
00001670: B2 36 3A 89 36 37 00 86 1E CD 00 8B 51 24 B2 22 |.6:.67......Q$."|
00001680: 52 22 A7 31 38 32 00 9C 1E CE 00 8B 51 24 B2 22 |R".182......Q$."|
00001690: 43 22 B0 51 24 B2 41 24 A7 32 30 38 00 A5 1E CF |C".Q$.A$.208....|
000016A0: 00 89 32 30 34 00 B3 1E D0 00 82 3A 8D 37 3A 89 |..204......:.7:.|
000016B0: 31 33 39 00 F9 1E D1 00 99 22 93 D3 CF D2 D4 11 |139......"......|
000016C0: 22 3A 99 22 C1 4C 50 48 41 20 4F 52 20 CE 55 4D |":.".LPHA OR .UM|
000016D0: 45 52 49 43 28 C1 2F CE 29 22 3A 85 22 3F 20 C1 |ERIC(./.)":."? .|
000016E0: 9D 9D 9D 22 3B 53 24 3A 8B 53 24 B2 43 24 A7 53 |...";S$:.S$.C$.S|
000016F0: 24 B2 22 22 3A 89 31 33 39 00 18 1F D2 00 8B 53 |$."":.139......S|
00001700: 24 B2 22 41 22 B0 53 24 B2 22 C1 22 A7 53 24 B2 |$."A".S$.".".S$.|
00001710: 22 C1 22 3A 89 32 31 32 00 23 1F D3 00 53 24 B2 |".":.212.#...S$.|
00001720: 22 CE 22 00 2C 1F D4 00 8D 31 30 32 00 48 1F D5 |".".,....102.H..|
00001730: 00 8B 4C 28 4A 29 B2 30 A7 99 22 C9 4E 56 41 4C |..L(J).0..".NVAL|
00001740: 49 44 22 3A 89 32 31 32 00 6A 1F D6 00 53 24 B2 |ID":.212.j...S$.|
00001750: 53 24 AA C4 28 4A 29 3A 99 22 D3 CF D2 D4 C9 CE |S$..(J):."......|
00001760: C7 22 3A 8D 38 3A 89 31 33 39 00 A6 1F D7 00 99 |.":.8:.139......|
00001770: 22 93 11 20 20 20 20 20 D3 C5 C1 D2 C3 C8 22 3A |".. ......":|
00001780: 8D 33 37 3A 99 22 D3 C5 C1 D2 C3 C8 C9 CE C7 22 |.37:."........."|
00001790: 3A 81 49 B2 30 A4 43 AB 31 3A 8D 32 30 3A 8B 54 |:.I.0.C.1:.20:.T|
000017A0: B2 30 A7 32 32 36 00 C3 1F D8 00 99 22 93 22 3A |.0.226......".":|
000017B0: 81 4A B2 30 A4 31 31 3A 8B 4C 28 4A 29 B2 30 A7 |.J.0.11:.L(J).0.|
000017C0: 32 31 38 00 F8 1F D9 00 99 52 24 C7 28 39 37 AA |218......R$.(97.|
000017D0: 4A 29 3B 22 92 20 22 3B 4E 24 28 4A 29 3B 22 3A |J);". ";N$(J);":|
000017E0: 22 42 24 3B CA 28 46 24 28 49 29 2C 53 28 4A 29 |"B$;.(F$(I),S(J)|
000017F0: AA 31 2C 4C 28 4A 29 29 00 35 20 DA 00 82 3A 99 |.1,L(J)).5 ...:.|
00001800: 22 12 C3 92 4F 4E 54 20 12 CE 92 45 58 54 20 12 |"...ONT ...EXT .|
00001810: C1 92 4C 54 45 52 20 12 C4 92 45 4C 45 54 45 20 |..LTER ...ELETE |
00001820: 12 D2 92 45 4B 45 59 20 12 5E 92 20 CD 41 49 4E |...EKEY .^. .AIN|
00001830: CD 45 4E 55 22 00 41 20 DB 00 45 B2 31 3A 89 36 |.ENU".A ..E.1:.6|
00001840: 37 00 58 20 DC 00 8B 51 24 B2 22 4E 22 A7 4D 24 |7.X ...Q$."N".M$|
00001850: B2 22 22 3A 89 32 32 36 00 6D 20 DD 00 8B 51 24 |."":.226.m ...Q$|
00001860: B2 22 44 22 A7 8D 38 37 3A 89 32 32 36 00 9B 20 |."D"..87:.226.. |
00001870: DE 00 8B 51 24 B2 22 41 22 A7 8D 31 30 34 3A 99 |...Q$."A"..104:.|
00001880: 3A 4C 24 B2 46 24 28 49 29 3A 8D 37 37 3A 46 24 |:L$.F$(I):.77:F$|
00001890: 28 49 29 B2 4C 24 3A 89 32 31 36 00 BA 20 DF 00 |(I).L$:.216.. ..|
000018A0: 8B 51 24 B2 22 43 22 B0 51 24 B2 41 24 A7 99 22 |.Q$."C".Q$.A$.."|
000018B0: C3 CF CE D4 22 3A 89 32 32 36 00 CA 20 E0 00 8B |....":.226.. ...|
000018C0: 51 24 B2 22 52 22 A7 32 31 35 00 D3 20 E1 00 89 |Q$."R".215.. ...|
000018D0: 32 31 39 00 E3 20 E2 00 82 3A 99 22 CC C1 D3 D4 |219.. ...:."....|
000018E0: 20 22 3B 00 F9 20 E3 00 99 22 50 52 45 53 53 20 | ";.. ..."PRESS |
000018F0: 12 D2 C5 D4 D5 D2 CE 92 22 00 0C 21 E4 00 A1 51 |........"..!...Q|
00001900: 24 3A 8B 51 24 B2 22 22 A7 32 32 38 00 15 21 E5 |$:.Q$."".228..!.|
00001910: 00 89 31 33 39 00 21 21 E6 00 8B 53 B3 B1 31 A7 |..139.!!...S..1.|
00001920: 80 00 4F 21 E7 00 85 22 D3 41 56 45 20 C6 49 4C |..O!...".AVE .IL|
00001930: 45 3F 20 D9 9D 9D 9D 22 3B 51 24 3A 8B 51 24 B2 |E? ....";Q$:.Q$.|
00001940: 22 D9 22 B0 51 24 B2 22 59 22 A7 8D 31 35 33 00 |".".Q$."Y"..153.|
00001950: 55 21 E8 00 80 00 97 21 E9 00 9F 31 35 2C 38 2C |U!.....!...15,8,|
00001960: 31 35 2C 22 49 22 3A A0 31 35 3A 85 22 C4 49 52 |15,"I":.15:.".IR|
00001970: 45 43 54 4F 52 59 20 28 D9 2F CE 29 3F 20 CE 9D |ECTORY (./.)? ..|
00001980: 9D 9D 22 3B 51 24 3A 8B 51 24 B2 22 4E 22 B0 51 |..";Q$:.Q$."N".Q|
00001990: 24 B2 22 CE 22 A7 8E 00 A8 21 EA 00 99 3A 9F 32 |$."."....!...:.2|
000019A0: 2C 38 2C 32 2C 22 24 22 00 B0 21 EB 00 8D 31 36 |,8,2,"$"..!...16|
000019B0: 00 BD 21 EC 00 8B 53 54 B2 36 36 A7 8E 00 F0 21 |..!...ST.66....!|
000019C0: ED 00 A1 23 32 2C 51 24 3A A1 23 32 2C 51 24 3A |...#2,Q$:.#2,Q$:|
000019D0: 81 49 B2 33 A4 31 38 3A A1 23 32 2C 51 24 3A 99 |.I.3.18:.#2,Q$:.|
000019E0: 51 24 3B 3A 8B 51 24 B2 22 A0 22 A7 49 B2 31 39 |Q$;:.Q$.".".I.19|
000019F0: 00 FD 21 EE 00 82 3A 99 3A 89 32 33 35 00 00 00 |..!...:.:.235...|
00001A00: 45 00 83 20 00 00 00 51 00 87 00 00 00 00 51 80 |E.. ...Q......Q.|
00001A10: 01 04 5D 00 00 4A 00 84 40 00 00 00 4C 00 84 00 |..]..J..@...L...|
00001A20: 00 00 00 49 00 00 00 00 00 00 4F 00 81 00 00 00 |...I......O.....|
00001A30: 00 58 00 8A 6A C0 00 00 4C 80 08 1F 5D 00 00 59 |.X..j...L...]..Y|
00001A40: 00 83 20 00 00 00 4E 80 04 33 5D 00 00 53 00 81 |.. ...N..3]..S..|
00001A50: 00 00 00 00 43 00 83 60 00 00 00 4E 80 2B 00 01 |....C..`...N.+..|
00001A60: 00 0C 01 87 5F 01 86 5F 00 00 00 00 00 00 00 00 |...._.._........|
00001A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001A80: 00 00 00 00 00 00 4C 00 43 00 01 00 0C 83 00 00 |......L.C.......|
00001A90: 00 00 83 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00001AC0: 00 00 00 00 00 00 00 00 00 53 00 43 00 01 00 0C |.........S.C....|
00001AD0: 00 00 00 00 00 83 00 00 00 00 84 00 00 00 00 84 |................|
00001AE0: 00 00 00 00 84 00 00 00 00 84 00 00 00 00 84 00 |................|
00001AF0: 00 00 00 84 00 00 00 00 84 00 00 00 00 84 00 00 |................|
00001B00: 00 00 84 00 00 00 00 84 00 00 00 00 00 00 84 00 |................|
00001B10: 00 00 00 84 00 00 00 00 84 00 00 00 00 84 00 00 |................|
00001B20: 00 00 84 00 00 00 00 84 00 00 4C 53 00 00 00 00 |..........LS....|
00001B30: 00 00 00 84 00 00 00 00 84 00 00 00 00 00 84 00 |................|
00001B40: 00 00 00 84 00 00 00 00 84 00 00 00 84 00 00 00 |................|
00001B50: 00 84 00 00 00 00 84 00 00 84 00 00 00 00 84 00 |................|
00001B60: 00 00 00 84 00 00 00 00 00 00 84 00 00 00 00 84 |................|
00001B70: 00 00 00 00 84 00 00 00 00 84 00 00 00 00 84 00 |................|
00001B80: 00 00 00 84 00 00 00 00 84 00 00 00 00 00 84 00 |................|
00001B90: 00 00 00 84 00 00 00 00 84 00 00 00 00 84 00 00 |................|
00001BA0: 00 00 84 00 00 00 00 00 00 84 00 00 00 00 84 00 |................|
00001BB0: 00 00 00 84 00 00 00 00 84 00 00 00 00 00 00 84 |................|
00001BC0: 00 00 00 00 84 00 00 00 00 84 00 00 00 00 84 00 |................|
00001BD0: 00 00 00 84 00 00 00 00 84 00 00 FD FD FD FD FD |................|
00001BE0: FD FD FD FD FD FD FD FD FD FD FD FD FD FD FD FD |................|
00001BF0: FD FD FD FD FD FD FD FD FD FD FD FD FD FD FD FD |................|
..X.... COPYRIGHT (C)1983 BY CHARLES D.
ARCENEAUX-ALL RIGHTS RESERVED **MICROBAS
E V1.6**......:A$.G(13):C$."^":R$.".":B$
.".":.G(14);B$:.B(44)..18..53281,1......
N$(11),L(11),S(11):.107......138.M....4,
4,7:.......4," ":LN.LN.1:.......4,Q$;:..
.... 4:.......I.0.C.2:.K.I.1.C.1.$....H(
S$,1)."N".12.V....J(F$(K),S(J).1,L(J)).J
(F$(I),S(J).1,L(J)).14.^....15......E(J(
F$(K),S(J).1,L(J))).E(J(F$(I),S(J).1,L(J
))).14......15.....Q$.F$(K):F$(K).F$(I):
F$(I).Q$.J....:.:..Z....ST.66. 2:.......
#2,Q$:.Q$."".16......F(Q$).129........16
......M$."".T.1:..F...T.0:I$.J(F$(I),S(R
).1,L(R)):.F.4.A.E(I$).B....F.23,25,27,2
9,31,33,35.O....A.B.T.1.U..........A.B.T
.1............A.B.T.1.......J....M.1.C(I
$).C(M$):.M$.J(I$,M,C(M$)).T.1:M.L.R....
:.......I$.M$.T.1... .....!..I$.M$.T.1..
.".....#..I$.M$.T.1...$...,.%..".A.LL OR
.S.ELECTED".8.&.E.7:.67.L.'..Q$."A".M$.
"":..\.(..Q$.."S".38...).."..1. NUMERIC=
.5. ALPHA=":."..2. NUMERIC< .6. ALPHA
<...*.."..3. NUMERIC> .7. ALPHA>":."..4
. CHARACTER MATCH.":."ENTER CHOICE-";...
+..Q$:.Q$..""..Q$.C$.139...,.F.E(Q$):.F.
1.F.7.43.Y.-..Q$:.102:R.J:M$."":."ENTER
SEARCH KEY":.M$:B.E(M$):.F..4..53.H....M
$.C$.139.N./.....0.J.F(Q$):.J.192.J.205.
51...1..J.64.J.77.52...2.J.99:....3.J.J.
128...4.J.J.65:..R.5..C(N$).L(J).....6..
C(N$).L(J).N$.H(N$,L(J)):....7.N$.N$." "
:.53.0.8.."TAPE OR DISK? D...";D$:.D$."D
".D$."D".@.9..D$.C$..139.Q.:..D$."D"..23
3...;.."FILE NAME";F$:.D$."D".F$."".."MU
ST SUPPLY FILE NAME":.59.M.<.."DEVICE=";
D$:."FILE =";F$:."RIGHT? Y...";Q$:.Q$.C
$.139...=..Q$.."Y".Q$.."Y"..56...>..D.1.
65...?..D$."D"..1,8,2,F$.",S,R":..!.@..1
,1,0,F$:..E.A..D$."D"..1,8,2,"@:".F$.",S
,W":..U.B..1,1,1,F$:..G.C..Q$:.Q$."".67.
W.D..Q$."^".139...E..F(Q$).96.Q$.G(F(Q$)
.64)...F..E.220,169,110,120,144,205,39.A
.G..O.1.....H.L.0:O.1:.I.0.11:S(I).L:L.L
.L(I):.:X..(X).1000:X..(X.(L.4)):.F$(X):
....I..O.0...^.J.."ARE YOUR SURE?":."DOI
NG THIS WILL DELETE":."ANY DATA IN MEMOR
Y NOW"...K..:."ANSWER (Y/N)? N...";:.Q$:
.Q$."Y".Q$."Y".1...L..139.X.M..N$(J);":"
:." ";J(L$,S(J).1,L(J));:.N.1.L(J).2:.G
(157);:....N..N$:.H(N$,1).C$.139.#.O..53
:S.1:L$.H(L$,S(J)).N$.I(L$,L.(S(J).L(J))
):..?.P..S$."".F$(C).L$:C.C.1:..`.Q.I.E(
I(S$,2)):.H(S$,1)."N".84...R..J.0.C.1:.J
(F$(J),S(I).1,L(I)).J(L$,S(I).1,L(I)).86
...S..:F$(C).L$:C.C.1:....T..J.0.C.1:.E(
J(F$(J),S(I).1,L(I))).E(J(L$,S(I).1,L(I)
)). 86...U..:F$(C).L$:C.C.1:..6.V..K.C.J
.1..1:F$(K).F$(K.1):.:F$(J).L$:C.C.1:..F
.W.."ARE YOU SURE? N...";Q$:.Q$.."Y".Q$.
."Y".....X.."DELETE":.C.X.1.I.I.1:C.C.1:
.90...Y..J.I.C.2:F$(J).F$(J.1):.:C.C.1:.
I.C.I.C.1.H.Z.F$(C)."":....[..".. FIEL
DS DEFINITION"...\..".FIELD ";G(97.J);"
NAME:..... ";N$(J);".".A.]..N$(J):.C(N$
(J)).12.N$(J).H(N$(J),12).B.^..H(N$(J),1
).C$.N$(J)."":.139.T._..N$(J)."".101...`
.."....FIELD ";G(97.J);" SIZE:";G(13);"?
";L(J);G(13);".";...A..L(J):.L(J).87..".
>87 NOT ALLOWED........":.96...B.L.0:.I.
0.11:L.L.L(I):.:.L..174.101.8.C..L(J).0.
.".ZERO NOT ALLOWED........":.96.D.D..".
RECORD EXCEEDS MAXIMUM.........":.96.J.E
.....F..J.0.11:.L(J)..0..G(97.J);" ";N$(
J)...G...C.H..".ENTER FIELD ID-";Q$:.H(Q
$,1).C$.138...I..48:.J.99..:."A THRU L O
NLY":.102...J...-.K.."..DATA MANAGER ENT
RY":."..N. NEW FILE":."..O. OLD FILE".G.
L..". MAKE SELECTION".S.M.E.3:.67.C.N.
.Q$."N".113.S.O..Q$."O".125.|.P..109...Q
..73:.J.0.11:.91:.N$(J)."".115...R..J.I.
S.."..FIELD...ID. .SIZE. .NAME.".U.T..I
.0.11...U..G(97.I);" ";" ";I(D(L(I)),2
);" ";N$(I):..I.V.."..A. ADD/CHANGE FIE
LD":.".D. DELETE FIELD":.".E. ENTER DATA
".L.W.." TYPE OPTION-":E.4:.67...X
..Q$."A"..104:.91:.115...Y..Q$."D".124..
.Z..Q$."E".159...{..115.M.|..104:N$(J)."
":L(J).0:.115...}..73:D.0:.". LOAD":.56:
.I.0.11:.1,N$(I),L(I):....~..1,I$:.I$:.I
$."S=".130.+...I$."P=".131.<....I$."D="
.132.E....126.T....1,S$:.126.V....1,P:.I
.0.P.1:.1,P$(I):.:.126......72:C.0......
ST..0.138......1,F$(C):.F$(C)."*END".138
.O....L.87..1,F$:F$(C).F$(C).F$.....C.C.
1:.C..X.1.161......133..... 1.2....7:.".
MAIN MENU":."..N. NEW FILE":."..L.
LOAD FILE".]...."..S. SAVE FILE":."..A.
ADD A RECORD"......"..O. ORDER .Q. QU
IT":."..P. PRINT .F. FIND"......".
MAKE SELECTION-".....E.5:.67.L....Q$."F"
.215......Q$."O".209......Q$."N".113....
..Q$."L".125......Q$."S"..153:.139."....
Q$."A".159.2....Q$."P".176.B....Q$."Q".2
30.K....139.}....". SAVE":D.1:.56:.I.0.1
1:.1,N$(I);",";L(I):.......S$..""..1,"S=
":.1,S$.B....P..0..1,"P=":.1,P:.I.0.P.1:
.1,P$(I):.......1,"D=":.I.0.C:.1,J(F$(I)
,1,87):.L.88.158......1,J(F$(I),88,87)..
....:.1,"*END":S.0: 1:..'....71.I. .."."
;X.1;"RECORDS";C;"USED":..H....C.X.1.."M
EMORY FULL":.227.....L$."":.I.1.L:L$.L$.
" ":.:.J.0.11:.L(J).0.164:.77......77...
....H....".":.J.0.11:.L(J).0.167......R$
;G(97.J);" ";N$(J);":";B$;J(L$,S(J).1,L(
J))......:.".N.EXT .A.LTER .M.AINMENU".*
...E.2:.67.@....Q$."N".Q$.A$.173.\....Q$
."A"..104:.:.77:.165.T....Q$."M".Q$."Q":
.173.}....168......80......Q$."Q".139...
...160.Y....4:.P..0.."USE LAST PRINT? Y.
..";Q$:.Q$."Y".Q$."Y".186......".LINES P
ER ENTRY? 6...";P:.P.66.P.1.."INVALID":.
177.Q....".":.J.0.11:.L(J)..0..G(65.J);"
";I(D(L(J)),2);" ";N$(J).J....:.I.0.P.1
:.I.10.181.....P$(I)."":."LINE"I.1"TEMPL
ATE":.P$(I):.P$(I).C$.139.......C...."."
:.I.0.P.1:.I.10.184.R....I.1;P$(I)......
:."CHANGE ANYTHING":."ENTER LINE # OR 0?
0...";Q:.Q.1.Q.11.186.N...."LINE"Q:."?
";P$(Q.1);".":P$(Q.1)."":.P$(Q.1):.182.I
....". PRINT SELECT":.37.....LN.65:PG.0
:.I.0.C.1:.20:.T.0.202......P.2.195.....
.LN.57.195.....PG.PG.1:.N.LN.65:.5:.N:LN
.0:Q$." ":.N.1.70:.6:.N.....Q$."PAGE".D(
PG):.6:.5:N.0:.K.1.C(P$(0)):Q$.J(P$(0),K
,1).C...J.F(Q$).65:.J.0.J.11.Q$." ":.6:.
194...A.Q$.N$(J):.6:N.N.L(J).C(N$(J)):.N
.0.Q$." ":.J.1.N:.6:.J:N.0...B..K:.5:.5.
..C..N.0.P.1:.N.10..5:.201...D..P$(N).""
..5:.201...E..K.1.C(P$(N)):Q$.J(P$(N),K,
1)...F.J.F(Q$).65:.J.0.J.12..6:.200.".G.
Q$.J(F$(I),S(J).1,L(J)):.6.+.H..:.5.1.I.
..F.J..Q$:.Q$.."_".208.J.K..".R.ESTART .
C.ONT .^.MAINMENU".V.L.E.6:.67...M..Q$."
R".182...N..Q$."C".Q$.A$.208...O..204...
P..:.7:.139...Q..".SORT.":."ALPHA OR NUM
ERIC(A/N)":."? A...";S$:.S$.C$.S$."":.13
9...R..S$."A".S$."A".S$."A":.212.#.S.S$.
"N".,.T..102.H.U..L(J).0.."INVALID":.212
.J.V.S$.S$.D(J):."SORTING":.8:.139...W..
".. SEARCH":.37:."SEARCHING":.I.0.C.
1:.20:.T.0.226.C.X..".":.J.0.11:.L(J).0.
218...Y..R$G(97.J);". ";N$(J);":"B$;J(F$
(I),S(J).1,L(J)).5 Z..:.".C.ONT .N.EXT .
A.LTER .D.ELETE .R.EKEY .^. MAINMENU".A
..E.1:.67.X ...Q$."N".M$."":.226.M ...Q$
."D"..87:.226.. ...Q$."A"..104:.:L$.F$(I
):.77:F$(I).L$:.216.. ...Q$."C".Q$.A$.."
CONT":.226.J ...Q$."R".215.S ...219.. ..
.:."LAST ";.. ..."PRESS .RETURN."..!...Q
$:.Q$."".228..!...139.!!...S..1...O!..."
SAVE FILE? Y...";Q$:.Q$."Y".Q$."Y"..153.
U!.....!...15,8,15,"I": 15:."DIRECTORY (
Y/N)? N...";Q$:.Q$."N".Q$."N"....!...:.2
,8,2,"$"..!...16..!...ST.66....!...#2,Q$
:.#2,Q$:.I.3.18:.#2,Q$:.Q$;:.Q$." ".I.19
..!...:.:.235...E.. ...Q......Q...]..J..
@...L......I......O......X..J...L...]..Y
.. ...N..3]..S......C..`...N.+......_.._
..............................L.C.......
........................................
.................S.C....................
........................................
..................................LS....
........................................
........................................
........................................
........................................
........................................
........
> CLICK IMAGE PREVIEW FOR FULL MODAL