IND64
FILE INFORMATION
FILENAME(S): IND64
FILE TYPE(S): PRG
FILE SIZE: 6.5K
FIRST SEEN: 2025-11-30 01:08:05
APPEARS ON: 2 disk(s)
FILE HASH
cda96f28cdd3f93d5d4dd041a174681ca4f54f9c14a600b26e004ef0f40e6dce
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD DISK 20 | IND64 | PRG | Treasure Chest - Wolfgang Rauprich | 19 | 0 | DOWNLOAD FILE |
| FREESOFT NR | IND64 | PRG | Treasure Chest - Wolfgang Rauprich | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 1E 00 8D 35 30 30 30 30 00 31 08 72 |.......50000.1.r|
00000010: 00 A0 31 35 3A A0 32 3A A0 33 3A 97 35 33 32 38 |..15:.2:.3:.5328|
00000020: 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A 99 22 05 |0,0:.53281,0:.".|
00000030: 22 00 50 08 73 00 99 22 93 22 3A 99 A6 31 34 29 |".P.s..".":..14)|
00000040: 22 11 12 20 4D 41 49 4E 20 4D 45 4E 55 20 92 22 |".. MAIN MENU ."|
00000050: 00 80 08 78 00 99 22 11 11 1D 1D 1D 1D 1D 12 31 |...x.."........1|
00000060: 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000070: 2E 2E 2E 2E 2E 44 41 54 41 20 45 4E 54 52 59 22 |.....DATA ENTRY"|
00000080: 00 B0 08 7D 00 99 22 11 11 1D 1D 1D 1D 1D 12 32 |...}.."........2|
00000090: 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000000A0: 2E 2E 2E 2E 2E 2E 2E 2E 44 49 53 50 4C 41 59 22 |........DISPLAY"|
000000B0: 00 E0 08 82 00 99 22 11 11 1D 1D 1D 1D 1D 12 33 |......"........3|
000000C0: 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000000D0: 2E 2E 2E 2E 57 52 49 54 45 20 46 49 4C 45 53 22 |....WRITE FILES"|
000000E0: 00 10 09 87 00 99 22 11 11 1D 1D 1D 1D 1D 12 34 |......"........4|
000000F0: 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000100: 2E 2E 2E 2E 2E 52 45 41 44 20 46 49 4C 45 53 22 |.....READ FILES"|
00000110: 00 40 09 89 00 99 22 11 11 1D 1D 1D 1D 1D 12 35 |.@...."........5|
00000120: 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000130: 2E 2E 2E 2E 2E 50 52 49 4E 54 20 44 41 54 41 22 |.....PRINT DATA"|
00000140: 00 70 09 8C 00 99 22 11 11 1D 1D 1D 1D 1D 12 36 |.p...."........6|
00000150: 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000160: 43 52 45 41 54 45 20 4E 45 57 20 46 49 4C 45 22 |CREATE NEW FILE"|
00000170: 00 AD 09 91 00 99 22 11 11 1D 1D 1D 1D 1D 12 37 |......"........7|
00000180: 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000190: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 51 55 49 54 22 |...........QUIT"|
000001A0: 3A 41 54 B2 31 36 31 38 34 2E 35 AC 34 00 C0 09 |:AT.16184.5.4...|
000001B0: 96 00 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 31 35 30 |...Z$:.Z$."".150|
000001C0: 00 DB 09 A0 00 8B C5 28 5A 24 29 B1 37 20 B0 20 |.......(Z$).7 . |
000001D0: C5 28 5A 24 29 B3 31 A7 31 35 30 00 05 0A AA 00 |.(Z$).1.150.....|
000001E0: 91 C5 28 5A 24 29 89 32 30 30 2C 34 30 30 2C 36 |..(Z$).200,400,6|
000001F0: 30 30 2C 38 30 30 2C 37 30 30 2C 34 30 30 30 2C |00,800,700,4000,|
00000200: 31 30 30 30 30 00 0F 0A C8 00 58 B2 58 AA 31 00 |10000.....X.X.1.|
00000210: 3F 0A D2 00 99 22 93 22 3A 99 41 24 3B 3A 85 41 |?....".":.A$;:.A|
00000220: 31 24 28 58 29 3A 99 42 24 3B 3A 85 42 31 24 28 |1$(X):.B$;:.B1$(|
00000230: 58 29 3A 99 43 24 3B 3A 85 43 31 24 28 58 29 00 |X):.C$;:.C1$(X).|
00000240: 5D 0A E1 00 99 44 24 3B 3A 85 44 31 24 28 58 29 |]....D$;:.D1$(X)|
00000250: 3A 99 45 24 3B 3A 85 45 31 24 28 58 29 00 6F 0A |:.E$;:.E1$(X).o.|
00000260: 04 01 81 5A B2 31 A4 38 3A 99 22 11 22 3A 82 00 |...Z.1.8:.".":..|
00000270: 84 0A 05 01 81 5A B2 31 A4 34 30 3A 99 22 2D 22 |.....Z.1.40:."-"|
00000280: 3B 3A 82 5A 00 BA 0A 06 01 99 22 5B 4E 5D 45 58 |;:.Z......"[N]EX|
00000290: 54 20 20 20 22 3B 22 5B 45 5D 44 49 54 20 20 20 |T ";"[E]DIT |
000002A0: 22 3B 22 5B 4D 5D 45 4E 55 20 20 22 3B 22 5B 42 |";"[M]ENU ";"[B|
000002B0: 5D 59 54 45 53 20 46 52 45 45 00 CD 0A 09 01 A1 |]YTES FREE......|
000002C0: 5A 24 3A 8B 5A 24 B2 22 22 A7 32 36 35 00 DD 0A |Z$:.Z$."".265...|
000002D0: 0E 01 8B 5A 24 B2 22 4E 22 A7 32 30 30 00 ED 0A |...Z$."N".200...|
000002E0: 13 01 8B 5A 24 B2 22 45 22 A7 32 31 30 00 FD 0A |...Z$."E".210...|
000002F0: 18 01 8B 5A 24 B2 22 4D 22 A7 31 31 35 00 0E 0B |...Z$."M".115...|
00000300: 1A 01 8B 5A 24 B2 22 42 22 A7 8D 32 39 30 00 37 |...Z$."B"..290.7|
00000310: 0B 1D 01 8B 5A 24 B3 B1 22 43 22 B0 5A 24 B3 B1 |....Z$.."C".Z$..|
00000320: 22 45 22 B0 5A 24 B3 B1 22 4D 22 B0 5A 24 B3 B1 |"E".Z$.."M".Z$..|
00000330: 22 42 22 A7 32 36 35 00 75 0B 22 01 46 52 B2 46 |"B".265.u.".FR.F|
00000340: 52 AA 28 C3 28 41 31 24 28 58 29 29 AA C3 28 42 |R.(.(A1$(X))..(B|
00000350: 31 24 28 58 29 29 AA C3 28 43 31 24 28 58 29 29 |1$(X))..(C1$(X))|
00000360: AA C3 28 44 31 24 28 58 29 29 AA C3 28 45 31 24 |..(D1$(X))..(E1$|
00000370: 28 58 29 29 29 00 9B 0B 27 01 99 22 91 91 91 42 |(X)))...'.."...B|
00000380: 59 54 45 53 20 46 52 45 45 20 22 3B 32 33 30 39 |YTES FREE ";2309|
00000390: 35 AB 54 45 4D 50 AB 46 52 3A 8E 00 B1 0B 90 01 |5.TEMP.FR:......|
000003A0: 8F 20 2A 2A 2A 20 44 49 53 50 4C 41 59 20 2A 2A |. *** DISPLAY **|
000003B0: 2A 00 D0 0B 91 01 99 22 93 22 3A 99 A3 31 34 29 |*......".":..14)|
000003C0: 22 11 11 44 49 53 50 4C 41 59 20 4D 45 4E 55 22 |"..DISPLAY MENU"|
000003D0: 00 00 0C 92 01 99 22 11 11 1D 1D 1D 1D 1D 12 44 |......"........D|
000003E0: 20 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | ...............|
000003F0: 2E 2E 2E 2E 2E 2E 2E 2E 44 49 53 50 4C 41 59 22 |........DISPLAY"|
00000400: 00 30 0C 93 01 99 22 11 11 1D 1D 1D 1D 1D 12 46 |.0...."........F|
00000410: 20 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | ...............|
00000420: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 46 49 4E 44 22 |...........FIND"|
00000430: 00 5F 0C 94 01 99 22 11 11 1D 1D 1D 1D 1D 12 53 |._...."........S|
00000440: 20 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | ...............|
00000450: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 53 4F 52 54 22 00 |..........SORT".|
00000460: A5 0C 95 01 99 22 11 11 1D 1D 1D 1D 1D 12 4D 20 |....."........M |
00000470: 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000480: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 4D 45 4E 55 22 3A |..........MENU":|
00000490: 99 22 11 11 11 11 4D 41 4B 45 20 53 45 4C 45 43 |."....MAKE SELEC|
000004A0: 54 49 4F 4E 22 00 B8 0C 96 01 A1 5A 24 3A 8B 5A |TION"......Z$:.Z|
000004B0: 24 B2 22 22 A7 34 30 36 00 C8 0C 97 01 8B 5A 24 |$."".406......Z$|
000004C0: B2 22 44 22 A7 34 31 32 00 D8 0C 98 01 8B 5A 24 |."D".412......Z$|
000004D0: B2 22 46 22 A7 35 30 30 00 E9 0C 99 01 8B 5A 24 |."F".500......Z$|
000004E0: B2 22 53 22 A7 35 30 31 30 00 F9 0C 9A 01 8B 5A |."S".5010......Z|
000004F0: 24 B2 22 4D 22 A7 31 31 35 00 22 0D 9B 01 8B 5A |$."M".115."....Z|
00000500: 24 B3 B1 22 44 22 B0 5A 24 B3 B1 22 46 22 B0 5A |$.."D".Z$.."F".Z|
00000510: 24 B3 B1 22 53 22 B0 5A 24 B3 B1 22 4D 22 A7 34 |$.."S".Z$.."M".4|
00000520: 30 36 00 34 0D 9C 01 99 22 93 52 45 43 22 3B A3 |06.4....".REC";.|
00000530: 35 29 41 24 00 63 0D A0 01 99 22 A3 A3 A3 A3 A3 |5)A$.c....".....|
00000540: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000550: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000560: A3 A3 22 00 6C 0D A4 01 53 4C B2 30 00 78 0D A5 |..".l...SL.0.x..|
00000570: 01 81 4C 4F B2 31 A4 58 00 84 0D A9 01 53 4C B2 |..LO.1.X.....SL.|
00000580: 53 4C AA 31 00 97 0D AF 01 99 4C 4F 3B A3 35 29 |SL.1......LO;.5)|
00000590: 41 31 24 28 4C 4F 29 00 A8 0D B4 01 8B 53 4C B2 |A1$(LO)......SL.|
000005A0: 32 30 A7 8D 35 30 30 30 00 AE 0D E0 01 82 00 CF |20..5000........|
000005B0: 0D E5 01 99 22 54 4F 54 41 4C 20 52 45 43 4F 52 |...."TOTAL RECOR|
000005C0: 44 53 20 20 22 3B 22 12 22 3B 58 3B 22 92 22 00 |DS ";".";X;".".|
000005D0: E2 0D EA 01 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 34 |.....Z$:.Z$."".4|
000005E0: 39 30 00 EB 0D EF 01 89 31 31 35 00 07 0E F4 01 |90......115.....|
000005F0: 8F 20 2A 2A 2A 20 53 45 41 52 43 48 20 4D 4F 44 |. *** SEARCH MOD|
00000600: 55 4C 45 20 2A 2A 2A 00 33 0E F5 01 41 31 24 B2 |ULE ***.3...A1$.|
00000610: 22 2A 22 3A 42 31 24 B2 22 2A 22 3A 43 31 24 B2 |"*":B1$."*":C1$.|
00000620: 22 2A 22 3A 44 31 24 B2 22 2A 22 3A 45 31 24 B2 |"*":D1$."*":E1$.|
00000630: 22 2A 22 00 50 0E F8 01 99 22 93 22 3B A6 31 36 |"*".P....".";.16|
00000640: 29 22 12 11 11 11 20 53 45 41 52 43 48 20 92 22 |)".... SEARCH ."|
00000650: 00 77 0E F9 01 99 A6 38 29 22 11 11 12 20 31 20 |.w.....8)"... 1 |
00000660: 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000670: 2E 2E 2E 22 3B 41 24 00 9E 0E FB 01 99 A6 38 29 |...";A$.......8)|
00000680: 22 11 11 12 20 32 20 92 2E 2E 2E 2E 2E 2E 2E 2E |"... 2 .........|
00000690: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 3B 42 24 00 C5 |..........";B$..|
000006A0: 0E FD 01 99 A6 38 29 22 11 11 12 20 33 20 92 2E |.....8)"... 3 ..|
000006B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000006C0: 2E 22 3B 43 24 00 EC 0E FF 01 99 A6 38 29 22 11 |.";C$.......8)".|
000006D0: 11 12 20 34 20 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |.. 4 ...........|
000006E0: 2E 2E 2E 2E 2E 2E 2E 2E 22 3B 44 24 00 13 0F 02 |........";D$....|
000006F0: 02 99 A6 38 29 22 11 11 12 20 35 20 92 2E 2E 2E |...8)"... 5 ....|
00000700: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 |..............."|
00000710: 3B 45 24 00 3B 0F 03 02 99 A6 38 29 22 11 11 12 |;E$.;.....8)"...|
00000720: 20 4D 20 92 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E | M .............|
00000730: 2E 2E 2E 2E 2E 2E 4D 45 4E 55 22 00 4E 0F 08 02 |......MENU".N...|
00000740: A1 5A 24 3A 8B 5A 24 B2 22 22 A7 35 32 30 00 67 |.Z$:.Z$."".520.g|
00000750: 0F 0A 02 8B 5A 24 B2 22 31 22 A7 99 22 93 22 3B |....Z$."1"..".";|
00000760: 41 24 3A 85 41 31 24 00 80 0F 0C 02 8B 5A 24 B2 |A$:.A1$......Z$.|
00000770: 22 32 22 A7 99 22 93 22 3B 42 24 3A 85 42 31 24 |"2"..".";B$:.B1$|
00000780: 00 99 0F 0E 02 8B 5A 24 B2 22 33 22 A7 99 22 93 |......Z$."3"..".|
00000790: 22 3B 43 24 3A 85 43 31 24 00 B2 0F 10 02 8B 5A |";C$:.C1$......Z|
000007A0: 24 B2 22 34 22 A7 99 22 93 22 3B 44 24 3A 85 44 |$."4"..".";D$:.D|
000007B0: 31 24 00 CB 0F 11 02 8B 5A 24 B2 22 35 22 A7 99 |1$......Z$."5"..|
000007C0: 22 93 22 3B 45 24 3A 85 45 31 24 00 DB 0F 12 02 |".";E$:.E1$.....|
000007D0: 8B 5A 24 B2 22 4D 22 A7 31 31 35 00 F4 0F 13 02 |.Z$."M".115.....|
000007E0: 8B C5 28 5A 24 29 B1 35 B0 C5 28 5A 24 29 B3 31 |..(Z$).5..(Z$).1|
000007F0: A7 35 32 30 00 FC 0F 1A 02 49 B2 30 00 07 10 1C |.520.....I.0....|
00000800: 02 81 4C B2 31 A4 58 00 43 10 1F 02 8B 41 31 24 |..L.1.X.C....A1$|
00000810: B2 41 31 24 28 4C 29 B0 42 31 24 B2 42 31 24 28 |.A1$(L).B1$.B1$(|
00000820: 4C 29 B0 43 31 24 B2 43 31 24 28 4C 29 B0 44 31 |L).C1$.C1$(L).D1|
00000830: 24 B2 44 31 24 28 4C 29 A7 49 B2 49 AA 31 3A 89 |$.D1$(L).I.I.1:.|
00000840: 35 36 30 00 5E 10 20 02 8B 45 31 24 B2 45 31 24 |560.^. ..E1$.E1$|
00000850: 28 4C 29 A7 49 B2 49 AA 31 3A 89 35 36 30 00 64 |(L).I.I.1:.560.d|
00000860: 10 27 02 82 00 8E 10 29 02 81 51 B2 31 A4 28 31 |.'.....)..Q.1.(1|
00000870: 30 AB 49 29 3A 99 22 11 22 3A 82 51 3A 99 49 3B |0.I):.".":.Q:.I;|
00000880: 22 20 49 54 45 4D 53 20 46 4F 55 4E 44 22 00 BA |" ITEMS FOUND"..|
00000890: 10 2A 02 41 31 24 B2 22 2A 22 3A 42 31 24 B2 22 |.*.A1$."*":B1$."|
000008A0: 2A 22 3A 43 31 24 B2 22 2A 22 3A 44 31 24 B2 22 |*":C1$."*":D1$."|
000008B0: 2A 22 3A 45 31 24 B2 22 2A 22 00 CA 10 2B 02 81 |*":E1$."*"...+..|
000008C0: 44 B2 31 A4 38 30 30 3A 82 44 00 D3 10 2D 02 89 |D.1.800:.D...-..|
000008D0: 35 30 30 00 0B 11 30 02 99 22 93 11 11 11 11 22 |500...0.."....."|
000008E0: 3B 41 31 24 28 4C 29 3A 99 22 11 22 3B 42 31 24 |;A1$(L):.".";B1$|
000008F0: 28 4C 29 3A 99 22 11 22 3B 43 31 24 28 4C 29 3A |(L):.".";C1$(L):|
00000900: 99 22 11 22 3B 44 31 24 28 4C 29 00 1B 11 34 02 |.".";D1$(L)...4.|
00000910: 99 22 11 22 3B 45 31 24 28 4C 29 00 55 11 35 02 |.".";E1$(L).U.5.|
00000920: 99 22 11 11 11 11 11 11 11 11 11 11 4E 45 58 54 |."..........NEXT|
00000930: 20 5B 59 2F 4E 5D 22 3B 22 20 20 20 20 20 5B 44 | [Y/N]";" [D|
00000940: 5D 45 4C 45 54 45 22 3B 22 20 20 20 20 20 5B 45 |]ELETE";" [E|
00000950: 5D 44 49 54 22 00 6B 11 3A 02 99 22 13 52 45 43 |]DIT".k.:..".REC|
00000960: 4F 52 44 20 4E 4F 2E 20 22 3B 4C 00 7E 11 44 02 |ORD NO. ";L.~.D.|
00000970: A1 5A 24 3A 8B 5A 24 B2 22 22 A7 35 38 30 00 95 |.Z$:.Z$."".580..|
00000980: 11 45 02 8B 5A 24 B2 22 45 22 A7 99 22 13 22 3A |.E..Z$."E"..".":|
00000990: 8D 31 30 30 30 00 AB 11 46 02 8B 5A 24 B2 22 59 |.1000...F..Z$."Y|
000009A0: 22 A7 99 22 93 22 3A 89 35 35 31 00 BC 11 47 02 |"..".":.551...G.|
000009B0: 8B 5A 24 B2 22 44 22 A7 31 32 30 30 00 CD 11 48 |.Z$."D".1200...H|
000009C0: 02 8B 5A 24 B2 22 4E 22 A7 89 35 30 30 00 DE 11 |..Z$."N"..500...|
000009D0: 49 02 8B 5A 24 B2 22 48 22 A7 31 31 30 30 00 FE |I..Z$."H".1100..|
000009E0: 11 4A 02 8B 5A 24 B3 B1 22 59 22 B0 5A 24 B3 B1 |.J..Z$.."Y".Z$..|
000009F0: 22 4E 22 B0 5A 24 B2 22 48 22 A7 35 38 30 00 14 |"N".Z$."H".580..|
00000A00: 12 58 02 99 22 93 12 57 52 49 54 45 92 20 46 49 |.X.."..WRITE. FI|
00000A10: 4C 45 53 22 00 37 12 5D 02 9F 31 35 2C 38 2C 31 |LES".7.]..15,8,1|
00000A20: 35 3A 85 22 11 11 4E 41 4D 45 20 4F 46 20 46 49 |5:."..NAME OF FI|
00000A30: 4C 45 22 3B 46 49 24 00 53 12 64 02 9F 32 2C 38 |LE";FI$.S.d..2,8|
00000A40: 2C 32 2C 22 40 30 3A 22 AA 46 49 24 AA 22 2C 53 |,2,"@0:".FI$.",S|
00000A50: 2C 57 22 00 89 12 66 02 98 32 2C 41 24 3B C7 28 |,W"...f..2,A$;.(|
00000A60: 31 33 29 3B 42 24 3B C7 28 31 33 29 3B 43 24 3B |13);B$;.(13);C$;|
00000A70: C7 28 31 33 29 3B 44 24 3B C7 28 31 33 29 3B 45 |.(13);D$;.(13);E|
00000A80: 24 3B C7 28 31 33 29 3B 57 00 95 12 67 02 81 4C |$;.(13);W...g..L|
00000A90: 4F B2 31 A4 58 00 CE 12 6C 02 98 32 2C 41 31 24 |O.1.X...l..2,A1$|
00000AA0: 28 4C 4F 29 3B C7 28 31 33 29 3B 42 31 24 28 4C |(LO);.(13);B1$(L|
00000AB0: 4F 29 3B C7 28 31 33 29 3B 43 31 24 28 4C 4F 29 |O);.(13);C1$(LO)|
00000AC0: 3B C7 28 31 33 29 3B 44 31 24 28 4C 4F 29 00 DD |;.(13);D1$(LO)..|
00000AD0: 12 6D 02 98 32 2C 45 31 24 28 4C 4F 29 00 E6 12 |.m..2,E1$(LO)...|
00000AE0: 76 02 82 20 4C 4F 00 F1 12 80 02 A0 32 3A A0 31 |v.. LO......2:.1|
00000AF0: 35 00 FA 12 8A 02 89 31 31 35 00 18 13 BC 02 99 |5......115......|
00000B00: 22 93 4C 4F 41 44 49 4E 47 20 50 52 49 4E 54 20 |".LOADING PRINT |
00000B10: 52 4F 55 54 49 4E 45 22 00 2B 13 C1 02 93 22 49 |ROUTINE".+...."I|
00000B20: 4E 44 45 58 2F 50 52 54 22 2C 38 00 31 13 C6 02 |NDEX/PRT",8.1...|
00000B30: 80 00 46 13 20 03 99 22 93 12 52 45 41 44 92 20 |..F. .."..READ. |
00000B40: 46 49 4C 45 53 22 00 5D 13 25 03 85 22 11 11 46 |FILES".].%.."..F|
00000B50: 49 4C 45 20 4E 41 4D 45 22 3B 46 52 24 00 6A 13 |ILE NAME";FR$.j.|
00000B60: 28 03 9F 31 35 2C 38 2C 31 35 00 85 13 2A 03 9F |(..15,8,15...*..|
00000B70: 32 2C 38 2C 32 2C 22 30 3A 22 AA 46 52 24 AA 22 |2,8,2,"0:".FR$."|
00000B80: 2C 53 2C 52 22 00 9D 13 2C 03 84 31 35 2C 45 4D |,S,R"...,..15,EM|
00000B90: 24 2C 45 4E 24 2C 45 53 24 2C 45 54 24 00 B4 13 |$,EN$,ES$,ET$...|
00000BA0: 2D 03 99 22 11 11 11 11 46 49 4C 45 20 53 54 41 |-.."....FILE STA|
00000BB0: 54 55 53 22 00 D5 13 2E 03 99 45 4D 24 3B 22 20 |TUS"......EM$;" |
00000BC0: 22 3B 45 4E 24 3B 22 20 22 3B 45 53 24 3B 22 20 |";EN$;" ";ES$;" |
00000BD0: 22 3B 45 54 24 00 ED 13 2F 03 84 32 2C 41 24 2C |";ET$.../..2,A$,|
00000BE0: 42 24 2C 43 24 2C 44 24 2C 45 24 2C 57 00 F5 13 |B$,C$,D$,E$,W...|
00000BF0: 30 03 58 B2 30 00 FF 13 31 03 58 B2 58 AA 31 00 |0.X.0...1.X.X.1.|
00000C00: 2E 14 34 03 84 32 2C 41 31 24 28 58 29 2C 42 31 |..4..2,A1$(X),B1|
00000C10: 24 28 58 29 2C 43 31 24 28 58 29 2C 44 31 24 28 |$(X),C1$(X),D1$(|
00000C20: 58 29 2C 45 31 24 28 58 29 3A 53 B2 53 54 00 3C |X),E1$(X):S.ST.<|
00000C30: 14 3E 03 8B 53 B2 30 A7 89 38 31 37 00 58 14 48 |.>..S.0..817.X.H|
00000C40: 03 54 45 4D 50 B2 30 3A 46 52 B2 30 3A 4E 57 B2 |.TEMP.0:FR.0:NW.|
00000C50: 30 3A A0 32 3A A0 31 35 00 63 14 49 03 81 4E B2 |0:.2:.15.c.I..N.|
00000C60: 31 A4 58 00 9C 14 4A 03 4E 57 B2 C3 28 41 31 24 |1.X...J.NW..(A1$|
00000C70: 28 4E 29 29 AA C3 28 42 31 24 28 4E 29 29 AA C3 |(N))..(B1$(N))..|
00000C80: 28 43 31 24 28 4E 29 29 AA C3 28 44 31 24 28 4E |(C1$(N))..(D1$(N|
00000C90: 29 29 AA C3 28 45 31 24 28 4E 29 29 00 AD 14 4B |))..(E1$(N))...K|
00000CA0: 03 54 45 4D 50 B2 54 45 4D 50 AA 4E 57 00 B4 14 |.TEMP.TEMP.NW...|
00000CB0: 4C 03 82 4E 00 BD 14 52 03 89 31 31 35 00 CC 14 |L..N...R..115...|
00000CC0: E8 03 41 42 B2 41 41 3A 51 51 B2 31 00 E4 14 ED |..AB.AA:QQ.1....|
00000CD0: 03 81 41 41 B2 31 30 36 34 20 A4 20 31 35 34 34 |..AA.1064 . 1544|
00000CE0: 20 A9 34 30 00 F8 14 F2 03 8B C2 28 41 41 29 B3 | .40.......(AA).|
00000CF0: B1 33 32 89 31 30 35 30 00 FE 14 FC 03 99 00 06 |.32.1050........|
00000D00: 15 06 04 82 41 41 00 0C 15 10 04 8E 00 28 15 1A |....AA.......(..|
00000D10: 04 81 41 42 B2 41 41 A4 41 41 AA 34 30 3A 97 41 |..AB.AA.AA.40:.A|
00000D20: 42 2C 33 32 3A 82 41 42 00 51 15 1C 04 91 20 51 |B,32:.AB.Q.... Q|
00000D30: 51 20 89 20 31 30 36 35 2C 31 30 36 37 2C 31 30 |Q . 1065,1067,10|
00000D40: 36 39 2C 31 30 37 31 2C 31 30 37 35 2C 31 30 39 |69,1071,1075,109|
00000D50: 39 00 70 15 29 04 51 51 B2 51 51 AA 31 3A 99 41 |9.p.).QQ.QQ.1:.A|
00000D60: 24 3B 3A 85 41 31 24 28 4C 29 3A 89 31 30 33 30 |$;:.A1$(L):.1030|
00000D70: 00 8F 15 2B 04 51 51 B2 51 51 AA 31 3A 99 42 24 |...+.QQ.QQ.1:.B$|
00000D80: 3B 3A 85 42 31 24 28 4C 29 3A 89 31 30 33 30 00 |;:.B1$(L):.1030.|
00000D90: AE 15 2D 04 51 51 B2 51 51 AA 31 3A 99 43 24 3B |..-.QQ.QQ.1:.C$;|
00000DA0: 3A 85 43 31 24 28 4C 29 3A 89 31 30 33 30 00 CD |:.C1$(L):.1030..|
00000DB0: 15 2F 04 51 51 B2 51 51 AA 31 3A 99 44 24 3B 3A |./.QQ.QQ.1:.D$;:|
00000DC0: 85 44 31 24 28 4C 29 3A 89 31 30 33 30 00 EC 15 |.D1$(L):.1030...|
00000DD0: 33 04 51 51 B2 51 51 AA 31 3A 99 45 24 3B 3A 85 |3.QQ.QQ.1:.E$;:.|
00000DE0: 45 31 24 28 4C 29 3A 89 31 30 33 30 00 F6 15 4B |E1$(L):.1030...K|
00000DF0: 04 89 31 30 33 30 00 1A 16 4C 04 99 22 13 22 3B |..1030...L..".";|
00000E00: 3A 53 53 B2 28 C2 28 32 31 30 29 29 AC 32 35 36 |:SS.(.(210)).256|
00000E10: 3A 9F 33 2C 33 3A 9F 34 2C 34 00 2C 16 56 04 81 |:.3,3:.4,4.,.V..|
00000E20: 52 B2 30 A4 32 34 3A 48 24 B2 22 22 00 3E 16 60 |R.0.24:H$."".>.`|
00000E30: 04 81 43 B2 30 A4 33 39 3A 47 24 B2 22 22 00 7A |..C.0.39:G$."".z|
00000E40: 16 6A 04 8B C2 28 53 53 AA 28 28 52 AC 34 30 29 |.j...(SS.((R.40)|
00000E50: AA 43 29 29 B1 31 32 37 A7 A1 23 33 2C 47 24 3A |.C)).127..#3,G$:|
00000E60: 48 24 B2 48 24 AA C7 28 31 38 29 AA 47 24 AA C7 |H$.H$..(18).G$..|
00000E70: 28 31 34 36 29 3A 89 31 36 30 00 96 16 74 04 A1 |(146):.160...t..|
00000E80: 23 33 2C 47 24 3A 8B 47 24 B2 C7 28 31 33 29 A7 |#3,G$:.G$..(13).|
00000E90: 47 24 B2 22 20 22 00 A3 16 7E 04 48 24 B2 48 24 |G$." "...~.H$.H$|
00000EA0: AA 47 24 00 B9 16 88 04 82 43 3A 98 34 2C 48 24 |.G$......C:.4,H$|
00000EB0: 3A 82 52 3A A0 34 3A A0 33 00 C2 16 9C 04 89 35 |:.R:.4:.3......5|
00000EC0: 30 30 00 D7 16 B0 04 8F 20 44 45 4C 45 54 45 20 |00...... DELETE |
00000ED0: 52 4F 55 54 49 4E 45 00 F4 16 BA 04 99 22 12 20 |ROUTINE......". |
00000EE0: 41 52 45 20 59 4F 55 20 53 55 52 45 20 3F 20 59 |ARE YOU SURE ? Y|
00000EF0: 2F 4E 92 22 00 08 17 C4 04 A1 5A 24 3A 8B 5A 24 |/N."......Z$:.Z$|
00000F00: B2 22 22 A7 31 32 32 30 00 18 17 C9 04 8B 5A 24 |."".1220......Z$|
00000F10: B2 22 4E 22 A7 35 30 30 00 29 17 CE 04 8B 5A 24 |."N".500.)....Z$|
00000F20: B2 22 59 22 A7 31 32 35 30 00 5F 17 E2 04 41 31 |."Y".1250._...A1|
00000F30: 24 28 4C 29 B2 22 22 3A 42 31 24 28 4C 29 B2 22 |$(L)."":B1$(L)."|
00000F40: 22 3A 43 31 24 28 4C 29 B2 22 22 3A 44 31 24 28 |":C1$(L)."":D1$(|
00000F50: 4C 29 B2 22 22 3A 45 31 24 28 4C 29 B2 22 22 00 |L)."":E1$(L)."".|
00000F60: 68 17 EC 04 89 35 30 30 00 8B 17 A0 0F 85 22 93 |h....500......".|
00000F70: 4E 45 57 20 46 49 4C 45 20 50 52 49 4E 54 45 52 |NEW FILE PRINTER|
00000F80: 20 57 49 44 54 48 20 20 22 3B 57 00 9A 17 CD 0F | WIDTH ";W.....|
00000F90: 57 B2 B5 28 57 AD 34 2E 35 29 00 B6 17 D2 0F 99 |W..(W.4.5)......|
00000FA0: 22 11 11 22 3A 85 22 46 49 45 4C 44 20 4E 4F 2E |"..":."FIELD NO.|
00000FB0: 20 31 22 3B 41 24 00 F0 17 D7 0F 85 22 46 49 45 | 1";A$......"FIE|
00000FC0: 4C 44 20 4E 4F 2E 20 32 22 3B 42 24 3A 85 22 46 |LD NO. 2";B$:."F|
00000FD0: 49 45 4C 44 20 4E 4F 2E 20 33 22 3B 43 24 3A 85 |IELD NO. 3";C$:.|
00000FE0: 22 46 49 45 4C 44 20 4E 4F 2E 20 34 22 3B 44 24 |"FIELD NO. 4";D$|
00000FF0: 00 06 18 E6 0F 85 22 46 49 45 4C 44 20 4E 4F 2E |......"FIELD NO.|
00001000: 20 35 22 3B 45 24 00 33 18 EB 0F 99 22 11 11 11 | 5";E$.3...."...|
00001010: 11 11 11 11 11 11 46 49 45 4C 44 53 20 43 4F 52 |......FIELDS COR|
00001020: 52 45 43 54 20 3F 20 28 59 2F 4E 29 20 20 20 20 |RECT ? (Y/N) |
00001030: 20 20 22 00 47 18 F0 0F A1 5A 24 3A 8B 5A 24 B2 | ".G....Z$:.Z$.|
00001040: 22 22 A7 34 30 38 30 00 57 18 FA 0F 8B 5A 24 B2 |"".4080.W....Z$.|
00001050: 22 59 22 A7 31 31 34 00 68 18 FF 0F 8B 5A 24 B2 |"Y".114.h....Z$.|
00001060: 22 4E 22 A7 34 30 30 30 00 71 18 4A 10 89 31 31 |"N".4000.q.J..11|
00001070: 35 00 A2 18 88 13 99 22 11 48 49 54 20 41 20 4B |5......".HIT A K|
00001080: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3B |EY TO CONTINUE";|
00001090: 22 20 20 12 20 20 46 31 20 54 4F 20 41 42 4F 52 |" . F1 TO ABOR|
000010A0: 54 22 00 B6 18 89 13 A1 5A 24 3A 8B 5A 24 B2 22 |T"......Z$:.Z$."|
000010B0: 22 A7 35 30 30 31 00 C9 18 8A 13 8B 5A 24 B2 C7 |".5001......Z$..|
000010C0: 28 33 32 29 A7 35 30 30 35 00 DC 18 8B 13 8B 5A |(32).5005......Z|
000010D0: 24 B2 C7 28 31 33 33 29 A7 31 31 35 00 FB 18 8C |$..(133).115....|
000010E0: 13 8B 5A 24 B3 B1 C7 28 33 32 29 B0 5A 24 B3 B1 |..Z$...(32).Z$..|
000010F0: C7 28 31 33 33 29 A7 35 30 30 31 00 0E 19 8D 13 |.(133).5001.....|
00001100: 99 22 93 52 45 43 23 22 3B A3 35 29 41 24 00 3D |.".REC#";.5)A$.=|
00001110: 19 8E 13 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |...."-----------|
00001120: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 48 19 |------------".H.|
00001140: 8F 13 53 4C B2 30 3A 8E 00 64 19 92 13 8F 20 2A |..SL.0:..d.... *|
00001150: 2A 53 4F 52 54 20 53 45 4C 45 43 54 20 4D 45 4E |*SORT SELECT MEN|
00001160: 55 20 2A 2A 00 6F 19 9C 13 97 31 39 39 2C 35 00 |U **.o....199,5.|
00001170: 96 19 A6 13 99 22 93 11 11 1D 1D 1D 1D 1D 1D 1D |....."..........|
00001180: 1D 1D 1D 1D 53 45 4C 45 43 54 20 53 4F 52 54 20 |....SELECT SORT |
00001190: 46 49 45 4C 44 22 00 C0 19 B0 13 99 22 11 11 11 |FIELD"......"...|
000011A0: 1D 1D 31 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |..1.............|
000011B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 3B 41 24 |............";A$|
000011C0: 00 E9 19 BA 13 99 22 11 11 1D 1D 32 2E 2E 2E 2E |......"....2....|
000011D0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000011E0: 2E 2E 2E 2E 2E 22 3B 42 24 00 12 1A C4 13 99 22 |.....";B$......"|
000011F0: 11 11 1D 1D 33 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |....3...........|
00001200: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 3B |..............";|
00001210: 43 24 00 3B 1A CE 13 99 22 11 11 1D 1D 34 2E 2E |C$.;...."....4..|
00001220: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00001230: 2E 2E 2E 2E 2E 2E 2E 22 3B 44 24 00 64 1A D8 13 |.......";D$.d...|
00001240: 99 22 11 11 1D 1D 35 2E 2E 2E 2E 2E 2E 2E 2E 2E |."....5.........|
00001250: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00001260: 22 3B 45 24 00 78 1A E2 13 A1 5A 24 3A 8B 5A 24 |";E$.x....Z$:.Z$|
00001270: B2 22 22 A7 35 30 39 30 00 89 1A EC 13 8B 5A 24 |."".5090......Z$|
00001280: B2 22 31 22 A7 36 30 30 30 00 9A 1A F6 13 8B 5A |."1".6000......Z|
00001290: 24 B2 22 32 22 A7 36 31 30 30 00 AB 1A 00 14 8B |$."2".6100......|
000012A0: 5A 24 B2 22 33 22 A7 36 31 36 30 00 BC 1A 0A 14 |Z$."3".6160.....|
000012B0: 8B 5A 24 B2 22 34 22 A7 36 32 34 35 00 CD 1A 14 |.Z$."4".6245....|
000012C0: 14 8B 5A 24 B2 22 35 22 A7 36 33 31 32 00 E7 1A |..Z$."5".6312...|
000012D0: 1E 14 8B C5 28 5A 24 29 B3 31 B0 C5 28 5A 24 29 |....(Z$).1..(Z$)|
000012E0: B1 35 A7 37 30 32 32 00 F0 1A 28 14 89 35 30 30 |.5.7022...(..500|
000012F0: 00 0F 1B 70 17 8F 20 2A 2A 2A 20 53 4F 52 54 20 |...p.. *** SORT |
00001300: 52 4F 55 54 49 4E 45 20 41 31 24 20 2A 2A 2A 00 |ROUTINE A1$ ***.|
00001310: 1C 1B 71 17 97 38 30 38 2C 32 32 35 00 53 1B 75 |..q..808,225.S.u|
00001320: 17 99 22 93 53 4F 52 54 49 4E 47 20 42 59 20 22 |..".SORTING BY "|
00001330: 3B 41 24 3A 99 20 22 11 11 12 50 4C 45 41 53 45 |;A$:. "...PLEASE|
00001340: 20 44 4F 20 4E 4F 54 20 49 4E 54 45 52 52 55 50 | DO NOT INTERRUP|
00001350: 54 21 22 00 6C 1B 7A 17 44 B2 32 AE 28 B5 28 BC |T!".l.z.D.2.(.(.|
00001360: 28 58 29 AD BC 28 32 29 29 29 AB 31 00 7B 1B 7F |(X)..(2))).1.{..|
00001370: 17 81 54 B2 31 A4 28 58 AB 44 29 00 89 1B 84 17 |..T.1.(X.D).....|
00001380: 81 55 B2 54 A4 31 A9 AB 44 00 A4 1B 89 17 8B 41 |.U.T.1..D......A|
00001390: 31 24 28 55 29 B3 B2 41 31 24 28 55 AA 44 29 A7 |1$(U)..A1$(U.D).|
000013A0: 36 30 34 30 00 E2 1B 8E 17 54 58 24 B2 41 31 24 |6040.....TX$.A1$|
000013B0: 28 55 29 3A 41 31 24 28 55 29 B2 41 31 24 28 55 |(U):A1$(U).A1$(U|
000013C0: AA 44 29 3A 41 31 24 28 55 AA 44 29 B2 54 58 24 |.D):A1$(U.D).TX$|
000013D0: 3A 8D 36 34 38 30 3A 8D 36 35 30 30 3A 8D 36 36 |:.6480:.6500:.66|
000013E0: 30 30 00 ED 1B 90 17 8D 20 36 37 30 30 00 F4 1B |00...... 6700...|
000013F0: 93 17 82 55 00 FB 1B 98 17 82 54 00 12 1C 9A 17 |...U......T.....|
00001400: 44 B2 B5 28 44 AD 32 29 3A 8B 44 B1 30 A7 36 30 |D..(D.2):.D.0.60|
00001410: 31 35 00 24 1C 9D 17 97 38 30 38 2C 32 33 37 3A |15.$....808,237:|
00001420: 89 31 31 35 00 2A 1C 9E 17 3A 00 49 1C D4 17 8F |.115.*...:.I....|
00001430: 20 2A 2A 2A 20 53 4F 52 54 20 52 4F 55 54 49 4E | *** SORT ROUTIN|
00001440: 45 20 42 31 24 20 2A 2A 2A 00 4F 1C D5 17 3A 00 |E B1$ ***.O...:.|
00001450: 5C 1C D9 17 97 38 30 38 2C 32 32 35 00 94 1C DE |\....808,225....|
00001460: 17 99 22 93 53 4F 52 54 49 4E 47 20 42 59 20 A0 |..".SORTING BY .|
00001470: 22 3B 42 24 3A 99 20 22 11 11 12 50 4C 45 41 53 |";B$:. "...PLEAS|
00001480: 45 20 44 4F 20 4E 4F 54 20 49 4E 54 45 52 52 55 |E DO NOT INTERRU|
00001490: 50 54 21 22 00 AD 1C E3 17 44 B2 32 AE 28 B5 28 |PT!".....D.2.(.(|
000014A0: BC 28 58 29 AD BC 28 32 29 29 29 AB 31 00 BC 1C |.(X)..(2))).1...|
000014B0: E8 17 81 54 B2 31 A4 28 58 AB 44 29 00 CA 1C ED |...T.1.(X.D)....|
000014C0: 17 81 55 B2 54 A4 31 A9 AB 44 00 E5 1C F2 17 8B |..U.T.1..D......|
000014D0: 42 31 24 28 55 29 B3 B2 42 31 24 28 55 AA 44 29 |B1$(U)..B1$(U.D)|
000014E0: A7 36 31 34 35 00 23 1D F7 17 54 58 24 B2 42 31 |.6145.#...TX$.B1|
000014F0: 24 28 55 29 3A 42 31 24 28 55 29 B2 42 31 24 28 |$(U):B1$(U).B1$(|
00001500: 55 AA 44 29 3A 42 31 24 28 55 AA 44 29 B2 54 58 |U.D):B1$(U.D).TX|
00001510: 24 3A 8D 36 34 36 30 3A 8D 36 35 30 30 3A 8D 36 |$:.6460:.6500:.6|
00001520: 36 30 30 00 2D 1D FA 17 8D 36 37 30 30 00 34 1D |600.-....6700.4.|
00001530: FC 17 82 55 00 3B 1D 01 18 82 54 00 52 1D 06 18 |...U.;....T.R...|
00001540: 44 B2 B5 28 44 AD 32 29 3A 8B 44 B1 30 A7 36 31 |D..(D.2):.D.0.61|
00001550: 32 30 00 64 1D 0B 18 97 38 30 38 2C 32 33 37 3A |20.d....808,237:|
00001560: 89 31 31 35 00 6A 1D 0C 18 3A 00 8C 1D 10 18 8F |.115.j...:......|
00001570: 20 20 2A 2A 2A 20 20 53 4F 52 54 20 52 4F 55 54 | *** SORT ROUT|
00001580: 49 4E 45 20 43 31 24 20 20 2A 2A 2A 00 92 1D 11 |INE C1$ ***....|
00001590: 18 3A 00 CA 1D 15 18 99 22 93 53 4F 52 54 49 4E |.:......".SORTIN|
000015A0: 47 20 42 59 20 20 22 3B 43 24 3A 99 20 22 11 11 |G BY ";C$:. "..|
000015B0: 12 50 4C 45 41 53 45 20 44 4F 20 4E 4F 54 20 49 |.PLEASE DO NOT I|
000015C0: 4E 54 45 52 52 55 50 54 21 22 00 E3 1D 1A 18 44 |NTERRUPT!".....D|
000015D0: B2 32 AE 28 B5 28 BC 28 58 29 AD BC 28 32 29 29 |.2.(.(.(X)..(2))|
000015E0: 29 AB 31 00 F2 1D 1F 18 81 54 B2 31 A4 28 58 AB |).1......T.1.(X.|
000015F0: 44 29 00 00 1E 24 18 81 55 B2 54 A4 31 A9 AB 44 |D)...$..U.T.1..D|
00001600: 00 1B 1E 29 18 8B 43 31 24 28 55 29 B3 B2 43 31 |...)..C1$(U)..C1|
00001610: 24 28 55 AA 44 29 A7 36 32 32 30 00 59 1E 2E 18 |$(U.D).6220.Y...|
00001620: 54 58 24 B2 43 31 24 28 55 29 3A 43 31 24 28 55 |TX$.C1$(U):C1$(U|
00001630: 29 B2 43 31 24 28 55 AA 44 29 3A 43 31 24 28 55 |).C1$(U.D):C1$(U|
00001640: AA 44 29 B2 54 58 24 3A 8D 36 34 36 30 3A 8D 36 |.D).TX$:.6460:.6|
00001650: 34 38 30 3A 8D 36 36 30 30 00 63 1E 38 18 8D 36 |480:.6600.c.8..6|
00001660: 37 30 30 00 6A 1E 42 18 82 55 00 71 1E 4C 18 82 |700.j.B..U.q.L..|
00001670: 54 00 88 1E 56 18 44 B2 B5 28 44 AD 32 29 3A 8B |T...V.D..(D.2):.|
00001680: 44 B1 30 A7 36 31 37 35 00 9A 1E 60 18 97 38 30 |D.0.6175...`..80|
00001690: 38 2C 32 33 37 3A 89 31 31 35 00 A0 1E 61 18 3A |8,237:.115...a.:|
000016A0: 00 BF 1E 65 18 8F 20 2A 2A 2A 20 53 4F 52 54 20 |...e.. *** SORT |
000016B0: 52 4F 55 54 49 4E 45 20 44 31 24 20 2A 2A 2A 00 |ROUTINE D1$ ***.|
000016C0: C5 1E 66 18 3A 00 FD 1E 6A 18 99 22 93 53 4F 52 |..f.:...j..".SOR|
000016D0: 54 49 4E 47 20 42 59 20 20 22 3B 44 24 3A 99 20 |TING BY ";D$:. |
000016E0: 22 11 11 12 50 4C 45 41 53 45 20 44 4F 20 4E 4F |"...PLEASE DO NO|
000016F0: 54 20 49 4E 54 45 52 52 55 50 54 21 22 00 16 1F |T INTERRUPT!"...|
00001700: 6F 18 44 B2 32 AE 28 B5 28 BC 28 58 29 AD BC 28 |o.D.2.(.(.(X)..(|
00001710: 32 29 29 29 AB 31 00 25 1F 74 18 81 54 B2 31 A4 |2))).1.%.t..T.1.|
00001720: 28 58 AB 44 29 00 33 1F 79 18 81 55 B2 54 A4 31 |(X.D).3.y..U.T.1|
00001730: A9 AB 44 00 4E 1F 7E 18 8B 44 31 24 28 55 29 B3 |..D.N.~..D1$(U).|
00001740: B2 44 31 24 28 55 AA 44 29 A7 36 32 39 30 00 8C |.D1$(U.D).6290..|
00001750: 1F 83 18 54 58 24 B2 44 31 24 28 55 29 3A 44 31 |...TX$.D1$(U):D1|
00001760: 24 28 55 29 B2 44 31 24 28 55 AA 44 29 3A 44 31 |$(U).D1$(U.D):D1|
00001770: 24 28 55 AA 44 29 B2 54 58 24 3A 8D 36 34 36 30 |$(U.D).TX$:.6460|
00001780: 3A 8D 36 34 38 30 3A 8D 36 35 30 30 00 96 1F 88 |:.6480:.6500....|
00001790: 18 8D 36 37 30 30 00 9D 1F 8D 18 82 55 00 A4 1F |..6700......U...|
000017A0: 92 18 82 54 00 BB 1F 9C 18 44 B2 B5 28 44 AD 32 |...T.....D..(D.2|
000017B0: 29 3A 8B 44 B1 30 A7 36 32 36 30 00 CD 1F A6 18 |):.D.0.6260.....|
000017C0: 97 38 30 38 2C 32 33 37 3A 89 31 31 35 00 D3 1F |.808,237:.115...|
000017D0: A7 18 3A 00 F2 1F A8 18 8F 20 2A 2A 2A 20 53 4F |..:...... *** SO|
000017E0: 52 54 20 52 4F 55 54 49 4E 45 20 45 31 24 20 2A |RT ROUTINE E1$ *|
000017F0: 2A 2A 00 F8 1F A9 18 3A 00 2F 20 AB 18 99 22 93 |**.....:./ ...".|
00001800: 53 4F 52 54 49 4E 47 20 42 59 20 22 3B 45 24 3A |SORTING BY ";E$:|
00001810: 99 20 22 11 11 12 50 4C 45 41 53 45 20 44 4F 20 |. "...PLEASE DO |
00001820: 4E 4F 54 20 49 4E 54 45 52 52 55 50 54 21 22 00 |NOT INTERRUPT!".|
00001830: 48 20 B0 18 44 B2 32 AE 28 B5 28 BC 28 58 29 AD |H ..D.2.(.(.(X).|
00001840: BC 28 32 29 29 29 AB 31 00 57 20 B5 18 81 54 B2 |.(2))).1.W ...T.|
00001850: 31 A4 28 58 AB 44 29 00 65 20 BA 18 81 55 B2 54 |1.(X.D).e ...U.T|
00001860: A4 31 A9 AB 44 00 80 20 BF 18 8B 45 31 24 28 55 |.1..D.. ...E1$(U|
00001870: 29 B3 B2 45 31 24 28 55 AA 44 29 A7 36 33 35 35 |)..E1$(U.D).6355|
00001880: 00 BE 20 C4 18 54 58 24 B2 45 31 24 28 55 29 3A |.. ..TX$.E1$(U):|
00001890: 45 31 24 28 55 29 B2 45 31 24 28 55 AA 44 29 3A |E1$(U).E1$(U.D):|
000018A0: 45 31 24 28 55 AA 44 29 B2 54 58 24 3A 8D 36 34 |E1$(U.D).TX$:.64|
000018B0: 36 30 3A 8D 36 34 38 30 3A 8D 36 35 30 30 00 C8 |60:.6480:.6500..|
000018C0: 20 C9 18 8D 36 36 30 30 00 CF 20 CE 18 82 55 00 | ...6600.. ...U.|
000018D0: D6 20 D3 18 82 54 00 ED 20 D8 18 44 B2 B5 28 44 |. ...T.. ..D..(D|
000018E0: AD 32 29 3A 8B 44 B1 30 A7 36 33 32 35 00 FF 20 |.2):.D.0.6325.. |
000018F0: DD 18 97 38 30 38 2C 32 33 37 3A 89 31 31 35 00 |...808,237:.115.|
00001900: 2D 21 3C 19 55 31 24 B2 41 31 24 28 55 29 3A 41 |-!<.U1$.A1$(U):A|
00001910: 31 24 28 55 29 B2 41 31 24 28 55 AA 44 29 3A 41 |1$(U).A1$(U.D):A|
00001920: 31 24 28 55 AA 44 29 B2 55 31 24 3A 8E 00 5B 21 |1$(U.D).U1$:..[!|
00001930: 50 19 55 31 24 B2 42 31 24 28 55 29 3A 42 31 24 |P.U1$.B1$(U):B1$|
00001940: 28 55 29 B2 42 31 24 28 55 AA 44 29 3A 42 31 24 |(U).B1$(U.D):B1$|
00001950: 28 55 AA 44 29 B2 55 31 24 3A 8E 00 89 21 64 19 |(U.D).U1$:...!d.|
00001960: 55 31 24 B2 43 31 24 28 55 29 3A 43 31 24 28 55 |U1$.C1$(U):C1$(U|
00001970: 29 B2 43 31 24 28 55 AA 44 29 3A 43 31 24 28 55 |).C1$(U.D):C1$(U|
00001980: AA 44 29 B2 55 31 24 3A 8E 00 B7 21 C8 19 55 31 |.D).U1$:...!..U1|
00001990: 24 B2 44 31 24 28 55 29 3A 44 31 24 28 55 29 B2 |$.D1$(U):D1$(U).|
000019A0: 44 31 24 28 55 AA 44 29 3A 44 31 24 28 55 AA 44 |D1$(U.D):D1$(U.D|
000019B0: 29 B2 55 31 24 3A 8E 00 E5 21 2C 1A 55 31 24 B2 |).U1$:...!,.U1$.|
000019C0: 45 31 24 28 55 29 3A 45 31 24 28 55 29 B2 45 31 |E1$(U):E1$(U).E1|
000019D0: 24 28 55 AA 44 29 3A 45 31 24 28 55 AA 44 29 B2 |$(U.D):E1$(U.D).|
000019E0: 55 31 24 3A 8E 00 EB 21 10 27 80 00 1D 22 50 C3 |U1$:...!.'..."P.|
000019F0: 86 41 31 24 28 35 30 30 29 2C 42 31 24 28 35 30 |.A1$(500),B1$(50|
00001A00: 30 29 2C 43 31 24 28 35 30 30 29 2C 44 31 24 28 |0),C1$(500),D1$(|
00001A10: 35 30 30 29 2C 45 31 24 28 35 30 30 29 00 23 22 |500),E1$(500).#"|
00001A20: 51 C3 8E 00 00 00 00 CE F3 00 |Q......... |
.......50000.1.R. 15: 2: 3:.53280,0:.532
81,0:.".".P.S..".":..14)".. MAIN MENU ."
...X.."........1.....................DAT
A ENTRY"...}.."........2................
........DISPLAY"......"........3........
............WRITE FILES"......"........4
.....................READ FILES".@....".
.......5.....................PRINT DATA"
.P...."........6................CREATE N
EW FILE"......"........7................
...........QUIT":AT.16184.5.4......Z$:.Z
$."".150... ..E(Z$).7 . E(Z$).1.150.....
.E(Z$).200,400,600,800,700,4000,10000...
H.X.X.1.?.R..".":.A$;:.A1$(X):.B$;:.B1$(
X):.C$;:.C1$(X).]....D$;:.D1$(X):.E$;:.E
1$(X).O....Z.1.8:.".":.......Z.1.40:."-"
;:.Z......"[N]EXT ";"[E]DIT ";"[M]EN
U ";"[B]YTES FREE.M....Z$:.Z$."".265...
...Z$."N".200......Z$."E".210......Z$."M
".115......Z$."B"..290.7....Z$.."C".Z$..
"E".Z$.."M".Z$.."B".265.U.".FR.FR.(C(A1$
(X)).C(B1$(X)).C(C1$(X)).C(D1$(X)).C(E1$
(X)))...'.."...BYTES FREE ";23095.TEMP.F
R:....... *** DISPLAY ***.P....".":..14)
"..DISPLAY MENU"......"........D .......
................DISPLAY".0...."........F
..........................FIND"._....".
.......S .........................SORT".
....."........M ........................
..MENU":."....MAKE SELECTION"......Z$:.Z
$."".406.H....Z$."D".412.X....Z$."F".500
......Z$."S".5010......Z$."M".115."....Z
$.."D".Z$.."F".Z$.."S".Z$.."M".406.4....
".REC";.5)A$.C. ..".....................
..................".L...SL.0.X....LO.1.X
.....SL.SL.1......LO;.5)A1$(LO)......SL.
20..5000.......O...."TOTAL RECORDS ";".
";X;"."......Z$:.Z$."".490......115.....
. *** SEARCH MODULE ***.3...A1$."*":B1$.
"*":C1$."*":D1$."*":E1$."*".P....".";.16
)".... SEARCH .".W.....8)"... 1 ........
...........";A$.......8)"... 2 .........
..........";B$.E.....8)"... 3 ..........
.........";C$.......8)"... 4 ...........
........";D$.......8)"... 5 ............
.......";E$.;.....8)"... M .............
......MENU".N....Z$:.Z$."".520.G....Z$."
1"..".";A$:.A1$......Z$."2"..".";B$:.B1$
......Z$."3"..".";C$:.C1$......Z$."4".."
.";D$:.D1$.K....Z$."5"..".";E$:.E1$.....
.Z$."M".115......E(Z$).5.E(Z$).1.520....
.I.0......L.1.X.C....A1$.A1$(L).B1$.B1$(
L).C1$.C1$(L).D1$.D1$(L).I.I.1:.560.^. .
.E1$.E1$(L).I.I.1:.560.D.'.....)..Q.1.(1
0.I):.".":.Q:.I;" ITEMS FOUND"...*.A1$."
*":B1$."*":C1$."*":D1$."*":E1$."*".J.+..
D.1.800:.D.S.-..500...0..".....";A1$(L):
.".";B1$(L):.".";C1$(L):.".";D1$(L)...4.
.".";E1$(L).U.5.."..........NEXT [Y/N]";
" [D]ELETE";" [E]DIT".K.:..".REC
ORD NO. ";L.~.D..Z$:.Z$."".580...E..Z$."
E"..".":.1000...F..Z$."Y"..".":.551...G.
.Z$."D".1200.M.H..Z$."N"..500...I..Z$."H
".1100...J..Z$.."Y".Z$.."N".Z$."H".580..
.X.."..WRITE. FILES".7.]..15,8,15:."..NA
ME OF FILE";FI$.S.D..2,8,2,"@0:".FI$.",S
,W"...F..2,A$;G(13);B$;G(13);C$;G(13);D$
;G(13);E$;G(13);W...G..LO.1.X.N.L..2,A1$
(LO);G(13);B1$(LO);G(13);C1$(LO);G(13);D
1$(LO)...M..2,E1$(LO)...V.. LO..... 2: 1
5......115......".LOADING PRINT ROUTINE"
.+.A.."INDEX/PRT",8.1.F...F. .."..READ.
FILES".].%.."..FILE NAME";FR$.J.(..15,8,
15...*..2,8,2,"0:".FR$.",S,R"...,..15,EM
$,EN$,ES$,ET$...-.."....FILE STATUS".U..
..EM$;" ";EN$;" ";ES$;" ";ET$.../..2,A$,
B$,C$,D$,E$,W...0.X.0...1.X.X.1...4..2,A
1$(X),B1$(X),C1$(X),D1$(X),E1$(X):S.ST.<
.>..S.0..817.X.H.TEMP.0:FR.0:NW.0: 2: 15
.C.I..N.1.X...J.NW.C(A1$(N)).C(B1$(N)).C
(C1$(N)).C(D1$(N)).C(E1$(N))...K.TEMP.TE
MP.NW...L..N...R..115.L...AB.AA:QQ.1....
..AA.1064 . 1544 .40......B(AA)..32.1050
............AA.......(....AB.AA.AA.40:.A
B,32:.AB.Q.... QQ . 1065,1067,1069,1071,
1075,1099.P.).QQ.QQ.1:.A$;:.A1$(L):.1030
...+.QQ.QQ.1:.B$;:.B1$(L):.1030...-.QQ.Q
Q.1:.C$;:.C1$(L):.1030.M./.QQ.QQ.1:.D$;:
.D1$(L):.1030...3.QQ.QQ.1:.E$;:.E1$(L):.
1030...K..1030...L..".";:SS.(B(210)).256
:.3,3:.4,4.,.V..R.0.24:H$."".>.`..C.0.39
:G$."".Z.J..B(SS.((R.40).C)).127..#3,G$:
H$.H$.G(18).G$.G(146):.160...T..#3,G$:.G
$.G(13).G$." "...~.H$.H$.G$......C:.4,H$
:.R: 4: 3.B....500.W.... DELETE ROUTINE.
.....". ARE YOU SURE ? Y/N."...D..Z$:.Z$
."".1220...I..Z$."N".500.).N..Z$."Y".125
0._...A1$(L)."":B1$(L)."":C1$(L)."":D1$(
L)."":E1$(L)."".H....500... ..".NEW FILE
PRINTER WIDTH ";W...M.W..(W.4.5)...R..
"..":."FIELD NO. 1";A$...W.."FIELD NO. 2
";B$:."FIELD NO. 3";C$:."FIELD NO. 4";D$
......"FIELD NO. 5";E$.3....".........FI
ELDS CORRECT ? (Y/N) ".G....Z$:.Z$.
"".4080.W....Z$."Y".114.H....Z$."N".4000
.Q.J..115......".HIT A KEY TO CONTINUE";
" . F1 TO ABORT"......Z$:.Z$."".5001.I
....Z$.G(32).5005......Z$.G(133).115....
..Z$..G(32).Z$..G(133).5001......".REC#"
;.5)A$.=...."---------------------------
------------".H...SL.0:..D.... **SORT SE
LECT MENU **.O....199,5......"..........
....SELECT SORT FIELD"......".....1.....
....................";A$......"....2....
.....................";B$...D.."....3...
......................";C$.;.N.."....4..
.......................";D$.D.X.."....5.
........................";E$.X....Z$:.Z$
."".5090......Z$."1".6000......Z$."2".61
00......Z$."3".6160......Z$."4".6245.M..
..Z$."5".6312......E(Z$).1.E(Z$).5.7022.
..(..500...P.. *** SORT ROUTINE A1$ ***.
..Q..808,225.S.U..".SORTING BY ";A$:. ".
..PLEASE DO NOT INTERRUPT!".L.Z.D.2.(.(.
(X)..(2))).1.{...T.1.(X.D)......U.T.1..
D......A1$(U)..A1$(U.D).6040.....TX$.A1$
(U):A1$(U).A1$(U.D):A1$(U.D).TX$:.6480:.
6500:.6600...... 6700......U......T.....
D..(D.2):.D.0.6015.$....808,237:.115.*..
.:.I.T.. *** SORT ROUTINE B1$ ***.O.U.:.
\.Y..808,225......".SORTING BY ";B$:. "
...PLEASE DO NOT INTERRUPT!".....D.2.(.(
.(X)..(2))).1......T.1.(X.D).J....U.T.1.
.D......B1$(U)..B1$(U.D).6145.#...TX$.B1
$(U):B1$(U).B1$(U.D):B1$(U.D).TX$:.6460:
.6500:.6600.-....6700.4....U.;....T.R...
D..(D.2):.D.0.6120.D....808,237:.115.J..
.:...... *** SORT ROUTINE C1$ ***....
.:.J....".SORTING BY ";C$:. "...PLEASE
DO NOT INTERRUPT!".....D.2.(.(.(X)..(2))
).1......T.1.(X.D)...$..U.T.1..D...)..C1
$(U)..C1$(U.D).6220.Y...TX$.C1$(U):C1$(U
).C1$(U.D):C1$(U.D).TX$:.6460:.6480:.660
0.C.8..6700.J.B..U.Q.L..T...V.D..(D.2):.
D.0.6175...`..808,237:.115. .A.:...E.. *
** SORT ROUTINE D1$ ***.E.F.:...J..".SOR
TING BY ";D$:. "...PLEASE DO NOT INTERR
UPT!"...O.D.2.(.(.(X)..(2))).1.%.T..T.1.
(X.D).3.Y..U.T.1..D.N.~..D1$(U)..D1$(U.D
).6290.....TX$.D1$(U):D1$(U).D1$(U.D):D1
$(U.D).TX$:.6460:.6480:.6500......6700..
....U......T.....D..(D.2):.D.0.6260.M...
.808,237:.115.S...:...... *** SORT ROUTI
NE E1$ ***.....:./ ...".SORTING BY ";E$:
. "...PLEASE DO NOT INTERRUPT!".H ..D.2.
(.(.(X)..(2))).1.W ...T.1.(X.D).E ...U.T
.1..D.. ...E1$(U)..E1$(U.D).6355.. D.TX$
.E1$(U):E1$(U).E1$(U.D):E1$(U.D).TX$:.64
60:.6480:.6500.H I..6600.O N..U.V S..T..
X.D..(D.2):.D.0.6325.. ...808,237:.115.
-!<.U1$.A1$(U):A1$(U).A1$(U.D):A1$(U.D).
U1$:..[!P.U1$.B1$(U):B1$(U).B1$(U.D):B1$
(U.D).U1$:...!D.U1$.C1$(U):C1$(U).C1$(U.
D):C1$(U.D).U1$:...!H.U1$.D1$(U):D1$(U).
D1$(U.D):D1$(U.D).U1$:...!,.U1$.E1$(U):E
1$(U).E1$(U.D):E1$(U.D).U1$:...!.'..."PC
.A1$(500),B1$(500),C1$(500),D1$(500),E1$
(500).#"QC.....N..
> CLICK IMAGE PREVIEW FOR FULL MODAL