TELEDATA
FILE INFORMATION
FILENAME(S): TELEDATA
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-11-30 19:36:56
APPEARS ON: 2 disk(s)
FILE HASH
2151064e1e02a25c12a4e8728301b99b403873a37b9d52c877dbbff9c460d202
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 11 8 86 | TELEDATA | PRG | Curtcool, Bo | 23 | 4 | DOWNLOAD FILE |
| 10 8 86 | TELEDATA | PRG | Curtcool, Bo | 17 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: C0 02 00 08 01 00 93 22 54 45 4C 45 44 41 54 41 |......."TELEDATA|
00000010: 22 2C 38 2C 31 00 00 00 00 00 00 00 00 00 00 00 |",8,1...........|
00000020: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000040: 00 00 8B E3 34 03 7C A5 1A A7 E4 A7 86 AE 00 00 |....4.|.........|
00000050: 00 00 4C 48 B2 00 31 EA 66 02 47 FE 4A F3 91 F2 |..LH..1.f.G.J...|
00000060: 0E F2 50 F2 33 F3 57 F1 CA F1 ED F6 3E F1 2F F3 |..P.3.W.....>./.|
00000070: 66 FE A5 F4 ED F5 20 59 A6 4C AE A7 20 20 20 20 |f..... Y.L.. |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000540: 20 20 00 20 08 01 00 8F 20 53 41 56 45 20 22 4B | . .... SAVE "K|
00000550: 41 52 54 4F 54 45 4B 20 38 35 20 56 2E 33 22 2C |ARTOTEK 85 V.3",|
00000560: 38 00 3F 08 0A 00 97 20 35 33 32 38 30 2C 30 3A |8.?.... 53280,0:|
00000570: 97 20 35 33 32 38 31 2C 30 3A 99 20 22 93 05 22 |. 53281,0:. ".."|
00000580: 00 4C 08 14 00 86 20 41 24 28 32 30 29 00 5B 08 |.L.... A$(20).[.|
00000590: 1E 00 81 20 58 B2 31 20 A4 20 32 30 00 73 08 28 |... X.1 . 20.s.(|
000005A0: 00 41 24 28 58 29 B2 22 2A 2A 2A 22 AA C7 28 58 |.A$(X)."***"..(X|
000005B0: AA 36 34 29 00 7B 08 32 00 82 20 58 00 86 08 5A |.64).{.2.. X...Z|
000005C0: 00 8D 20 36 33 30 30 00 A1 08 6E 00 4E 52 B2 B5 |.. 6300...n.NR..|
000005D0: 28 BB 28 31 29 AC 32 30 29 AA 31 3A 8D 20 33 30 |(.(1).20).1:. 30|
000005E0: 30 30 00 B9 08 E8 03 8F 20 2A 2A 2A 20 53 54 59 |00...... *** STY|
000005F0: 52 45 20 50 52 4F 47 52 41 4D 00 D2 08 F2 03 8D |RE PROGRAM......|
00000600: 20 31 33 30 30 3A 20 8F 20 4D 45 4E 55 20 54 45 | 1300: . MENU TE|
00000610: 4B 53 54 00 E6 08 FC 03 8D 20 31 38 30 30 3A 20 |KST...... 1800: |
00000620: 8F 20 49 4E 4B 45 59 00 F2 08 01 04 51 24 B2 22 |. INKEY.....Q$."|
00000630: 40 23 22 00 08 09 06 04 8B 20 54 24 B2 22 4E 22 |@#"...... T$."N"|
00000640: 20 A7 20 8D 20 32 32 30 30 00 1E 09 10 04 8B 20 | . . 2200...... |
00000650: 54 24 B2 22 41 22 20 A7 20 8D 20 32 33 30 30 00 |T$."A" . . 2300.|
00000660: 34 09 1A 04 8B 20 54 24 B2 22 42 22 20 A7 20 8D |4.... T$."B" . .|
00000670: 20 32 34 30 30 00 4A 09 24 04 8B 20 54 24 B2 22 | 2400.J.$.. T$."|
00000680: 54 22 20 A7 20 8D 20 32 35 30 30 00 68 09 2E 04 |T" . . 2500.h...|
00000690: 8B 20 54 24 B2 22 49 22 20 A7 20 51 24 B2 22 41 |. T$."I" . Q$."A|
000006A0: 41 22 3A 8D 20 32 39 30 30 00 86 09 38 04 8B 20 |A":. 2900...8.. |
000006B0: 54 24 B2 22 4B 22 20 A7 20 51 24 B2 22 41 41 22 |T$."K" . Q$."AA"|
000006C0: 3A 8D 20 32 36 30 30 00 A4 09 42 04 8B 20 54 24 |:. 2600...B.. T$|
000006D0: B2 22 52 22 20 A7 20 51 24 B2 22 41 41 22 3A 8D |."R" . Q$."AA":.|
000006E0: 20 32 37 30 30 00 C2 09 4C 04 8B 20 54 24 B2 22 | 2700...L.. T$."|
000006F0: 85 22 20 A7 20 51 24 B2 22 41 41 22 3A 8D 20 36 |." . Q$."AA":. 6|
00000700: 30 30 30 00 D9 09 51 04 8B 20 51 24 B2 22 40 23 |000...Q.. Q$."@#|
00000710: 22 20 A7 20 89 20 31 30 32 30 00 E4 09 56 04 89 |" . . 1020...V..|
00000720: 20 31 30 31 30 00 EA 09 60 04 90 00 FF 09 14 05 | 1010...`.......|
00000730: 8F 20 2A 2A 2A 20 4D 45 4E 55 20 54 45 4B 53 54 |. *** MENU TEKST|
00000740: 00 05 0A 19 05 99 00 22 0A 1E 05 99 20 22 54 41 |.......".... "TA|
00000750: 53 54 20 4E 20 20 46 4F 52 20 53 30 47 20 4E 41 |ST N FOR S0G NA|
00000760: 56 4E 22 00 3E 0A 28 05 99 20 22 54 41 53 54 20 |VN".>.(.. "TAST |
00000770: 41 20 20 46 4F 52 20 53 30 47 20 41 44 52 22 00 |A FOR S0G ADR".|
00000780: 59 0A 32 05 99 20 22 54 41 53 54 20 42 20 20 46 |Y.2.. "TAST B F|
00000790: 4F 52 20 53 30 47 20 42 59 22 00 76 0A 3C 05 99 |OR S0G BY".v.<..|
000007A0: 20 22 54 41 53 54 20 54 20 20 46 4F 52 20 53 30 | "TAST T FOR S0|
000007B0: 47 20 54 45 4C 45 22 00 98 0A 46 05 99 20 22 54 |G TELE"...F.. "T|
000007C0: 41 53 54 20 49 20 20 46 4F 52 20 53 30 47 20 49 |AST I FOR S0G I|
000007D0: 4E 44 53 4B 52 49 56 45 22 00 B4 0A 50 05 99 20 |NDSKRIVE"...P.. |
000007E0: 22 54 41 53 54 20 4B 20 20 46 4F 52 20 53 30 47 |"TAST K FOR S0G|
000007F0: 20 4B 49 47 22 00 D2 0A 5A 05 99 20 22 54 41 53 | KIG"...Z.. "TAS|
00000800: 54 20 52 20 20 46 4F 52 20 53 30 47 20 52 45 54 |T R FOR S0G RET|
00000810: 54 45 22 00 F0 0A 64 05 99 20 22 54 41 53 54 20 |TE"...d.. "TAST |
00000820: 46 31 20 46 4F 52 20 53 30 47 20 47 45 4D 4D 45 |F1 FOR S0G GEMME|
00000830: 22 00 F6 0A 69 05 99 00 FC 0A 6E 05 8E 00 0B 0B |"...i.....n.....|
00000840: 08 07 8F 20 2A 2A 20 49 4E 4B 45 59 00 27 0B 12 |... ** INKEY.'..|
00000850: 07 A1 20 54 24 3A 20 8B 20 54 24 B3 B1 22 22 20 |.. T$: . T$.."" |
00000860: A7 20 89 20 31 38 31 30 00 42 0B 1C 07 A1 20 54 |. . 1810.B.... T|
00000870: 24 3A 20 8B 20 54 24 B2 22 22 20 A7 20 89 20 31 |$: . T$."" . . 1|
00000880: 38 32 30 00 48 0B 26 07 8E 00 58 0B D0 07 8F 20 |820.H.&...X.... |
00000890: 2A 2A 2A 20 49 4E 50 55 54 00 62 0B DA 07 99 20 |*** INPUT.b.... |
000008A0: 22 93 22 00 74 0B E4 07 99 20 22 4E 52 2E 22 3B |".".t.... "NR.";|
000008B0: 20 4E 52 3A 99 00 8C 0B EE 07 85 20 22 4E 41 56 | NR:....... "NAV|
000008C0: 4E 20 20 20 3A 22 3B 20 4E 41 56 4E 24 00 A2 0B |N :"; NAVN$...|
000008D0: F8 07 85 20 22 41 44 52 20 20 20 20 3A 22 3B 41 |... "ADR :";A|
000008E0: 44 52 24 00 B7 0B 02 08 85 20 22 42 59 20 20 20 |DR$...... "BY |
000008F0: 20 20 3A 22 3B 42 59 24 00 CD 0B 0C 08 85 20 22 | :";BY$...... "|
00000900: 54 45 4C 20 20 20 20 3A 22 3B 54 45 4C 24 00 F2 |TEL :";TEL$..|
00000910: 0B 0D 08 4E 41 56 4E 24 B2 4E 41 56 4E 24 AA 22 |...NAVN$.NAVN$."|
00000920: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000930: 20 20 22 00 12 0C 0E 08 41 44 52 24 B2 41 44 52 | ".....ADR$.ADR|
00000940: 24 AA 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00000950: 20 20 22 00 2A 0C 0F 08 42 59 24 B2 42 59 24 AA | ".*...BY$.BY$.|
00000960: 22 20 20 20 20 20 20 20 20 20 22 00 43 0C 11 08 |" ".C...|
00000970: 54 45 4C 24 B2 54 45 4C 24 AA 22 20 20 20 20 20 |TEL$.TEL$." |
00000980: 20 20 20 22 00 78 0C 16 08 41 24 28 4E 52 29 B2 | ".x...A$(NR).|
00000990: C8 28 4E 41 56 4E 24 2C 31 38 29 AA C8 28 41 44 |.(NAVN$,18)..(AD|
000009A0: 52 24 2C 31 35 29 AA C8 28 42 59 24 2C 39 29 AA |R$,15)..(BY$,9).|
000009B0: C8 28 54 45 4C 24 2C 38 29 00 7E 0C 20 08 8E 00 |.(TEL$,8).~. ...|
000009C0: 8D 0C 98 08 8F 20 53 4F 47 20 4E 41 56 4E 00 AA |..... SOG NAVN..|
000009D0: 0C A2 08 85 22 48 56 49 4C 4B 45 54 20 4E 41 56 |...."HVILKET NAV|
000009E0: 4E 20 53 30 47 45 53 22 3B 51 24 00 B7 0C AC 08 |N S0GES";Q$.....|
000009F0: 53 4F 47 50 4C 41 B2 31 00 C2 0C B6 08 8D 20 34 |SOGPLA.1...... 4|
00000A00: 30 30 30 00 C8 0C C0 08 8E 00 D6 0C FC 08 8F 20 |000............ |
00000A10: 53 4F 47 20 41 44 52 00 F6 0C 06 09 85 22 48 56 |SOG ADR......"HV|
00000A20: 49 4C 4B 45 4E 20 41 44 52 45 53 53 45 20 53 4F |ILKEN ADRESSE SO|
00000A30: 47 45 53 22 3B 51 24 00 04 0D 10 09 53 4F 47 50 |GES";Q$.....SOGP|
00000A40: 4C 41 B2 31 39 00 0F 0D 1A 09 8D 20 34 30 30 30 |LA.19...... 4000|
00000A50: 00 15 0D 24 09 8E 00 22 0D 60 09 8F 20 53 4F 47 |...$...".`.. SOG|
00000A60: 20 42 59 00 3D 0D 6A 09 85 22 48 56 49 4C 4B 45 | BY.=.j.."HVILKE|
00000A70: 4E 20 42 59 20 53 4F 47 45 53 22 3B 51 24 00 4B |N BY SOGES";Q$.K|
00000A80: 0D 74 09 53 4F 47 50 4C 41 B2 33 34 00 56 0D 7E |.t.SOGPLA.34.V.~|
00000A90: 09 8D 20 34 30 30 30 00 5C 0D 88 09 8E 00 6B 0D |.. 4000.\.....k.|
00000AA0: C4 09 8F 20 53 4F 47 20 54 45 4C 45 00 8B 0D CE |... SOG TELE....|
00000AB0: 09 85 22 48 56 49 4C 4B 45 54 20 54 4C 46 2E 20 |.."HVILKET TLF. |
00000AC0: 4E 52 20 53 4F 47 45 53 22 3B 51 24 00 99 0D D8 |NR SOGES";Q$....|
00000AD0: 09 53 4F 47 50 4C 41 B2 34 33 00 A4 0D E2 09 8D |.SOGPLA.43......|
00000AE0: 20 34 30 30 30 00 AA 0D EC 09 8E 00 C5 0D 28 0A | 4000.........(.|
00000AF0: 8F 20 2A 2A 2A 20 4B 49 47 20 50 41 41 20 45 4E |. *** KIG PAA EN|
00000B00: 20 50 4C 41 44 53 00 E9 0D 32 0A 85 20 22 48 56 | PLADS...2.. "HV|
00000B10: 49 4C 4B 45 4E 20 50 4C 41 44 53 20 56 49 4C 20 |ILKEN PLADS VIL |
00000B20: 44 55 20 53 45 22 3B 20 4E 52 00 05 0E 37 0A 8B |DU SE"; NR...7..|
00000B30: 20 4E 52 B3 31 20 B0 20 4E 52 B1 32 30 20 A7 20 | NR.1 . NR.20 . |
00000B40: 89 20 32 36 31 30 00 10 0E 3C 0A 8D 20 33 30 30 |. 2610...<.. 300|
00000B50: 30 00 16 0E 46 0A 8E 00 27 0E 8C 0A 8F 2A 2A 52 |0...F...'....**R|
00000B60: 45 54 54 45 2A 2A 2A 2A 00 48 0E 96 0A 85 22 48 |ETTE****.H...."H|
00000B70: 56 49 4C 4B 45 54 20 4E 52 20 53 4B 41 4C 20 52 |VILKET NR SKAL R|
00000B80: 45 54 54 45 53 22 3B 4E 52 00 64 0E A0 0A 8B 20 |ETTES";NR.d.... |
00000B90: 4E 52 B1 32 30 20 B0 20 4E 52 B3 31 20 A7 20 89 |NR.20 . NR.1 . .|
00000BA0: 20 32 37 31 30 00 6E 0E AA 0A 8D 33 30 30 30 00 | 2710.n....3000.|
00000BB0: 8B 0E B4 0A 99 22 53 4B 41 4C 20 44 45 54 54 45 |....."SKAL DETTE|
00000BC0: 20 52 45 54 54 45 53 20 4A 2F 4E 22 00 95 0E BE | RETTES J/N"....|
00000BD0: 0A 8D 31 38 30 30 00 A7 0E C8 0A 8B 20 54 24 B3 |..1800...... T$.|
00000BE0: B1 22 4A 22 20 A7 20 8E 00 B0 0E D2 0A 99 22 93 |."J" . .......".|
00000BF0: 22 00 CE 0E DC 0A 99 22 4E 41 56 4E 20 20 3A 20 |"......"NAVN : |
00000C00: 20 22 3B C8 28 41 24 28 4E 52 29 2C 31 38 29 00 | ";.(A$(NR),18).|
00000C10: E4 0E E6 0A 85 22 91 1D 1D 1D 1D 1D 1D 1D 22 3B |....."........";|
00000C20: 4E 41 56 4E 24 00 06 0F F0 0A 99 22 11 41 44 52 |NAVN$......".ADR|
00000C30: 20 20 20 3A 20 20 22 3B CA 28 41 24 28 4E 52 29 | : ";.(A$(NR)|
00000C40: 2C 31 39 2C 31 35 29 00 1B 0F FA 0A 85 22 91 1D |,19,15)......"..|
00000C50: 1D 1D 1D 1D 1D 1D 22 3B 41 44 52 24 00 3C 0F 04 |......";ADR$.<..|
00000C60: 0B 99 22 11 42 59 20 20 20 20 3A 20 20 22 3B CA |..".BY : ";.|
00000C70: 28 41 24 28 4E 52 29 2C 33 34 2C 39 29 00 50 0F |(A$(NR),34,9).P.|
00000C80: 0E 0B 85 22 91 1D 1D 1D 1D 1D 1D 1D 22 3B 42 59 |..."........";BY|
00000C90: 24 00 6E 0F 18 0B 99 22 11 54 45 4C 20 20 20 3A |$.n....".TEL :|
00000CA0: 20 20 22 3B C9 28 41 24 28 4E 52 29 2C 38 29 00 | ";.(A$(NR),8).|
00000CB0: 83 0F 22 0B 85 22 91 1D 1D 1D 1D 1D 1D 1D 22 3B |..".."........";|
00000CC0: 54 45 4C 24 00 95 0F 2C 0B 8D 32 30 36 31 3A 8D |TEL$...,..2061:.|
00000CD0: 33 30 30 30 3A 8E 00 AC 0F 54 0B 8F 2A 2A 2A 46 |3000:....T..***F|
00000CE0: 49 4E 44 20 54 4F 4D 20 50 4C 41 44 53 00 BC 0F |IND TOM PLADS...|
00000CF0: 5E 0B 81 20 4E 52 B2 31 20 A4 20 32 30 00 DB 0F |^.. NR.1 . 20...|
00000D00: 68 0B 8B 20 C8 28 41 24 28 4E 52 29 2C 33 29 B3 |h.. .(A$(NR),3).|
00000D10: B1 22 2A 2A 2A 22 20 A7 20 82 4E 52 00 0B 10 72 |."***" . .NR...r|
00000D20: 0B 8B 20 4E 52 B1 32 30 20 A7 20 99 22 20 49 4E |.. NR.20 . ." IN|
00000D30: 47 45 4E 20 54 4F 4D 4D 45 20 50 4C 41 44 53 45 |GEN TOMME PLADSE|
00000D40: 52 22 3A 51 24 B2 22 40 23 22 3A 8E 00 16 10 7C |R":Q$."@#":....||
00000D50: 0B 8D 20 32 30 30 30 00 1C 10 86 0B 8E 00 30 10 |.. 2000.......0.|
00000D60: B8 0B 8F 20 2A 2A 2A 2A 2A 20 50 52 49 4E 54 45 |... ***** PRINTE|
00000D70: 52 00 3A 10 C2 0B 99 20 22 93 22 00 4C 10 CC 0B |R.:.... ".".L...|
00000D80: 99 20 22 4E 52 22 3B 20 4E 52 3A 20 99 00 6A 10 |. "NR"; NR: ..j.|
00000D90: D6 0B 99 20 22 4E 41 56 4E 20 3A 22 3B 20 C8 20 |... "NAVN :"; . |
00000DA0: 28 41 24 28 4E 52 29 2C 31 38 29 00 8B 10 E0 0B |(A$(NR),18).....|
00000DB0: 99 20 22 41 44 52 20 20 3A 22 3B 20 CA 20 28 41 |. "ADR :"; . (A|
00000DC0: 24 28 4E 52 29 2C 31 39 2C 31 35 29 00 AB 10 EA |$(NR),19,15)....|
00000DD0: 0B 99 20 22 42 59 20 20 20 3A 22 3B 20 CA 20 28 |.. "BY :"; . (|
00000DE0: 41 24 28 4E 52 29 2C 33 34 2C 39 29 00 C8 10 F4 |A$(NR),34,9)....|
00000DF0: 0B 99 20 22 54 45 4C 45 20 3A 22 3B 20 C9 20 28 |.. "TELE :"; . (|
00000E00: 41 24 28 4E 52 29 2C 38 29 00 CE 10 FE 0B 8E 00 |A$(NR),8).......|
00000E10: E3 10 A0 0F 8F 20 2A 2A 2A 20 53 4F 47 45 52 55 |..... *** SOGERU|
00000E20: 54 49 4E 45 00 EE 10 A5 0F 46 55 4E 44 B2 30 00 |TINE.....FUND.0.|
00000E30: FE 10 AA 0F 81 20 4E 52 B2 31 20 A4 20 32 30 00 |..... NR.1 . 20.|
00000E40: 37 11 B4 0F 8B 20 51 24 B2 CA 28 41 24 28 4E 52 |7.... Q$..(A$(NR|
00000E50: 29 2C 53 4F 47 50 4C 41 2C C3 28 51 24 29 29 A7 |),SOGPLA,.(Q$)).|
00000E60: 20 46 55 4E 44 B2 46 55 4E 44 AA 31 3A 8D 35 30 | FUND.FUND.1:.50|
00000E70: 30 30 3A 8D 33 30 30 30 00 40 11 BE 0F 82 20 4E |00:.3000.@.... N|
00000E80: 52 00 68 11 C3 0F 8B 20 46 55 4E 44 B2 30 20 A7 |R.h.... FUND.0 .|
00000E90: 20 99 22 46 49 4E 44 45 53 20 49 4B 4B 45 22 3A | ."FINDES IKKE":|
00000EA0: 99 3A 51 24 B2 22 40 23 22 00 6E 11 C8 0F 8E 00 |.:Q$."@#".n.....|
00000EB0: 7E 11 88 13 8F 20 2A 2A 2A 20 50 41 55 53 45 00 |~.... *** PAUSE.|
00000EC0: 8F 11 92 13 8B 20 46 55 4E 44 B2 31 20 A7 20 8E |..... FUND.1 . .|
00000ED0: 00 A9 11 9C 13 99 3A 99 22 54 52 59 4B 20 50 41 |......:."TRYK PA|
00000EE0: 41 20 45 4E 20 54 41 53 54 22 00 B4 11 A6 13 8D |A EN TAST"......|
00000EF0: 20 31 38 30 30 00 BA 11 B0 13 8E 00 CA 11 EC 13 | 1800...........|
00000F00: 8F 20 46 4C 59 54 20 44 41 54 41 00 E2 11 F6 13 |. FLYT DATA.....|
00000F10: 4E 41 56 4E 24 B2 20 C8 28 41 24 28 4E 52 29 2C |NAVN$. .(A$(NR),|
00000F20: 31 38 29 00 FC 11 00 14 41 44 52 24 B2 20 CA 28 |18).....ADR$. .(|
00000F30: 41 24 28 4E 52 29 2C 31 39 2C 31 35 29 00 14 12 |A$(NR),19,15)...|
00000F40: 0A 14 42 59 24 B2 20 CA 28 41 24 28 4E 52 29 2C |..BY$. .(A$(NR),|
00000F50: 33 34 2C 39 29 00 2A 12 14 14 54 45 4C 24 B2 20 |34,9).*...TEL$. |
00000F60: C9 28 41 24 28 4E 52 29 2C 38 29 00 30 12 1E 14 |.(A$(NR),8).0...|
00000F70: 8E 00 3F 12 70 17 8F 20 47 45 4D 20 44 41 54 41 |..?.p.. GEM DATA|
00000F80: 00 59 12 7A 17 9F 20 32 2C 38 2C 32 2C 22 4B 41 |.Y.z.. 2,8,2,"KA|
00000F90: 52 54 45 4D 50 2C 53 2C 57 22 00 68 12 84 17 81 |RTEMP,S,W".h....|
00000FA0: 20 58 B2 31 20 A4 20 32 30 00 7C 12 8E 17 98 32 | X.1 . 20.|....2|
00000FB0: 2C 41 24 28 58 29 3B C7 28 31 33 29 3B 00 84 12 |,A$(X);.(13);...|
00000FC0: 98 17 82 20 58 00 8C 12 A2 17 A0 20 32 00 97 12 |... X...... 2...|
00000FD0: B6 17 8D 20 36 32 30 30 00 A5 12 C0 17 9F 20 31 |... 6200...... 1|
00000FE0: 35 2C 38 2C 31 35 00 B9 12 CA 17 98 31 35 2C 22 |5,8,15......15,"|
00000FF0: 53 3A 4B 41 52 44 41 54 41 22 00 D5 12 D4 17 98 |S:KARDATA"......|
00001000: 31 35 2C 22 52 3A 4B 41 52 44 41 54 41 3D 4B 41 |15,"R:KARDATA=KA|
00001010: 52 54 45 4D 50 22 00 DE 12 DE 17 A0 20 31 35 00 |RTEMP"...... 15.|
00001020: E9 12 E8 17 8D 20 36 32 30 30 00 EF 12 F2 17 8E |..... 6200......|
00001030: 00 05 13 38 18 8F 2A 2A 2A 54 45 53 54 20 53 45 |...8..***TEST SE|
00001040: 51 20 46 49 4C 45 00 13 13 42 18 9F 20 31 35 2C |Q FILE...B.. 15,|
00001050: 38 2C 31 35 00 28 13 4C 18 84 31 35 2C 45 4E 2C |8,15.(.L..15,EN,|
00001060: 45 4D 24 2C 45 54 2C 45 53 00 31 13 56 18 A0 20 |EM$,ET,ES.1.V.. |
00001070: 31 35 00 40 13 60 18 8B 20 45 4E B2 30 20 A7 20 |15.@.`.. EN.0 . |
00001080: 8E 00 53 13 6A 18 99 20 45 4E 2C 45 4D 24 2C 45 |..S.j.. EN,EM$,E|
00001090: 54 2C 45 53 00 59 13 74 18 90 00 6B 13 9C 18 8F |T,ES.Y.t...k....|
000010A0: 2A 2A 2A 52 45 41 44 20 46 49 4C 45 00 85 13 A6 |***READ FILE....|
000010B0: 18 9F 20 32 2C 38 2C 32 2C 22 4B 41 52 44 41 54 |.. 2,8,2,"KARDAT|
000010C0: 41 2C 53 2C 52 22 00 94 13 B0 18 81 20 58 B2 31 |A,S,R"...... X.1|
000010D0: 20 A4 20 32 30 00 A1 13 BA 18 84 32 2C 41 24 28 | . 20......2,A$(|
000010E0: 58 29 00 A9 13 C4 18 82 20 58 00 B1 13 CE 18 A0 |X)...... X......|
000010F0: 20 32 00 BC 13 D8 18 8D 20 36 32 30 30 00 C2 13 | 2...... 6200...|
00001100: E2 18 8E 00 00 00 |...... |
......."TELEDATA",8,1...................
............................4.|.........
..LH..1.F.G.J.....P.3.W.J...>./.F..... Y
.L..
. .... SAVE "K
ARTOTEK 85 V.3",8.?.... 53280,0:. 53281,
0:. "..".L.... A$(20).[.... X.1 . 20.S.(
.A$(X)."***".G(X.64).{.2.. X...Z.. 6300.
..N.NR..(.(1).20).1:. 3000...... *** STY
RE 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.B.L.. T$."." . Q$."AA":. 6000.Y.Q.
. Q$."@#" . . 1020...V.. 1010...`.......
. *** MENU TEKST.......".... "TAST N FO
R S0G NAVN".>.(.. "TAST A FOR S0G ADR".
Y.2.. "TAST B FOR S0G BY".V.<.. "TAST T
FOR S0G TELE"...F.. "TAST I FOR S0G I
NDSKRIVE"...P.. "TAST K FOR S0G KIG".R.
Z.. "TAST R FOR S0G RETTE"...D.. "TAST
F1 FOR S0G GEMME"...I.....N........ ** I
NKEY.'.... T$: . T$.."" . . 1810.B.... T
$: . T$."" . . 1820.H.&...X.P.. *** INPU
T.B.Z.. ".".T.... "NR."; NR:....... "NAV
N :"; NAVN$...... "ADR :";ADR$.....
. "BY :";BY$.M.... "TEL :";TEL$..
...NAVN$.NAVN$." ".....
ADR$.ADR$." ".*...BY$.BY$.
" ".C...TEL$.TEL$." ".X..
.A$(NR).H(NAVN$,18).H(ADR$,15).H(BY$,9).
H(TEL$,8).~. ........ SOG NAVN......"HVI
LKET NAVN S0GES";Q$.....SOGPLA.1.B.... 4
000.H.....V.... SOG ADR......"HVILKEN AD
RESSE SOGES";Q$.....SOGPLA.19...... 4000
...$...".`.. SOG BY.=.J.."HVILKEN BY SOG
ES";Q$.K.T.SOGPLA.34.V.~.. 4000.\.....K.
D.. SOG TELE...N.."HVILKET TLF. NR SOGES
";Q$...X.SOGPLA.43...... 4000.......E.(.
. *** KIG PAA EN PLADS...2.. "HVILKEN PL
ADS VIL DU SE"; NR...7.. NR.1 . NR.20 .
. 2610...<.. 3000...F...'....**RETTE****
.H...."HVILKET NR SKAL RETTES";NR.D. ..
NR.20 . NR.1 . . 2710.N....3000......"SK
AL DETTE RETTES J/N"......1800...H.. T$.
."J" . ....R..".".N...."NAVN : ";H(A$(
NR),18)......"........";NAVN$......".ADR
: ";J(A$(NR),19,15)......"........";
ADR$.<....".BY : ";J(A$(NR),34,9).P.
..."........";BY$.N....".TEL : ";I(A$
(NR),8)...".."........";TEL$...,..2061:.
3000:....T..***FIND TOM PLADS...^.. NR.1
. 20...H.. H(A$(NR),3).."***" . .NR...R
.. NR.20 . ." INGEN TOMME PLADSER":Q$."@
#":....|.. 2000.......0.... ***** PRINTE
R.:.B.. ".".L.L.. "NR"; NR: ..J.V.. "NAV
N :"; H (A$(NR),18)...... "ADR :"; J (A
$(NR),19,15)...... "BY :"; J (A$(NR),3
4,9).H.... "TELE :"; I (A$(NR),8).N.....
.. .. *** SOGERUTINE.....FUND.0...... NR
.1 . 20.7.... Q$.J(A$(NR),SOGPLA,C(Q$)).
FUND.FUND.1:.5000:.3000.@.... NR.H.C..
FUND.0 . ."FINDES IKKE":.:Q$."@#".N.H...
~.... *** PAUSE...... FUND.1 . .......:.
"TRYK PAA EN TAST"...... 1800.......J...
. FLYT DATA.....NAVN$. H(A$(NR),18).....
ADR$. J(A$(NR),19,15).....BY$. J(A$(NR),
34,9).*...TEL$. I(A$(NR),8).0.....?.P..
GEM DATA.Y.Z.. 2,8,2,"KARTEMP,S,W".H....
X.1 . 20.|....2,A$(X);G(13);...... X...
.. 2...... 6200...... 15,8,15...J..15,"
S:KARDATA".U.T..15,"R:KARDATA=KARTEMP"..
... 15...... 6200.........8..***TEST SE
Q FILE...B.. 15,8,15.(.L..15,EN,EM$,ET,E
S.1.V. 15.@.`.. EN.0 . ..S.J.. EN,EM$,E
T,ES.Y.T...K....***READ FILE...... 2,8,2
,"KARDATA,S,R"...... X.1 . 20......2,A$(
X)...D.. X...N. 2...X.. 6200.B.......
> CLICK IMAGE PREVIEW FOR FULL MODAL