UNIVERS-KARTOTEK
FILE INFORMATION
FILENAME(S): UNIVERS-KARTOTEK
FILE TYPE(S): PRG
FILE SIZE: 6.9K
FIRST SEEN: 2025-11-30 19:47:42
APPEARS ON: 1 disk(s)
FILE HASH
b7273bf57ee15907cffd6e7e694f1a712fbb3532c8f9ed6e1afcba5471f6c07a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KOPIDISK | UNIVERS-KARTOTEK | PRG | Curtcool, Frank | 3 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 F8 2A 8F 20 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 00 49 08 02 2B 8F 20 2A 20 4D 45 |*****.I..+. * ME| 00000030: 4E 55 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |NU | 00000040: 20 20 20 20 20 20 20 20 2A 00 6D 08 0C 2B 8F 20 | *.m..+. | 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 97 08 |*************...| 00000070: 16 2B 97 35 33 32 38 31 2C 37 3A 99 22 93 11 1D |.+.53281,7:."...| 00000080: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 44 41 |..............DA| 00000090: 54 41 42 41 53 45 22 00 B7 08 17 2B 51 57 24 B2 |TABASE"....+QW$.| 000000A0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 000000B0: 20 20 20 20 20 20 22 00 DE 08 20 2B 99 22 11 11 | "... +."..| 000000C0: 1F 20 20 20 20 20 20 20 20 20 20 4D 55 4C 49 47 |. MULIG| 000000D0: 45 20 4B 4F 4D 41 4E 44 4F 45 52 20 3A 22 00 03 |E KOMANDOER :"..| 000000E0: 09 2A 2B 99 22 11 11 1C 20 20 20 31 29 20 49 4E |.*+."... 1) IN| 000000F0: 44 53 4B 52 49 56 20 49 4E 46 4F 52 4D 41 54 49 |DSKRIV INFORMATI| 00000100: 4F 4E 22 00 22 09 34 2B 99 22 11 20 20 20 32 29 |ON".".4+.". 2)| 00000110: 20 53 30 47 45 2F 56 49 53 45 2F 53 4B 49 46 54 | S0GE/VISE/SKIFT| 00000120: 45 22 00 3A 09 3E 2B 99 22 11 20 20 20 33 29 20 |E".:.>+.". 3) | 00000130: 53 41 56 45 2F 4C 4F 41 44 45 00 5B 09 48 2B 99 |SAVE/LOADE.[.H+.| 00000140: 22 11 20 20 20 34 29 20 4F 50 52 45 54 20 4E 59 |". 4) OPRET NY| 00000150: 54 20 4B 41 52 54 4F 54 45 4B 22 00 7F 09 52 2B |T KARTOTEK"...R+| 00000160: 99 22 11 20 20 20 35 29 20 53 54 4F 50 20 22 20 |.". 5) STOP " | 00000170: 3A 99 22 11 20 20 20 36 29 20 50 52 49 4E 54 00 |:.". 6) PRINT.| 00000180: AF 09 5C 2B 85 22 1F 11 20 11 11 11 20 20 20 20 |..\+.".. ... | 00000190: 20 20 20 20 20 20 53 4B 52 49 56 20 44 49 54 20 | SKRIV DIT | 000001A0: 56 41 4C 47 20 3A 22 3B 5A 3A 99 22 93 22 3B 00 |VALG :";Z:.".";.| 000001B0: C5 09 66 2B 8B 20 5A B1 33 20 B0 49 4E B2 31 A7 |..f+. Z.3 .IN.1.| 000001C0: 31 31 31 34 30 00 01 0A 70 2B 99 22 93 11 11 11 |11140...p+."....| 000001D0: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 49 4B 4B 45 20 |...........IKKE | 000001E0: 49 4E 49 54 49 41 4C 49 53 45 52 45 54 20 45 4E |INITIALISERET EN| 000001F0: 44 4E 55 20 22 3A 81 49 B2 31 A4 31 35 30 30 3A |DNU ":.I.1.1500:| 00000200: 82 00 0C 0A 7A 2B 89 31 31 30 30 30 00 3E 0A 84 |....z+.11000.>..| 00000210: 2B 91 5A 8D 31 33 30 30 30 2C 31 37 30 30 30 2C |+.Z.13000,17000,| 00000220: 31 38 30 30 30 2C 31 32 30 30 30 2C 31 31 31 35 |18000,12000,1115| 00000230: 30 2C 33 31 30 30 30 3A 89 31 31 30 30 30 00 71 |0,31000:.11000.q| 00000240: 0A 8E 2B 99 22 11 11 11 11 11 11 11 11 11 11 1D |..+."...........| 00000250: 1D 1D 1D 1D 1D 1D 1D 12 90 44 41 54 41 42 41 53 |.........DATABAS| 00000260: 45 4E 20 4C 55 4B 4B 45 54 22 3A 89 33 30 30 30 |EN LUKKET":.3000| 00000270: 30 00 95 0A E0 2E 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |0...... ********| 00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000290: 2A 2A 2A 2A 2A 00 B9 0A EA 2E 8F 20 2A 20 53 54 |*****...... * ST| 000002A0: 52 55 4B 54 55 52 45 52 20 44 41 54 41 20 46 49 |RUKTURER DATA FI| 000002B0: 4C 45 4E 20 20 20 20 20 2A 00 DD 0A F4 2E 8F 20 |LEN *...... | 000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1B 0B |*************...| 000002E0: FE 2E 9C 3A 86 41 24 28 34 39 39 29 3A 99 22 11 |...:.A$(499):.".| 000002F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 1C |................| 00000300: 46 49 4C 20 53 54 52 55 4B 54 55 52 22 3A 49 4E |FIL STRUKTUR":IN| 00000310: B2 31 3A 52 24 B2 C7 28 31 33 29 00 5F 0B 03 2F |.1:R$..(13)._../| 00000320: 85 22 11 90 4C 4F 41 44 45 52 20 44 55 20 46 52 |."..LOADER DU FR| 00000330: 41 20 42 41 41 4E 44 2F 44 49 53 4B 20 4E 55 20 |A BAAND/DISK NU | 00000340: 28 4A 2F 4E 29 22 3B 51 24 3A 8B 51 24 B2 22 4A |(J/N)";Q$:.Q$."J| 00000350: 22 A7 31 31 30 30 30 52 24 B2 C7 28 31 33 29 00 |".11000R$..(13).| 00000360: 9F 0B 08 2F 85 22 11 11 1F 48 56 4F 52 4D 41 4E |.../."...HVORMAN| 00000370: 47 45 20 46 45 4C 54 45 52 20 49 20 48 56 45 52 |GE FELTER I HVER| 00000380: 54 20 4B 4F 52 54 3A 22 3B 58 3A 86 42 24 28 58 |T KORT:";X:.B$(X| 00000390: AB 31 29 2C 41 25 28 34 39 39 2C 58 AB 31 29 00 |.1),A%(499,X.1).| 000003A0: D2 0B 12 2F 99 22 11 22 3B 3A 81 49 B2 30 A4 58 |.../.".";:.I.0.X| 000003B0: AB 31 3A 99 22 9C 46 45 4C 54 20 54 45 4B 53 54 |.1:.".FELT TEKST| 000003C0: 20 22 3B C4 28 49 AA 31 29 3B 22 3A 22 3B 3A 85 | ";.(I.1);":";:.| 000003D0: 51 24 00 E9 0B 1C 2F 42 24 28 49 29 B2 51 24 3A |Q$..../B$(I).Q$:| 000003E0: 82 49 3A 89 31 31 30 30 30 00 0D 0C C8 32 8F 20 |.I:.11000....2. | 000003F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 31 0C |*************.1.| 00000410: D2 32 8F 20 2A 20 49 4E 50 55 54 20 4E 59 45 20 |.2. * INPUT NYE | 00000420: 44 41 54 41 20 54 49 4C 20 4B 4F 52 54 20 20 20 |DATA TIL KORT | 00000430: 2A 00 55 0C DC 32 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.U..2. ********| 00000440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000450: 2A 2A 2A 2A 2A 00 7E 0C E6 32 54 31 24 B2 22 22 |*****.~..2T1$.""| 00000460: 3A 99 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |:.".............| 00000470: 1D 1D 1D 12 1C 4E 59 45 20 44 41 54 41 22 00 A4 |.....NYE DATA"..| 00000480: 0C F0 32 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |..2.".........";| 00000490: 49 54 3B 22 20 4B 4F 52 54 20 49 4E 44 54 49 4C |IT;" KORT INDTIL| 000004A0: 20 4E 55 22 00 CC 0C FA 32 99 22 11 1F 20 20 20 | NU"....2.".. | 000004B0: 20 20 20 20 20 20 20 20 4D 55 4C 49 47 45 20 4B | MULIGE K| 000004C0: 4F 4D 41 4E 44 4F 45 52 20 3A 20 22 00 E3 0C 04 |OMANDOER : "....| 000004D0: 33 99 22 11 90 20 3E 9C 20 53 4B 52 49 56 20 4B |3.".. >. SKRIV K| 000004E0: 4F 52 54 00 07 0D 0E 33 99 22 11 90 20 3E 9C 20 |ORT....3.".. >. | 000004F0: 27 5A 5A 5A 27 20 52 45 54 55 52 20 54 49 4C 20 |'ZZZ' RETUR TIL | 00000500: 4D 45 4E 59 1E 11 22 00 43 0D 18 33 81 20 49 B2 |MENY..".C..3. I.| 00000510: 30 A4 58 AB 31 3A 99 42 24 28 49 29 3B C8 28 51 |0.X.1:.B$(I);.(Q| 00000520: 57 24 2C 31 35 AB C3 28 42 24 28 49 29 29 29 22 |W$,15..(B$(I)))"| 00000530: 3A 22 3B 3A 85 51 24 3A 8B 51 24 B2 22 5A 5A 5A |:";:.Q$:.Q$."ZZZ| 00000540: 22 A7 8E 00 60 0D 22 33 8B C3 28 54 31 24 29 AA |"...`."3..(T1$).| 00000550: C3 28 51 24 29 B3 B2 32 35 35 A7 31 33 31 31 30 |.(Q$)..255.13110| 00000560: 00 86 0D 2C 33 99 22 1C 54 45 4B 53 54 20 46 4F |...,3.".TEKST FO| 00000570: 52 20 4C 41 4E 47 22 3A 81 4A B2 31 A4 33 30 30 |R LANG":.J.1.300| 00000580: 30 3A 82 4A 3A 8E 00 B0 0D 36 33 54 31 24 B2 54 |0:.J:....63T1$.T| 00000590: 31 24 AA 51 24 3A 54 49 25 28 49 29 B2 C3 28 54 |1$.Q$:TI%(I)..(T| 000005A0: 31 24 29 3A 82 49 3A 99 22 11 90 56 45 4E 54 22 |1$):.I:."..VENT"| 000005B0: 00 C9 0D 40 33 8D 31 34 30 30 30 3A 8D 31 35 30 |...@3.14000:.150| 000005C0: 30 30 3A 89 31 33 30 30 30 00 ED 0D B0 36 8F 20 |00:.13000....6. | 000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 11 0E |*************...| 000005F0: BA 36 8F 20 2A 20 42 49 4E 41 45 52 54 20 53 30 |.6. * BINAERT S0| 00000600: 47 45 2D 53 59 53 54 45 4D 20 20 20 20 20 20 20 |GE-SYSTEM | 00000610: 2A 00 35 0E C4 36 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.5..6. ********| 00000620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000630: 2A 2A 2A 2A 2A 00 46 0E CE 36 8B 49 54 B2 30 A7 |*****.F..6.IT.0.| 00000640: 53 53 B2 30 3A 8E 00 65 0E D8 36 50 4F B2 B5 28 |SS.0:..e..6PO..(| 00000650: BC 28 49 54 29 AD BC 28 32 29 29 3A 53 53 B2 32 |.(IT)..(2)):SS.2| 00000660: AE 50 4F AB 31 00 74 0E E2 36 81 49 B2 50 4F A4 |.PO.1.t..6.I.PO.| 00000670: 30 A9 AB 31 00 8E 0E EC 36 8B 41 24 28 53 53 29 |0..1....6.A$(SS)| 00000680: B3 54 31 24 A7 53 53 B2 53 53 AA 32 AE 49 00 A8 |.T1$.SS.SS.2.I..| 00000690: 0E F6 36 8B 41 24 28 53 53 29 B1 54 31 24 A7 53 |..6.A$(SS).T1$.S| 000006A0: 53 B2 53 53 AB 32 AE 49 00 B7 0E 00 37 8B 53 53 |S.SS.2.I....7.SS| 000006B0: B3 30 A7 53 53 B2 30 00 CC 0E 0A 37 8B 53 53 B1 |.0.SS.0....7.SS.| 000006C0: 49 54 AB 31 A7 53 53 B2 49 54 AB 31 00 E7 0E 14 |IT.1.SS.IT.1....| 000006D0: 37 82 49 3A 8B 41 24 28 53 53 29 B3 54 31 24 A7 |7.I:.A$(SS).T1$.| 000006E0: 53 53 B2 53 53 AA 31 00 ED 0E 1E 37 8E 00 11 0F |SS.SS.1....7....| 000006F0: 98 3A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.:. ************| 00000700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000710: 2A 00 35 0F A2 3A 8F 20 2A 20 49 4E 44 53 41 45 |*.5..:. * INDSAE| 00000720: 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T | 00000730: 20 20 20 20 2A 00 59 0F AC 3A 8F 20 2A 2A 2A 2A | *.Y..:. ****| 00000740: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6A 0F B6 3A 8B 49 |*********.j..:.I| 00000760: 54 B2 30 A7 89 31 35 30 36 30 00 8A 0F C0 3A 81 |T.0..15060....:.| 00000770: 49 B2 49 54 A4 53 53 AA 31 A9 AB 31 3A 41 24 28 |I.IT.SS.1..1:A$(| 00000780: 49 29 B2 41 24 28 49 AB 31 29 00 AF 0F CA 3A 81 |I).A$(I.1)....:.| 00000790: 20 4A B2 30 A4 58 AB 31 3A 41 25 28 49 2C 4A 29 | J.0.X.1:A%(I,J)| 000007A0: B2 41 25 28 49 AB 31 2C 4A 29 3A 82 4A 2C 49 00 |.A%(I.1,J):.J,I.| 000007B0: E3 0F D4 3A 41 24 28 53 53 29 B2 54 31 24 3A 81 |...:A$(SS).T1$:.| 000007C0: 49 B2 30 A4 58 AB 31 3A 41 25 28 53 53 2C 49 29 |I.0.X.1:A%(SS,I)| 000007D0: B2 54 49 25 28 49 29 3A 82 3A 49 54 B2 49 54 AA |.TI%(I):.:IT.IT.| 000007E0: 31 3A 8E 00 07 10 80 3E 8F 20 2A 2A 2A 2A 2A 2A |1:.....>. ******| 000007F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000800: 2A 2A 2A 2A 2A 2A 2A 00 2B 10 8A 3E 8F 20 2A 20 |*******.+..>. * | 00000810: 53 4B 49 46 54 45 20 4B 4F 52 54 20 55 44 20 4D |SKIFTE KORT UD M| 00000820: 45 44 20 4E 59 20 54 45 2E 20 2A 00 4F 10 94 3E |ED NY TE. *.O..>| 00000830: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************| 00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000850: 62 10 9E 3E 53 31 B2 53 31 AB 31 3A 54 31 24 B2 |b..>S1.S1.1:T1$.| 00000860: 22 22 00 8B 10 A8 3E 50 50 B2 30 3A 81 49 B2 30 |""....>PP.0:.I.0| 00000870: A4 58 AB 31 3A 99 22 93 11 1C 4B 4F 52 54 20 22 |.X.1:."...KORT "| 00000880: 3B 53 31 AA 31 3B 22 3A 2D 11 22 00 CD 10 B2 3E |;S1.1;":-."....>| 00000890: 99 22 1E 22 3B 42 24 28 49 29 3B C8 28 51 57 24 |.".";B$(I);.(QW$| 000008A0: 2C 31 35 AB C3 28 42 24 28 49 29 29 29 3B 22 3A |,15..(B$(I)));":| 000008B0: 1F 22 3B CA 28 41 24 28 53 31 29 2C 50 50 AA 31 |.";.(A$(S1),PP.1| 000008C0: 2C 41 25 28 53 31 2C 49 29 AB 50 50 29 00 F6 10 |,A%(S1,I).PP)...| 000008D0: BC 3E 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |.>."............| 000008E0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000008F0: 1C 12 53 30 47 45 00 12 11 C6 3E 99 22 11 1F 20 |..S0GE....>.".. | 00000900: 4D 55 4C 49 47 45 20 4B 4F 4D 41 4E 44 4F 45 52 |MULIGE KOMANDOER| 00000910: 3A 22 00 34 11 D0 3E 99 22 11 20 90 3E 20 1E 27 |:".4..>.". .> .'| 00000920: 52 45 54 55 52 4E 27 20 42 45 48 4F 4C 44 20 54 |RETURN' BEHOLD T| 00000930: 45 4B 53 54 00 59 11 DA 3E 99 22 20 90 3E 20 1E |EKST.Y..>." .> .| 00000940: 53 4B 52 49 56 20 4E 59 20 54 45 4B 53 54 20 54 |SKRIV NY TEKST T| 00000950: 49 4C 20 4B 4F 52 54 45 54 00 7C 11 E4 3E 99 22 |IL KORTET.|..>."| 00000960: 20 90 3E 20 1E 27 44 44 44 27 20 46 4A 45 52 4E | .> .'DDD' FJERN| 00000970: 20 48 45 4C 45 20 4B 4F 52 54 45 54 00 9A 11 EE | HELE KORTET....| 00000980: 3E 99 22 20 90 3E 20 1E 27 5A 5A 5A 27 20 42 45 |>." .> .'ZZZ' BE| 00000990: 48 4F 4C 44 20 54 45 4B 53 54 00 BC 11 F8 3E 51 |HOLD TEKST....>Q| 000009A0: 24 B2 22 22 3A 85 22 11 1F 48 56 41 44 20 30 4E |$."":."..HVAD 0N| 000009B0: 53 4B 45 52 20 44 55 3A 22 3B 51 24 00 CD 11 02 |SKER DU:";Q$....| 000009C0: 3F 8B 51 24 B2 22 5A 5A 5A 22 A7 20 8E 00 F7 11 |?.Q$."ZZZ". ....| 000009D0: 0C 3F 8B 51 24 B2 22 22 A7 20 51 24 B2 CA 28 41 |.?.Q$."". Q$..(A| 000009E0: 24 28 53 31 29 2C 50 50 AA 31 2C 41 25 28 53 31 |$(S1),PP.1,A%(S1| 000009F0: 2C 49 29 AB 50 50 29 00 11 12 16 3F 8B 20 51 24 |,I).PP)....?. Q$| 00000A00: B2 22 44 44 44 22 A7 20 8D 20 31 36 31 38 30 3A |."DDD". . 16180:| 00000A10: 8E 00 4B 12 20 3F 50 50 B2 41 25 28 53 31 2C 49 |..K. ?PP.A%(S1,I| 00000A20: 29 3A 54 31 24 B2 54 31 24 AA 51 24 3A 54 49 25 |):T1$.T1$.Q$:TI%| 00000A30: 28 49 29 B2 C3 28 54 31 24 29 3A 82 49 3A 8D 31 |(I)..(T1$):.I:.1| 00000A40: 36 31 38 30 3A 8D 31 34 30 30 30 00 5E 12 2A 3F |6180:.14000.^.*?| 00000A50: 53 31 B2 53 53 3A 8D 31 35 30 30 30 3A 8E 00 9B |S1.SS:.15000:...| 00000A60: 12 34 3F 81 4A B2 53 31 A4 49 54 AB 31 3A 41 24 |.4?.J.S1.IT.1:A$| 00000A70: 28 4A 29 B2 41 24 28 4A AA 31 29 3A 81 4B B2 30 |(J).A$(J.1):.K.0| 00000A80: A4 58 AB 31 3A 41 25 28 4A 2C 4B 29 B2 41 25 28 |.X.1:A%(J,K).A%(| 00000A90: 4A AA 31 2C 4B 29 3A 82 4B 2C 4A 00 A9 12 3E 3F |J.1,K):.K,J...>?| 00000AA0: 49 54 B2 49 54 AB 31 3A 8E 00 CD 12 68 42 8F 20 |IT.IT.1:....hB. | 00000AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F1 12 |*************...| 00000AD0: 72 42 8F 20 2A 20 53 30 47 45 53 59 53 54 45 4D |rB. * S0GESYSTEM| 00000AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000AF0: 2A 00 15 13 7C 42 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...|B. ********| 00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B10: 2A 2A 2A 2A 2A 00 3E 13 86 42 53 31 B2 30 3A 46 |*****.>..BS1.0:F| 00000B20: 46 B2 30 3A 99 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D |F.0:."..........| 00000B30: 1D 1D 1D 1D 1D 1D 1D 1D 1C 12 53 30 47 45 00 5A |..........S0GE.Z| 00000B40: 13 90 42 99 22 11 1F 4D 55 4C 49 47 45 20 4B 4F |..B."..MULIGE KO| 00000B50: 4D 41 4E 44 4F 45 52 20 3A 22 00 84 13 9A 42 99 |MANDOER :"....B.| 00000B60: 22 11 20 90 3E 1E 20 53 4B 52 49 56 20 46 45 4C |". .>. SKRIV FEL| 00000B70: 54 20 54 49 4C 20 4E 4F 52 4D 41 4C 20 53 30 47 |T TIL NORMAL S0G| 00000B80: 4E 49 4E 47 00 B4 13 A4 42 99 22 11 20 90 3E 1E |NING....B.". .>.| 00000B90: 20 4D 45 44 20 27 49 49 49 27 20 46 4F 52 41 4E | MED 'III' FORAN| 00000BA0: 20 46 4F 52 20 49 4E 49 54 49 41 4C 20 53 30 47 | FOR INITIAL S0G| 00000BB0: 4E 49 4E 47 00 E4 13 AE 42 99 22 11 20 90 3E 1E |NING....B.". .>.| 00000BC0: 20 4D 45 44 20 27 53 53 53 27 20 46 4F 52 41 4E | MED 'SSS' FORAN| 00000BD0: 20 46 4F 52 20 53 50 45 43 49 41 4C 20 53 30 47 | FOR SPECIAL S0G| 00000BE0: 4E 49 4E 47 00 11 14 B8 42 99 22 11 20 90 3E 1E |NING....B.". .>.| 00000BF0: 20 27 52 45 54 55 52 4E 27 20 46 4F 52 20 46 30 | 'RETURN' FOR F0| 00000C00: 52 53 54 45 20 44 41 54 41 20 49 20 46 49 4C 45 |RSTE DATA I FILE| 00000C10: 4E 00 45 14 C2 42 99 22 11 11 9C D1 D1 D1 D1 D1 |N.E..B."........| 00000C20: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |................| 00000C30: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |................| 00000C40: D1 D1 D1 22 3B 00 6E 14 CC 42 54 31 24 B2 22 22 |...";.n..BT1$.""| 00000C50: 3A 85 22 91 91 1F 53 4B 52 49 56 20 53 30 47 45 |:."...SKRIV S0GE| 00000C60: 20 43 4F 4D 41 4E 44 4F 3A 22 3B 54 31 24 00 89 | COMANDO:";T1$..| 00000C70: 14 D6 42 8B C8 28 54 31 24 2C 33 29 B3 B1 22 49 |..B..(T1$,3).."I| 00000C80: 49 49 22 A7 31 37 31 34 30 00 B9 14 E0 42 54 31 |II".17140....BT1| 00000C90: 24 B2 C9 28 54 31 24 2C C3 28 54 31 24 29 AB 33 |$..(T1$,.(T1$).3| 00000CA0: 29 3A 8D 31 34 30 30 30 3A 53 31 B2 53 53 3A 8B |):.14000:S1.SS:.| 00000CB0: 53 31 B1 49 54 AB 31 A7 8E 00 C4 14 EA 42 89 31 |S1.IT.1......B.1| 00000CC0: 37 32 34 30 00 E0 14 F4 42 8B C8 28 54 31 24 2C |7240....B..(T1$,| 00000CD0: 33 29 B3 B1 22 53 53 53 22 A7 20 31 37 31 39 30 |3).."SSS". 17190| 00000CE0: 00 16 15 FE 42 46 46 B2 30 3A 54 31 24 B2 C9 28 |....BFF.0:T1$..(| 00000CF0: 54 31 24 2C C3 28 54 31 24 29 AB 33 29 3A 81 49 |T1$,.(T1$).3):.I| 00000D00: B2 53 31 A4 49 54 AB 31 3A 81 4A B2 31 A4 C3 28 |.S1.IT.1:.J.1..(| 00000D10: 41 24 28 49 29 29 00 4E 15 08 43 8B 20 CA 28 41 |A$(I)).N..C. .(A| 00000D20: 24 28 49 29 2C 4A 2C C3 28 54 31 24 29 29 B2 54 |$(I),J,.(T1$)).T| 00000D30: 31 24 A7 46 46 B2 31 3A 53 31 B2 49 3A 4A B2 C3 |1$.FF.1:S1.I:J..| 00000D40: 28 41 24 28 49 29 29 3A 49 B2 49 54 AB 31 00 72 |(A$(I)):I.IT.1.r| 00000D50: 15 12 43 82 4A 2C 49 3A 8B 46 46 B2 31 A7 54 31 |..C.J,I:.FF.1.T1| 00000D60: 24 B2 22 53 53 53 22 AA 54 31 24 3A 89 31 37 32 |$."SSS".T1$:.172| 00000D70: 34 30 00 78 15 1C 43 8E 00 8A 15 26 43 8B 54 31 |40.x..C....&C.T1| 00000D80: 24 B2 22 22 A7 31 37 32 34 30 00 AC 15 30 43 46 |$."".17240...0CF| 00000D90: 46 B2 30 3A 81 49 B2 53 31 A4 49 54 AB 31 3A 50 |F.0:.I.S1.IT.1:P| 00000DA0: 50 B2 30 3A 81 4A B2 30 A4 58 AB 31 00 E8 15 3A |P.0:.J.0.X.1...:| 00000DB0: 43 8B 20 CA 28 41 24 28 49 29 2C 50 50 AA 31 2C |C. .(A$(I),PP.1,| 00000DC0: 41 25 28 49 2C 4A 29 AB 50 50 29 B2 54 31 24 20 |A%(I,J).PP).T1$ | 00000DD0: A7 20 46 46 B2 31 3A 53 31 B2 49 3A 4A B2 58 AB |. FF.1:S1.I:J.X.| 00000DE0: 31 3A 49 B2 49 54 AB 31 00 09 16 44 43 50 50 B2 |1:I.IT.1...DCPP.| 00000DF0: 41 25 28 49 2C 4A 29 3A 82 4A 3A 82 49 3A 8B 46 |A%(I,J):.J:.I:.F| 00000E00: 46 B2 31 A7 31 37 32 34 30 00 0F 16 4E 43 8E 00 |F.1.17240...NC..| 00000E10: 26 16 58 43 8B 20 53 31 B1 49 54 AB 31 A7 20 53 |&.XC. S1.IT.1. S| 00000E20: 31 B2 49 54 AB 31 00 34 16 62 43 8B 20 49 54 B2 |1.IT.1.4.bC. IT.| 00000E30: 30 A7 20 8E 00 43 16 6C 43 8B 53 31 B3 30 A7 53 |0. ..C.lC.S1.0.S| 00000E40: 31 B2 30 00 63 16 76 43 99 22 93 11 1C 4B 4F 52 |1.0.c.vC."...KOR| 00000E50: 54 20 22 3B 53 31 AA 31 3B 22 3A 2D 11 22 3A 50 |T ";S1.1;":-.":P| 00000E60: 50 B2 30 00 AC 16 80 43 81 49 B2 30 A4 58 AB 31 |P.0....C.I.0.X.1| 00000E70: 3A 99 22 1E 22 3B 42 24 28 49 29 3B C8 28 51 57 |:.".";B$(I);.(QW| 00000E80: 24 2C 31 35 AB C3 28 42 24 28 49 29 29 29 22 1F |$,15..(B$(I)))".| 00000E90: 22 3B CA 28 41 24 28 53 31 29 2C 50 50 AA 31 2C |";.(A$(S1),PP.1,| 00000EA0: 41 25 28 53 31 2C 49 29 AB 50 50 29 00 E7 16 8A |A%(S1,I).PP)....| 00000EB0: 43 50 50 B2 41 25 28 53 31 2C 49 29 3A 82 49 3A |CPP.A%(S1,I):.I:| 00000EC0: 53 31 B2 53 31 AA 31 3A 99 22 13 11 11 11 11 11 |S1.S1.1:."......| 00000ED0: 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |................| 00000EE0: 1D 1D 1D 1D 1D 1D 22 00 FD 16 94 43 99 22 1C 53 |......"....C.".S| 00000EF0: 30 47 45 20 4B 4F 4D 41 4E 44 4F 3A 22 00 22 17 |0GE KOMANDO:".".| 00000F00: 9E 43 99 22 11 20 90 3E 9C 20 27 52 45 54 55 52 |.C.". .>. 'RETUR| 00000F10: 4E 27 20 46 4F 52 20 4E 41 45 53 54 45 20 4B 4F |N' FOR NAESTE KO| 00000F20: 52 54 00 40 17 A8 43 99 22 20 90 3E 9C 20 27 41 |RT.@..C." .>. 'A| 00000F30: 41 41 27 20 46 4F 52 20 41 54 20 52 45 54 54 45 |AA' FOR AT RETTE| 00000F40: 00 63 17 B2 43 99 22 20 90 3E 9C 20 27 43 43 43 |.c..C." .>. 'CCC| 00000F50: 27 20 46 4F 52 20 41 54 20 53 30 47 45 20 56 49 |' FOR AT S0GE VI| 00000F60: 44 52 45 00 93 17 BC 43 99 22 20 90 3E 9C 20 27 |DRE....C." .>. '| 00000F70: 23 27 20 20 20 2B 2F 2D 20 20 4E 52 2E 20 46 4F |#' +/- NR. FO| 00000F80: 52 20 41 54 20 46 4C 59 54 54 45 20 50 4F 49 4E |R AT FLYTTE POIN| 00000F90: 54 45 52 00 BD 17 C6 43 99 22 20 90 3E 9C 20 27 |TER....C." .>. '| 00000FA0: 5A 5A 5A 27 20 46 4F 52 20 41 54 20 53 4C 55 54 |ZZZ' FOR AT SLUT| 00000FB0: 54 45 20 46 55 4E 4B 54 49 4F 4E 45 4E 00 E3 17 |TE FUNKTIONEN...| 00000FC0: C7 43 99 22 20 90 3E 9C 20 27 50 27 20 20 20 30 |.C." .>. 'P' 0| 00000FD0: 4E 53 4B 45 53 20 44 45 52 20 55 44 53 4B 52 49 |NSKES DER UDSKRI| 00000FE0: 46 54 22 00 06 18 D0 43 50 24 B2 22 22 3A 85 22 |FT"....CP$."":."| 00000FF0: 11 1F 48 56 41 44 20 30 4E 53 4B 45 52 20 44 55 |..HVAD 0NSKER DU| 00001000: 20 3A 22 3B 50 24 00 1C 18 DA 43 8B 20 50 24 B2 | :";P$....C. P$.| 00001010: 22 43 43 43 22 A7 20 31 37 31 31 30 00 2F 18 E4 |"CCC". 17110./..| 00001020: 43 8B 20 50 24 B2 22 22 A7 20 31 37 32 34 30 00 |C. P$."". 17240.| 00001030: 4A 18 E5 43 8B 50 24 B2 22 50 22 A7 53 31 B2 53 |J..C.P$."P".S1.S| 00001040: 31 AB 31 3A 89 33 31 32 37 30 00 68 18 EE 43 8B |1.1:.31270.h..C.| 00001050: 20 50 24 B2 22 41 41 41 22 A7 20 8D 31 36 30 30 | P$."AAA". .1600| 00001060: 30 3A 89 31 37 32 34 30 00 7A 18 F8 43 8B 20 50 |0:.17240.z..C. P| 00001070: 24 B2 22 5A 5A 5A 22 A7 20 8E 00 A7 18 02 44 8B |$."ZZZ". .....D.| 00001080: 20 C8 28 50 24 2C 31 29 B2 22 23 22 20 A7 53 31 | .(P$,1)."#" .S1| 00001090: B2 53 31 AA C5 28 CA 28 50 24 2C 32 29 29 AB 31 |.S1..(.(P$,2)).1| 000010A0: 3A 89 31 37 32 34 30 00 BA 18 0C 44 53 31 B2 53 |:.17240....DS1.S| 000010B0: 31 AB 31 3A 89 31 37 32 34 30 00 DE 18 50 46 8F |1.1:.17240...PF.| 000010C0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 000010D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 02 |**************..| 000010E0: 19 5A 46 8F 20 2A 20 53 41 56 45 20 2F 20 4C 4F |.ZF. * SAVE / LO| 000010F0: 41 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |AD | 00001100: 20 2A 00 26 19 64 46 8F 20 2A 2A 2A 2A 2A 2A 2A | *.&.dF. *******| 00001110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001120: 2A 2A 2A 2A 2A 2A 00 56 19 6E 46 99 22 11 1F 30 |******.V.nF."..0| 00001130: 4E 53 4B 45 53 20 44 45 52 20 42 41 41 4E 44 20 |NSKES DER BAAND | 00001140: 45 4C 4C 45 52 20 44 49 53 4B 20 20 20 42 2F 44 |ELLER DISK B/D| 00001150: 20 20 20 20 20 22 00 6B 19 6F 46 A1 51 24 3A 8B | ".k.oF.Q$:.| 00001160: 51 24 B2 22 22 A7 31 38 30 33 31 00 7E 19 70 46 |Q$."".18031.~.pF| 00001170: 8B 51 24 B2 22 42 22 A7 89 33 32 30 35 30 00 8F |.Q$."B"..32050..| 00001180: 19 78 46 97 31 39 32 2C 37 3A 97 31 2C 33 39 00 |.xF.192,7:.1,39.| 00001190: D6 19 82 46 99 22 11 1C 44 49 53 4B 20 3A 20 4D |...F."..DISK : M| 000011A0: 55 4C 49 47 45 20 4B 4F 4D 41 4E 44 4F 45 52 20 |ULIGE KOMANDOER | 000011B0: 3A 22 3A 99 22 11 1E 20 31 29 20 47 45 4D 20 44 |:":.".. 1) GEM D| 000011C0: 41 54 41 22 3A 99 22 11 20 32 29 20 48 45 4E 54 |ATA":.". 2) HENT| 000011D0: 20 44 41 54 41 22 00 14 1A 8C 46 85 22 11 1F 48 | DATA"....F."..H| 000011E0: 56 41 44 20 30 4E 53 4B 45 52 20 44 55 3A 20 22 |VAD 0NSKER DU: "| 000011F0: 3B 51 3A 99 22 56 45 4E 54 20 4C 49 44 54 20 3A |;Q:."VENT LIDT :| 00001200: 22 3A 91 51 20 89 20 31 38 30 37 30 2C 31 38 31 |":.Q . 18070,181| 00001210: 32 30 3A 8E 00 29 1A 96 46 97 31 2C 37 3A 81 49 |20:..)..F.1,7:.I| 00001220: B2 31 A4 32 30 30 30 3A 82 00 50 1A A0 46 9F 35 |.1.2000:..P..F.5| 00001230: 2C 38 2C 35 2C 22 40 30 3A 55 4E 49 46 49 4C 45 |,8,5,"@0:UNIFILE| 00001240: 2C 53 2C 57 22 3A 98 35 2C 49 54 2C 52 24 2C 58 |,S,W":.5,IT,R$,X| 00001250: 00 80 1A AA 46 81 49 B2 30 A4 49 54 AB 31 3A 98 |....F.I.0.IT.1:.| 00001260: 35 2C 41 24 28 49 29 3A 81 4A B2 30 A4 58 AB 31 |5,A$(I):.J.0.X.1| 00001270: 3A 98 35 2C 41 25 28 49 2C 4A 29 3A 82 4A 2C 49 |:.5,A%(I,J):.J,I| 00001280: 00 98 1A B4 46 81 49 B2 30 A4 58 AB 31 3A 98 35 |....F.I.0.X.1:.5| 00001290: 2C 42 24 28 49 29 3A 82 00 A1 1A BE 46 A0 35 3A |,B$(I):.....F.5:| 000012A0: 8E 00 D7 1A C8 46 9F 35 2C 38 2C 35 2C 22 55 4E |.....F.5,8,5,"UN| 000012B0: 49 46 49 4C 45 2C 53 2C 52 22 3A 84 35 2C 49 54 |IFILE,S,R":.5,IT| 000012C0: 2C 58 3A 86 42 24 28 58 AB 31 29 2C 41 25 28 34 |,X:.B$(X.1),A%(4| 000012D0: 39 39 2C 58 AB 31 29 00 E5 1A D2 46 81 49 B2 30 |99,X.1)....F.I.0| 000012E0: A4 49 54 AB 31 00 11 1B D4 46 A1 23 35 2C 54 24 |.IT.1....F.#5,T$| 000012F0: 3A 8B 54 24 B3 B1 C7 28 31 33 29 A7 41 24 28 49 |:.T$...(13).A$(I| 00001300: 29 B2 41 24 28 49 29 AA 54 24 3A 89 31 38 31 33 |).A$(I).T$:.1813| 00001310: 32 00 2E 1B D6 46 81 4A B2 30 A4 58 AB 31 3A 84 |2....F.J.0.X.1:.| 00001320: 35 2C 41 25 28 49 2C 4A 29 3A 82 4A 2C 49 00 46 |5,A%(I,J):.J,I.F| 00001330: 1B DC 46 81 49 B2 30 A4 58 AB 31 3A 84 35 2C 42 |..F.I.0.X.1:.5,B| 00001340: 24 28 49 29 3A 82 00 4F 1B E6 46 A0 35 3A 8E 00 |$(I):..O..F.5:..| 00001350: 78 1B 30 75 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D |x.0u."..........| 00001360: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 56 45 4E 54 22 3A |..........VENT":| 00001370: 97 35 33 32 38 31 2C 30 00 9E 1B 3A 75 99 22 13 |.53281,0...:u.".| 00001380: 90 4C 4F 41 44 22 3B C7 28 33 34 29 3B 22 4D 45 |.LOAD";.(34);"ME| 00001390: 4E 55 22 3B C7 28 33 34 29 3B 22 2C 38 22 00 BA |NU";.(34);",8"..| 000013A0: 1B 44 75 97 36 33 31 2C 31 39 3A 97 36 33 32 2C |.Du.631,19:.632,| 000013B0: 31 33 3A 97 36 33 33 2C 38 32 00 D6 1B 4E 75 97 |13:.633,82...Nu.| 000013C0: 36 33 34 2C 38 35 3A 97 36 33 35 2C 37 38 3A 97 |634,85:.635,78:.| 000013D0: 36 33 36 2C 31 33 00 E4 1B 58 75 97 31 39 38 2C |636,13...Xu.198,| 000013E0: 36 20 3A 80 00 08 1C 18 79 8F 20 2A 2A 2A 2A 2A |6 :.....y. *****| 000013F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001400: 2A 2A 2A 2A 2A 2A 2A 2A 00 2C 1C 22 79 8F 20 2A |********.,."y. *| 00001410: 20 53 30 47 45 53 59 53 54 45 4D 20 20 20 20 20 | S0GESYSTEM | 00001420: 20 20 20 20 20 20 20 20 20 20 20 2A 00 50 1C 2C | *.P.,| 00001430: 79 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |y. *************| 00001440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001450: 00 79 1C 36 79 53 31 B2 30 3A 46 46 B2 30 3A 99 |.y.6yS1.0:FF.0:.| 00001460: 22 93 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............| 00001470: 1D 1D 1D 1C 12 53 30 47 45 00 95 1C 40 79 99 22 |.....S0GE...@y."| 00001480: 11 1F 4D 55 4C 49 47 45 20 4B 4F 4D 41 4E 44 4F |..MULIGE KOMANDO| 00001490: 45 52 20 3A 22 00 BF 1C 4A 79 99 22 11 20 90 3E |ER :"...Jy.". .>| 000014A0: 1E 20 53 4B 52 49 56 20 46 45 4C 54 20 54 49 4C |. SKRIV FELT TIL| 000014B0: 20 4E 4F 52 4D 41 4C 20 53 30 47 4E 49 4E 47 00 | NORMAL S0GNING.| 000014C0: EF 1C 54 79 99 22 11 20 90 3E 1E 20 4D 45 44 20 |..Ty.". .>. MED | 000014D0: 27 49 49 49 27 20 46 4F 52 41 4E 20 46 4F 52 20 |'III' FORAN FOR | 000014E0: 49 4E 49 54 49 41 4C 20 53 30 47 4E 49 4E 47 00 |INITIAL S0GNING.| 000014F0: 1F 1D 5E 79 99 22 11 20 90 3E 1E 20 4D 45 44 20 |..^y.". .>. MED | 00001500: 27 53 53 53 27 20 46 4F 52 41 4E 20 46 4F 52 20 |'SSS' FORAN FOR | 00001510: 53 50 45 43 49 41 4C 20 53 30 47 4E 49 4E 47 00 |SPECIAL S0GNING.| 00001520: 4C 1D 68 79 99 22 11 20 90 3E 1E 20 27 52 45 54 |L.hy.". .>. 'RET| 00001530: 55 52 4E 27 20 46 4F 52 20 46 30 52 53 54 45 20 |URN' FOR F0RSTE | 00001540: 44 41 54 41 20 49 20 46 49 4C 45 4E 00 80 1D 72 |DATA I FILEN...r| 00001550: 79 99 22 11 11 9C D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |y.".............| 00001560: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 |................| 00001570: D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 D1 22 3B |..............";| 00001580: 00 A9 1D 7C 79 54 31 24 B2 22 22 3A 85 22 91 91 |...|yT1$."":."..| 00001590: 1F 53 4B 52 49 56 20 53 30 47 45 20 43 4F 4D 41 |.SKRIV S0GE COMA| 000015A0: 4E 44 4F 3A 22 3B 54 31 24 00 C4 1D 86 79 8B C8 |NDO:";T1$....y..| 000015B0: 28 54 31 24 2C 33 29 B3 B1 22 49 49 49 22 A7 33 |(T1$,3).."III".3| 000015C0: 31 31 34 30 00 F4 1D 90 79 54 31 24 B2 C9 28 54 |1140....yT1$..(T| 000015D0: 31 24 2C C3 28 54 31 24 29 AB 33 29 3A 8D 31 34 |1$,.(T1$).3):.14| 000015E0: 30 30 30 3A 53 31 B2 53 53 3A 8B 53 31 B1 49 54 |000:S1.SS:.S1.IT| 000015F0: AB 31 A7 8E 00 FF 1D 9A 79 89 33 31 32 34 30 00 |.1......y.31240.| 00001600: 1B 1E A4 79 8B C8 28 54 31 24 2C 33 29 B3 B1 22 |...y..(T1$,3).."| 00001610: 53 53 53 22 A7 20 33 31 31 39 30 00 51 1E AE 79 |SSS". 31190.Q..y| 00001620: 46 46 B2 30 3A 54 31 24 B2 C9 28 54 31 24 2C C3 |FF.0:T1$..(T1$,.| 00001630: 28 54 31 24 29 AB 33 29 3A 81 49 B2 53 31 A4 49 |(T1$).3):.I.S1.I| 00001640: 54 AB 31 3A 81 4A B2 31 A4 C3 28 41 24 28 49 29 |T.1:.J.1..(A$(I)| 00001650: 29 00 89 1E B8 79 8B 20 CA 28 41 24 28 49 29 2C |)....y. .(A$(I),| 00001660: 4A 2C C3 28 54 31 24 29 29 B2 54 31 24 A7 46 46 |J,.(T1$)).T1$.FF| 00001670: B2 31 3A 53 31 B2 49 3A 4A B2 C3 28 41 24 28 49 |.1:S1.I:J..(A$(I| 00001680: 29 29 3A 49 B2 49 54 AB 31 00 AD 1E C2 79 82 4A |)):I.IT.1....y.J| 00001690: 2C 49 3A 8B 46 46 B2 31 A7 54 31 24 B2 22 53 53 |,I:.FF.1.T1$."SS| 000016A0: 53 22 AA 54 31 24 3A 89 33 31 32 34 30 00 B3 1E |S".T1$:.31240...| 000016B0: CC 79 8E 00 C5 1E D6 79 8B 54 31 24 B2 22 22 A7 |.y.....y.T1$."".| 000016C0: 33 31 32 34 30 00 E7 1E E0 79 46 46 B2 30 3A 81 |31240....yFF.0:.| 000016D0: 49 B2 53 31 A4 49 54 AB 31 3A 50 50 B2 30 3A 81 |I.S1.IT.1:PP.0:.| 000016E0: 4A B2 30 A4 58 AB 31 00 23 1F EA 79 8B 20 CA 28 |J.0.X.1.#..y. .(| 000016F0: 41 24 28 49 29 2C 50 50 AA 31 2C 41 25 28 49 2C |A$(I),PP.1,A%(I,| 00001700: 4A 29 AB 50 50 29 B2 54 31 24 20 A7 20 46 46 B2 |J).PP).T1$ . FF.| 00001710: 31 3A 53 31 B2 49 3A 4A B2 58 AB 31 3A 49 B2 49 |1:S1.I:J.X.1:I.I| 00001720: 54 AB 31 00 44 1F F4 79 50 50 B2 41 25 28 49 2C |T.1.D..yPP.A%(I,| 00001730: 4A 29 3A 82 4A 3A 82 49 3A 8B 46 46 B2 31 A7 33 |J):.J:.I:.FF.1.3| 00001740: 31 32 34 30 00 4A 1F FE 79 8E 00 61 1F 08 7A 8B |1240.J..y..a..z.| 00001750: 20 53 31 B1 49 54 AB 31 A7 20 53 31 B2 49 54 AB | S1.IT.1. S1.IT.| 00001760: 31 00 6F 1F 12 7A 8B 20 49 54 B2 30 A7 20 8E 00 |1.o..z. IT.0. ..| 00001770: 7E 1F 1C 7A 8B 53 31 B3 30 A7 53 31 B2 30 00 AE |~..z.S1.0.S1.0..| 00001780: 1F 26 7A A0 34 3A 9F 34 2C 34 3A 98 34 3A 98 34 |.&z.4:.4,4:.4:.4| 00001790: 3A 98 34 2C 22 93 11 1C 4B 4F 52 54 20 22 3B 53 |:.4,"...KORT ";S| 000017A0: 31 AA 31 3B 22 3A 2D 11 22 3A 50 50 B2 30 00 F1 |1.1;":-.":PP.0..| 000017B0: 1F 30 7A 81 49 B2 30 A4 58 AB 31 3A 98 34 2C 42 |.0z.I.0.X.1:.4,B| 000017C0: 24 28 49 29 3B C8 28 51 57 24 2C 31 35 AB C3 28 |$(I);.(QW$,15..(| 000017D0: 42 24 28 49 29 29 29 CA 28 41 24 28 53 31 29 2C |B$(I))).(A$(S1),| 000017E0: 50 50 AA 31 2C 41 25 28 53 31 2C 49 29 AB 50 50 |PP.1,A%(S1,I).PP| 000017F0: 29 00 2C 20 3A 7A 50 50 B2 41 25 28 53 31 2C 49 |)., :zPP.A%(S1,I| 00001800: 29 3A 82 49 3A 53 31 B2 53 31 AA 31 3A 99 22 13 |):.I:S1.S1.1:.".| 00001810: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D |................| 00001820: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 67 20 44 |...........".g D| 00001830: 7A 99 22 1C 4D 55 4C 49 47 45 20 53 30 47 45 20 |z.".MULIGE S0GE | 00001840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001850: 20 20 20 20 20 20 20 20 20 20 20 20 4B 4F 4D 41 | KOMA| 00001860: 4E 44 4F 45 52 3A 22 00 8C 20 4E 7A 99 22 11 20 |NDOER:".. Nz.". | 00001870: 90 3E 9C 20 27 52 45 54 55 52 4E 27 20 46 4F 52 |.>. 'RETURN' FOR| 00001880: 20 4E 41 45 53 54 45 20 4B 4F 52 54 00 AA 20 58 | NAESTE KORT.. X| 00001890: 7A 99 22 20 90 3E 9C 20 27 41 41 41 27 20 46 4F |z." .>. 'AAA' FO| 000018A0: 52 20 41 54 20 52 45 54 54 45 00 CD 20 62 7A 99 |R AT RETTE.. bz.| 000018B0: 22 20 90 3E 9C 20 27 43 43 43 27 20 46 4F 52 20 |" .>. 'CCC' FOR | 000018C0: 41 54 20 53 30 47 45 20 56 49 44 52 45 00 FD 20 |AT S0GE VIDRE.. | 000018D0: 6C 7A 99 22 20 90 3E 9C 20 27 23 27 20 20 20 2B |lz." .>. '#' +| 000018E0: 2F 2D 20 20 4E 52 2E 20 46 4F 52 20 41 54 20 46 |/- NR. FOR AT F| 000018F0: 4C 59 54 54 45 20 50 4F 49 4E 54 45 52 00 27 21 |LYTTE POINTER.'!| 00001900: 76 7A 99 22 20 90 3E 9C 20 27 5A 5A 5A 27 20 46 |vz." .>. 'ZZZ' F| 00001910: 4F 52 20 41 54 20 53 4C 55 54 54 45 20 46 55 4E |OR AT SLUTTE FUN| 00001920: 4B 54 49 4F 4E 45 4E 00 4A 21 80 7A 50 24 B2 22 |KTIONEN.J!.zP$."| 00001930: 22 3A 85 22 11 1F 48 56 41 44 20 30 4E 53 4B 45 |":."..HVAD 0NSKE| 00001940: 52 20 44 55 20 3A 22 3B 50 24 00 60 21 8A 7A 8B |R DU :";P$.`!.z.| 00001950: 20 50 24 B2 22 43 43 43 22 A7 20 33 31 31 31 30 | P$."CCC". 31110| 00001960: 00 73 21 94 7A 8B 20 50 24 B2 22 22 A7 20 33 31 |.s!.z. P$."". 31| 00001970: 32 34 30 00 91 21 9E 7A 8B 20 50 24 B2 22 41 41 |240..!.z. P$."AA| 00001980: 41 22 A7 20 8D 31 36 30 30 30 3A 89 33 31 32 34 |A". .16000:.3124| 00001990: 30 00 A8 21 A8 7A 8B 20 50 24 B2 22 5A 5A 5A 22 |0..!.z. P$."ZZZ"| 000019A0: A7 20 A0 34 3A 20 20 8E 00 D5 21 B2 7A 8B 20 C8 |. .4: ...!.z. .| 000019B0: 28 50 24 2C 31 29 B2 22 23 22 20 A7 53 31 B2 53 |(P$,1)."#" .S1.S| 000019C0: 31 AA C5 28 CA 28 50 24 2C 32 29 29 AB 31 3A 89 |1..(.(P$,2)).1:.| 000019D0: 33 31 32 34 30 00 E8 21 BC 7A 53 31 B2 53 31 AB |31240..!.zS1.S1.| 000019E0: 31 3A 89 33 31 32 34 30 00 30 22 32 7D 99 22 11 |1:.31240.0"2}.".| 000019F0: 1C 42 41 41 4E 44 20 3A 20 4D 55 4C 49 47 45 20 |.BAAND : MULIGE | 00001A00: 4B 4F 4D 41 4E 44 4F 45 52 20 3A 22 3A 99 22 11 |KOMANDOER :":.".| 00001A10: 1E 20 31 29 20 47 45 4D 20 44 41 54 41 22 3A 99 |. 1) GEM DATA":.| 00001A20: 22 11 20 32 29 20 48 45 4E 54 20 44 41 54 41 22 |". 2) HENT DATA"| 00001A30: 00 73 22 3C 7D 85 22 11 1F 48 56 41 44 20 30 4E |.s"<}."..HVAD 0N| 00001A40: 53 4B 45 52 20 44 55 3A 20 22 3B 51 3A 99 22 56 |SKER DU: ";Q:."V| 00001A50: 45 4E 54 20 4C 49 44 54 20 3A 20 22 3A 91 51 20 |ENT LIDT : ":.Q | 00001A60: 89 20 33 32 30 37 30 2C 33 32 31 32 30 3A 52 45 |. 32070,32120:RE| 00001A70: 54 55 52 00 88 22 46 7D 97 31 2C 37 3A 81 49 B2 |TUR.."F}.1,7:.I.| 00001A80: 31 A4 32 30 30 30 3A 82 00 A8 22 50 7D 9F 35 2C |1.2000:..."P}.5,| 00001A90: 31 2C 31 2C 22 55 4E 49 46 49 4C 45 22 3A 98 35 |1,1,"UNIFILE":.5| 00001AA0: 2C 49 54 2C 52 24 2C 58 00 D8 22 5A 7D 81 49 B2 |,IT,R$,X.."Z}.I.| 00001AB0: 30 A4 49 54 AB 31 3A 98 35 2C 41 24 28 49 29 3A |0.IT.1:.5,A$(I):| 00001AC0: 81 4A B2 30 A4 58 AB 31 3A 98 35 2C 41 25 28 49 |.J.0.X.1:.5,A%(I| 00001AD0: 2C 4A 29 3A 82 4A 2C 49 00 F0 22 64 7D 81 49 B2 |,J):.J,I.."d}.I.| 00001AE0: 30 A4 58 AB 31 3A 98 35 2C 42 24 28 49 29 3A 82 |0.X.1:.5,B$(I):.| 00001AF0: 00 F9 22 6E 7D A0 35 3A 8E 00 2B 23 78 7D 9F 35 |.."n}.5:..+#x}.5| 00001B00: 2C 31 2C 30 2C 22 55 4E 49 46 49 4C 45 22 3A 84 |,1,0,"UNIFILE":.| 00001B10: 35 2C 49 54 2C 58 3A 86 42 24 28 58 AB 31 29 2C |5,IT,X:.B$(X.1),| 00001B20: 41 25 28 34 39 39 2C 58 AB 31 29 00 39 23 82 7D |A%(499,X.1).9#.}| 00001B30: 81 49 B2 30 A4 49 54 AB 31 00 65 23 84 7D A1 23 |.I.0.IT.1.e#.}.#| 00001B40: 35 2C 54 24 3A 8B 54 24 B3 B1 C7 28 31 33 29 A7 |5,T$:.T$...(13).| 00001B50: 41 24 28 49 29 B2 41 24 28 49 29 AA 54 24 3A 89 |A$(I).A$(I).T$:.| 00001B60: 33 32 31 33 32 00 82 23 86 7D 81 4A B2 30 A4 58 |32132..#.}.J.0.X| 00001B70: AB 31 3A 84 35 2C 41 25 28 49 2C 4A 29 3A 82 4A |.1:.5,A%(I,J):.J| 00001B80: 2C 49 00 9A 23 8C 7D 81 49 B2 30 A4 58 AB 31 3A |,I..#.}.I.0.X.1:| 00001B90: 84 35 2C 42 24 28 49 29 3A 82 00 A3 23 96 7D A0 |.5,B$(I):...#.}.| 00001BA0: 35 3A 8E 00 AE FF |5:.... |
..%..*. *****************************.I.
.+. * MENU *.M..+.
*****************************....+.53281
,7:.".................DATABASE"....+QW$.
" "... +."...
MULIGE KOMANDOER :"...*+."... 1) IN
DSKRIV INFORMATION".".4+.". 2) S0GE/VI
SE/SKIFTE".:.>+.". 3) SAVE/LOADE.[.H+.
". 4) OPRET NYT KARTOTEK"..R+.". 5)
STOP " :.". 6) PRINT...\+.".. ...
SKRIV DIT VALG :";Z:.".";.E.F+. Z.
3 .IN.1.11140...P+."...............IKKE
INITIALISERET ENDNU ":.I.1.1500:....Z+.1
1000.>..+.Z.13000,17000,18000,12000,1115
0,31000:.11000.Q..+."...................
.DATABASEN LUKKET":.30000...... ********
*********************...... * STRUKTURER
DATA FILEN *...... ****************
*************......:.A$(499):.".........
........FIL STRUKTUR":IN.1:R$.G(13)._../
."..LOADER DU FRA BAAND/DISK NU (J/N)";Q
$:.Q$."J".11000R$.G(13)..../."...HVORMAN
GE FELTER I HVERT KORT:";X:.B$(X.1),A%(4
99,X.1).R../.".";:.I.0.X.1:.".FELT TEKST
";D(I.1);":";:.Q$..../B$(I).Q$:.I:.1100
0...H2. *****************************.1.
R2. * INPUT NYE DATA TIL KORT *.U..2.
*****************************.~..2T1$.""
:."..................NYE DATA"....2."...
......";IT;" KORT INDTIL NU".L..2."..
MULIGE KOMANDOER : "....3.".. >.
SKRIV KORT....3.".. >. 'ZZZ' RETUR TIL
MENY..".C..3. I.0.X.1:.B$(I);H(QW$,15.C(
B$(I)))":";:.Q$:.Q$."ZZZ"...`."3.C(T1$).
C(Q$)..255.13110...,3.".TEKST FOR LANG":
.J.1.3000:.J:....63T1$.T1$.Q$:TI%(I).C(T
1$):.I:."..VENT".I.@3.14000:.15000:.1300
0....6. *****************************...
.6. * BINAERT S0GE-SYSTEM *.5.D6.
*****************************.F.N6.IT.0.
SS.0:..E.X6PO..(.(IT)..(2)):SS.2.PO.1.T.
.6.I.PO.0..1....6.A$(SS).T1$.SS.SS.2.I..
..6.A$(SS).T1$.SS.SS.2.I....7.SS.0.SS.0.
L..7.SS.IT.1.SS.IT.1....7.I:.A$(SS).T1$.
SS.SS.1....7.....:. ********************
*********.5..:. * INDSAET
*.Y..:. ****************************
*.J..:.IT.0..15060....:.I.IT.SS.1..1:A$(
I).A$(I.1)...J:. J.0.X.1:A%(I,J).A%(I.1,
J):.J,I...T:A$(SS).T1$:.I.0.X.1:A%(SS,I)
.TI%(I):.:IT.IT.1:.....>. **************
***************.+..>. * SKIFTE KORT UD M
ED NY TE. *.O..>. **********************
*******.B..>S1.S1.1:T1$.""....>PP.0:.I.0
.X.1:."...KORT ";S1.1;":-.".M..>.".";B$(
I);H(QW$,15.C(B$(I)));":.";J(A$(S1),PP.1
,A%(S1,I).PP)....>."....................
..........S0GE...F>.".. MULIGE KOMANDOER
:".4.P>.". .> .'RETURN' BEHOLD TEKST.Y.Z
>." .> .SKRIV NY TEKST TIL KORTET.|..>."
.> .'DDD' FJERN HELE KORTET....>." .> .
'ZZZ' BEHOLD TEKST....>Q$."":."..HVAD 0N
SKER DU:";Q$.M..?.Q$."ZZZ". .....?.Q$.""
. Q$.J(A$(S1),PP.1,A%(S1,I).PP)....?. Q$
."DDD". . 16180:..K. ?PP.A%(S1,I):T1$.T1
$.Q$:TI%(I).C(T1$):.I:.16180:.14000.^.*?
S1.SS:.15000:....4?.J.S1.IT.1:A$(J).A$(J
.1):.K.0.X.1:A%(J,K).A%(J.1,K):.K,J...>?
IT.IT.1:..M.HB. ************************
*****...RB. * S0GESYSTEM
*...|B. *****************************.>.
.BS1.0:FF.0:."....................S0GE.Z
..B."..MULIGE KOMANDOER :"....B.". .>. S
KRIV FELT TIL NORMAL S0GNING....B.". .>.
MED 'III' FORAN FOR INITIAL S0GNING....
B.". .>. MED 'SSS' FORAN FOR SPECIAL S0G
NING....B.". .>. 'RETURN' FOR F0RSTE DAT
A I FILEN.E.BB."...QQQQQQQQQQQQQQQQQQQQQ
QQQQQQQQQQQQQQQQQQQ";.N.LBT1$."":."...SK
RIV S0GE COMANDO:";T1$...VB.H(T1$,3).."I
II".17140....BT1$.I(T1$,C(T1$).3):.14000
:S1.SS:.S1.IT.1...D..B.17240....B.H(T1$,
3).."SSS". 17190....BFF.0:T1$.I(T1$,C(T1
$).3):.I.S1.IT.1:.J.1.C(A$(I)).N..C. J(A
$(I),J,C(T1$)).T1$.FF.1:S1.I:J.C(A$(I)):
I.IT.1.R..C.J,I:.FF.1.T1$."SSS".T1$:.172
40.X..C....&C.T1$."".17240...0CFF.0:.I.S
1.IT.1:PP.0:.J.0.X.1...:C. J(A$(I),PP.1,
A%(I,J).PP).T1$ . FF.1:S1.I:J.X.1:I.IT.1
...DCPP.A%(I,J):.J:.I:.FF.1.17240...NC..
&.XC. S1.IT.1. S1.IT.1.4.BC. IT.0. ..C.L
C.S1.0.S1.0.C.VC."...KORT ";S1.1;":-.":P
P.0....C.I.0.X.1:.".";B$(I);H(QW$,15.C(B
$(I)))".";J(A$(S1),PP.1,A%(S1,I).PP)....
CPP.A%(S1,I):.I:S1.S1.1:."..............
.............."....C.".S0GE KOMANDO:".".
.C.". .>. 'RETURN' FOR NAESTE KORT.@..C.
" .>. 'AAA' FOR AT RETTE.C..C." .>. 'CCC
' FOR AT S0GE VIDRE....C." .>. '#' +/-
NR. FOR AT FLYTTE POINTER...FC." .>. '
ZZZ' FOR AT SLUTTE FUNKTIONEN...GC." .>.
'P' 0NSKES DER UDSKRIFT"...PCP$."":."
..HVAD 0NSKER DU :";P$...ZC. P$."CCC". 1
7110./..C. P$."". 17240.J..C.P$."P".S1.S
1.1:.31270.H..C. P$."AAA". .16000:.17240
.Z..C. P$."ZZZ". .....D. H(P$,1)."#" .S1
.S1.E(J(P$,2)).1:.17240....DS1.S1.1:.172
40...PF. *****************************..
.ZF. * SAVE / LOAD *.&.DF.
*****************************.V.NF."..0
NSKES DER BAAND ELLER DISK B/D ".K
.OF.Q$:.Q$."".18031.~.PF.Q$."B"..32050..
.XF.192,7:.1,39.V..F."..DISK : MULIGE KO
MANDOER :":.".. 1) GEM DATA":.". 2) HENT
DATA"....F."..HVAD 0NSKER DU: ";Q:."VEN
T LIDT :":.Q . 18070,18120:..)..F.1,7:.I
.1.2000:..P. F.5,8,5,"@0:UNIFILE,S,W":.5
,IT,R$,X....F.I.0.IT.1:.5,A$(I):.J.0.X.1
:.5,A%(I,J):.J,I....F.I.0.X.1:.5,B$(I):.
....F 5:..W.HF.5,8,5,"UNIFILE,S,R":.5,IT
,X:.B$(X.1),A%(499,X.1)...RF.I.0.IT.1...
TF.#5,T$:.T$..G(13).A$(I).A$(I).T$:.1813
2...VF.J.0.X.1:.5,A%(I,J):.J,I.F..F.I.0.
X.1:.5,B$(I):..O..F 5:..X.0U."..........
..........VENT":.53281,0...:U."..LOAD";G
(34);"MENU";G(34);",8"...DU.631,19:.632,
13:.633,82.V.NU.634,85:.635,78:.636,13..
.XU.198,6 :.....Y. *********************
********.,."Y. * S0GESYSTEM
*.P.,Y. *****************************
.Y.6YS1.0:FF.0:."....................S0G
E...@Y."..MULIGE KOMANDOER :"...JY.". .>
. SKRIV FELT TIL NORMAL S0GNING...TY.".
.>. MED 'III' FORAN FOR INITIAL S0GNING.
..^Y.". .>. MED 'SSS' FORAN FOR SPECIAL
S0GNING.L.HY.". .>. 'RETURN' FOR F0RSTE
DATA I FILEN...RY."...QQQQQQQQQQQQQQQQQQ
QQQQQQQQQQQQQQQQQQQQQQ";...|YT1$."":."..
.SKRIV S0GE COMANDO:";T1$.D..Y.H(T1$,3).
."III".31140....YT1$.I(T1$,C(T1$).3):.14
000:S1.SS:.S1.IT.1......Y.31240....Y.H(T
1$,3).."SSS". 31190.Q..YFF.0:T1$.I(T1$,C
(T1$).3):.I.S1.IT.1:.J.1.C(A$(I))....Y.
J(A$(I),J,C(T1$)).T1$.FF.1:S1.I:J.C(A$(I
)):I.IT.1...BY.J,I:.FF.1.T1$."SSS".T1$:.
31240...LY..E.VY.T1$."".31240....YFF.0:.
I.S1.IT.1:PP.0:.J.0.X.1.#..Y. J(A$(I),PP
.1,A%(I,J).PP).T1$ . FF.1:S1.I:J.X.1:I.I
T.1.D..YPP.A%(I,J):.J:.I:.FF.1.31240.J..
Y..A..Z. S1.IT.1. S1.IT.1.O..Z. IT.0. ..
~..Z.S1.0.S1.0...&Z 4:.4,4:.4:.4:.4,"...
KORT ";S1.1;":-.":PP.0...0Z.I.0.X.1:.4,B
$(I);H(QW$,15.C(B$(I)))J(A$(S1),PP.1,A%(
S1,I).PP)., :ZPP.A%(S1,I):.I:S1.S1.1:.".
...........................".G DZ.".MULI
GE S0GE KOMA
NDOER:".. NZ.". .>. 'RETURN' FOR NAESTE
KORT.. XZ." .>. 'AAA' FOR AT RETTE.M BZ.
" .>. 'CCC' FOR AT S0GE VIDRE.. LZ." .>.
'#' +/- NR. FOR AT FLYTTE POINTER.'!
VZ." .>. 'ZZZ' FOR AT SLUTTE FUNKTIONEN.
J!.ZP$."":."..HVAD 0NSKER DU :";P$.`!.Z.
P$."CCC". 31110.S!.Z. P$."". 31240..!.Z
. P$."AAA". .16000:.31240..!.Z. P$."ZZZ"
. 4: ..U!.Z. H(P$,1)."#" .S1.S1.E(J(P$
,2)).1:.31240..!.ZS1.S1.1:.31240.0"2}.".
.BAAND : MULIGE KOMANDOER :":.".. 1) GEM
DATA":.". 2) HENT DATA".S"<}."..HVAD 0N
SKER DU: ";Q:."VENT LIDT : ":.Q . 32070,
32120:RETUR.."F}.1,7:.I.1.2000:..."P}.5,
1,1,"UNIFILE":.5,IT,R$,X.X"Z}.I.0.IT.1:.
5,A$(I):.J.0.X.1:.5,A%(I,J):.J,I.."D}.I.
0.X.1:.5,B$(I):..."N} 5:..+#X}.5,1,0,"UN
IFILE":.5,IT,X:.B$(X.1),A%(499,X.1).9#.}
.I.0.IT.1.E#.}.#5,T$:.T$..G(13).A$(I).A$
(I).T$:.32132..#.}.J.0.X.1:.5,A%(I,J):.J
,I..#.}.I.0.X.1:.5,B$(I):...#.} 5:....
> CLICK IMAGE PREVIEW FOR FULL MODAL