KARTOTEK 85 V.3
FILE INFORMATION
FILENAME(S): KARTOTEK 85 V.3
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 19:36:56
APPEARS ON: 1 disk(s)
FILE HASH
a9246bc8f140c0f9a86cab0ea61e3ba7c8d74c3248a9fe88b501cd3ff3bcb84c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 11 8 86 | KARTOTEK 85 V.3 | PRG | Curtcool, Bo | 31 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 01 00 8F 20 53 41 56 45 20 22 4B 41 |.. .... SAVE "KA|
00000010: 52 54 4F 54 45 4B 20 38 35 20 56 2E 33 22 2C 38 |RTOTEK 85 V.3",8|
00000020: 00 3F 08 0A 00 97 20 35 33 32 38 30 2C 30 3A 97 |.?.... 53280,0:.|
00000030: 20 35 33 32 38 31 2C 30 3A 99 20 22 93 05 22 00 | 53281,0:. "..".|
00000040: 4C 08 14 00 86 20 41 24 28 32 30 29 00 5B 08 1E |L.... A$(20).[..|
00000050: 00 81 20 58 B2 31 20 A4 20 32 30 00 73 08 28 00 |.. X.1 . 20.s.(.|
00000060: 41 24 28 58 29 B2 22 2A 2A 2A 22 AA C7 28 58 AA |A$(X)."***"..(X.|
00000070: 36 34 29 00 7B 08 32 00 82 20 58 00 86 08 5A 00 |64).{.2.. X...Z.|
00000080: 8D 20 36 33 30 30 00 A1 08 6E 00 4E 52 B2 B5 28 |. 6300...n.NR..(|
00000090: BB 28 31 29 AC 32 30 29 AA 31 3A 8D 20 33 30 30 |.(1).20).1:. 300|
000000A0: 30 00 B9 08 E8 03 8F 20 2A 2A 2A 20 53 54 59 52 |0...... *** STYR|
000000B0: 45 20 50 52 4F 47 52 41 4D 00 D2 08 F2 03 8D 20 |E PROGRAM...... |
000000C0: 31 33 30 30 3A 20 8F 20 4D 45 4E 55 20 54 45 4B |1300: . MENU TEK|
000000D0: 53 54 00 E6 08 FC 03 8D 20 31 38 30 30 3A 20 8F |ST...... 1800: .|
000000E0: 20 49 4E 4B 45 59 00 F2 08 01 04 51 24 B2 22 40 | INKEY.....Q$."@|
000000F0: 23 22 00 08 09 06 04 8B 20 54 24 B2 22 4E 22 20 |#"...... T$."N" |
00000100: A7 20 8D 20 32 32 30 30 00 1E 09 10 04 8B 20 54 |. . 2200...... T|
00000110: 24 B2 22 41 22 20 A7 20 8D 20 32 33 30 30 00 34 |$."A" . . 2300.4|
00000120: 09 1A 04 8B 20 54 24 B2 22 42 22 20 A7 20 8D 20 |.... T$."B" . . |
00000130: 32 34 30 30 00 4A 09 24 04 8B 20 54 24 B2 22 54 |2400.J.$.. T$."T|
00000140: 22 20 A7 20 8D 20 32 35 30 30 00 68 09 2E 04 8B |" . . 2500.h....|
00000150: 20 54 24 B2 22 49 22 20 A7 20 51 24 B2 22 41 41 | T$."I" . Q$."AA|
00000160: 22 3A 8D 20 32 39 30 30 00 86 09 38 04 8B 20 54 |":. 2900...8.. T|
00000170: 24 B2 22 4B 22 20 A7 20 51 24 B2 22 41 41 22 3A |$."K" . Q$."AA":|
00000180: 8D 20 32 36 30 30 00 A4 09 42 04 8B 20 54 24 B2 |. 2600...B.. T$.|
00000190: 22 52 22 20 A7 20 51 24 B2 22 41 41 22 3A 8D 20 |"R" . Q$."AA":. |
000001A0: 32 37 30 30 00 BA 09 4C 04 8B 20 54 24 B2 22 85 |2700...L.. T$.".|
000001B0: 22 20 A7 20 8D 20 36 30 30 30 00 D1 09 51 04 8B |" . . 6000...Q..|
000001C0: 20 51 24 B2 22 40 23 22 20 A7 20 89 20 31 30 32 | Q$."@#" . . 102|
000001D0: 30 00 DC 09 56 04 89 20 31 30 31 30 00 E2 09 60 |0...V.. 1010...`|
000001E0: 04 90 00 F7 09 14 05 8F 20 2A 2A 2A 20 4D 45 4E |........ *** MEN|
000001F0: 55 20 54 45 4B 53 54 00 FD 09 19 05 99 00 1A 0A |U TEKST.........|
00000200: 1E 05 99 20 22 54 41 53 54 20 4E 20 20 46 4F 52 |... "TAST N FOR|
00000210: 20 53 30 47 20 4E 41 56 4E 22 00 36 0A 28 05 99 | S0G NAVN".6.(..|
00000220: 20 22 54 41 53 54 20 41 20 20 46 4F 52 20 53 30 | "TAST A FOR S0|
00000230: 47 20 41 44 52 22 00 51 0A 32 05 99 20 22 54 41 |G ADR".Q.2.. "TA|
00000240: 53 54 20 42 20 20 46 4F 52 20 53 30 47 20 42 59 |ST B FOR S0G BY|
00000250: 22 00 6E 0A 3C 05 99 20 22 54 41 53 54 20 54 20 |".n.<.. "TAST T |
00000260: 20 46 4F 52 20 53 30 47 20 54 45 4C 45 22 00 90 | FOR S0G TELE"..|
00000270: 0A 46 05 99 20 22 54 41 53 54 20 49 20 20 46 4F |.F.. "TAST I FO|
00000280: 52 20 53 30 47 20 49 4E 44 53 4B 52 49 56 45 22 |R S0G INDSKRIVE"|
00000290: 00 AC 0A 50 05 99 20 22 54 41 53 54 20 4B 20 20 |...P.. "TAST K |
000002A0: 46 4F 52 20 53 30 47 20 4B 49 47 22 00 CA 0A 5A |FOR S0G KIG"...Z|
000002B0: 05 99 20 22 54 41 53 54 20 52 20 20 46 4F 52 20 |.. "TAST R FOR |
000002C0: 53 30 47 20 52 45 54 54 45 22 00 E8 0A 64 05 99 |S0G RETTE"...d..|
000002D0: 20 22 54 41 53 54 20 46 31 20 46 4F 52 20 53 30 | "TAST F1 FOR S0|
000002E0: 47 20 47 45 4D 4D 45 22 00 EE 0A 69 05 99 00 F4 |G GEMME"...i....|
000002F0: 0A 6E 05 8E 00 03 0B 08 07 8F 20 2A 2A 20 49 4E |.n........ ** IN|
00000300: 4B 45 59 00 1F 0B 12 07 A1 20 54 24 3A 20 8B 20 |KEY...... T$: . |
00000310: 54 24 B3 B1 22 22 20 A7 20 89 20 31 38 31 30 00 |T$.."" . . 1810.|
00000320: 3A 0B 1C 07 A1 20 54 24 3A 20 8B 20 54 24 B2 22 |:.... T$: . T$."|
00000330: 22 20 A7 20 89 20 31 38 32 30 00 40 0B 26 07 8E |" . . 1820.@.&..|
00000340: 00 50 0B D0 07 8F 20 2A 2A 2A 20 49 4E 50 55 54 |.P.... *** INPUT|
00000350: 00 5A 0B DA 07 99 20 22 93 22 00 6C 0B E4 07 99 |.Z.... ".".l....|
00000360: 20 22 4E 52 2E 22 3B 20 4E 52 3A 99 00 84 0B EE | "NR."; NR:.....|
00000370: 07 85 20 22 4E 41 56 4E 20 20 20 3A 22 3B 20 4E |.. "NAVN :"; N|
00000380: 41 56 4E 24 00 9A 0B F8 07 85 20 22 41 44 52 20 |AVN$...... "ADR |
00000390: 20 20 20 3A 22 3B 41 44 52 24 00 AF 0B 02 08 85 | :";ADR$......|
000003A0: 20 22 42 59 20 20 20 20 20 3A 22 3B 42 59 24 00 | "BY :";BY$.|
000003B0: C5 0B 0C 08 85 20 22 54 45 4C 20 20 20 20 3A 22 |..... "TEL :"|
000003C0: 3B 54 45 4C 24 00 EA 0B 0D 08 4E 41 56 4E 24 B2 |;TEL$.....NAVN$.|
000003D0: 4E 41 56 4E 24 AA 22 20 20 20 20 20 20 20 20 20 |NAVN$." |
000003E0: 20 20 20 20 20 20 20 20 20 22 00 0A 0C 0E 08 41 | ".....A|
000003F0: 44 52 24 B2 41 44 52 24 AA 22 20 20 20 20 20 20 |DR$.ADR$." |
00000400: 20 20 20 20 20 20 20 20 20 22 00 22 0C 0F 08 42 | "."...B|
00000410: 59 24 B2 42 59 24 AA 22 20 20 20 20 20 20 20 20 |Y$.BY$." |
00000420: 20 22 00 3B 0C 11 08 54 45 4C 24 B2 54 45 4C 24 | ".;...TEL$.TEL$|
00000430: AA 22 20 20 20 20 20 20 20 20 22 00 70 0C 16 08 |." ".p...|
00000440: 41 24 28 4E 52 29 B2 C8 28 4E 41 56 4E 24 2C 31 |A$(NR)..(NAVN$,1|
00000450: 38 29 AA C8 28 41 44 52 24 2C 31 35 29 AA C8 28 |8)..(ADR$,15)..(|
00000460: 42 59 24 2C 39 29 AA C8 28 54 45 4C 24 2C 38 29 |BY$,9)..(TEL$,8)|
00000470: 00 76 0C 20 08 8E 00 85 0C 98 08 8F 20 53 4F 47 |.v. ........ SOG|
00000480: 20 4E 41 56 4E 00 A2 0C A2 08 85 22 48 56 49 4C | NAVN......"HVIL|
00000490: 4B 45 54 20 4E 41 56 4E 20 53 30 47 45 53 22 3B |KET NAVN S0GES";|
000004A0: 51 24 00 AF 0C AC 08 53 4F 47 50 4C 41 B2 31 00 |Q$.....SOGPLA.1.|
000004B0: BA 0C B6 08 8D 20 34 30 30 30 00 C0 0C C0 08 8E |..... 4000......|
000004C0: 00 CE 0C FC 08 8F 20 53 4F 47 20 41 44 52 00 EE |...... SOG ADR..|
000004D0: 0C 06 09 85 22 48 56 49 4C 4B 45 4E 20 41 44 52 |...."HVILKEN ADR|
000004E0: 45 53 53 45 20 53 4F 47 45 53 22 3B 51 24 00 FC |ESSE SOGES";Q$..|
000004F0: 0C 10 09 53 4F 47 50 4C 41 B2 31 39 00 07 0D 1A |...SOGPLA.19....|
00000500: 09 8D 20 34 30 30 30 00 0D 0D 24 09 8E 00 1A 0D |.. 4000...$.....|
00000510: 60 09 8F 20 53 4F 47 20 42 59 00 35 0D 6A 09 85 |`.. SOG BY.5.j..|
00000520: 22 48 56 49 4C 4B 45 4E 20 42 59 20 53 4F 47 45 |"HVILKEN BY SOGE|
00000530: 53 22 3B 51 24 00 43 0D 74 09 53 4F 47 50 4C 41 |S";Q$.C.t.SOGPLA|
00000540: B2 33 34 00 4E 0D 7E 09 8D 20 34 30 30 30 00 54 |.34.N.~.. 4000.T|
00000550: 0D 88 09 8E 00 63 0D C4 09 8F 20 53 4F 47 20 54 |.....c.... SOG T|
00000560: 45 4C 45 00 83 0D CE 09 85 22 48 56 49 4C 4B 45 |ELE......"HVILKE|
00000570: 54 20 54 4C 46 2E 20 4E 52 20 53 4F 47 45 53 22 |T TLF. NR SOGES"|
00000580: 3B 51 24 00 91 0D D8 09 53 4F 47 50 4C 41 B2 34 |;Q$.....SOGPLA.4|
00000590: 33 00 9C 0D E2 09 8D 20 34 30 30 30 00 A2 0D EC |3...... 4000....|
000005A0: 09 8E 00 BD 0D 28 0A 8F 20 2A 2A 2A 20 4B 49 47 |.....(.. *** KIG|
000005B0: 20 50 41 41 20 45 4E 20 50 4C 41 44 53 00 E1 0D | PAA EN PLADS...|
000005C0: 32 0A 85 20 22 48 56 49 4C 4B 45 4E 20 50 4C 41 |2.. "HVILKEN PLA|
000005D0: 44 53 20 56 49 4C 20 44 55 20 53 45 22 3B 20 4E |DS VIL DU SE"; N|
000005E0: 52 00 FD 0D 37 0A 8B 20 4E 52 B3 31 20 B0 20 4E |R...7.. NR.1 . N|
000005F0: 52 B1 32 30 20 A7 20 89 20 32 36 31 30 00 08 0E |R.20 . . 2610...|
00000600: 3C 0A 8D 20 33 30 30 30 00 0E 0E 46 0A 8E 00 1F |<.. 3000...F....|
00000610: 0E 8C 0A 8F 2A 2A 52 45 54 54 45 2A 2A 2A 2A 00 |....**RETTE****.|
00000620: 40 0E 96 0A 85 22 48 56 49 4C 4B 45 54 20 4E 52 |@...."HVILKET NR|
00000630: 20 53 4B 41 4C 20 52 45 54 54 45 53 22 3B 4E 52 | SKAL RETTES";NR|
00000640: 00 5C 0E A0 0A 8B 20 4E 52 B1 32 30 20 B0 20 4E |.\.... NR.20 . N|
00000650: 52 B3 31 20 A7 20 89 20 32 37 31 30 00 66 0E AA |R.1 . . 2710.f..|
00000660: 0A 8D 33 30 30 30 00 83 0E B4 0A 99 22 53 4B 41 |..3000......"SKA|
00000670: 4C 20 44 45 54 54 45 20 52 45 54 54 45 53 20 4A |L DETTE RETTES J|
00000680: 2F 4E 22 00 8D 0E BE 0A 8D 31 38 30 30 00 9F 0E |/N"......1800...|
00000690: C8 0A 8B 20 54 24 B3 B1 22 4A 22 20 A7 20 8E 00 |... T$.."J" . ..|
000006A0: A8 0E D2 0A 99 22 93 22 00 C6 0E DC 0A 99 22 4E |....."."......"N|
000006B0: 41 56 4E 20 20 3A 20 20 22 3B C8 28 41 24 28 4E |AVN : ";.(A$(N|
000006C0: 52 29 2C 31 38 29 00 DC 0E E6 0A 85 22 91 1D 1D |R),18)......"...|
000006D0: 1D 1D 1D 1D 1D 22 3B 4E 41 56 4E 24 00 FE 0E F0 |.....";NAVN$....|
000006E0: 0A 99 22 11 41 44 52 20 20 20 3A 20 20 22 3B CA |..".ADR : ";.|
000006F0: 28 41 24 28 4E 52 29 2C 31 39 2C 31 35 29 00 13 |(A$(NR),19,15)..|
00000700: 0F FA 0A 85 22 91 1D 1D 1D 1D 1D 1D 1D 22 3B 41 |...."........";A|
00000710: 44 52 24 00 34 0F 04 0B 99 22 11 42 59 20 20 20 |DR$.4....".BY |
00000720: 20 3A 20 20 22 3B CA 28 41 24 28 4E 52 29 2C 33 | : ";.(A$(NR),3|
00000730: 34 2C 39 29 00 48 0F 0E 0B 85 22 91 1D 1D 1D 1D |4,9).H....".....|
00000740: 1D 1D 1D 22 3B 42 59 24 00 66 0F 18 0B 99 22 11 |...";BY$.f....".|
00000750: 54 45 4C 20 20 20 3A 20 20 22 3B C9 28 41 24 28 |TEL : ";.(A$(|
00000760: 4E 52 29 2C 38 29 00 7B 0F 22 0B 85 22 91 1D 1D |NR),8).{.".."...|
00000770: 1D 1D 1D 1D 1D 22 3B 54 45 4C 24 00 8D 0F 2C 0B |.....";TEL$...,.|
00000780: 8D 32 30 36 31 3A 8D 33 30 30 30 3A 8E 00 A4 0F |.2061:.3000:....|
00000790: 54 0B 8F 2A 2A 2A 46 49 4E 44 20 54 4F 4D 20 50 |T..***FIND TOM P|
000007A0: 4C 41 44 53 00 B4 0F 5E 0B 81 20 4E 52 B2 31 20 |LADS...^.. NR.1 |
000007B0: A4 20 32 30 00 D3 0F 68 0B 8B 20 C8 28 41 24 28 |. 20...h.. .(A$(|
000007C0: 4E 52 29 2C 33 29 B3 B1 22 2A 2A 2A 22 20 A7 20 |NR),3).."***" . |
000007D0: 82 4E 52 00 03 10 72 0B 8B 20 4E 52 B1 32 30 20 |.NR...r.. NR.20 |
000007E0: A7 20 99 22 20 49 4E 47 45 4E 20 54 4F 4D 4D 45 |. ." INGEN TOMME|
000007F0: 20 50 4C 41 44 53 45 52 22 3A 51 24 B2 22 40 23 | PLADSER":Q$."@#|
00000800: 22 3A 8E 00 0E 10 7C 0B 8D 20 32 30 30 30 00 14 |":....|.. 2000..|
00000810: 10 86 0B 8E 00 28 10 B8 0B 8F 20 2A 2A 2A 2A 2A |.....(.... *****|
00000820: 20 50 52 49 4E 54 45 52 00 32 10 C2 0B 99 20 22 | PRINTER.2.... "|
00000830: 93 22 00 44 10 CC 0B 99 20 22 4E 52 22 3B 20 4E |.".D.... "NR"; N|
00000840: 52 3A 20 99 00 62 10 D6 0B 99 20 22 4E 41 56 4E |R: ..b.... "NAVN|
00000850: 20 3A 22 3B 20 C8 20 28 41 24 28 4E 52 29 2C 31 | :"; . (A$(NR),1|
00000860: 38 29 00 83 10 E0 0B 99 20 22 41 44 52 20 20 3A |8)...... "ADR :|
00000870: 22 3B 20 CA 20 28 41 24 28 4E 52 29 2C 31 39 2C |"; . (A$(NR),19,|
00000880: 31 35 29 00 A3 10 EA 0B 99 20 22 42 59 20 20 20 |15)...... "BY |
00000890: 3A 22 3B 20 CA 20 28 41 24 28 4E 52 29 2C 33 34 |:"; . (A$(NR),34|
000008A0: 2C 39 29 00 C0 10 F4 0B 99 20 22 54 45 4C 45 20 |,9)...... "TELE |
000008B0: 3A 22 3B 20 C9 20 28 41 24 28 4E 52 29 2C 38 29 |:"; . (A$(NR),8)|
000008C0: 00 C6 10 FE 0B 8E 00 DB 10 A0 0F 8F 20 2A 2A 2A |............ ***|
000008D0: 20 53 4F 47 45 52 55 54 49 4E 45 00 E6 10 A5 0F | SOGERUTINE.....|
000008E0: 46 55 4E 44 B2 30 00 F6 10 AA 0F 81 20 4E 52 B2 |FUND.0...... NR.|
000008F0: 31 20 A4 20 32 30 00 2F 11 B4 0F 8B 20 51 24 B2 |1 . 20./.... Q$.|
00000900: CA 28 41 24 28 4E 52 29 2C 53 4F 47 50 4C 41 2C |.(A$(NR),SOGPLA,|
00000910: C3 28 51 24 29 29 A7 20 46 55 4E 44 B2 46 55 4E |.(Q$)). FUND.FUN|
00000920: 44 AA 31 3A 8D 35 30 30 30 3A 8D 33 30 30 30 00 |D.1:.5000:.3000.|
00000930: 38 11 BE 0F 82 20 4E 52 00 60 11 C3 0F 8B 20 46 |8.... NR.`.... F|
00000940: 55 4E 44 B2 30 20 A7 20 99 22 46 49 4E 44 45 53 |UND.0 . ."FINDES|
00000950: 20 49 4B 4B 45 22 3A 99 3A 51 24 B2 22 40 23 22 | IKKE":.:Q$."@#"|
00000960: 00 66 11 C8 0F 8E 00 76 11 88 13 8F 20 2A 2A 2A |.f.....v.... ***|
00000970: 20 50 41 55 53 45 00 87 11 92 13 8B 20 46 55 4E | PAUSE...... FUN|
00000980: 44 B2 31 20 A7 20 8E 00 A1 11 9C 13 99 3A 99 22 |D.1 . .......:."|
00000990: 54 52 59 4B 20 50 41 41 20 45 4E 20 54 41 53 54 |TRYK PAA EN TAST|
000009A0: 22 00 AC 11 A6 13 8D 20 31 38 30 30 00 B2 11 B0 |"...... 1800....|
000009B0: 13 8E 00 C2 11 EC 13 8F 20 46 4C 59 54 20 44 41 |........ FLYT DA|
000009C0: 54 41 00 DA 11 F6 13 4E 41 56 4E 24 B2 20 C8 28 |TA.....NAVN$. .(|
000009D0: 41 24 28 4E 52 29 2C 31 38 29 00 F4 11 00 14 41 |A$(NR),18).....A|
000009E0: 44 52 24 B2 20 CA 28 41 24 28 4E 52 29 2C 31 39 |DR$. .(A$(NR),19|
000009F0: 2C 31 35 29 00 0C 12 0A 14 42 59 24 B2 20 CA 28 |,15).....BY$. .(|
00000A00: 41 24 28 4E 52 29 2C 33 34 2C 39 29 00 22 12 14 |A$(NR),34,9)."..|
00000A10: 14 54 45 4C 24 B2 20 C9 28 41 24 28 4E 52 29 2C |.TEL$. .(A$(NR),|
00000A20: 38 29 00 28 12 1E 14 8E 00 37 12 70 17 8F 20 47 |8).(.....7.p.. G|
00000A30: 45 4D 20 44 41 54 41 00 51 12 7A 17 9F 20 32 2C |EM DATA.Q.z.. 2,|
00000A40: 38 2C 32 2C 22 4B 41 52 54 45 4D 50 2C 53 2C 57 |8,2,"KARTEMP,S,W|
00000A50: 22 00 60 12 84 17 81 20 58 B2 31 20 A4 20 32 30 |".`.... X.1 . 20|
00000A60: 00 74 12 8E 17 98 32 2C 41 24 28 58 29 3B C7 28 |.t....2,A$(X);.(|
00000A70: 31 33 29 3B 00 7C 12 98 17 82 20 58 00 84 12 A2 |13);.|.... X....|
00000A80: 17 A0 20 32 00 8F 12 B6 17 8D 20 36 32 30 30 00 |.. 2...... 6200.|
00000A90: 9D 12 C0 17 9F 20 31 35 2C 38 2C 31 35 00 B1 12 |..... 15,8,15...|
00000AA0: CA 17 98 31 35 2C 22 53 3A 4B 41 52 44 41 54 41 |...15,"S:KARDATA|
00000AB0: 22 00 CD 12 D4 17 98 31 35 2C 22 52 3A 4B 41 52 |"......15,"R:KAR|
00000AC0: 44 41 54 41 3D 4B 41 52 54 45 4D 50 22 00 D6 12 |DATA=KARTEMP"...|
00000AD0: DE 17 A0 20 31 35 00 E1 12 E8 17 8D 20 36 32 30 |... 15...... 620|
00000AE0: 30 00 E7 12 F2 17 8E 00 FD 12 38 18 8F 2A 2A 2A |0.........8..***|
00000AF0: 54 45 53 54 20 53 45 51 20 46 49 4C 45 00 0B 13 |TEST SEQ FILE...|
00000B00: 42 18 9F 20 31 35 2C 38 2C 31 35 00 20 13 4C 18 |B.. 15,8,15. .L.|
00000B10: 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 |.15,EN,EM$,ET,ES|
00000B20: 00 29 13 56 18 A0 20 31 35 00 38 13 60 18 8B 20 |.).V.. 15.8.`.. |
00000B30: 45 4E B2 30 20 A7 20 8E 00 4B 13 6A 18 99 20 45 |EN.0 . ..K.j.. E|
00000B40: 4E 2C 45 4D 24 2C 45 54 2C 45 53 00 51 13 74 18 |N,EM$,ET,ES.Q.t.|
00000B50: 90 00 63 13 9C 18 8F 2A 2A 2A 52 45 41 44 20 46 |..c....***READ F|
00000B60: 49 4C 45 00 7D 13 A6 18 9F 20 32 2C 38 2C 32 2C |ILE.}.... 2,8,2,|
00000B70: 22 4B 41 52 44 41 54 41 2C 53 2C 52 22 00 8C 13 |"KARDATA,S,R"...|
00000B80: B0 18 81 20 58 B2 31 20 A4 20 32 30 00 99 13 BA |... X.1 . 20....|
00000B90: 18 84 32 2C 41 24 28 58 29 00 A1 13 C4 18 82 20 |..2,A$(X)...... |
00000BA0: 58 00 A9 13 CE 18 A0 20 32 00 B4 13 D8 18 8D 20 |X...... 2...... |
00000BB0: 36 32 30 30 00 BA 13 E2 18 8E 00 00 00 |6200......... |
.. .... SAVE "KARTOTEK 85 V.3",8.?.... 5
3280,0:. 53281,0:. "..".L.... A$(20).[..
.. X.1 . 20.S.(.A$(X)."***".G(X.64).{.2.
. X...Z.. 6300...N.NR..(.(1).20).1:. 300
0...... *** STYRE PROGRAM.R.... 1300: .
MENU TEKST...... 1800: . INKEY.....Q$."@
#"...... T$."N" . . 2200...... T$."A" .
. 2300.4.... T$."B" . . 2400.J.$.. T$."T
" . . 2500.H.... T$."I" . Q$."AA":. 2900
...8.. T$."K" . Q$."AA":. 2600...B.. T$.
"R" . Q$."AA":. 2700...L.. T$."." . . 60
00.Q.Q.. Q$."@#" . . 1020...V.. 1010...`
........ *** MENU TEKST............ "TAS
T N FOR S0G NAVN".6.(.. "TAST A FOR S0
G ADR".Q.2.. "TAST B FOR S0G BY".N.<..
"TAST T FOR S0G TELE"...F.. "TAST I FO
R S0G INDSKRIVE"...P.. "TAST K FOR S0G
KIG".J.Z.. "TAST R FOR S0G RETTE"...D..
"TAST F1 FOR S0G GEMME"...I.....N......
.. ** INKEY...... T$: . T$.."" . . 1810.
:.... T$: . T$."" . . 1820.@.&...P.P.. *
** INPUT.Z.Z.. ".".L.... "NR."; NR:.....
.. "NAVN :"; NAVN$...... "ADR :";AD
R$...... "BY :";BY$.E.... "TEL :"
;TEL$.....NAVN$.NAVN$."
".....ADR$.ADR$." "."...B
Y$.BY$." ".;...TEL$.TEL$."
".P...A$(NR).H(NAVN$,18).H(ADR$,15).H(
BY$,9).H(TEL$,8).V. ........ SOG NAVN...
..."HVILKET NAVN S0GES";Q$.....SOGPLA.1.
..... 4000.......N.... SOG ADR......"HVI
LKEN ADRESSE SOGES";Q$.....SOGPLA.19....
.. 4000...$.....`.. SOG BY.5.J.."HVILKEN
BY SOGES";Q$.C.T.SOGPLA.34.N.~.. 4000.T
.....C.D.. SOG TELE...N.."HVILKET TLF. N
R SOGES";Q$...X.SOGPLA.43...... 4000....
.....(.. *** KIG PAA EN PLADS...2.. "HVI
LKEN PLADS VIL DU SE"; NR...7.. NR.1 . N
R.20 . . 2610...<.. 3000...F........**RE
TTE****.@...."HVILKET NR SKAL RETTES";NR
.\. .. NR.20 . NR.1 . . 2710.F....3000..
...."SKAL DETTE RETTES J/N"......1800...
H.. T$.."J" . ....R..".".F...."NAVN :
";H(A$(NR),18)......"........";NAVN$....
..".ADR : ";J(A$(NR),19,15)......"...
.....";ADR$.4....".BY : ";J(A$(NR),3
4,9).H...."........";BY$.F....".TEL :
";I(A$(NR),8).{.".."........";TEL$...,.
.2061:.3000:....T..***FIND TOM PLADS...^
.. NR.1 . 20.S.H.. H(A$(NR),3).."***" .
.NR...R.. NR.20 . ." INGEN TOMME PLADSER
":Q$."@#":....|.. 2000.......(.... *****
PRINTER.2.B.. ".".D.L.. "NR"; NR: ..B.V
.. "NAVN :"; H (A$(NR),18)...... "ADR :
"; J (A$(NR),19,15)...... "BY :"; J (A
$(NR),34,9)...... "TELE :"; I (A$(NR),8)
.F....... .. *** SOGERUTINE.....FUND.0..
.... NR.1 . 20./.... Q$.J(A$(NR),SOGPLA,
C(Q$)). FUND.FUND.1:.5000:.3000.8.... NR
.`.C.. FUND.0 . ."FINDES IKKE":.:Q$."@#"
.F.H...V.... *** PAUSE...... FUND.1 . ..
.....:."TRYK PAA EN TAST"...... 1800....
...B.... FLYT DATA.Z...NAVN$. H(A$(NR),1
8).....ADR$. J(A$(NR),19,15).....BY$. J(
A$(NR),34,9)."...TEL$. I(A$(NR),8).(....
.7.P.. GEM DATA.Q.Z.. 2,8,2,"KARTEMP,S,W
".`.... X.1 . 20.T....2,A$(X);G(13);.|..
.. X..... 2...... 6200...... 15,8,15...
J..15,"S:KARDATA".M.T..15,"R:KARDATA=KAR
TEMP".V... 15...... 6200.........8..***
TEST SEQ FILE...B.. 15,8,15. .L..15,EN,E
M$,ET,ES.).V. 15.8.`.. EN.0 . ..K.J.. E
N,EM$,ET,ES.Q.T...C....***READ FILE.}...
. 2,8,2,"KARDATA,S,R"...... X.1 . 20....
..2,A$(X)...D.. X...N. 2...X.. 6200....
.....
> CLICK IMAGE PREVIEW FOR FULL MODAL