DATABASE/C64
FILE INFORMATION
FILENAME(S): DATABASE/C64
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 19:38:38
APPEARS ON: 1 disk(s)
FILE HASH
83669a084eb3c68dfd4b536f113bddffb9cb75144192d7e76b39e6c3ad52025f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST DISK | DATABASE/C64 | PRG | Curtcool, Brian | 20 | 2 | 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 36 08 03 00 |***********.6...|
00000020: 8F 2A 44 41 54 41 42 41 53 45 2D 41 4C 54 20 4F |.*DATABASE-ALT O|
00000030: 4D 20 44 41 54 41 00 51 08 05 00 8F 2A 2A 2A 2A |M DATA.Q....****|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 00 57 08 06 00 8F 00 64 08 07 00 97 36 35 30 |*.W.....d....650|
00000060: 2C 31 32 38 00 7B 08 0A 00 42 B2 30 3A 50 B2 30 |,128.{...B.0:P.0|
00000070: 3A 44 B2 30 3A 49 24 B2 22 9F 22 00 B4 08 5A 00 |:D.0:I$."."...Z.|
00000080: 86 4E 24 28 32 30 30 30 29 2C 41 24 28 32 30 30 |.N$(2000),A$(200|
00000090: 30 29 2C 50 24 28 32 30 30 30 29 2C 54 24 28 32 |0),P$(2000),T$(2|
000000A0: 30 30 30 29 2C 44 24 28 32 30 30 30 29 2C 5A 24 |000),D$(2000),Z$|
000000B0: 28 31 36 29 00 D2 08 64 00 97 35 33 32 38 30 2C |(16)...d..53280,|
000000C0: 42 3A 97 35 33 32 38 31 2C 50 3A 99 22 93 22 3B |B:.53281,P:.".";|
000000D0: 49 24 00 FC 08 6E 00 99 22 1D 1D 1D 1D 43 4F 4D |I$...n.."....COM|
000000E0: 4D 4F 44 4F 52 45 20 4B 41 52 54 4F 54 45 4B 20 |MODORE KARTOTEK |
000000F0: 28 43 29 20 53 59 53 54 52 4F 4E 22 00 1B 09 96 |(C) SYSTRON"....|
00000100: 00 99 22 20 20 20 20 20 20 20 20 11 11 12 46 31 |.." ...F1|
00000110: 92 20 4E 59 45 20 44 41 54 41 22 00 3A 09 A0 00 |. NYE DATA".:...|
00000120: 99 22 20 20 20 20 20 20 20 20 11 12 46 32 92 20 |." ..F2. |
00000130: 53 41 56 45 20 44 41 54 41 22 00 59 09 AA 00 99 |SAVE DATA".Y....|
00000140: 22 20 20 20 20 20 20 20 20 11 12 46 33 92 20 4C |" ..F3. L|
00000150: 4F 41 44 20 44 41 54 41 22 00 7B 09 B4 00 99 22 |OAD DATA".{...."|
00000160: 20 20 20 20 20 20 20 20 11 12 46 34 92 20 53 41 | ..F4. SA|
00000170: 56 45 20 50 52 4F 47 52 41 4D 22 00 97 09 BE 00 |VE PROGRAM".....|
00000180: 99 22 20 20 20 20 20 20 20 20 11 12 46 35 92 53 |." ..F5.S|
00000190: 5C 47 4E 49 4E 47 22 00 BE 09 C8 00 99 22 20 20 |\GNING"......" |
000001A0: 20 20 20 20 20 20 11 12 46 36 92 53 4B 49 46 54 | ..F6.SKIFT|
000001B0: 20 42 4F 52 44 45 52 20 46 41 52 56 45 22 00 E4 | BORDER FARVE"..|
000001C0: 09 D2 00 99 22 20 20 20 20 20 20 20 20 11 12 46 |...." ..F|
000001D0: 37 92 53 4B 49 46 54 20 50 41 50 45 52 20 46 41 |7.SKIFT PAPER FA|
000001E0: 52 56 45 22 00 08 0A DC 00 99 22 20 20 20 20 20 |RVE"......" |
000001F0: 20 20 20 11 12 46 38 92 53 4B 49 46 54 20 49 4E | ..F8.SKIFT IN|
00000200: 4B 20 46 41 52 56 45 22 00 15 0A E1 00 97 35 33 |K FARVE"......53|
00000210: 32 38 31 2C 42 00 1D 0A E6 00 A1 58 24 00 2F 0A |281,B......X$./.|
00000220: F0 00 8B 58 24 B2 22 85 22 A7 20 31 30 30 30 00 |...X$.".". 1000.|
00000230: 41 0A FA 00 8B 58 24 B2 22 89 22 A7 20 32 30 30 |A....X$.".". 200|
00000240: 30 00 53 0A 04 01 8B 58 24 B2 22 86 22 A7 20 33 |0.S....X$.".". 3|
00000250: 30 30 30 00 64 0A 0E 01 8B 58 24 B2 22 8A 22 A7 |000.d....X$.".".|
00000260: 33 35 30 30 00 76 0A 18 01 8B 58 24 B2 22 87 22 |3500.v....X$."."|
00000270: A7 20 35 30 30 30 00 89 0A 22 01 8B 58 24 B2 22 |. 5000..."..X$."|
00000280: 8B 22 A7 20 8D 36 30 30 30 00 9C 0A 2C 01 8B 58 |.". .6000...,..X|
00000290: 24 B2 22 88 22 A7 20 8D 37 30 30 30 00 AE 0A 36 |$.".". .7000...6|
000002A0: 01 8B 58 24 B2 22 8C 22 A7 20 37 31 30 30 00 B7 |..X$.".". 7100..|
000002B0: 0A 40 01 89 32 33 30 00 C6 0A E8 03 8F 20 4E 59 |.@..230...... NY|
000002C0: 45 20 44 41 54 41 00 CF 0A ED 03 99 22 93 22 00 |E DATA......".".|
000002D0: FF 0A F2 03 4E 24 28 44 29 B2 22 22 3A 85 22 4E |....N$(D)."":."N|
000002E0: 41 56 4E 20 22 3B 4E 24 28 44 29 3A 8B 4E 24 28 |AVN ";N$(D):.N$(|
000002F0: 44 29 B2 22 22 A7 4E 24 28 44 29 B2 22 2D 22 00 |D)."".N$(D)."-".|
00000300: 32 0B FC 03 41 24 28 44 29 B2 22 22 3A 85 22 41 |2...A$(D)."":."A|
00000310: 44 52 45 53 53 45 20 22 3B 41 24 28 44 29 3A 8B |DRESSE ";A$(D):.|
00000320: 41 24 28 44 29 B2 22 22 A7 41 24 28 44 29 B2 22 |A$(D)."".A$(D)."|
00000330: 2D 22 00 65 0B 06 04 50 24 28 44 29 B2 22 22 3A |-".e...P$(D)."":|
00000340: 85 22 50 4F 53 54 4E 52 2E 20 22 3B 50 24 28 44 |."POSTNR. ";P$(D|
00000350: 29 3A 8B 50 24 28 44 29 B2 22 22 A7 50 24 28 44 |):.P$(D)."".P$(D|
00000360: 29 B2 22 2D 22 00 9B 0B 10 04 54 24 28 44 29 B2 |)."-".....T$(D).|
00000370: 22 22 3A 85 22 54 45 4C 45 46 4F 4E 4E 52 2E 20 |"":."TELEFONNR. |
00000380: 22 3B 54 24 28 44 29 3A 8B 54 24 28 44 29 B2 22 |";T$(D):.T$(D)."|
00000390: 22 A7 54 24 28 44 29 B2 22 2D 22 00 CB 0B 1A 04 |".T$(D)."-".....|
000003A0: 44 24 28 44 29 B2 22 22 3A 85 22 44 41 54 41 20 |D$(D)."":."DATA |
000003B0: 22 3B 44 24 28 44 29 3A 8B 44 24 28 44 29 B2 22 |";D$(D):.D$(D)."|
000003C0: 22 A7 44 24 28 44 29 B2 22 2D 22 00 E2 0B 24 04 |".D$(D)."-"...$.|
000003D0: 99 22 11 44 41 54 41 20 4F 4B 3F 20 28 4A 2F 4E |.".DATA OK? (J/N|
000003E0: 29 22 00 F6 0B 2E 04 A1 58 24 3A 8B 58 24 B2 22 |)"......X$:.X$."|
000003F0: 4E 22 A7 31 30 30 00 08 0C 38 04 8B 58 24 B3 B1 |N".100...8..X$..|
00000400: 22 4A 22 A7 31 30 37 30 00 49 0C 3D 04 44 B2 44 |"J".1070.I.=.D.D|
00000410: AA 31 3A 4C 24 B2 22 2A 2A 2A 2A 22 3A 4E 24 28 |.1:L$."****":N$(|
00000420: 44 29 B2 4C 24 3A 41 24 28 44 29 B2 4C 24 3A 50 |D).L$:A$(D).L$:P|
00000430: 24 28 44 29 B2 4C 24 3A 54 24 28 44 29 B2 4C 24 |$(D).L$:T$(D).L$|
00000440: 3A 44 24 28 44 29 B2 4C 24 00 52 0C 42 04 89 31 |:D$(D).L$.R.B..1|
00000450: 30 30 00 6A 0C D0 07 9F 31 2C 38 2C 31 35 2C 22 |00.j....1,8,15,"|
00000460: 53 3A 44 41 54 41 22 3A A0 31 00 80 0C D1 07 9F |S:DATA":.1......|
00000470: 32 2C 38 2C 32 2C 22 44 41 54 41 2C 53 2C 57 22 |2,8,2,"DATA,S,W"|
00000480: 00 8D 0C D5 07 81 58 B2 30 A4 44 AA 31 00 BE 0C |......X.0.D.1...|
00000490: DA 07 98 32 2C 4E 24 28 58 29 3A 98 32 2C 41 24 |...2,N$(X):.2,A$|
000004A0: 28 58 29 3A 98 32 2C 50 24 28 58 29 3A 98 32 2C |(X):.2,P$(X):.2,|
000004B0: 54 24 28 58 29 3A 98 32 2C 44 24 28 58 29 00 C5 |T$(X):.2,D$(X)..|
000004C0: 0C E4 07 82 58 00 CC 0C EE 07 A0 32 00 D5 0C F8 |....X......2....|
000004D0: 07 89 31 30 30 00 EF 0C B8 0B 44 B2 31 3A 9F 32 |..100.....D.1:.2|
000004E0: 2C 38 2C 32 2C 22 44 41 54 41 2C 53 2C 52 22 00 |,8,2,"DATA,S,R".|
000004F0: FC 0C C2 0B 84 32 2C 4E 24 28 44 29 00 24 0D C3 |.....2,N$(D).$..|
00000500: 0B 84 32 2C 41 24 28 44 29 3A 84 32 2C 50 24 28 |..2,A$(D):.2,P$(|
00000510: 44 29 3A 84 32 2C 54 24 28 44 29 3A 84 32 2C 44 |D):.2,T$(D):.2,D|
00000520: 24 28 44 29 00 3E 0D CC 0B 8B 4E 24 28 44 29 B2 |$(D).>....N$(D).|
00000530: 22 2A 2A 2A 2A 22 A7 A0 32 3A 89 31 30 30 00 4E |"****"..2:.100.N|
00000540: 0D D6 0B 44 B2 44 AA 31 3A 89 33 30 31 30 00 79 |...D.D.1:.3010.y|
00000550: 0D AC 0D 99 22 93 53 4B 41 4C 20 44 45 52 20 53 |....".SKAL DER S|
00000560: 41 56 45 53 20 50 5D 20 42 5D 4E 44 20 45 4C 4C |AVES P] B]ND ELL|
00000570: 45 52 20 44 49 53 43 3F 22 00 8B 0D B6 0D 99 22 |ER DISC?"......"|
00000580: 11 12 46 35 92 20 42 5D 4E 44 22 00 9D 0D C0 0D |..F5. B]ND".....|
00000590: 99 22 11 12 46 37 92 20 44 49 53 43 22 00 B2 0D |."..F7. DISC"...|
000005A0: CA 0D A1 58 24 3A 8B 58 24 B2 22 87 22 A7 33 37 |...X$:.X$.".".37|
000005B0: 30 30 00 C3 0D D4 0D 8B 58 24 B2 22 88 22 A7 33 |00......X$.".".3|
000005C0: 36 30 30 00 CD 0D DE 0D 89 33 35 33 30 00 E3 0D |600......3530...|
000005D0: 10 0E 94 22 44 41 54 41 42 41 53 45 2F 43 36 34 |..."DATABASE/C64|
000005E0: 22 2C 38 00 EC 0D 42 0E 89 31 30 30 00 FF 0D 74 |",8...B..100...t|
000005F0: 0E 94 22 44 41 54 41 42 41 53 45 2F 36 34 22 00 |.."DATABASE/64".|
00000600: 08 0E 3C 0F 89 31 30 30 00 11 0E A0 0F 99 22 93 |..<..100......".|
00000610: 22 00 25 0E AA 0F 99 22 4E 41 56 4E 3F 20 22 3B |".%...."NAVN? ";|
00000620: 4E 24 28 47 29 00 3C 0E B4 0F 99 22 41 44 52 45 |N$(G).<...."ADRE|
00000630: 53 53 45 3F 20 22 3B 41 24 28 47 29 00 53 0E BE |SSE? ";A$(G).S..|
00000640: 0F 99 22 50 4F 53 54 4E 52 2E 3F 20 22 3B 50 24 |.."POSTNR.? ";P$|
00000650: 28 47 29 00 6D 0E C8 0F 99 22 54 45 4C 45 46 4F |(G).m...."TELEFO|
00000660: 4E 4E 52 2E 3F 20 22 3B 54 24 28 47 29 00 81 0E |NNR.? ";T$(G)...|
00000670: D2 0F 99 22 44 41 54 41 3F 20 22 3B 44 24 28 47 |..."DATA? ";D$(G|
00000680: 29 00 8A 0E DC 0F 99 22 13 22 00 9D 0E E6 0F 85 |)......"."......|
00000690: 22 4E 41 56 4E 20 22 3B 4E 24 28 47 29 00 B3 0E |"NAVN ";N$(G)...|
000006A0: F0 0F 85 22 41 44 52 45 53 53 45 20 22 3B 41 24 |..."ADRESSE ";A$|
000006B0: 28 47 29 00 C9 0E FA 0F 85 22 50 4F 53 54 4E 52 |(G)......"POSTNR|
000006C0: 2E 20 22 3B 50 24 28 47 29 00 E2 0E 04 10 85 22 |. ";P$(G)......"|
000006D0: 54 45 4C 45 46 4F 4E 4E 52 2E 20 22 3B 54 24 28 |TELEFONNR. ";T$(|
000006E0: 47 29 00 F5 0E 0E 10 85 22 44 41 54 41 20 22 3B |G)......"DATA ";|
000006F0: 44 24 28 47 29 00 FB 0E 18 10 8E 00 0E 0F 88 13 |D$(G)...........|
00000700: 99 22 93 11 11 11 53 5C 47 4E 49 4E 47 22 00 30 |."....S\GNING".0|
00000710: 0F A6 13 99 22 20 20 20 20 20 20 20 20 20 11 11 |...." ..|
00000720: 12 46 31 92 53 5C 47 20 50 5D 20 4E 41 56 4E 22 |.F1.S\G P] NAVN"|
00000730: 00 54 0F B0 13 99 22 20 20 20 20 20 20 20 20 20 |.T...." |
00000740: 11 12 46 33 92 53 5C 47 20 50 5D 20 41 44 52 45 |..F3.S\G P] ADRE|
00000750: 53 53 45 22 00 78 0F BA 13 99 22 20 20 20 20 20 |SSE".x...." |
00000760: 20 20 20 20 11 12 46 35 92 53 5C 47 20 50 5D 20 | ..F5.S\G P] |
00000770: 50 4F 53 54 4E 52 2E 22 00 9F 0F C4 13 99 22 20 |POSTNR."......" |
00000780: 20 20 20 20 20 20 20 20 11 12 46 37 92 53 5C 47 | ..F7.S\G|
00000790: 20 50 5D 20 54 45 4C 45 46 4F 4E 4E 52 2E 22 00 | P] TELEFONNR.".|
000007A0: A7 0F CE 13 A1 58 24 00 B9 0F D8 13 8B 58 24 B2 |.....X$......X$.|
000007B0: 22 85 22 A7 31 30 30 30 30 00 CB 0F E2 13 8B 58 |".".10000......X|
000007C0: 24 B2 22 86 22 A7 32 30 30 30 30 00 DD 0F EC 13 |$.".".20000.....|
000007D0: 8B 58 24 B2 22 87 22 A7 33 30 30 30 30 00 EF 0F |.X$.".".30000...|
000007E0: F6 13 8B 58 24 B2 22 88 22 A7 34 30 30 30 30 00 |...X$.".".40000.|
000007F0: F9 0F 00 14 89 35 30 37 30 00 0D 10 70 17 42 B2 |.....5070...p.B.|
00000800: 42 AA 31 3A 8B 42 B2 31 36 A7 42 B2 30 00 1A 10 |B.1:.B.16.B.0...|
00000810: 7A 17 97 35 33 32 38 30 2C 42 00 20 10 84 17 8E |z..53280,B. ....|
00000820: 00 34 10 58 1B 42 B2 42 AA 31 3A 8B 42 B2 31 36 |.4.X.B.B.1:.B.16|
00000830: A7 42 B2 30 00 41 10 62 1B 97 35 33 32 38 31 2C |.B.0.A.b..53281,|
00000840: 42 00 47 10 6C 1B 8E 00 5D 10 BC 1B 50 B2 50 AA |B.G.l...]...P.P.|
00000850: 31 3A 8B 50 B2 31 37 A7 50 B2 31 3A 8C 00 65 10 |1:.P.17.P.1:..e.|
00000860: C6 1B 87 49 24 00 6E 10 D0 1B 89 31 30 30 00 82 |...I$.n....100..|
00000870: 10 40 1F A1 58 24 3A 8B 58 24 B2 22 22 A7 38 30 |.@..X$:.X$."".80|
00000880: 30 30 00 88 10 4A 1F 8E 00 CD 10 28 23 83 22 90 |00...J.....(#.".|
00000890: 22 2C 22 05 22 2C 22 1C 22 2C 22 9F 22 2C 22 9C |",".",".",".",".|
000008A0: 22 2C 22 1E 22 2C 22 1F 22 2C 22 9E 22 2C 22 81 |",".",".",".",".|
000008B0: 22 2C 22 95 22 2C 22 96 22 2C 22 97 22 2C 22 98 |",".",".",".",".|
000008C0: 22 2C 22 99 22 2C 22 9A 22 2C 22 9B 22 00 D6 10 |",".",".","."...|
000008D0: 10 27 99 22 93 22 00 F9 10 1A 27 85 22 4E 41 56 |.'."."....'."NAV|
000008E0: 4E 20 22 3B 4E 24 3A 4E B2 C3 28 4E 24 29 3A 8B |N ";N$:N..(N$):.|
000008F0: 4E 24 B2 22 22 A7 31 30 30 00 1C 11 24 27 81 47 |N$."".100...$'.G|
00000900: B2 31 A4 44 3A 8B C8 28 4E 24 28 47 29 2C 4E 29 |.1.D:..(N$(G),N)|
00000910: B2 4E 24 20 20 A7 8D 31 30 30 34 30 00 2C 11 2E |.N$ ..10040.,..|
00000920: 27 82 47 3A 99 22 93 53 4C 55 54 22 00 41 11 33 |'.G:.".SLUT".A.3|
00000930: 27 A1 58 24 3A 8B 58 24 B2 22 22 A7 31 30 30 33 |'.X$:.X$."".1003|
00000940: 35 00 4A 11 34 27 89 31 30 30 00 75 11 38 27 99 |5.J.4'.100.u.8'.|
00000950: 22 93 22 3B 4E 24 28 47 29 3A 99 41 24 28 47 29 |".";N$(G):.A$(G)|
00000960: 3A 99 50 24 28 47 29 3A 99 54 24 28 47 29 3A 99 |:.P$(G):.T$(G):.|
00000970: 44 24 28 47 29 00 9A 11 3D 27 99 22 53 4B 41 4C |D$(G)...='."SKAL|
00000980: 20 44 49 53 53 45 20 44 41 54 41 20 52 45 54 54 | DISSE DATA RETT|
00000990: 45 53 3F 20 28 4A 2F 4E 29 22 00 B0 11 3E 27 A1 |ES? (J/N)"...>'.|
000009A0: 58 24 3A 8B 58 24 B2 22 4E 22 A7 31 30 30 35 30 |X$:.X$."N".10050|
000009B0: 00 C9 11 3F 27 8B 58 24 B2 22 4A 22 A7 8D 34 30 |...?'.X$."J"..40|
000009C0: 30 30 3A 89 31 30 30 35 30 00 D4 11 40 27 89 31 |00:.10050...@'.1|
000009D0: 30 30 34 36 00 EA 11 42 27 99 22 11 11 54 52 59 |0046...B'."..TRY|
000009E0: 4B 20 45 4E 20 54 41 53 54 22 00 FF 11 4C 27 A1 |K EN TAST"...L'.|
000009F0: 58 24 3A 8B 58 24 B2 22 22 A7 31 30 30 36 30 00 |X$:.X$."".10060.|
00000A00: 05 12 56 27 8E 00 0E 12 20 4E 99 22 93 22 00 34 |..V'.... N.".".4|
00000A10: 12 2A 4E 85 22 41 44 52 45 53 53 45 20 22 3B 41 |.*N."ADRESSE ";A|
00000A20: 24 3A 41 B2 C3 28 41 24 29 3A 8B 41 24 B2 22 22 |$:A..(A$):.A$.""|
00000A30: A7 31 30 30 00 55 12 34 4E 81 47 B2 31 A4 44 3A |.100.U.4N.G.1.D:|
00000A40: 8B C8 28 41 24 28 47 29 2C 41 29 B2 41 24 A7 8D |..(A$(G),A).A$..|
00000A50: 32 30 30 34 30 00 65 12 3E 4E 82 47 3A 99 22 93 |20040.e.>N.G:.".|
00000A60: 53 4C 55 54 22 00 7A 12 43 4E A1 58 24 3A 8B 58 |SLUT".z.CN.X$:.X|
00000A70: 24 B2 22 22 A7 32 30 30 33 35 00 83 12 44 4E 89 |$."".20035...DN.|
00000A80: 31 30 30 00 AE 12 48 4E 99 22 93 22 3B 4E 24 28 |100...HN.".";N$(|
00000A90: 47 29 3A 99 41 24 28 47 29 3A 99 50 24 28 47 29 |G):.A$(G):.P$(G)|
00000AA0: 3A 99 54 24 28 47 29 3A 99 44 24 28 47 29 00 D3 |:.T$(G):.D$(G)..|
00000AB0: 12 4D 4E 99 22 53 4B 41 4C 20 44 49 53 53 45 20 |.MN."SKAL DISSE |
00000AC0: 44 41 54 41 20 52 45 54 54 45 53 3F 20 28 4A 2F |DATA RETTES? (J/|
00000AD0: 4E 29 22 00 E9 12 4E 4E A1 58 24 3A 8B 58 24 B2 |N)"...NN.X$:.X$.|
00000AE0: 22 4E 22 A7 32 30 30 35 30 00 02 13 4F 4E 8B 58 |"N".20050...ON.X|
00000AF0: 24 B2 22 4A 22 A7 8D 34 30 30 30 3A 89 32 30 30 |$."J"..4000:.200|
00000B00: 35 30 00 0D 13 50 4E 89 32 30 30 34 36 00 23 13 |50...PN.20046.#.|
00000B10: 52 4E 99 22 11 11 54 52 59 4B 20 45 4E 20 54 41 |RN."..TRYK EN TA|
00000B20: 53 54 22 00 38 13 5C 4E A1 58 24 3A 8B 58 24 B2 |ST".8.\N.X$:.X$.|
00000B30: 22 22 A7 32 30 30 36 30 00 3E 13 66 4E 8E 00 47 |"".20060.>.fN..G|
00000B40: 13 30 75 99 22 93 22 00 6D 13 3A 75 85 22 50 4F |.0u.".".m.:u."PO|
00000B50: 53 54 4E 52 2E A0 22 3B 50 24 3A 50 B2 C3 28 50 |STNR..";P$:P..(P|
00000B60: 24 29 3A 8B 50 24 B2 22 22 A7 31 30 30 00 8E 13 |$):.P$."".100...|
00000B70: 44 75 81 47 B2 31 A4 44 3A 8B C8 28 50 24 28 47 |Du.G.1.D:..(P$(G|
00000B80: 29 2C 50 29 B2 50 24 A7 8D 33 30 30 34 30 00 9E |),P).P$..30040..|
00000B90: 13 4E 75 82 47 3A 99 22 93 53 4C 55 54 22 00 B3 |.Nu.G:.".SLUT"..|
00000BA0: 13 53 75 A1 58 24 3A 8B 58 24 B2 22 22 A7 33 30 |.Su.X$:.X$."".30|
00000BB0: 30 33 35 00 BC 13 54 75 89 31 30 30 00 E7 13 58 |035...Tu.100...X|
00000BC0: 75 99 22 93 22 3B 4E 24 28 47 29 3A 99 41 24 28 |u.".";N$(G):.A$(|
00000BD0: 47 29 3A 99 50 24 28 47 29 3A 99 54 24 28 47 29 |G):.P$(G):.T$(G)|
00000BE0: 3A 99 44 24 28 47 29 00 0C 14 5D 75 99 22 53 4B |:.D$(G)...]u."SK|
00000BF0: 41 4C 20 44 49 53 53 45 20 44 41 54 41 20 52 45 |AL DISSE DATA RE|
00000C00: 54 54 45 53 3F 20 28 4A 2F 4E 29 22 00 22 14 5E |TTES? (J/N)".".^|
00000C10: 75 A1 58 24 3A 8B 58 24 B2 22 4E 22 A7 33 30 30 |u.X$:.X$."N".300|
00000C20: 35 30 00 3B 14 5F 75 8B 58 24 B2 22 4A 22 A7 8D |50.;._u.X$."J"..|
00000C30: 34 30 30 30 3A 89 33 30 30 35 30 00 46 14 60 75 |4000:.30050.F.`u|
00000C40: 89 33 30 30 34 36 00 5C 14 62 75 99 22 11 11 54 |.30046.\.bu."..T|
00000C50: 52 59 4B 20 45 4E 20 54 41 53 54 22 00 71 14 6C |RYK EN TAST".q.l|
00000C60: 75 A1 58 24 3A 8B 58 24 B2 22 22 A7 33 30 30 36 |u.X$:.X$."".3006|
00000C70: 30 00 77 14 76 75 8E 00 80 14 40 9C 99 22 93 22 |0.w.vu....@.."."|
00000C80: 00 A9 14 4A 9C 85 22 54 45 4C 45 46 4F 4E 4E 52 |...J.."TELEFONNR|
00000C90: 2E 20 22 3B 54 24 3A 54 B2 C3 28 54 24 29 3A 8B |. ";T$:T..(T$):.|
00000CA0: 54 24 B2 22 22 A7 31 30 30 00 CA 14 54 9C 81 47 |T$."".100...T..G|
00000CB0: B2 31 A4 44 3A 8B C8 28 54 24 28 47 29 2C 54 29 |.1.D:..(T$(G),T)|
00000CC0: B2 54 24 A7 8D 34 30 30 34 30 00 DA 14 5E 9C 82 |.T$..40040...^..|
00000CD0: 47 3A 99 22 93 53 4C 55 54 22 00 EF 14 63 9C A1 |G:.".SLUT"...c..|
00000CE0: 58 24 3A 8B 58 24 B2 22 22 A7 34 30 30 33 35 00 |X$:.X$."".40035.|
00000CF0: F8 14 64 9C 89 31 30 30 00 23 15 68 9C 99 22 93 |..d..100.#.h..".|
00000D00: 22 3B 4E 24 28 47 29 3A 99 41 24 28 47 29 3A 99 |";N$(G):.A$(G):.|
00000D10: 50 24 28 47 29 3A 99 54 24 28 47 29 3A 99 44 24 |P$(G):.T$(G):.D$|
00000D20: 28 47 29 00 48 15 6D 9C 99 22 53 4B 41 4C 20 44 |(G).H.m.."SKAL D|
00000D30: 49 53 53 45 20 44 41 54 41 20 52 45 54 54 45 53 |ISSE DATA RETTES|
00000D40: 3F 20 28 4A 2F 4E 29 22 00 5E 15 6E 9C A1 58 24 |? (J/N)".^.n..X$|
00000D50: 3A 8B 58 24 B2 22 4E 22 A7 34 30 30 35 30 00 77 |:.X$."N".40050.w|
00000D60: 15 6F 9C 8B 58 24 B2 22 4A 22 A7 8D 34 30 30 30 |.o..X$."J"..4000|
00000D70: 3A 89 34 30 30 35 30 00 82 15 70 9C 89 34 30 30 |:.40050...p..400|
00000D80: 34 36 00 9B 15 72 9C 99 22 11 11 54 52 59 4B 20 |46...r.."..TRYK |
00000D90: 50 5D 20 45 4E 20 54 41 53 54 22 00 B0 15 7C 9C |P] EN TAST"...|.|
00000DA0: A1 58 24 3A 8B 58 24 B2 22 22 A7 34 30 30 36 30 |.X$:.X$."".40060|
00000DB0: 00 B6 15 86 9C 8E 00 00 00 |......... |
.......********************.6....*DATABA
SE-ALT OM DATA.Q....********************
*.W.....D....650,128.{...B.0:P.0:D.0:I$.
"."...Z..N$(2000),A$(2000),P$(2000),T$(2
000),D$(2000),Z$(16).R.D..53280,B:.53281
,P:.".";I$...N.."....COMMODORE KARTOTEK
(C) SYSTRON"......" ...F1. NYE DA
TA".:. .." ..F2. SAVE DATA".Y....
" ..F3. LOAD DATA".{...."
..F4. SAVE PROGRAM"......" ..F5.S
\GNING"...H.." ..F6.SKIFT BORDER
FARVE"...R.." ..F7.SKIFT PAPER FA
RVE"......" ..F8.SKIFT INK FARVE"
......53281,B......X$./....X$.".". 1000.
A....X$.".". 2000.S....X$.".". 3000.D...
.X$.".".3500.V....X$.".". 5000..."..X$."
.". .6000...,..X$.".". .7000...6..X$."."
. 7100...@..230.F.... NYE DATA.O....".".
....N$(D)."":."NAVN ";N$(D):.N$(D)."".N$
(D)."-".2...A$(D)."":."ADRESSE ";A$(D):.
A$(D)."".A$(D)."-".E...P$(D)."":."POSTNR
. ";P$(D):.P$(D)."".P$(D)."-".....T$(D).
"":."TELEFONNR. ";T$(D):.T$(D)."".T$(D).
"-".K...D$(D)."":."DATA ";D$(D):.D$(D)."
".D$(D)."-"...$..".DATA OK? (J/N)"......
X$:.X$."N".100...8..X$.."J".1070.I.=.D.D
.1:L$."****":N$(D).L$:A$(D).L$:P$(D).L$:
T$(D).L$:D$(D).L$.R.B..100.J.P..1,8,15,"
S:DATA": 1...Q..2,8,2,"DATA,S,W"...U..X.
0.D.1...Z..2,N$(X):.2,A$(X):.2,P$(X):.2,
T$(X):.2,D$(X).E....X.L... 2.U....100...
..D.1:.2,8,2,"DATA,S,R"...B..2,N$(D).$.C
..2,A$(D):.2,P$(D):.2,T$(D):.2,D$(D).>.L
..N$(D)."****". 2:.100.N.V.D.D.1:.3010.Y
....".SKAL DER SAVES P] B]ND ELLER DISC?
"......"..F5. B]ND"......"..F7. DISC"...
J..X$:.X$.".".3700.C.T..X$.".".3600.M...
.3530......"DATABASE/C64",8...B..100...T
.."DATABASE/64"...<..100... ..".".%...."
NAVN? ";N$(G).<...."ADRESSE? ";A$(G).S..
.."POSTNR.? ";P$(G).M.H.."TELEFONNR.? ";
T$(G)...R.."DATA? ";D$(G)......"."......
"NAVN ";N$(G)......"ADRESSE ";A$(G).I...
."POSTNR. ";P$(G)......"TELEFONNR. ";T$(
G)......"DATA ";D$(G)............"....S\
GNING".0...." ...F1.S\G P] NAVN"
.T...." ..F3.S\G P] ADRESSE".X..
.." ..F5.S\G P] POSTNR."...D.."
..F7.S\G P] TELEFONNR."...N..X$.
..X..X$.".".10000.K....X$.".".20000.....
.X$.".".30000......X$.".".40000......507
0...P.B.B.1:.B.16.B.0...Z..53280,B. ....
.4.X.B.B.1:.B.16.B.0.A.B..53281,B.G.L...
]...P.P.1:.P.17.P.1:..E.F..I$.N.P..100..
.@..X$:.X$."".8000...J...M.(#.".",".",".
",".",".",".",".",".",".",".",".",".",".
",".",".",".".V..'."."....'."NAVN ";N$:N
.C(N$):.N$."".100...$'.G.1.D:.H(N$(G),N)
.N$ ..10040.,..'.G:.".SLUT".A.3'.X$:.X$
."".10035.J.4'.100.U.8'.".";N$(G):.A$(G)
:.P$(G):.T$(G):.D$(G)...='."SKAL DISSE D
ATA RETTES? (J/N)"...>'.X$:.X$."N".10050
.I.?'.X$."J"..4000:.10050.T.@'.10046...B
'."..TRYK EN TAST"...L'.X$:.X$."".10060.
..V'.... N.".".4.*N."ADRESSE ";A$:A.C(A$
):.A$."".100.U.4N.G.1.D:.H(A$(G),A).A$..
20040.E.>N.G:.".SLUT".Z.CN.X$:.X$."".200
35...DN.100...HN.".";N$(G):.A$(G):.P$(G)
:.T$(G):.D$(G).S.MN."SKAL DISSE DATA RET
TES? (J/N)"...NN.X$:.X$."N".20050...ON.X
$."J"..4000:.20050...PN.20046.#.RN."..TR
YK EN TAST".8.\N.X$:.X$."".20060.>.FN..G
.0U.".".M.:U."POSTNR. ";P$:P.C(P$):.P$."
".100...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)...]U."SKAL DISSE DATA RETTES? (J
/N)".".^U.X$:.X$."N".30050.;._U.X$."J"..
4000:.30050.F.`U.30046.\.BU."..TRYK EN T
AST".Q.LU.X$:.X$."".30060.W.VU....@.."."
...J.."TELEFONNR. ";T$:T.C(T$):.T$."".10
0.J.T..G.1.D:.H(T$(G),T).T$..40040.Z.^..
G:.".SLUT"...C..X$:.X$."".40035...D..100
.#.H..".";N$(G):.A$(G):.P$(G):.T$(G):.D$
(G).H.M.."SKAL DISSE DATA RETTES? (J/N)"
.^.N..X$:.X$."N".40050.W.O..X$."J"..4000
:.40050...P..40046...R.."..TRYK P] EN TA
ST"...|..X$:.X$."".40060.........
> CLICK IMAGE PREVIEW FOR FULL MODAL