Multiple names: DATABASE/C64, KARTOTEK
FILE INFORMATION
FILENAME(S):
• DATABASE/C64<br>• KARTOTEK
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 19:47:17
APPEARS ON: 2 disk(s)
FILE HASH
fe332006a0a5919d1aa9f84f16c215f60d824ad4dc870f9c319863b434092aa3
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MARINEDATA 2UR | DATABASE/C64 | PRG | Curtcool, Frank | 25 | 4 | DOWNLOAD FILE |
| DISK | KARTOTEK | PRG | Curtcool, Frank | 4 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 01 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |.......*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 35 08 03 00 |***********.5...| 00000020: 8F 2A 44 41 54 41 42 41 53 45 2A 2A 2A 2A 2A 2A |.*DATABASE******| 00000030: 2A 2A 2A 2A 2A 00 4F 08 05 00 8F 2A 2A 2A 2A 2A |*****.O....*****| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000050: 55 08 06 00 8F 00 62 08 07 00 97 36 35 30 2C 31 |U.....b....650,1| 00000060: 32 38 00 75 08 0A 00 42 B2 30 3A 50 B2 30 3A 49 |28.u...B.0:P.0:I| 00000070: 24 B2 22 DF 22 00 AE 08 5A 00 86 4E 24 28 32 30 |$."."...Z..N$(20| 00000080: 30 30 29 2C 41 24 28 32 30 30 30 29 2C 50 24 28 |00),A$(2000),P$(| 00000090: 32 30 30 30 29 2C 54 24 28 32 30 30 30 29 2C 44 |2000),T$(2000),D| 000000A0: 24 28 32 30 30 30 29 2C 5A 24 28 31 36 29 00 CC |$(2000),Z$(16)..| 000000B0: 08 64 00 97 35 33 32 38 30 2C 42 3A 97 35 33 32 |.d..53280,B:.532| 000000C0: 38 31 2C 50 3A 99 22 93 22 3B 49 24 00 F0 08 6E |81,P:.".";I$...n| 000000D0: 00 99 22 CE B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |..".............| 000000E0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 CD 22 |..............."| 000000F0: 00 14 09 78 00 99 22 B4 43 4F 4D 4D 4F 44 4F 52 |...x..".COMMODOR| 00000100: 45 20 36 34 20 4B 41 52 54 4F 54 45 4B 20 31 39 |E 64 KARTOTEK 19| 00000110: 38 34 B6 22 00 38 09 82 00 99 22 CD B9 B9 B9 B9 |84.".8....".....| 00000120: B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 B9 |................| 00000130: B9 B9 B9 B9 B9 B9 CE 22 00 53 09 96 00 99 22 20 |.......".S...." | 00000140: 20 20 20 11 11 12 46 31 92 20 4E 59 45 20 44 41 | ...F1. NYE DA| 00000150: 54 41 22 00 6E 09 A0 00 99 22 20 20 20 20 11 12 |TA".n...." ..| 00000160: 46 32 92 20 53 41 56 45 20 44 41 54 41 22 00 89 |F2. SAVE DATA"..| 00000170: 09 AA 00 99 22 20 20 20 20 11 12 46 33 92 20 4C |...." ..F3. L| 00000180: 4F 41 44 20 44 41 54 41 22 00 A7 09 B4 00 99 22 |OAD DATA"......"| 00000190: 20 20 20 20 11 12 46 34 92 20 53 41 56 45 20 50 | ..F4. SAVE P| 000001A0: 52 4F 47 52 41 4D 22 00 C0 09 BE 00 99 22 20 20 |ROGRAM"......" | 000001B0: 20 20 11 12 46 35 92 20 53 30 47 4E 49 4E 47 22 | ..F5. S0GNING"| 000001C0: 00 E4 09 C8 00 99 22 20 20 20 20 11 12 46 36 92 |......" ..F6.| 000001D0: 20 53 4B 49 46 54 20 42 4F 52 44 45 52 20 46 41 | SKIFT BORDER FA| 000001E0: 52 56 45 22 00 07 0A D2 00 99 22 20 20 20 20 11 |RVE"......" .| 000001F0: 12 46 37 92 20 53 4B 49 46 54 20 50 41 50 45 52 |.F7. SKIFT PAPER| 00000200: 20 46 41 52 56 45 22 00 28 0A DC 00 99 22 20 20 | FARVE".(...." | 00000210: 20 20 11 12 46 38 92 20 53 4B 49 46 54 20 49 4E | ..F8. SKIFT IN| 00000220: 4B 20 46 41 52 56 45 22 00 35 0A E1 00 97 35 33 |K FARVE".5....53| 00000230: 32 38 31 2C 42 00 3D 0A E6 00 A1 58 24 00 4F 0A |281,B.=....X$.O.| 00000240: F0 00 8B 58 24 B2 22 85 22 A7 20 31 30 30 30 00 |...X$.".". 1000.| 00000250: 61 0A FA 00 8B 58 24 B2 22 89 22 A7 20 32 30 30 |a....X$.".". 200| 00000260: 30 00 73 0A 04 01 8B 58 24 B2 22 86 22 A7 20 33 |0.s....X$.".". 3| 00000270: 30 30 30 00 85 0A 0E 01 8B 58 24 B2 22 8A 22 A7 |000......X$.".".| 00000280: 20 33 35 30 30 00 97 0A 18 01 8B 58 24 B2 22 87 | 3500......X$.".| 00000290: 22 A7 20 35 30 30 30 00 AA 0A 22 01 8B 58 24 B2 |". 5000..."..X$.| 000002A0: 22 8B 22 A7 20 8D 36 30 30 30 00 BD 0A 2C 01 8B |".". .6000...,..| 000002B0: 58 24 B2 22 88 22 A7 20 8D 37 30 30 30 00 CF 0A |X$.".". .7000...| 000002C0: 36 01 8B 58 24 B2 22 8C 22 A7 20 37 31 30 30 00 |6..X$.".". 7100.| 000002D0: D8 0A 40 01 89 32 33 30 00 E7 0A E8 03 8F 20 4E |..@..230...... N| 000002E0: 59 45 20 44 41 54 41 00 F0 0A ED 03 99 22 93 22 |YE DATA......"."| 000002F0: 00 1F 0B F2 03 4E 24 28 44 29 B2 22 22 3A 85 22 |.....N$(D)."":."| 00000300: 4E 41 56 4E 22 3B 4E 24 28 44 29 3A 8B 4E 24 28 |NAVN";N$(D):.N$(| 00000310: 44 29 B2 22 22 A7 4E 24 28 44 29 B2 22 2D 22 00 |D)."".N$(D)."-".| 00000320: 51 0B FC 03 41 24 28 44 29 B2 22 22 3A 85 22 41 |Q...A$(D)."":."A| 00000330: 44 52 45 53 53 45 22 3B 41 24 28 44 29 3A 8B 41 |DRESSE";A$(D):.A| 00000340: 24 28 44 29 B2 22 22 A7 41 24 28 44 29 B2 22 2D |$(D)."".A$(D)."-| 00000350: 22 00 83 0B 06 04 50 24 28 44 29 B2 22 22 3A 85 |".....P$(D)."":.| 00000360: 22 50 4F 53 54 4E 52 2E 22 3B 50 24 28 44 29 3A |"POSTNR.";P$(D):| 00000370: 8B 50 24 28 44 29 B2 22 22 A7 50 24 28 44 29 B2 |.P$(D)."".P$(D).| 00000380: 22 2D 22 00 B8 0B 10 04 54 24 28 44 29 B2 22 22 |"-".....T$(D).""| 00000390: 3A 85 22 54 45 4C 45 46 4F 4E 4E 52 2E 22 3B 54 |:."TELEFONNR.";T| 000003A0: 24 28 44 29 3A 8B 54 24 28 44 29 B2 22 22 A7 54 |$(D):.T$(D)."".T| 000003B0: 24 28 44 29 B2 22 2D 22 00 E7 0B 1A 04 44 24 28 |$(D)."-".....D$(| 000003C0: 44 29 B2 22 22 3A 85 22 44 41 54 41 22 3B 44 24 |D)."":."DATA";D$| 000003D0: 28 44 29 3A 8B 44 24 28 44 29 B2 22 22 A7 44 24 |(D):.D$(D)."".D$| 000003E0: 28 44 29 B2 22 2D 22 00 00 0C 24 04 99 22 11 20 |(D)."-"...$..". | 000003F0: 44 41 54 41 20 4F 4B 20 3F 20 28 4A 2F 4E 29 22 |DATA OK ? (J/N)"| 00000400: 00 14 0C 2E 04 A1 58 24 3A 8B 58 24 B2 22 4E 22 |......X$:.X$."N"| 00000410: A7 31 30 30 00 26 0C 38 04 8B 58 24 B3 B1 22 4A |.100.&.8..X$.."J| 00000420: 22 A7 31 30 37 30 00 67 0C 3D 04 44 B2 44 AA 31 |".1070.g.=.D.D.1| 00000430: 3A 4C 24 B2 22 2A 2A 2A 2A 22 3A 4E 24 28 44 29 |:L$."****":N$(D)| 00000440: B2 4C 24 3A 41 24 28 44 29 B2 4C 24 3A 50 24 28 |.L$:A$(D).L$:P$(| 00000450: 44 29 B2 4C 24 3A 54 24 28 44 29 B2 4C 24 3A 44 |D).L$:T$(D).L$:D| 00000460: 24 28 44 29 B2 4C 24 00 70 0C 42 04 89 31 30 30 |$(D).L$.p.B..100| 00000470: 00 76 0C D0 07 8F 00 8A 0C D1 07 9F 31 2C 31 2C |.v..........1,1,| 00000480: 31 2C 22 44 41 54 41 2C 53 22 00 97 0C D5 07 81 |1,"DATA,S"......| 00000490: 58 B2 30 A4 44 AA 31 00 C8 0C DA 07 98 31 2C 4E |X.0.D.1......1,N| 000004A0: 24 28 58 29 3A 98 31 2C 41 24 28 58 29 3A 98 31 |$(X):.1,A$(X):.1| 000004B0: 2C 50 24 28 58 29 3A 98 31 2C 54 24 28 58 29 3A |,P$(X):.1,T$(X):| 000004C0: 98 31 2C 44 24 28 58 29 00 CF 0C E4 07 82 58 00 |.1,D$(X)......X.| 000004D0: D6 0C EE 07 A0 31 00 DF 0C F8 07 89 31 30 30 00 |.....1......100.| 000004E0: F7 0C B8 0B 44 B2 31 3A 9F 31 2C 31 2C 30 2C 22 |....D.1:.1,1,0,"| 000004F0: 44 41 54 41 2C 53 22 00 04 0D C2 0B 84 31 2C 4E |DATA,S"......1,N| 00000500: 24 28 44 29 00 2B 0D C3 0B 84 31 2C 41 24 28 44 |$(D).+....1,A$(D| 00000510: 29 3A 84 31 2C 50 24 28 44 29 3A 84 31 2C 54 24 |):.1,P$(D):.1,T$| 00000520: 28 44 29 3A 84 31 44 24 28 44 29 00 46 0D CC 0B |(D):.1D$(D).F...| 00000530: 8B 4E 24 28 44 29 B2 22 2A 2A 2A 2A 22 A7 20 A0 |.N$(D)."****". .| 00000540: 31 3A 89 31 30 30 00 56 0D D6 0B 44 B2 44 AA 31 |1:.100.V...D.D.1| 00000550: 3A 89 33 30 31 30 00 85 0D AC 0D 99 22 93 20 53 |:.3010......". S| 00000560: 4B 41 4C 20 44 45 52 20 53 41 56 45 53 20 50 41 |KAL DER SAVES PA| 00000570: 41 20 42 41 41 4E 44 20 45 4C 4C 45 52 20 44 49 |A BAAND ELLER DI| 00000580: 53 43 20 3F 22 00 97 0D B6 0D 99 22 11 12 46 35 |SC ?"......"..F5| 00000590: 92 42 41 41 4E 44 22 00 A8 0D C0 0D 99 22 11 12 |.BAAND"......"..| 000005A0: 46 37 92 44 49 53 43 22 00 BD 0D CA 0D A1 58 24 |F7.DISC"......X$| 000005B0: 3A 8B 58 24 B2 22 87 22 A7 33 37 30 30 00 CE 0D |:.X$.".".3700...| 000005C0: D4 0D 8B 58 24 B2 22 88 22 A7 33 36 30 30 00 D8 |...X$.".".3600..| 000005D0: 0D DE 0D 89 33 35 33 30 00 EE 0D 10 0E 94 22 44 |....3530......"D| 000005E0: 41 54 41 42 41 53 45 2F 43 36 34 22 2C 38 00 F7 |ATABASE/C64",8..| 000005F0: 0D 42 0E 89 31 30 30 00 0B 0E 74 0E 94 22 44 41 |.B..100...t.."DA| 00000600: 54 41 42 41 53 45 2F 43 36 34 22 00 14 0E A0 0F |TABASE/C64".....| 00000610: 99 22 93 22 00 28 0E AA 0F 99 22 4E 41 56 4E 20 |.".".(...."NAVN | 00000620: 3F 22 3B 4E 24 28 47 29 00 3E 0E B4 0F 99 22 41 |?";N$(G).>...."A| 00000630: 44 52 45 53 53 45 3F 22 3B 41 24 28 47 29 00 55 |DRESSE?";A$(G).U| 00000640: 0E BE 0F 99 22 50 4F 53 54 4E 52 2E 20 3F 22 3B |...."POSTNR. ?";| 00000650: 50 24 28 47 29 00 6F 0E C8 0F 99 22 54 45 4C 45 |P$(G).o...."TELE| 00000660: 46 4F 4E 4E 52 2E 20 3F 22 3B 54 24 28 47 29 00 |FONNR. ?";T$(G).| 00000670: 83 0E D2 0F 99 22 44 41 54 41 20 3F 22 3B 44 24 |....."DATA ?";D$| 00000680: 28 47 29 00 8C 0E DC 0F 99 22 11 22 00 9E 0E E6 |(G)......"."....| 00000690: 0F 85 22 4E 41 56 4E 22 3B 4E 24 28 47 29 00 B3 |.."NAVN";N$(G)..| 000006A0: 0E F0 0F 85 22 41 44 52 45 53 53 45 22 3B 41 24 |...."ADRESSE";A$| 000006B0: 28 47 29 00 C8 0E FA 0F 85 22 50 4F 53 54 4E 52 |(G)......"POSTNR| 000006C0: 2E 22 3B 50 24 28 47 29 00 E0 0E 04 10 85 22 54 |.";P$(G)......"T| 000006D0: 45 4C 45 46 4F 4E 4E 52 2E 22 3B 54 24 28 47 29 |ELEFONNR.";T$(G)| 000006E0: 00 F2 0E 0E 10 85 22 44 41 54 41 22 3B 44 24 28 |......"DATA";D$(| 000006F0: 47 29 00 F8 0E 18 10 8E 00 1A 0F 88 13 99 22 93 |G)............".| 00000700: CE B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................| 00000710: B7 B7 B7 B7 B7 B7 B7 CD 22 3B 00 3B 0F 92 13 99 |........";.;....| 00000720: 22 B4 20 20 20 20 20 20 53 30 47 4E 49 4E 47 20 |". S0GNING | 00000730: 20 20 20 20 20 20 20 20 AA 22 3B 00 5B 0F 9C 13 | .";.[...| 00000740: 99 22 CD AF AF AF AF AF AF AF AF AF AF AF AF AF |."..............| 00000750: AF AF AF AF AF AF AF AF AF CE 22 00 78 0F A6 13 |..........".x...| 00000760: 99 22 20 20 11 11 12 46 31 92 20 53 30 47 20 50 |." ...F1. S0G P| 00000770: 41 41 20 4E 41 56 4E 22 00 97 0F B0 13 99 22 20 |AA NAVN"......" | 00000780: 20 11 12 46 33 92 20 53 30 47 20 50 41 41 20 41 | ..F3. S0G PAA A| 00000790: 44 52 45 53 53 45 22 00 B6 0F BA 13 99 22 20 20 |DRESSE"......" | 000007A0: 11 12 46 35 92 20 53 30 47 20 50 41 41 20 50 4F |..F5. S0G PAA PO| 000007B0: 53 54 4E 52 2E 22 00 D8 0F C4 13 99 22 20 20 11 |STNR."......" .| 000007C0: 12 46 37 92 20 53 30 47 20 50 41 41 20 54 45 4C |.F7. S0G PAA TEL| 000007D0: 45 46 4F 4E 4E 52 2E 22 00 E0 0F CE 13 A1 58 24 |EFONNR."......X$| 000007E0: 00 F3 0F D8 13 8B 58 24 B2 22 85 22 A7 20 31 30 |......X$.".". 10| 000007F0: 30 30 30 00 06 10 E2 13 8B 58 24 B2 22 86 22 A7 |000......X$.".".| 00000800: 20 32 30 30 30 30 00 19 10 EC 13 8B 58 24 B2 22 | 20000......X$."| 00000810: 87 22 A7 20 33 30 30 30 30 00 2C 10 F6 13 8B 58 |.". 30000.,....X| 00000820: 24 B2 22 88 22 A7 20 34 30 30 30 30 00 36 10 00 |$.".". 40000.6..| 00000830: 14 89 35 30 37 30 00 4A 10 70 17 42 B2 42 AA 31 |..5070.J.p.B.B.1| 00000840: 3A 8B 42 B2 31 36 A7 42 B2 30 00 57 10 7A 17 97 |:.B.16.B.0.W.z..| 00000850: 35 33 32 38 30 2C 42 00 5D 10 84 17 8E 00 71 10 |53280,B.].....q.| 00000860: 58 1B 42 B2 42 AA 31 3A 8B 42 B2 31 36 A7 42 B2 |X.B.B.1:.B.16.B.| 00000870: 30 00 7E 10 62 1B 97 35 33 32 38 31 2C 42 00 84 |0.~.b..53281,B..| 00000880: 10 6C 1B 8E 00 9A 10 BC 1B 50 B2 50 AA 31 3A 8B |.l.......P.P.1:.| 00000890: 50 B2 31 37 A7 50 B2 31 3A 8C 00 A2 10 C6 1B 87 |P.17.P.1:.......| 000008A0: 49 24 00 AB 10 D0 1B 89 31 30 30 00 BF 10 40 1F |I$......100...@.| 000008B0: A1 58 24 3A 8B 58 24 B2 22 22 A7 38 30 30 30 00 |.X$:.X$."".8000.| 000008C0: C5 10 4A 1F 8E 00 0B 11 28 23 83 20 22 90 22 2C |..J.....(#. ".",| 000008D0: 22 05 22 2C 22 1C 22 2C 22 9F 22 2C 22 9C 22 2C |".",".",".",".",| 000008E0: 22 1E 22 2C 22 1F 22 2C 22 9E 22 2C 22 81 22 2C |".",".",".",".",| 000008F0: 22 95 22 2C 22 96 22 2C 22 97 22 2C 22 98 22 2C |".",".",".",".",| 00000900: 22 99 22 2C 22 9A 22 2C 22 9B 22 00 14 11 10 27 |".",".","."....'| 00000910: 99 22 93 22 00 36 11 1A 27 85 22 4E 41 56 4E 22 |.".".6..'."NAVN"| 00000920: 3B 4E 24 3A 4E B2 C3 28 4E 24 29 3A 8B 4E 24 B2 |;N$:N..(N$):.N$.| 00000930: 22 22 A7 31 30 30 00 58 11 24 27 81 47 B2 30 A4 |"".100.X.$'.G.0.| 00000940: 44 3A 8B C8 28 4E 24 28 47 29 2C 4E 29 B2 4E 24 |D:..(N$(G),N).N$| 00000950: A7 20 8D 31 30 30 34 30 00 68 11 2E 27 82 47 3A |. .10040.h..'.G:| 00000960: 99 22 93 53 4C 55 54 22 00 7D 11 33 27 A1 58 24 |.".SLUT".}.3'.X$| 00000970: 3A 8B 58 24 B2 22 22 A7 31 30 30 33 35 00 87 11 |:.X$."".10035...| 00000980: 34 27 89 20 31 30 30 00 B2 11 38 27 99 22 93 22 |4'. 100...8'."."| 00000990: 3B 4E 24 28 47 29 3A 99 41 24 28 47 29 3A 99 50 |;N$(G):.A$(G):.P| 000009A0: 24 28 47 29 3A 99 54 24 28 47 29 3A 99 44 24 28 |$(G):.T$(G):.D$(| 000009B0: 47 29 00 D7 11 3D 27 99 22 53 4B 41 4C 20 44 49 |G)...='."SKAL DI| 000009C0: 53 53 45 20 44 41 54 41 20 52 45 54 54 45 53 20 |SSE DATA RETTES | 000009D0: 3F 28 4A 2F 4E 29 22 00 ED 11 3E 27 A1 58 24 3A |?(J/N)"...>'.X$:| 000009E0: 8B 58 24 B2 22 4E 22 A7 31 30 30 35 30 00 07 12 |.X$."N".10050...| 000009F0: 3F 27 8B 58 24 B2 22 4A 22 A7 20 8D 34 30 30 30 |?'.X$."J". .4000| 00000A00: 3A 89 31 30 30 35 30 00 12 12 40 27 89 31 30 30 |:.10050...@'.100| 00000A10: 34 36 00 29 12 42 27 99 20 22 11 11 54 52 59 4B |46.).B'. "..TRYK| 00000A20: 20 45 4E 20 54 41 53 54 22 00 3E 12 4C 27 A1 58 | EN TAST".>.L'.X| 00000A30: 24 3A 8B 58 24 B2 22 22 A7 31 30 30 36 30 00 44 |$:.X$."".10060.D| 00000A40: 12 56 27 8E 00 4D 12 20 4E 99 22 93 22 00 72 12 |.V'..M. N.".".r.| 00000A50: 2A 4E 85 22 41 44 52 45 53 53 45 22 3B 41 24 3A |*N."ADRESSE";A$:| 00000A60: 41 B2 C3 28 41 24 29 3A 8B 41 24 B2 22 22 A7 31 |A..(A$):.A$."".1| 00000A70: 30 30 00 94 12 34 4E 81 47 B2 30 A4 44 3A 8B C8 |00...4N.G.0.D:..| 00000A80: 28 41 24 28 47 29 2C 41 29 B2 41 24 A7 20 8D 32 |(A$(G),A).A$. .2| 00000A90: 30 30 34 30 00 A4 12 3E 4E 82 47 3A 99 22 93 53 |0040...>N.G:.".S| 00000AA0: 4C 55 54 22 00 B9 12 43 4E A1 58 24 3A 8B 58 24 |LUT"...CN.X$:.X$| 00000AB0: B2 22 22 A7 32 30 30 33 35 00 C2 12 44 4E 89 31 |."".20035...DN.1| 00000AC0: 30 30 00 ED 12 48 4E 99 22 93 22 3B 4E 24 28 47 |00...HN.".";N$(G| 00000AD0: 29 3A 99 41 24 28 47 29 3A 99 50 24 28 47 29 3A |):.A$(G):.P$(G):| 00000AE0: 99 54 24 28 47 29 3A 99 44 24 28 47 29 00 11 13 |.T$(G):.D$(G)...| 00000AF0: 4D 4E 99 22 53 4B 41 4C 20 44 49 53 53 45 20 44 |MN."SKAL DISSE D| 00000B00: 41 54 41 20 52 45 54 54 45 53 3F 28 4A 2F 4E 29 |ATA RETTES?(J/N)| 00000B10: 22 00 27 13 4E 4E A1 58 24 3A 8B 58 24 B2 22 4E |".'.NN.X$:.X$."N| 00000B20: 22 A7 32 30 30 35 30 00 40 13 4F 4E 8B 58 24 B2 |".20050.@.ON.X$.| 00000B30: 22 4A 22 A7 8D 34 30 30 30 3A 89 32 30 30 35 30 |"J"..4000:.20050| 00000B40: 00 4B 13 50 4E 89 32 30 30 34 36 00 61 13 52 4E |.K.PN.20046.a.RN| 00000B50: 99 22 11 11 54 52 59 4B 20 45 4E 20 54 41 53 54 |."..TRYK EN TAST| 00000B60: 22 00 76 13 5C 4E A1 58 24 3A 8B 58 24 B2 22 22 |".v.\N.X$:.X$.""| 00000B70: A7 32 30 30 36 30 00 7C 13 66 4E 8E 00 85 13 30 |.20060.|.fN....0| 00000B80: 75 99 22 93 22 00 AA 13 3A 75 85 22 50 4F 53 54 |u."."...:u."POST| 00000B90: 4E 52 2E 22 3B 50 24 3A 50 B2 C3 28 50 24 29 3A |NR.";P$:P..(P$):| 00000BA0: 8B 50 24 B2 22 22 A7 31 30 30 00 CC 13 44 75 81 |.P$."".100...Du.| 00000BB0: 47 B2 30 A4 44 3A 8B C8 28 50 24 28 47 29 2C 50 |G.0.D:..(P$(G),P| 00000BC0: 29 B2 50 24 A7 20 8D 33 30 30 34 30 00 DC 13 4E |).P$. .30040...N| 00000BD0: 75 82 47 3A 99 22 93 53 4C 55 54 22 00 F1 13 53 |u.G:.".SLUT"...S| 00000BE0: 75 A1 58 24 3A 8B 58 24 B2 22 22 A7 33 30 30 33 |u.X$:.X$."".3003| 00000BF0: 35 00 FA 13 54 75 89 31 30 30 00 25 14 58 75 99 |5...Tu.100.%.Xu.| 00000C00: 22 93 22 3B 4E 24 28 47 29 3A 99 41 24 28 47 29 |".";N$(G):.A$(G)| 00000C10: 3A 99 50 24 28 47 29 3A 99 54 24 28 47 29 3A 99 |:.P$(G):.T$(G):.| 00000C20: 44 24 28 47 29 00 4B 14 5D 75 99 22 53 4B 41 4C |D$(G).K.]u."SKAL| 00000C30: 20 44 49 53 53 45 20 44 41 54 41 20 52 45 54 54 | DISSE DATA RETT| 00000C40: 45 53 20 3F 20 28 4A 2F 4E 29 22 00 61 14 5E 75 |ES ? (J/N)".a.^u| 00000C50: A1 58 24 3A 8B 58 24 B2 22 4E 22 A7 33 30 30 35 |.X$:.X$."N".3005| 00000C60: 30 00 7A 14 5F 75 8B 58 24 B2 22 4A 22 A7 8D 34 |0.z._u.X$."J"..4| 00000C70: 30 30 30 3A 89 33 30 30 35 30 00 85 14 60 75 89 |000:.30050...`u.| 00000C80: 33 30 30 34 36 00 9B 14 62 75 99 22 11 11 54 52 |30046...bu."..TR| 00000C90: 59 4B 20 45 4E 20 54 41 53 54 22 00 B0 14 6C 75 |YK EN TAST"...lu| 00000CA0: A1 58 24 3A 8B 58 24 B2 22 22 A7 33 30 30 36 30 |.X$:.X$."".30060| 00000CB0: 00 B6 14 76 75 8E 00 BF 14 40 9C 99 22 93 22 00 |...vu....@..".".| 00000CC0: E7 14 4A 9C 85 22 54 45 4C 45 46 4F 4E 4E 52 2E |..J.."TELEFONNR.| 00000CD0: 22 3B 54 24 3A 54 B2 C3 28 54 24 29 3A 8B 54 24 |";T$:T..(T$):.T$| 00000CE0: B2 22 22 A7 31 30 30 00 09 15 54 9C 81 47 B2 30 |."".100...T..G.0| 00000CF0: A4 44 3A 8B C8 28 54 24 28 47 29 2C 54 29 B2 54 |.D:..(T$(G),T).T| 00000D00: 24 A7 20 8D 34 30 30 34 30 00 19 15 5E 9C 82 47 |$. .40040...^..G| 00000D10: 3A 99 22 93 53 4C 55 54 22 00 2E 15 63 9C A1 58 |:.".SLUT"...c..X| 00000D20: 24 3A 8B 58 24 B2 22 22 A7 34 30 30 33 35 00 37 |$:.X$."".40035.7| 00000D30: 15 64 9C 89 31 30 30 00 62 15 68 9C 99 22 93 22 |.d..100.b.h.."."| 00000D40: 3B 4E 24 28 47 29 3A 99 41 24 28 47 29 3A 99 50 |;N$(G):.A$(G):.P| 00000D50: 24 28 47 29 3A 99 54 24 28 47 29 3A 99 44 24 28 |$(G):.T$(G):.D$(| 00000D60: 47 29 00 87 15 6D 9C 99 22 53 4B 41 4C 20 44 49 |G)...m.."SKAL DI| 00000D70: 53 53 45 20 44 41 54 41 20 52 45 54 54 45 53 20 |SSE DATA RETTES | 00000D80: 3F 28 4A 2F 4E 29 22 00 9D 15 6E 9C A1 58 24 3A |?(J/N)"...n..X$:| 00000D90: 8B 58 24 B2 22 4E 22 A7 34 30 30 35 30 00 B6 15 |.X$."N".40050...| 00000DA0: 6F 9C 8B 58 24 B2 22 4A 22 A7 8D 34 30 30 30 3A |o..X$."J"..4000:| 00000DB0: 89 34 30 30 35 30 00 C1 15 70 9C 89 34 30 30 34 |.40050...p..4004| 00000DC0: 36 00 D7 15 72 9C 99 22 11 11 54 52 59 4B 20 45 |6...r.."..TRYK E| 00000DD0: 4E 20 54 41 53 54 22 00 EC 15 7C 9C A1 58 24 3A |N TAST"...|..X$:| 00000DE0: 8B 58 24 B2 22 22 A7 34 30 30 36 30 00 F2 15 86 |.X$."".40060....| 00000DF0: 9C 8E 00 00 00 |..... |
.......********************.5....*DATABA
SE***********.O....********************.
U.....B....650,128.U...B.0:P.0:I$."."...
Z..N$(2000),A$(2000),P$(2000),T$(2000),D
$(2000),Z$(16).L.D..53280,B:.53281,P:.".
";I$...N.."N..........................M"
...X..".COMMODORE 64 KARTOTEK 1984.".8..
.."M..........................N".S...."
...F1. NYE DATA".N. .." ..F2. SAVE
DATA"......" ..F3. LOAD DATA"......"
..F4. SAVE PROGRAM"......" ..F5.
S0GNING"...H.." ..F6. SKIFT BORDER FA
RVE"...R.." ..F7. SKIFT PAPER FARVE".
(...." ..F8. SKIFT INK FARVE".5....53
281,B.=....X$.O....X$.".". 1000.A....X$.
".". 2000.S....X$.".". 3000......X$.".".
3500......X$.".". 5000..."..X$.".". .60
00...,..X$.".". .7000.O.6..X$.".". 7100.
X.@..230...... NYE DATA......".".....N$(
D)."":."NAVN";N$(D):.N$(D)."".N$(D)."-".
Q...A$(D)."":."ADRESSE";A$(D):.A$(D)."".
A$(D)."-".....P$(D)."":."POSTNR.";P$(D):
.P$(D)."".P$(D)."-".....T$(D)."":."TELEF
ONNR.";T$(D):.T$(D)."".T$(D)."-".....D$(
D)."":."DATA";D$(D):.D$(D)."".D$(D)."-".
..$..". DATA OK ? (J/N)"......X$:.X$."N"
.100.&.8..X$.."J".1070.G.=.D.D.1:L$."***
*":N$(D).L$:A$(D).L$:P$(D).L$:T$(D).L$:D
$(D).L$.P.B..100.V.P.....Q..1,1,1,"DATA,
S"...U..X.0.D.1.H.Z..1,N$(X):.1,A$(X):.1
,P$(X):.1,T$(X):.1,D$(X).O....X.V... 1..
....100.....D.1:.1,1,0,"DATA,S"...B..1,N
$(D).+.C..1,A$(D):.1,P$(D):.1,T$(D):.1D$
(D).F.L..N$(D)."****". 1:.100.V.V.D.D.1
:.3010......". SKAL DER SAVES PAA BAAND
ELLER DISC ?"......"..F5.BAAND"......"..
F7.DISC"...J..X$:.X$.".".3700.N.T..X$.".
".3600.X....3530......"DATABASE/C64",8..
.B..100...T.."DATABASE/C64"... ..".".(..
.."NAVN ?";N$(G).>...."ADRESSE?";A$(G).U
...."POSTNR. ?";P$(G).O.H.."TELEFONNR. ?
";T$(G)...R.."DATA ?";D$(G)......"."....
.."NAVN";N$(G)......"ADRESSE";A$(G).H...
."POSTNR.";P$(G)......"TELEFONNR.";T$(G)
......"DATA";D$(G)............".N.......
...............M";.;....". S0GNING
.";.[...."M.....................
.N".X...." ...F1. S0G PAA NAVN"......"
..F3. S0G PAA ADRESSE"......" ..F5. S0
G PAA POSTNR.".X.D.." ..F7. S0G PAA TEL
EFONNR."...N..X$...X..X$.".". 10000.....
.X$.".". 20000......X$.".". 30000.,....X
$.".". 40000.6....5070.J.P.B.B.1:.B.16.B
.0.W.Z..53280,B.].....Q.X.B.B.1:.B.16.B.
0.~.B..53281,B...L.......P.P.1:.P.17.P.1
:....F..I$...P..100...@..X$:.X$."".8000.
E.J.....(#. ".",".",".",".",".",".",".",
".",".",".",".",".",".",".",".","."....'
.".".6..'."NAVN";N$:N.C(N$):.N$."".100.X
.$'.G.0.D:.H(N$(G),N).N$. .10040.H..'.G:
.".SLUT".}.3'.X$:.X$."".10035...4'. 100.
..8'.".";N$(G):.A$(G):.P$(G):.T$(G):.D$(
G).W.='."SKAL DISSE DATA RETTES ?(J/N)".
..>'.X$:.X$."N".10050...?'.X$."J". .4000
:.10050...@'.10046.).B'. "..TRYK EN TAST
".>.L'.X$:.X$."".10060.D.V'..M. N.".".R.
*N."ADRESSE";A$:A.C(A$):.A$."".100...4N.
G.0.D:.H(A$(G),A).A$. .20040...>N.G:.".S
LUT"...CN.X$:.X$."".20035.B.DN.100...HN.
".";N$(G):.A$(G):.P$(G):.T$(G):.D$(G)...
MN."SKAL DISSE DATA RETTES?(J/N)".'.NN.X
$:.X$."N".20050.@.ON.X$."J"..4000:.20050
.K.PN.20046.A.RN."..TRYK EN TAST".V.\N.X
$:.X$."".20060.|.FN....0U."."...:U."POST
NR.";P$:P.C(P$):.P$."".100.L.DU.G.0.D:.H
(P$(G),P).P$. .30040...NU.G:.".SLUT"...S
U.X$:.X$."".30035...TU.100.%.XU.".";N$(G
):.A$(G):.P$(G):.T$(G):.D$(G).K.]U."SKAL
DISSE DATA RETTES ? (J/N)".A.^U.X$:.X$.
"N".30050.Z._U.X$."J"..4000:.30050...`U.
30046...BU."..TRYK EN TAST"...LU.X$:.X$.
"".30060...VU....@.."."...J.."TELEFONNR.
";T$:T.C(T$):.T$."".100...T..G.0.D:.H(T$
(G),T).T$. .40040...^..G:.".SLUT"...C..X
$:.X$."".40035.7.D..100.B.H..".";N$(G):.
A$(G):.P$(G):.T$(G):.D$(G)...M.."SKAL DI
SSE DATA RETTES ?(J/N)"...N..X$:.X$."N".
40050...O..X$."J"..4000:.40050.A.P..4004
6.W.R.."..TRYK EN TAST"...|..X$:.X$."".4
0060.........
> CLICK IMAGE PREVIEW FOR FULL MODAL