DATABASE 2000
FILE INFORMATION
FILENAME(S): DATABASE 2000
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 20:09:41
APPEARS ON: 1 disk(s)
FILE HASH
44c920517b39fc9c6d298ee7e77f6b571e04081077071786e22f57e54a3c7a68
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 121 SIDE B | DATABASE 2000 | PRG | Curtcool, Klaus & Jan | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2A 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 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 37 08 07 00 97 |**********.7....| 00000030: 36 35 30 2C 31 32 38 00 4A 08 0A 00 42 B2 30 3A |650,128.J...B.0:| 00000040: 50 B2 30 3A 49 24 B2 22 9F 22 00 83 08 5A 00 86 |P.0:I$."."...Z..| 00000050: 4E 24 28 32 30 30 30 29 2C 41 24 28 32 30 30 30 |N$(2000),A$(2000| 00000060: 29 2C 50 24 28 32 30 30 30 29 2C 54 24 28 32 30 |),P$(2000),T$(20| 00000070: 30 30 29 2C 44 24 28 32 30 30 30 29 2C 5A 24 28 |00),D$(2000),Z$(| 00000080: 31 36 29 00 A1 08 64 00 97 35 33 32 38 30 2C 42 |16)...d..53280,B| 00000090: 3A 97 35 33 32 38 31 2C 50 3A 99 22 93 22 3B 49 |:.53281,P:.".";I| 000000A0: 24 00 C8 08 6E 00 99 22 CE A3 A3 A3 A3 A3 A3 A3 |$...n.."........| 000000B0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 000000C0: A3 A3 A3 A3 A3 A3 CD 22 00 EF 08 78 00 99 22 A5 |......."...x..".| 000000D0: 20 43 4F 4E 4E 4F 44 4F 52 45 20 36 34 20 44 41 | CONNODORE 64 DA| 000000E0: 54 41 42 41 53 45 20 32 30 30 30 20 20 A7 22 00 |TABASE 2000 .".| 000000F0: 16 09 82 00 99 22 CD A4 A4 A4 A4 A4 A4 A4 A4 A4 |....."..........| 00000100: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 00000110: A4 A4 A4 A4 CE 22 00 34 09 96 00 99 22 20 20 20 |.....".4...." | 00000120: 20 20 20 20 11 11 12 46 31 92 20 4E 59 45 20 44 | ...F1. NYE D| 00000130: 41 54 41 22 00 52 09 A0 00 99 22 20 20 20 20 20 |ATA".R...." | 00000140: 20 20 11 12 46 32 92 20 53 41 56 45 20 44 41 54 | ..F2. SAVE DAT| 00000150: 41 22 00 70 09 AA 00 99 22 20 20 20 20 20 20 20 |A".p...." | 00000160: 11 12 46 33 92 20 4C 4F 41 44 20 44 41 54 41 22 |..F3. LOAD DATA"| 00000170: 00 91 09 B4 00 99 22 20 20 20 20 20 20 20 11 12 |......" ..| 00000180: 46 34 92 20 53 41 56 45 20 50 52 4F 47 52 41 4D |F4. SAVE PROGRAM| 00000190: 22 00 AD 09 BE 00 99 22 20 20 20 20 20 20 20 11 |"......" .| 000001A0: 12 46 35 92 20 53 30 47 4E 49 4E 47 22 00 D4 09 |.F5. S0GNING"...| 000001B0: C8 00 99 22 20 20 20 20 20 20 20 11 12 46 36 92 |..." ..F6.| 000001C0: 20 53 4B 49 46 54 20 42 4F 52 44 45 52 20 46 41 | SKIFT BORDER FA| 000001D0: 52 56 45 22 00 FA 09 D2 00 99 22 20 20 20 20 20 |RVE"......" | 000001E0: 20 20 11 12 46 37 92 20 53 4B 49 46 54 20 50 41 | ..F7. SKIFT PA| 000001F0: 50 45 52 20 46 41 52 56 45 22 00 1E 0A DC 00 99 |PER FARVE"......| 00000200: 22 20 20 20 20 20 20 20 11 12 46 38 92 20 53 4B |" ..F8. SK| 00000210: 49 46 54 20 49 4E 4B 20 46 41 52 56 45 22 00 2B |IFT INK FARVE".+| 00000220: 0A E1 00 97 35 33 32 38 31 2C 42 00 33 0A E6 00 |....53281,B.3...| 00000230: A1 58 24 00 44 0A F0 00 8B 58 24 B2 22 85 22 A7 |.X$.D....X$.".".| 00000240: 31 30 30 30 00 55 0A FA 00 8B 58 24 B2 22 89 22 |1000.U....X$."."| 00000250: A7 32 30 30 30 00 66 0A 04 01 8B 58 24 B2 22 86 |.2000.f....X$.".| 00000260: 22 A7 33 30 30 30 00 77 0A 0E 01 8B 58 24 B2 22 |".3000.w....X$."| 00000270: 8A 22 A7 33 35 30 30 00 88 0A 18 01 8B 58 24 B2 |.".3500......X$.| 00000280: 22 87 22 A7 35 30 30 30 00 9A 0A 22 01 8B 58 24 |".".5000..."..X$| 00000290: B2 22 8B 22 A7 8D 36 30 30 30 00 AC 0A 2C 01 8B |."."..6000...,..| 000002A0: 58 24 B2 22 88 22 A7 8D 37 30 30 30 00 BD 0A 36 |X$."."..7000...6| 000002B0: 01 8B 58 24 B2 22 8C 22 A7 37 31 30 30 00 C6 0A |..X$.".".7100...| 000002C0: 40 01 89 32 33 30 00 DA 0A E8 03 8F 2A 2A 2A 4E |@..230......***N| 000002D0: 59 45 20 44 41 54 41 2A 2A 2A 00 E3 0A ED 03 99 |YE DATA***......| 000002E0: 22 93 22 00 13 0B F2 03 4E 24 28 44 29 B2 22 22 |".".....N$(D).""| 000002F0: 3A 85 22 4E 41 56 4E 20 22 3B 4E 24 28 44 29 3A |:."NAVN ";N$(D):| 00000300: 8B 4E 24 28 44 29 B2 22 22 A7 4E 24 28 44 29 B2 |.N$(D)."".N$(D).| 00000310: 22 2D 22 00 46 0B FC 03 41 24 28 44 29 B2 22 22 |"-".F...A$(D).""| 00000320: 3A 85 22 41 44 52 45 53 53 45 20 22 3B 41 24 28 |:."ADRESSE ";A$(| 00000330: 44 29 3A 8B 41 24 28 44 29 B2 22 22 A7 41 24 28 |D):.A$(D)."".A$(| 00000340: 44 29 B2 22 2D 22 00 7A 0B 06 04 50 24 28 44 29 |D)."-".z...P$(D)| 00000350: B2 22 22 3A 85 22 50 4F 53 54 20 4E 52 2E 20 22 |."":."POST NR. "| 00000360: 3B 50 24 28 44 29 3A 8B 50 24 28 44 29 B2 22 22 |;P$(D):.P$(D).""| 00000370: A7 50 24 28 44 29 B2 22 2D 22 00 B1 0B 10 04 54 |.P$(D)."-".....T| 00000380: 24 28 44 29 B2 22 22 3A 85 22 54 45 4C 45 46 4F |$(D)."":."TELEFO| 00000390: 4E 20 4E 52 2E 20 22 3B 54 24 28 44 29 3A 8B 54 |N NR. ";T$(D):.T| 000003A0: 24 28 44 29 B2 22 22 A7 54 24 28 44 29 B2 22 2D |$(D)."".T$(D)."-| 000003B0: 22 00 E1 0B 1A 04 44 24 28 44 29 B2 22 22 3A 85 |".....D$(D)."":.| 000003C0: 22 44 41 54 41 20 22 3B 54 24 28 44 29 3A 8B 54 |"DATA ";T$(D):.T| 000003D0: 24 28 44 29 B2 22 22 A7 54 24 28 44 29 B2 22 2D |$(D)."".T$(D)."-| 000003E0: 22 00 F8 0B 24 04 99 22 44 41 54 41 20 4F 4B 20 |"...$.."DATA OK | 000003F0: 3F 20 28 4A 2F 4E 29 22 00 0C 0C 2E 04 A1 58 24 |? (J/N)"......X$| 00000400: 3A 8B 58 24 B2 22 4E 22 A7 31 30 30 00 1F 0C 38 |:.X$."N".100...8| 00000410: 04 8B 58 24 20 B3 B1 22 4A 22 A7 31 30 37 30 00 |..X$ .."J".1070.| 00000420: 29 0C 3D 04 44 B2 44 AA 31 00 32 0C 42 04 89 31 |).=.D.D.1.2.B..1| 00000430: 30 30 00 4B 0C D0 07 9F 20 31 2C 31 2C 31 35 2C |00.K.... 1,1,15,| 00000440: 22 53 3A 44 41 54 41 22 3A A0 31 00 61 0C D1 07 |"S:DATA":.1.a...| 00000450: 9F 32 2C 38 2C 32 2C 22 44 41 54 41 2C 53 2C 57 |.2,8,2,"DATA,S,W| 00000460: 22 00 6E 0C D5 07 81 58 B2 30 A4 44 AA 31 00 9F |".n....X.0.D.1..| 00000470: 0C DA 07 98 32 2C 4E 24 28 58 29 3A 98 32 2C 41 |....2,N$(X):.2,A| 00000480: 24 28 58 29 3A 98 32 2C 50 24 28 58 29 3A 98 32 |$(X):.2,P$(X):.2| 00000490: 2C 54 24 28 58 29 3A 98 32 2C 44 24 28 58 29 00 |,T$(X):.2,D$(X).| 000004A0: A6 0C E4 07 82 58 00 AD 0C EE 07 A0 32 00 B6 0C |.....X......2...| 000004B0: F8 07 89 31 30 30 00 D0 0C B8 0B 44 B2 31 3A 9F |...100.....D.1:.| 000004C0: 31 2C 31 2C 30 2C 22 44 41 54 41 2C 53 2C 52 22 |1,1,0,"DATA,S,R"| 000004D0: 00 DD 0C C2 0B 84 32 2C 4E 24 28 44 29 00 14 0D |......2,N$(D)...| 000004E0: C3 0B 84 32 2C 41 22 28 44 29 3A 49 4E 50 55 54 |...2,A"(D):INPUT| 000004F0: 23 32 2C 50 24 28 44 29 3A 49 4E 50 55 54 23 32 |#2,P$(D):INPUT#2| 00000500: 2C 54 24 28 44 29 3A 49 4E 50 55 54 23 32 2C 44 |,T$(D):INPUT#2,D| 00000510: 24 28 44 29 00 2B 0D CC 0B 8B 4E 24 B2 22 2A 2A |$(D).+....N$."**| 00000520: 2A 2A 22 A7 A0 32 3A 89 31 30 30 00 3B 0D D6 0B |**"..2:.100.;...| 00000530: 44 B2 44 AA 31 3A 89 33 30 31 30 00 4E 0D AC 0D |D.D.1:.3010.N...| 00000540: 94 22 44 41 54 41 42 41 53 45 2F 36 34 22 00 61 |."DATABASE/64".a| 00000550: 0D B6 0D 99 22 11 12 46 31 92 20 42 41 41 4E 44 |...."..F1. BAAND| 00000560: 22 00 73 0D C0 0D 99 22 11 12 46 37 92 20 44 49 |".s...."..F7. DI| 00000570: 53 43 22 00 87 0D CA 0D A1 58 24 3A 8B 58 B2 22 |SC"......X$:.X."| 00000580: 87 54 C8 33 37 30 30 00 98 0D D4 0D 8B 58 24 B2 |.T.3700......X$.| 00000590: 22 88 22 A7 33 36 30 30 00 A2 0D DE 0D 89 33 35 |".".3600......35| 000005A0: 33 30 00 B8 0D 10 0E 94 22 44 41 54 41 42 41 53 |30......"DATABAS| 000005B0: 45 2F 43 36 34 22 2C 38 00 C1 0D 42 0E 89 31 30 |E/C64",8...B..10| 000005C0: 30 00 CA 0D 3C 0F 89 31 30 30 00 D3 0D A0 0F 99 |0...<..100......| 000005D0: 22 93 22 00 E8 0D AA 0F 99 22 4E 41 56 4E 20 3F |"."......"NAVN ?| 000005E0: 20 22 3B 4E 24 28 47 29 00 00 0E B4 0F 99 22 41 | ";N$(G)......"A| 000005F0: 44 52 45 53 53 45 20 3F 20 22 3B 41 24 28 47 29 |DRESSE ? ";A$(G)| 00000600: 00 19 0E BE 0F 99 22 50 4F 53 54 20 4E 52 2E 20 |......"POST NR. | 00000610: 3F 20 22 3B 50 24 28 47 29 00 35 0E C8 0F 99 22 |? ";P$(G).5...."| 00000620: 54 45 4C 45 46 4F 4E 20 4E 52 2E 20 3F 20 22 3B |TELEFON NR. ? ";| 00000630: 54 24 28 47 29 00 4A 0E D2 0F 99 22 44 41 54 41 |T$(G).J...."DATA| 00000640: 20 3F 20 22 3B 44 24 28 47 29 00 53 0E DC 0F 99 | ? ";D$(G).S....| 00000650: 22 13 22 00 66 0E E6 0F 85 22 4E 41 56 4E 20 22 |".".f...."NAVN "| 00000660: 3B 4E 24 28 47 29 00 7C 0E F0 0F 85 22 41 44 52 |;N$(G).|...."ADR| 00000670: 45 53 53 45 20 22 3B 41 24 28 47 29 00 93 0E FA |ESSE ";A$(G)....| 00000680: 0F 85 22 50 4F 53 54 20 4E 52 2E 20 22 3B 50 24 |.."POST NR. ";P$| 00000690: 28 47 29 00 AD 0E 04 10 85 22 54 45 4C 45 46 4F |(G)......"TELEFO| 000006A0: 4E 20 4E 52 2E 20 22 3B 54 24 28 47 29 00 C0 0E |N NR. ";T$(G)...| 000006B0: 0E 10 85 22 44 41 54 41 20 22 3B 44 24 28 47 29 |..."DATA ";D$(G)| 000006C0: 00 C6 0E 18 10 8E 00 F2 0E 88 13 99 22 93 CE A3 |............"...| 000006D0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 000006E0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................| 000006F0: CD 22 00 1D 0F 92 13 99 22 A5 20 20 20 20 20 20 |."......". | 00000700: 20 20 53 30 47 4E 49 4E 47 20 20 20 20 20 20 20 | S0GNING | 00000710: 20 20 20 20 20 20 20 20 20 20 20 A7 22 00 48 0F | .".H.| 00000720: 9C 13 99 22 CD A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |..."............| 00000730: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 00000740: A4 A4 A4 A4 A4 A4 CE 22 00 6B 0F A6 13 99 22 20 |.......".k...." | 00000750: 20 20 20 20 20 20 20 11 11 12 46 49 92 20 53 30 | ...FI. S0| 00000760: 47 20 50 41 41 20 4E 41 56 4E 22 00 91 0F B0 13 |G PAA NAVN".....| 00000770: 99 22 20 20 20 20 20 20 20 20 11 12 46 33 92 20 |." ..F3. | 00000780: 53 30 47 20 50 41 41 20 41 44 52 45 53 53 45 20 |S0G PAA ADRESSE | 00000790: 22 00 B7 0F BA 13 99 22 20 20 20 20 20 20 20 20 |"......" | 000007A0: 11 12 46 35 92 20 53 30 47 20 50 41 41 20 50 4F |..F5. S0G PAA PO| 000007B0: 53 54 20 4E 52 2E 22 00 DC 0F C4 13 99 22 20 20 |ST NR."......" | 000007C0: 20 20 20 20 20 20 11 12 46 37 92 20 53 30 47 20 | ..F7. S0G | 000007D0: 50 41 41 20 54 4C 46 2E 4E 52 2E 22 00 E4 0F CE |PAA TLF.NR."....| 000007E0: 13 A1 58 24 00 F6 0F D8 13 8B 58 24 B2 22 85 22 |..X$......X$."."| 000007F0: A7 31 30 30 30 30 00 08 10 E2 13 8B 58 24 B2 22 |.10000......X$."| 00000800: 86 22 A7 32 30 30 30 30 00 1A 10 EC 13 8B 58 24 |.".20000......X$| 00000810: B2 22 87 22 A7 33 30 30 30 30 00 2C 10 F6 13 8B |.".".30000.,....| 00000820: 58 24 B2 22 88 22 A7 34 30 30 30 30 00 36 10 00 |X$.".".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 06 11 28 23 83 22 85 22 2C 22 |..J.....(#.".","| 000008D0: 05 22 2C 22 1C 22 2C 22 9F 22 2C 22 9C 22 2C 22 |.",".",".",".","| 000008E0: 1E 22 2C 22 1F 22 2C 22 9E 22 2C 22 81 22 2C 22 |.",".",".",".","| 000008F0: 95 22 2C 22 96 22 2C 22 97 22 2C 22 98 22 2C 22 |.",".",".",".","| 00000900: 99 22 2C 22 9B 22 00 0F 11 10 27 99 22 93 22 00 |.","."....'.".".| 00000910: 32 11 1A 27 85 22 4E 41 56 4E 20 22 3B 4E 24 3A |2..'."NAVN ";N$:| 00000920: 4E B2 C3 28 4E 24 29 3A 8B 4E 24 B2 22 22 A7 31 |N..(N$):.N$."".1| 00000930: 30 30 00 53 11 24 27 81 47 B2 31 A4 44 3A 8B C8 |00.S.$'.G.1.D:..| 00000940: 28 4E 24 28 47 29 2C 4E 29 B2 4E 24 A7 8D 31 30 |(N$(G),N).N$..10| 00000950: 30 34 30 00 63 11 2E 27 82 47 3A 99 22 93 53 4C |040.c..'.G:.".SL| 00000960: 55 54 22 00 78 11 33 27 A1 58 24 3A 8B 58 24 B2 |UT".x.3'.X$:.X$.| 00000970: 22 22 A7 31 30 30 33 35 00 81 11 34 27 89 31 30 |"".10035...4'.10| 00000980: 30 00 AC 11 38 27 99 22 93 22 3B 4E 24 28 47 29 |0...8'.".";N$(G)| 00000990: 3A 99 41 24 28 47 29 3A 99 50 24 28 47 29 3A 99 |:.A$(G):.P$(G):.| 000009A0: 54 24 28 47 29 3A 99 44 24 28 47 29 00 D3 11 3D |T$(G):.D$(G)...=| 000009B0: 27 99 20 22 53 4B 41 4C 20 44 49 53 53 45 20 44 |'. "SKAL DISSE D| 000009C0: 41 54 41 20 52 45 54 54 45 53 20 3F 20 28 4A 2F |ATA RETTES ? (J/| 000009D0: 4E 29 22 00 E9 11 3E 27 A1 58 24 3A 8B 58 24 B2 |N)"...>'.X$:.X$.| 000009E0: 22 4E 22 A7 31 30 30 35 30 00 02 12 3F 27 8B 58 |"N".10050...?'.X| 000009F0: 24 B2 22 4A 22 A7 8D 34 30 30 30 3A 89 31 30 30 |$."J"..4000:.100| 00000A00: 35 30 00 0D 12 40 27 89 31 30 30 34 36 00 27 12 |50...@'.10046.'.| 00000A10: 42 27 99 22 11 11 54 52 59 4B 20 50 41 41 20 45 |B'."..TRYK PAA E| 00000A20: 4E 20 54 41 53 54 22 00 3C 12 4C 27 A1 58 24 3A |N TAST".<.L'.X$:| 00000A30: 8B 58 24 B2 22 22 A7 31 30 30 36 30 00 42 12 56 |.X$."".10060.B.V| 00000A40: 27 8E 00 4B 12 20 4E 99 22 93 22 00 71 12 2A 4E |'..K. N.".".q.*N| 00000A50: 85 22 41 44 52 45 53 53 45 20 22 3B 41 24 3A 41 |."ADRESSE ";A$:A| 00000A60: B2 C3 28 41 24 29 3A 8B 41 24 B2 22 22 A7 31 30 |..(A$):.A$."".10| 00000A70: 30 00 92 12 34 4E 81 47 B2 31 A4 44 3A 8B C8 28 |0...4N.G.1.D:..(| 00000A80: 41 24 28 47 29 2C 41 29 B2 41 24 A7 8D 32 30 30 |A$(G),A).A$..200| 00000A90: 34 30 00 A2 12 3E 4E 82 47 3A 99 22 93 53 4C 55 |40...>N.G:.".SLU| 00000AA0: 54 22 00 B7 12 43 4E A1 58 24 3A 8B 58 24 B2 22 |T"...CN.X$:.X$."| 00000AB0: 22 A7 32 30 30 33 35 00 C0 12 44 4E 89 31 30 30 |".20035...DN.100| 00000AC0: 00 EB 12 48 4E 99 22 93 22 3B 4E 24 28 47 29 3A |...HN.".";N$(G):| 00000AD0: 99 41 24 28 47 29 3A 99 50 24 28 47 29 3A 99 54 |.A$(G):.P$(G):.T| 00000AE0: 24 28 47 29 3A 99 44 24 28 47 29 00 11 13 4D 4E |$(G):.D$(G)...MN| 00000AF0: 99 22 53 4B 41 4C 20 44 49 53 53 45 20 44 41 54 |."SKAL DISSE DAT| 00000B00: 41 20 52 45 54 54 45 53 20 3F 20 28 4A 2F 4E 29 |A 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 65 13 52 4E |.K.PN.20046.e.RN| 00000B50: 99 22 11 11 54 52 59 4B 20 50 41 41 20 45 4E 20 |."..TRYK PAA EN | 00000B60: 54 41 53 54 22 00 7A 13 5C 4E A1 58 24 3A 8B 58 |TAST".z.\N.X$:.X| 00000B70: 24 B2 22 22 A7 32 30 30 36 30 00 80 13 66 4E 8E |$."".20060...fN.| 00000B80: 00 89 13 30 75 99 22 93 22 00 B0 13 3A 75 85 22 |...0u."."...:u."| 00000B90: 50 4F 53 54 20 4E 52 2E 20 22 3B 50 24 3A 50 B2 |POST NR. ";P$:P.| 00000BA0: C3 28 50 24 29 3A 8B 50 24 B2 22 22 A7 31 30 30 |.(P$):.P$."".100| 00000BB0: 00 D1 13 44 75 81 47 B2 31 A4 44 3A 8B C8 28 50 |...Du.G.1.D:..(P| 00000BC0: 24 28 47 29 2C 50 29 B2 50 24 A7 8D 33 30 30 34 |$(G),P).P$..3004| 00000BD0: 30 00 E1 13 4E 75 82 47 3A 99 22 93 53 4C 55 54 |0...Nu.G:.".SLUT| 00000BE0: 22 00 F6 13 53 75 A1 58 24 3A 8B 58 24 B2 22 22 |"...Su.X$:.X$.""| 00000BF0: A7 33 30 30 33 35 00 FF 13 54 75 89 31 30 30 00 |.30035...Tu.100.| 00000C00: 2A 14 58 75 99 22 93 22 3B 4E 24 28 47 29 3A 99 |*.Xu.".";N$(G):.| 00000C10: 41 24 28 47 29 3A 99 50 24 28 47 29 3A 99 54 24 |A$(G):.P$(G):.T$| 00000C20: 28 47 29 3A 99 44 24 28 47 29 00 4F 14 5D 75 99 |(G):.D$(G).O.]u.| 00000C30: 22 53 4B 41 4C 44 49 53 53 45 20 44 41 54 41 20 |"SKALDISSE DATA | 00000C40: 52 45 54 54 45 53 20 3F 20 28 4A 2F 4E 29 22 00 |RETTES ? (J/N)".| 00000C50: 65 14 5E 75 A1 58 24 3A 8B 58 24 B2 22 4E 22 A7 |e.^u.X$:.X$."N".| 00000C60: 33 30 30 35 30 00 7E 14 5F 75 8B 58 24 B2 22 4A |30050.~._u.X$."J| 00000C70: 22 A7 8D 34 30 30 30 3A 89 33 30 30 35 30 00 89 |"..4000:.30050..| 00000C80: 14 60 75 89 33 30 30 34 36 00 A3 14 62 75 99 22 |.`u.30046...bu."| 00000C90: 11 11 54 52 59 4B 20 50 41 41 20 45 4E 20 54 41 |..TRYK PAA EN TA| 00000CA0: 53 54 22 00 B8 14 6C 75 A1 58 24 3A 8B 58 24 B2 |ST"...lu.X$:.X$.| 00000CB0: 22 22 A7 33 30 30 36 30 00 BE 14 76 75 8E 00 C7 |"".30060...vu...| 00000CC0: 14 40 9C 99 22 93 22 00 F1 14 4A 9C 85 22 54 45 |.@.."."...J.."TE| 00000CD0: 4C 45 46 4F 4E 20 4E 52 2E 20 22 3B 54 24 3A 54 |LEFON NR. ";T$:T| 00000CE0: B2 C3 28 54 24 29 3A 8B 54 24 B2 22 22 A7 31 30 |..(T$):.T$."".10| 00000CF0: 30 00 12 15 54 9C 81 47 B2 31 A4 44 3A 8B C8 28 |0...T..G.1.D:..(| 00000D00: 54 24 28 47 29 2C 54 29 B2 54 24 A7 8D 34 30 30 |T$(G),T).T$..400| 00000D10: 34 30 00 22 15 5E 9C 82 47 3A 99 22 93 53 4C 55 |40.".^..G:.".SLU| 00000D20: 54 22 00 37 15 63 9C A1 58 24 3A 8B 58 24 B2 22 |T".7.c..X$:.X$."| 00000D30: 22 A7 34 30 30 33 35 00 40 15 64 9C 89 31 30 30 |".40035.@.d..100| 00000D40: 00 6B 15 68 9C 99 22 93 22 3B 4E 24 28 47 29 3A |.k.h..".";N$(G):| 00000D50: 99 41 24 28 47 29 3A 99 50 24 28 47 29 3A 99 54 |.A$(G):.P$(G):.T| 00000D60: 24 28 47 29 3A 99 44 24 28 47 29 00 92 15 6D 9C |$(G):.D$(G)...m.| 00000D70: 99 22 53 4B 41 4C 20 44 49 53 53 45 20 44 41 54 |."SKAL DISSE DAT| 00000D80: 41 20 52 45 54 54 45 53 20 3F 20 20 28 4A 2F 4E |A RETTES ? (J/N| 00000D90: 29 22 00 A8 15 6E 9C A1 58 24 3A 8B 58 24 B2 22 |)"...n..X$:.X$."| 00000DA0: 4E 22 A7 34 30 30 35 30 00 C1 15 6F 9C 8B 58 24 |N".40050...o..X$| 00000DB0: B2 22 4A 22 A7 8D 34 30 30 30 3A 89 34 30 30 35 |."J"..4000:.4005| 00000DC0: 30 00 CC 15 70 9C 89 34 30 30 34 36 00 E6 15 72 |0...p..40046...r| 00000DD0: 9C 99 22 11 11 54 52 59 4B 20 50 41 41 20 45 4E |.."..TRYK PAA EN| 00000DE0: 20 54 41 53 54 22 00 FB 15 7C 9C A1 58 24 3A 8B | TAST"...|..X$:.| 00000DF0: 58 24 B2 22 22 A7 34 30 30 36 30 00 01 16 86 9C |X$."".40060.....| 00000E00: 8E 00 00 00 D0 00 |...... |
..*....********************************* **.7....650,128.J...B.0:P.0:I$."."...Z.. N$(2000),A$(2000),P$(2000),T$(2000),D$(2 000),Z$(16)...D..53280,B:.53281,P:.".";I $.H.N.."N.............................M" ...X..". CONNODORE 64 DATABASE 2000 .". ....."M.............................N".4 ...." ...F1. NYE DATA".R. .." ..F2. SAVE DATA".P...." ..F3. LO AD DATA"......" ..F4. SAVE PROGRAM "......" ..F5. S0GNING".T.H.." ..F6. SKIFT BORDER FARVE"...R.." ..F7. SKIFT PAPER FARVE"......" ..F8. SKIFT INK FARVE".+....53281,B.3... .X$.D....X$.".".1000.U....X$.".".2000.F. ...X$.".".3000.W....X$.".".3500......X$. ".".5000..."..X$."."..6000...,..X$.".".. 7000...6..X$.".".7100.F.@..230.Z....***N YE DATA***......".".....N$(D)."":."NAVN ";N$(D):.N$(D)."".N$(D)."-".F...A$(D)."" :."ADRESSE ";A$(D):.A$(D)."".A$(D)."-".Z ...P$(D)."":."POST NR. ";P$(D):.P$(D)."" .P$(D)."-".....T$(D)."":."TELEFON NR. "; T$(D):.T$(D)."".T$(D)."-".....D$(D)."":. "DATA ";T$(D):.T$(D)."".T$(D)."-"...$.." DATA OK ? (J/N)"......X$:.X$."N".100...8 ..X$ .."J".1070.).=.D.D.1.2.B..100.K.P.. 1,1,15,"S:DATA": 1.A.Q..2,8,2,"DATA,S,W ".N.U..X.0.D.1...Z..2,N$(X):.2,A$(X):.2, P$(X):.2,T$(X):.2,D$(X)......X..... 2... ...100.P...D.1:.1,1,0,"DATA,S,R"...B..2, N$(D)...C..2,A"(D):INPUT#2,P$(D):INPUT#2 ,T$(D):INPUT#2,D$(D).+.L..N$."****". 2:. 100.;.V.D.D.1:.3010.N...."DATABASE/64".A ...."..F1. BAAND".S...."..F7. DISC"...J. .X$:.X.".TH3700...T..X$.".".3600......35 30......"DATABASE/C64",8.A.B..100.J.<..1 00.S. .."."......"NAVN ? ";N$(G)......"A DRESSE ? ";A$(G)......"POST NR. ? ";P$(G ).5.H.."TELEFON NR. ? ";T$(G).J.R.."DATA ? ";D$(G).S....".".F...."NAVN ";N$(G).| ...."ADRESSE ";A$(G)......"POST NR. ";P$ (G)......"TELEFON NR. ";T$(G)......"DATA ";D$(G).F..........".N................. ................M"......". S0GNIN G .".H...."M........... ......................N".K...." . ..FI. S0G PAA NAVN"......" ..F3. S0G PAA ADRESSE "......" ..F5. S0 G PAA POST NR."...D.." ..F7. S0G PAA TLF.NR."...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.....(#.".",".",".",".",".",".","."," .",".",".",".",".",".",".","."....'.".". 2..'."NAVN ";N$:N.C(N$):.N$."".100.S.$'. G.1.D:.H(N$(G),N).N$..10040.C..'.G:.".SL UT".X.3'.X$:.X$."".10035...4'.100...8'." .";N$(G):.A$(G):.P$(G):.T$(G):.D$(G).S.= '. "SKAL DISSE DATA RETTES ? (J/N)"...>' .X$:.X$."N".10050...?'.X$."J"..4000:.100 50...@'.10046.'.B'."..TRYK PAA EN TAST". <.L'.X$:.X$."".10060.B.V'..K. N.".".Q.*N ."ADRESSE ";A$:A.C(A$):.A$."".100...4N.G .1.D:.H(A$(G),A).A$..20040...>N.G:.".SLU T"...CN.X$:.X$."".20035...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.E.RN."..TRYK PAA EN TAST".Z. \N.X$:.X$."".20060...FN....0U."."...:U." POST NR. ";P$:P.C(P$):.P$."".100.Q.DU.G. 1.D:.H(P$(G),P).P$..30040...NU.G:.".SLUT "...SU.X$:.X$."".30035...TU.100.*.XU."." ;N$(G):.A$(G):.P$(G):.T$(G):.D$(G).O.]U. "SKALDISSE DATA RETTES ? (J/N)".E.^U.X$: .X$."N".30050.~._U.X$."J"..4000:.30050.. .`U.30046...BU."..TRYK PAA EN TAST"...LU .X$:.X$."".30060...VU..G.@.."."...J.."TE LEFON NR. ";T$:T.C(T$):.T$."".100...T..G .1.D:.H(T$(G),T).T$..40040.".^..G:.".SLU T".7.C..X$:.X$."".40035.@.D..100.K.H..". ";N$(G):.A$(G):.P$(G):.T$(G):.D$(G)...M. ."SKAL DISSE DATA RETTES ? (J/N)"...N.. X$:.X$."N".40050.A.O..X$."J"..4000:.4005 0.L.P..40046...R.."..TRYK PAA EN TAST".. .|..X$:.X$."".40060.........P.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL