DISK FILEBASE
FILE INFORMATION
FILENAME(S): DISK FILEBASE
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 19:47:23
APPEARS ON: 1 disk(s)
FILE HASH
ddb7e53da1fdd1cf01795650b28acee25502bfb4770f650156709da98c7cce5b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A6 1 | DISK FILEBASE | PRG | Curtcool, Frank | 12 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 00 00 8F 53 41 56 45 22 40 30 3A 36 |.......SAVE"@0:6|
00000010: 34 52 45 47 20 38 33 30 36 31 36 22 2C 38 00 32 |4REG 830616",8.2|
00000020: 08 64 00 41 50 B2 20 31 20 3A 4D 58 B2 20 31 33 |.d.AP. 1 :MX. 13|
00000030: 36 37 00 42 08 6E 00 83 54 49 54 4C 45 2C 44 49 |67.B.n..TITLE,DI|
00000040: 53 4B 00 58 08 C8 00 86 41 24 28 20 31 2C 4D 58 |SK.X....A$( 1,MX|
00000050: 29 2C 41 25 28 4D 58 29 00 79 08 D2 00 9F 34 2C |),A%(MX).y....4,|
00000060: 33 3A 9F 37 2C 30 3A 81 49 B2 30 A4 41 50 3A 87 |3:.7,0:.I.0.AP:.|
00000070: 41 24 28 49 2C 30 29 3A 82 00 A0 08 2C 01 99 22 |A$(I,0):....,.."|
00000080: 93 90 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 |.. *** |
00000090: 9F 52 45 47 49 53 54 45 52 90 20 2A 2A 2A 11 22 |.REGISTER. ***."|
000000A0: 00 AA 08 36 01 8D 39 35 30 30 00 CE 08 40 01 99 |...6..9500...@..|
000000B0: A3 39 29 22 52 41 4D 3D 22 46 52 22 20 20 23 20 |.9)"RAM="FR" # |
000000C0: 4F 46 20 52 45 43 4F 52 44 53 3D 22 41 4E 00 F0 |OF RECORDS="AN..|
000000D0: 08 54 01 99 A3 37 29 22 11 11 20 20 20 31 20 20 |.T...7)".. 1 |
000000E0: 41 44 44 20 4E 45 57 20 52 45 43 4F 52 44 53 22 |ADD NEW RECORDS"|
000000F0: 00 10 09 5E 01 99 A3 37 29 22 11 20 20 20 32 20 |...^...7)". 2 |
00000100: 20 4D 4F 44 49 46 59 20 52 45 43 4F 52 44 53 22 | MODIFY RECORDS"|
00000110: 00 30 09 68 01 99 A3 37 29 22 11 20 20 20 33 20 |.0.h...7)". 3 |
00000120: 20 44 45 4C 45 54 45 20 52 45 43 4F 52 44 53 22 | DELETE RECORDS"|
00000130: 00 4E 09 72 01 99 A3 37 29 22 11 20 20 20 34 20 |.N.r...7)". 4 |
00000140: 20 53 4F 52 54 20 52 45 43 4F 52 44 53 22 00 72 | SORT RECORDS".r|
00000150: 09 7C 01 99 A3 37 29 22 11 20 20 20 35 20 20 56 |.|...7)". 5 V|
00000160: 49 45 57 2F 50 52 49 4E 54 20 52 45 43 4F 52 44 |IEW/PRINT RECORD|
00000170: 53 22 00 91 09 86 01 99 A3 37 29 22 11 20 20 20 |S".......7)". |
00000180: 36 20 20 4C 4F 41 44 20 20 52 45 43 4F 52 44 53 |6 LOAD RECORDS|
00000190: 22 00 B0 09 90 01 99 A3 37 29 22 11 20 20 20 37 |".......7)". 7|
000001A0: 20 20 53 41 56 45 20 20 52 45 43 4F 52 44 53 22 | SAVE RECORDS"|
000001B0: 00 C5 09 9A 01 99 A3 37 29 22 11 20 20 20 38 20 |.......7)". 8 |
000001C0: 20 45 4E 44 22 00 F3 09 9F 01 99 A3 38 29 22 11 | END".......8)".|
000001D0: 11 11 9F 28 43 29 20 31 39 38 33 20 54 4F 52 2D |...(C) 1983 TOR-|
000001E0: 46 49 4E 4E 20 41 55 4E 45 56 49 4B 90 91 91 91 |FINN AUNEVIK....|
000001F0: 91 91 22 00 06 0A A4 01 8D 39 30 30 30 3A 52 55 |.."......9000:RU|
00000200: B2 C5 28 41 24 29 00 38 0A AE 01 8B 52 55 B2 38 |..(A$).8....RU.8|
00000210: A7 99 22 93 45 4E 44 11 11 11 22 3A 8D 39 32 38 |..".END...":.928|
00000220: 30 3A 8B 41 24 B2 22 59 22 A7 99 22 93 54 48 45 |0:.A$."Y"..".THE|
00000230: 20 45 4E 44 21 22 3A 80 00 4B 0A B8 01 8B 52 55 | END!":..K....RU|
00000240: B3 31 B0 52 55 B1 38 89 34 32 30 00 7B 0A C2 01 |.1.RU.8.420.{...|
00000250: 58 30 B2 30 3A 91 52 55 8D 31 30 30 30 2C 32 30 |X0.0:.RU.1000,20|
00000260: 30 30 2C 33 30 30 30 2C 34 30 30 30 2C 35 30 30 |00,3000,4000,500|
00000270: 30 2C 36 30 30 30 2C 37 30 30 30 00 84 0A CC 01 |0,6000,7000.....|
00000280: 89 33 30 30 00 93 0A E8 03 4A B2 41 4E 3A 89 31 |.300.....J.AN:.1|
00000290: 30 34 30 00 AD 0A F2 03 99 22 93 22 3A 8B 41 25 |040......".":.A%|
000002A0: 28 4A 29 B2 30 A7 41 25 28 4A 29 B2 4A 00 C0 0A |(J).0.A%(J).J...|
000002B0: FC 03 8D 39 33 38 30 3A 8B 58 30 89 31 30 36 30 |...9380:.X0.1060|
000002C0: 00 D7 0A 06 04 8D 39 30 33 30 3A 8B 41 24 B2 22 |......9030:.A$."|
000002D0: 4E 22 A7 31 30 32 30 00 ED 0A 10 04 4A B2 4A AA |N".1020.....J.J.|
000002E0: 31 3A 8B 4A B3 B2 4D 58 89 31 30 31 30 00 F7 0A |1:.J..MX.1010...|
000002F0: 1A 04 8D 39 33 31 30 00 04 0B 24 04 41 4E B2 4A |...9310...$.AN.J|
00000300: AB 31 3A 8E 00 1C 0B D0 07 99 22 93 4D 4F 44 49 |.1:.......".MODI|
00000310: 46 59 20 41 20 52 45 43 4F 52 44 22 00 2E 0B DA |FY A RECORD"....|
00000320: 07 8B 41 4E B2 30 A7 8D 39 31 37 30 3A 8E 00 3E |..AN.0..9170:..>|
00000330: 0B E4 07 8D 39 33 33 30 3A 8B 58 30 A7 8E 00 4C |....9330:.X0...L|
00000340: 0B EE 07 8B A8 4F 4B 89 32 30 32 30 00 63 0B F8 |.....OK.2020.c..|
00000350: 07 8D 39 30 33 30 3A 8B 41 24 B2 22 59 22 89 32 |..9030:.A$."Y".2|
00000360: 30 30 30 00 73 0B 02 08 8D 39 33 38 30 3A 89 32 |000.s....9380:.2|
00000370: 30 34 30 00 8B 0B B8 0B 99 22 93 44 45 4C 45 54 |040......".DELET|
00000380: 45 20 41 20 52 45 43 4F 52 44 22 00 9D 0B C2 0B |E A RECORD".....|
00000390: 8B 41 4E B2 30 A7 8D 39 31 37 30 3A 8E 00 B1 0B |.AN.0..9170:....|
000003A0: CC 0B 8D 39 33 33 30 3A 8B A8 4F 4B 89 33 30 32 |...9330:..OK.302|
000003B0: 30 00 BB 0B D6 0B 8B 58 30 A7 8E 00 D2 0B E0 0B |0......X0.......|
000003C0: 8D 39 30 33 30 3A 8B 41 24 B2 22 4E 22 89 33 30 |.9030:.A$."N".30|
000003D0: 30 30 00 F2 0B EA 0B 99 22 11 52 45 43 4F 52 44 |00......".RECORD|
000003E0: 20 52 45 4D 4F 56 45 44 21 22 3A 41 4E B2 41 4E | REMOVED!":AN.AN|
000003F0: AB 31 00 1E 0C F4 0B 41 B2 41 25 28 4A 29 3A 81 |.1.....A.A%(J):.|
00000400: 4B B2 4A A4 41 4E 3A 41 25 28 4B 29 B2 41 25 28 |K.J.AN:A%(K).A%(|
00000410: 4B AA 31 29 3A 82 3A 41 25 28 4B 29 B2 41 00 28 |K.1):.:A%(K).A.(|
00000420: 0C 08 0C 89 33 30 30 30 00 3E 0C A0 0F 99 22 93 |....3000.>....".|
00000430: 53 4F 52 54 20 52 45 43 4F 52 44 53 11 22 00 50 |SORT RECORDS.".P|
00000440: 0C AA 0F 8B 41 4E B2 30 A7 8D 39 31 37 30 3A 8E |....AN.0..9170:.|
00000450: 00 6F 0C B4 0F 81 49 B2 30 A4 41 50 3A 99 49 3B |.o....I.0.AP:.I;|
00000460: 22 9D 29 A0 A0 22 41 24 28 49 2C 30 29 3A 82 00 |".).."A$(I,0):..|
00000470: 88 0C BE 0F 99 22 11 11 42 59 11 20 30 9D 22 3B |....."..BY. 0.";|
00000480: 3A 84 37 2C 41 24 3A 99 00 94 0C C8 0F 4B B2 C5 |:.7,A$:......K..|
00000490: 28 41 24 29 00 B0 0C D2 0F 8B 4B B3 30 B0 4B B1 |(A$)......K.0.K.|
000004A0: 41 50 A7 99 22 91 91 91 91 22 3A 89 34 30 33 30 |AP.."....":.4030|
000004B0: 00 B9 0C DC 0F 47 B2 41 4E 00 C5 0C E6 0F 8B 47 |.....G.AN......G|
000004C0: B3 B2 31 A7 8E 00 D9 0C F0 0F 47 B2 B5 28 47 AD |..1.......G..(G.|
000004D0: 32 29 3A 4D B2 41 4E AB 47 00 0D 0D FA 0F 46 B2 |2):M.AN.G.....F.|
000004E0: 30 3A 81 4A B2 31 A4 4D 3A 50 B2 4A AA 47 3A 8B |0:.J.1.M:P.J.G:.|
000004F0: 41 24 28 4B 2C 41 25 28 4A 29 29 B3 B2 41 24 28 |A$(K,A%(J))..A$(|
00000500: 4B 2C 41 25 28 50 29 29 89 34 31 33 30 00 31 0D |K,A%(P)).4130.1.|
00000510: 04 10 41 B2 41 25 28 4A 29 3A 41 25 28 4A 29 B2 |..A.A%(J):A%(J).|
00000520: 41 25 28 50 29 3A 41 25 28 50 29 B2 41 3A 46 B2 |A%(P):A%(P).A:F.|
00000530: 31 00 41 0D 22 10 82 3A 8B 46 B1 30 89 34 30 39 |1.A."..:.F.0.409|
00000540: 30 00 4B 0D 2C 10 89 34 30 37 30 00 6C 0D 88 13 |0.K.,..4070.l...|
00000550: 99 22 93 56 49 45 57 20 4F 52 20 50 52 49 4E 54 |.".VIEW OR PRINT|
00000560: 20 52 45 43 4F 52 44 53 11 11 11 22 00 7E 0D 92 | RECORDS...".~..|
00000570: 13 8B 41 4E B2 30 A7 8D 39 31 37 30 3A 8E 00 88 |..AN.0..9170:...|
00000580: 0D 9C 13 8D 39 30 34 30 00 97 0D A6 13 8B 41 24 |....9040......A$|
00000590: B3 B1 22 59 22 A7 8E 00 A4 0D B0 13 53 B2 30 3A |.."Y".......S.0:|
000005A0: 58 B2 41 4E 00 C4 0D E2 13 99 22 93 11 12 53 92 |X.AN......"...S.|
000005B0: 43 52 45 45 4E 22 3A 99 22 11 12 50 92 52 49 4E |CREEN":."..P.RIN|
000005C0: 54 45 52 22 00 DE 0D EC 13 8D 39 30 30 30 3A 45 |TER"......9000:E|
000005D0: B2 31 3A 8B 41 24 B2 22 50 22 A7 45 B2 32 00 E7 |.1:.A$."P".E.2..|
000005E0: 0D F1 13 99 22 93 22 00 12 0E F6 13 8B 45 B2 32 |...."."......E.2|
000005F0: A7 99 22 11 11 11 11 11 11 3C 52 45 54 55 52 4E |.."......<RETURN|
00000600: 3E 20 54 4F 20 53 54 4F 50 22 3A A0 34 3A 9F 34 |> TO STOP":.4:.4|
00000610: 2C 34 00 21 0E 00 14 81 4B B2 31 A4 58 3A 4A B2 |,4.!....K.1.X:J.|
00000620: 4B 00 2D 0E 0A 14 81 49 B2 30 A4 41 50 00 66 0E |K.-....I.0.AP.f.|
00000630: 14 14 58 24 B2 41 24 28 49 2C 41 25 28 4A 29 29 |..X$.A$(I,A%(J))|
00000640: 3A 98 34 2C 58 24 3B 3A 8B 20 49 B2 30 A7 81 5A |:.4,X$;:. I.0..Z|
00000650: 57 B2 31 A4 32 30 AB C3 28 58 24 29 3A 98 34 2C |W.1.20..(X$):.4,|
00000660: 22 2E 22 3B 3A 82 00 6C 0E 1E 14 82 00 7B 0E 23 |".";:..l.....{.#|
00000670: 14 8B 45 B2 31 A7 8D 39 30 30 30 00 98 0E 24 14 |..E.1..9000...$.|
00000680: 8B 41 24 B2 C7 28 31 33 29 A7 49 B2 41 50 3A 4B |.A$..(13).I.AP:K|
00000690: B2 58 3A 4A B2 4B 3A 8E 00 A6 0E 28 14 8B 45 B2 |.X:J.K:....(..E.|
000006A0: 31 A7 99 22 93 22 00 D0 0E 2D 14 8B 45 B2 32 AF |1.."."...-..E.2.|
000006B0: C2 28 31 39 37 29 B2 31 35 A7 49 B2 41 50 3A 4B |.(197).15.I.AP:K|
000006C0: B2 58 3A 4A B2 4B 3A A0 34 3A 9F 34 2C 33 3A 8E |.X:J.K:.4:.4,3:.|
000006D0: 00 DC 0E 32 14 8B 45 B2 32 A7 98 34 00 E2 0E 3C |...2..E.2..4...<|
000006E0: 14 82 00 EE 0E 46 14 A0 34 3A 9F 34 2C 33 00 F4 |.....F..4:.4,3..|
000006F0: 0E 4B 14 8E 00 FF 0E 70 17 4A B2 41 4E AA 31 00 |.K.....p.J.AN.1.|
00000700: 14 0F 7A 17 99 22 93 4C 4F 41 44 20 52 45 43 4F |..z..".LOAD RECO|
00000710: 52 44 53 22 00 35 0F 84 17 99 22 11 11 4E 41 4D |RDS".5...."..NAM|
00000720: 45 20 4F 46 20 46 49 4C 45 3A 20 22 3B 3A 84 37 |E OF FILE: ";:.7|
00000730: 2C 46 24 3A 99 00 4C 0F 8E 17 8D 39 32 37 30 3A |,F$:..L....9270:|
00000740: 8B 4E 4F B2 31 A7 4E 4F B2 30 3A 8E 00 60 0F 8F |.NO.1.NO.0:..`..|
00000750: 17 8D 39 36 30 30 3A 8B 42 B2 31 A7 36 30 33 35 |..9600:.B.1.6035|
00000760: 00 88 0F 90 17 9F 31 2C 38 2C 32 2C 46 24 AA 22 |......1,8,2,F$."|
00000770: 2C 53 2C 52 22 3A 84 31 2C 4B 3A 41 4E B2 41 4E |,S,R":.1,K:AN.AN|
00000780: AA 4B 3A 89 36 30 34 30 00 A3 0F 93 17 9F 31 2C |.K:.6040......1,|
00000790: 31 2C 30 2C 46 24 3A 84 31 2C 4B 3A 41 4E B2 41 |1,0,F$:.1,K:AN.A|
000007A0: 4E AA 4B 00 B6 0F 98 17 8B 41 4E B1 4D 58 A7 8D |N.K......AN.MX..|
000007B0: 39 33 31 30 3A 8E 00 D3 0F A2 17 81 4B B2 4A A4 |9310:.......K.J.|
000007C0: 41 4E 3A 8B 41 25 28 4B 29 B2 30 A7 41 25 28 4B |AN:.A%(K).0.A%(K|
000007D0: 29 B2 4B 00 DF 0F A7 17 81 49 B2 30 A4 41 50 00 |).K......I.0.AP.|
000007E0: FB 0F AC 17 84 31 2C 41 24 28 49 2C 41 25 28 4B |.....1,A$(I,A%(K|
000007F0: 29 29 3A 82 3A 82 3A A0 31 3A 8E 00 10 10 58 1B |)):.:.:.1:....X.|
00000800: 99 22 93 53 41 56 45 20 52 45 43 4F 52 44 53 22 |.".SAVE RECORDS"|
00000810: 00 1F 10 62 1B 8B 41 4E B1 30 89 37 30 33 30 00 |...b..AN.0.7030.|
00000820: 2B 10 6C 1B 8D 39 31 37 30 3A 8E 00 47 10 76 1B |+.l..9170:..G.v.|
00000830: 99 22 11 11 46 49 4C 4E 41 56 4E 3A 20 22 3B 3A |."..FILNAVN: ";:|
00000840: 84 37 2C 46 24 3A 99 00 5E 10 77 1B 8D 39 32 37 |.7,F$:..^.w..927|
00000850: 30 3A 8B 4E 4F B2 31 A7 4E 4F B2 30 3A 8E 00 72 |0:.NO.1.NO.0:..r|
00000860: 10 80 1B 8D 39 36 30 30 3A 8B 42 B2 31 A7 37 30 |....9600:.B.1.70|
00000870: 35 30 00 98 10 82 1B 9F 31 2C 38 2C 33 2C 22 40 |50......1,8,3,"@|
00000880: 3A 22 AA 46 24 AA 22 2C 53 2C 57 22 3A 98 31 2C |:".F$.",S,W":.1,|
00000890: 41 4E 3A 89 37 30 36 30 00 B5 10 8A 1B 9F 31 2C |AN:.7060......1,|
000008A0: 31 2C 31 2C 46 24 3A 98 31 2C C4 28 41 4E 29 C7 |1,1,F$:.1,.(AN).|
000008B0: 28 31 33 29 3B 00 C9 10 94 1B 81 4B B2 31 A4 41 |(13);......K.1.A|
000008C0: 4E 3A 81 49 B2 30 A4 41 50 00 EB 10 9E 1B 98 31 |N:.I.0.AP......1|
000008D0: 2C 41 24 28 49 2C 41 25 28 4B 29 29 C7 28 31 33 |,A$(I,A%(K)).(13|
000008E0: 29 3B 3A 82 3A 82 3A A0 31 3A 8E 00 FA 10 E9 1B |);:.:.:.1:......|
000008F0: 8B 41 24 B3 B1 22 4A 22 A7 8E 00 0E 11 28 23 A1 |.A$.."J".....(#.|
00000900: 41 24 3A 8B 41 24 B2 22 22 89 39 30 30 30 00 14 |A$:.A$."".9000..|
00000910: 11 32 23 8E 00 40 11 46 23 99 22 93 22 3A 81 49 |.2#..@.F#.".":.I|
00000920: B2 30 A4 41 50 3A 99 41 24 28 49 2C 30 29 22 3A |.0.AP:.A$(I,0)":|
00000930: 20 22 3B 41 24 28 49 2C 41 25 28 4A 29 29 3A 82 | ";A$(I,A%(J)):.|
00000940: 00 54 11 50 23 99 22 11 2A 20 4F 4B 3F 20 59 2F |.T.P#.".* OK? Y/|
00000950: 4E 20 2A 22 00 75 11 5A 23 8D 39 30 30 30 3A 99 |N *".u.Z#.9000:.|
00000960: 22 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000970: 20 A0 91 91 22 00 8F 11 64 23 8B 41 24 B3 B1 22 | ..."...d#.A$.."|
00000980: 59 22 AF 41 24 B3 B1 22 4E 22 89 39 30 34 30 00 |Y".A$.."N".9040.|
00000990: 95 11 6E 23 8E 00 A7 11 82 23 4F 4B B2 AB 31 3A |..n#.....#OK..1:|
000009A0: 81 4A B2 31 A4 41 4E 00 C9 11 8C 23 8B C8 28 41 |.J.1.AN....#..(A|
000009B0: 24 28 30 2C 41 25 28 4A 29 29 2C C3 28 41 24 29 |$(0,A%(J)),.(A$)|
000009C0: 29 B2 41 24 89 39 31 35 30 00 D4 11 96 23 82 3A |).A$.9150....#.:|
000009D0: 4F 4B B2 31 00 00 12 A0 23 8B 52 55 B3 B1 35 A7 |OK.1....#.RU..5.|
000009E0: 99 22 11 11 12 22 41 24 22 20 44 4F 45 53 4E 27 |."..."A$" DOESN'|
000009F0: 54 20 45 58 49 53 54 21 13 22 3A 89 39 31 35 30 |T EXIST!.":.9150|
00000A00: 00 2B 12 AA 23 99 22 11 11 12 22 41 24 22 20 44 |.+..#."..."A$" D|
00000A10: 4F 45 53 4E 27 54 20 45 58 49 53 54 21 91 22 3A |OESN'T EXIST!.":|
00000A20: 81 4A B2 31 A4 32 30 30 30 3A 82 00 49 12 B4 23 |.J.1.2000:..I..#|
00000A30: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000A40: 20 20 20 20 91 91 91 91 22 00 4F 12 BE 23 8E 00 | ....".O..#..|
00000A50: 64 12 D2 23 99 22 11 11 12 4E 4F 20 44 41 54 41 |d..#."...NO DATA|
00000A60: 21 21 1F 22 00 A2 12 DC 23 81 4B B2 31 A4 32 30 |!!."....#.K.1.20|
00000A70: 30 30 3A 82 3A 99 22 91 20 20 20 20 20 20 20 20 |00:.:.". |
00000A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 13 22 | ."|
00000AA0: 3A 8E 00 C0 12 F0 23 4F 4B B2 AB 31 3A 8B 52 55 |:.....#OK..1:.RU|
00000AB0: B2 32 A7 81 4B B2 31 A4 41 4E 3A 89 39 32 33 30 |.2..K.1.AN:.9230|
00000AC0: 00 CF 12 FA 23 8B 4A B2 31 B0 49 B1 30 A7 8E 00 |....#.J.1.I.0...|
00000AD0: DC 12 04 24 81 4B B2 31 A4 4A AB 31 00 F5 12 0E |...$.K.1.J.1....|
00000AE0: 24 8B 41 24 28 30 2C 41 25 28 4B 29 29 B3 B1 41 |$.A$(0,A%(K))..A|
00000AF0: 24 A7 82 3A 8E 00 0A 13 18 24 8B 4B B2 4A A7 4B |$..:.....$.K.J.K|
00000B00: B2 4B AA 31 3A 89 39 32 33 30 00 37 13 22 24 4F |.K.1:.9230.7."$O|
00000B10: 4B B2 31 3A 99 22 13 12 9F 22 41 24 22 20 41 4C |K.1:."..."A$" AL|
00000B20: 52 45 41 44 59 20 45 58 49 53 54 45 4E 54 21 90 |READY EXISTENT!.|
00000B30: 22 3A 89 39 31 38 30 00 4A 13 36 24 99 22 11 11 |":.9180.J.6$."..|
00000B40: 41 4C 4C 20 52 45 41 44 59 22 00 61 13 40 24 8D |ALL READY".a.@$.|
00000B50: 39 30 34 30 3A 8B 41 24 B2 22 4E 22 A7 4E 4F B2 |9040:.A$."N".NO.|
00000B60: 31 00 67 13 4A 24 8E 00 88 13 5E 24 99 22 11 11 |1.g.J$....^$."..|
00000B70: 12 4D 41 58 22 4D 58 AA 31 22 52 45 43 4F 52 44 |.MAX"MX.1"RECORD|
00000B80: 53 22 3A 89 39 31 38 30 00 9E 13 72 24 99 22 11 |S":.9180...r$.".|
00000B90: 11 54 59 50 45 20 22 41 24 28 30 2C 30 29 00 B2 |.TYPE "A$(0,0)..|
00000BA0: 13 7C 24 99 22 11 3F 20 22 3B 3A 84 37 2C 41 24 |.|$.".? ";:.7,A$|
00000BB0: 3A 99 00 CF 13 86 24 8B 41 24 B2 22 53 54 4F 50 |:.....$.A$."STOP|
00000BC0: 22 B0 41 24 B2 22 D3 22 A7 58 30 B2 31 3A 8E 00 |".A$.".".X0.1:..|
00000BD0: D9 13 90 24 89 39 30 39 30 00 EA 13 A4 24 99 22 |...$.9090....$."|
00000BE0: 13 22 3A 81 49 B2 30 A4 41 50 00 04 14 AE 24 99 |.":.I.0.AP....$.|
00000BF0: 41 24 28 49 2C 30 29 22 3F 20 22 3B 3A 84 37 2C |A$(I,0)"? ";:.7,|
00000C00: 41 24 3A 99 00 21 14 B8 24 8B 41 24 B2 22 53 54 |A$:..!..$.A$."ST|
00000C10: 4F 50 22 B0 41 24 B2 22 D3 22 A7 58 30 B2 31 3A |OP".A$.".".X0.1:|
00000C20: 8E 00 35 14 C2 24 8D 39 32 30 30 3A 8B A8 4F 4B |..5..$.9200:..OK|
00000C30: 89 39 33 39 30 00 4C 14 CC 24 41 24 28 49 2C 41 |.9390.L..$A$(I,A|
00000C40: 25 28 4A 29 29 B2 41 24 3A 82 3A 8E 00 71 14 1C |%(J)).A$:.:..q..|
00000C50: 25 46 52 B2 32 35 36 AC 28 C2 28 35 32 29 AB C2 |%FR.256.(.(52)..|
00000C60: 28 35 30 29 29 AA C2 28 35 31 29 AB C2 28 34 39 |(50))..(51)..(49|
00000C70: 29 00 80 14 26 25 57 B2 46 52 AA 36 33 35 3A 8E |)...&%W.FR.635:.|
00000C80: 00 99 14 80 25 99 22 11 12 44 92 49 53 4B 20 4F |....%."..D.ISK O|
00000C90: 52 20 12 54 92 41 50 45 22 00 AD 14 85 25 99 22 |R .T.APE"....%."|
00000CA0: 11 44 9D 22 3B 3A 84 37 2C 41 24 3A 99 00 C3 14 |.D.";:.7,A$:....|
00000CB0: 8A 25 8B 41 24 B2 22 54 22 A7 42 B2 31 3A 89 39 |.%.A$."T".B.1:.9|
00000CC0: 36 33 30 00 CB 14 94 25 42 B2 30 00 D1 14 9E 25 |630....%B.0....%|
00000CD0: 8E 00 EB 14 35 82 22 14 14 14 14 14 14 14 28 43 |....5.".......(C|
00000CE0: 29 20 43 4F 50 59 52 49 47 48 54 00 06 15 9C AD |) COPYRIGHT.....|
00000CF0: 22 14 14 14 14 14 14 14 47 52 41 4E 41 20 53 4F |".......GRANA SO|
00000D00: 46 54 57 41 52 45 00 17 15 03 D9 22 14 14 14 14 |FTWARE....."....|
00000D10: 14 14 14 31 39 38 32 00 00 00 00 FF 9D |...1982...... |
.......SAVE"@0:64REG 830616",8.2.D.AP. 1
:MX. 1367.B.N..TITLE,DISK.X.H..A$( 1,MX
),A%(MX).Y.R..4,3:.7,0:.I.0.AP:.A$(I,0):
.. .,..".. *** .REGISTER. ***."
...6..9500.N.@...9)"RAM="FR" # OF RECOR
DS="AN...T...7)".. 1 ADD NEW RECORDS"
...^...7)". 2 MODIFY RECORDS".0.H...7
)". 3 DELETE RECORDS".N.R...7)". 4
SORT RECORDS".R.|...7)". 5 VIEW/PRIN
T RECORDS".......7)". 6 LOAD RECORDS
".......7)". 7 SAVE RECORDS".E.....7
)". 8 END".......8)"....(C) 1983 TOR-
FINN AUNEVIK......"......9000:RU.E(A$).8
....RU.8..".END...":.9280:.A$."Y"..".THE
END!":..K....RU.1.RU.8.420.{.B.X0.0:.RU
.1000,2000,3000,4000,5000,6000,7000...L.
.300.....J.AN:.1040......".":.A%(J).0.A%
(J).J......9380:.X0.1060.W....9030:.A$."
N".1020.....J.J.1:.J..MX.1010......9310.
..$.AN.J.1:....P..".MODIFY A RECORD"...Z
..AN.0..9170:..>....9330:.X0...L.....OK.
2020.C....9030:.A$."Y".2000.S....9380:.2
040......".DELETE A RECORD"...B..AN.0..9
170:....L..9330:..OK.3020...V..X0...R...
.9030:.A$."N".3000......".RECORD REMOVED
!":AN.AN.1.....A.A%(J):.K.J.AN:A%(K).A%(
K.1):.:A%(K).A.(....3000.>. ..".SORT REC
ORDS.".P....AN.0..9170:..O....I.0.AP:.I;
".) "A$(I,0):......."..BY. 0.";:.7,A$:.
...H.K.E(A$)...R..K.0.K.AP.."....":.4030
.....G.AN.E....G..1...Y...G..(G.2):M.AN.
G.....F.0:.J.1.M:P.J.G:.A$(K,A%(J))..A$(
K,A%(P)).4130.1...A.A%(J):A%(J).A%(P):A%
(P).A:F.1.A."..:.F.0.4090.K.,..4070.L...
.".VIEW OR PRINT RECORDS...".~....AN.0..
9170:.......9040......A$.."Y".......S.0:
X.AN.D...."...S.CREEN":."..P.RINTER"....
..9000:E.1:.A$."P".E.2......"."......E.2
.."......<RETURN> TO STOP": 4:.4,4.!....
K.1.X:J.K.-....I.0.AP.F...X$.A$(I,A%(J))
:.4,X$;:. I.0..ZW.1.20.C(X$):.4,".";:..L
.....{.#..E.1..9000...$..A$.G(13).I.AP:K
.X:J.K:....(..E.1..".".P.-..E.2.B(197).1
5.I.AP:K.X:J.K: 4:.4,3:....2..E.2..4...<
.....F. 4:.4,3...K.....P.J.AN.1...Z..".L
OAD RECORDS".5...."..NAME OF FILE: ";:.7
,F$:..L....9270:.NO.1.NO.0:..`....9600:.
B.1.6035......1,8,2,F$.",S,R":.1,K:AN.AN
.K:.6040......1,1,0,F$:.1,K:AN.AN.K.....
.AN.MX..9310:..S....K.J.AN:.A%(K).0.A%(K
).K......I.0.AP......1,A$(I,A%(K)):.:.:
1:....X..".SAVE RECORDS"...B..AN.0.7030.
+.L..9170:..G.V.."..FILNAVN: ";:.7,F$:..
^.W..9270:.NO.1.NO.0:..R....9600:.B.1.70
50......1,8,3,"@:".F$.",S,W":.1,AN:.7060
......1,1,1,F$:.1,D(AN)G(13);.I....K.1.A
N:.I.0.AP......1,A$(I,A%(K))G(13);:.:.:
1:.......A$.."J".....(#.A$:.A$."".9000..
.2#..@.F#.".":.I.0.AP:.A$(I,0)": ";A$(I,
A%(J)):..T.P#.".* OK? Y/N *".U.Z#.9000:.
". .."...D#.A$.."Y".A$.."
N".9040...N#.....#OK..1:.J.1.AN.I..#.H(A
$(0,A%(J)),C(A$)).A$.9150.T..#.:OK.1...
#.RU..5.."..."A$" DOESN'T EXIST!.":.9150
.+..#."..."A$" DOESN'T EXIST!.":.J.1.200
0:..I..#." ....".O..#..
D.R#."...NO DATA!!."....#.K.1.2000:.:.".
."
:.....#OK..1:.RU.2..K.1.AN:.9230.O..#.J.
1.I.0......$.K.1.J.1....$.A$(0,A%(K))..A
$..:.....$.K.J.K.K.1:.9230.7."$OK.1:."..
."A$" ALREADY EXISTENT!.":.9180.J.6$."..
ALL READY".A.@$.9040:.A$."N".NO.1.G.J$..
..^$."...MAX"MX.1"RECORDS":.9180...R$.".
.TYPE "A$(0,0)...|$.".? ";:.7,A$:..O..$.
A$."STOP".A$."S".X0.1:..Y..$.9090....$."
.":.I.0.AP....$.A$(I,0)"? ";:.7,A$:..!..
$.A$."STOP".A$."S".X0.1:..5.B$.9200:..OK
.9390.L.L$A$(I,A%(J)).A$:.:..Q..%FR.256.
(B(52).B(50)).B(51).B(49)...&%W.FR.635:.
....%."..D.ISK OR .T.APE"....%.".D.";:.7
,A$:..C..%.A$."T".B.1:.9630.K..%B.0.Q..%
....5.".......(C) COPYRIGHT.....".......
GRANA SOFTWARE....Y".......1982......
> CLICK IMAGE PREVIEW FOR FULL MODAL