BASE-MAGER
FILE INFORMATION
FILENAME(S): BASE-MAGER
FILE TYPE(S): PRG
FILE SIZE: 7.9K
FIRST SEEN: 2025-11-30 19:47:41
APPEARS ON: 3 disk(s)
FILE HASH
8b2cf6229b6bacef2786ec92f4e97164c8b311bdfeb35af239375ab38b5db34e
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COPY | BASE-MAGER | PRG | Curtcool, Frank | 17 | 0 | DOWNLOAD FILE |
| FRA RUN 3 1 2 85 | BASE-MAGER | PRG | Curtcool, Hans Curt | 17 | 0 | DOWNLOAD FILE |
| BEDSTE PROGAM | BASE-MAGER | PRG | Curtcool, LPN | 21 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 0A 00 99 20 C7 28 31 34 29 00 18 08 |....... .(14)...|
00000010: 14 00 99 20 C7 28 38 29 00 4B 08 32 00 5A 24 B2 |... .(8).K.2.Z$.|
00000020: 22 20 12 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |" ..............|
00000030: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000040: C0 C0 C0 C0 C0 C0 C0 C0 AE 92 22 00 7F 08 33 00 |.........."...3.|
00000050: 5A 5A 24 B2 22 20 12 20 20 20 20 20 20 20 20 20 |ZZ$." . |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 00 | .".|
00000080: B3 08 34 00 58 5A 24 B2 22 20 12 AD C0 C0 C0 C0 |..4.XZ$." ......|
00000090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000B0: BD 92 22 00 CB 08 64 00 8F 20 2A 2A 2A 20 42 41 |.."...d.. *** BA|
000000C0: 53 45 4D 41 47 45 52 20 2A 2A 2A 00 E4 08 68 00 |SEMAGER ***...h.|
000000D0: 56 28 31 29 B2 30 3A 56 28 32 29 B2 30 3A 56 28 |V(1).0:V(2).0:V(|
000000E0: 33 29 B2 31 00 0B 09 6A 00 97 20 35 33 32 38 30 |3).1...j.. 53280|
000000F0: 2C 56 28 31 29 3A 97 35 33 32 38 31 2C 56 28 32 |,V(1):.53281,V(2|
00000100: 29 3A 97 36 34 36 2C 56 28 33 29 00 23 09 6C 00 |):.646,V(3).#.l.|
00000110: 99 22 93 11 22 3A 99 5A 24 3A 99 5A 5A 24 3A 99 |."..":.Z$:.ZZ$:.|
00000120: 58 5A 24 00 51 09 6D 00 99 22 1D 1D 91 91 12 20 |XZ$.Q.m.."..... |
00000130: 20 20 20 20 C2 C1 D3 C5 CD C1 C7 C5 D2 A0 2A 2A | ..........**|
00000140: 20 C6 C1 D2 D6 C5 CA D5 D3 D4 C5 D2 C9 CE C7 20 | .............. |
00000150: 22 00 8D 09 6E 00 99 22 11 11 11 11 1D 1D 1D 1D |"...n.."........|
00000160: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 46 31 92 3A 20 |...........F1.: |
00000170: CB 41 4E 54 11 11 9D 9D 9D 9D 9D 9D 9D 9D 12 46 |.ANT...........F|
00000180: 33 92 3A 20 C2 41 47 47 52 55 4E 44 22 00 CA 09 |3.: .AGGRUND"...|
00000190: 6F 00 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |o.."............|
000001A0: 1D 1D 20 12 46 35 92 3A 20 D3 4B 52 49 46 54 11 |.. .F5.: .KRIFT.|
000001B0: 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 12 46 37 92 3A |............F7.:|
000001C0: 20 D4 49 4C 20 42 41 53 45 22 00 E4 09 70 00 99 | .IL BASE"...p..|
000001D0: 22 11 11 11 11 11 11 22 5A 24 3A 99 5A 5A 24 3A |"......"Z$:.ZZ$:|
000001E0: 99 58 5A 24 00 0D 0A 71 00 99 22 1D 1D 91 91 12 |.XZ$...q..".....|
000001F0: 20 20 20 20 20 20 D6 5B 4C 47 20 56 45 44 20 46 | .[LG VED F|
00000200: 55 4E 4B 54 49 4F 4E 53 54 41 53 54 22 00 18 0A |UNKTIONSTAST"...|
00000210: 82 00 A1 20 4B 45 59 24 00 2F 0A 83 00 4B B2 C6 |... KEY$./...K..|
00000220: 28 4B 45 59 24 AA C7 28 30 29 29 AB 31 33 32 00 |(KEY$..(0)).132.|
00000230: 44 0A 84 00 8B 4B B3 31 20 B0 20 4B B1 34 20 A7 |D....K.1 . K.4 .|
00000240: 20 31 33 30 00 53 0A 85 00 8B 4B B2 34 20 A7 20 | 130.S....K.4 . |
00000250: 31 35 30 00 73 0A 86 00 56 28 4B 29 B2 56 28 4B |150.s...V(K).V(K|
00000260: 29 AA 31 3A 8B 56 28 4B 29 B2 31 36 A7 56 28 4B |).1:.V(K).16.V(K|
00000270: 29 B2 30 00 7C 0A 87 00 89 31 30 36 00 92 0A 96 |).0.|....106....|
00000280: 00 99 22 93 11 22 5A 24 3A 99 5A 5A 24 3A 99 58 |..".."Z$:.ZZ$:.X|
00000290: 5A 24 00 B9 0A 9B 00 99 22 1D 1D 91 91 12 20 20 |Z$......"..... |
000002A0: 20 20 20 20 20 20 20 20 D6 41 4C 47 20 41 46 20 | .ALG AF |
000002B0: 44 41 54 41 42 41 53 45 22 00 CD 0A C8 00 8F 20 |DATABASE"...... |
000002C0: 2A 2A 2A 2A 4F 50 53 5B 54 4E 49 4E 47 00 DB 0A |****OPS[TNING...|
000002D0: CA 00 43 52 24 B2 C7 28 31 33 29 00 E8 0A CC 00 |..CR$..(13).....|
000002E0: 9F 20 31 2C 38 2C 31 35 00 1C 0B CE 00 99 22 11 |. 1,8,15......".|
000002F0: 11 11 11 11 1D 1D D3 4B 52 49 56 20 42 41 53 45 |.......KRIV BASE|
00000300: 4E 41 56 4E 2C 20 48 56 49 53 20 44 45 54 20 45 |NAVN, HVIS DET E|
00000310: 4B 53 49 53 54 45 52 45 52 22 3A 99 00 42 0B CF |KSISTERER":..B..|
00000320: 00 99 22 20 20 D4 52 59 4B 20 12 52 45 54 55 52 |.." .RYK .RETUR|
00000330: 4E 92 2C 20 48 56 49 53 20 44 55 20 56 49 4C 22 |N., HVIS DU VIL"|
00000340: 3A 99 00 5F 0B D0 00 85 22 20 20 4F 50 52 45 54 |:.._...." OPRET|
00000350: 54 45 20 45 4E 20 42 41 53 45 22 3B 46 49 24 00 |TE EN BASE";FI$.|
00000360: 73 0B D2 00 8B 20 46 49 24 B2 22 22 A7 20 89 20 |s.... FI$."". . |
00000370: 33 30 30 00 91 0B D4 00 8B 20 C3 28 46 49 24 29 |300...... .(FI$)|
00000380: B1 31 33 A7 46 49 24 B2 C8 28 46 49 24 2C 31 33 |.13.FI$..(FI$,13|
00000390: 29 00 B0 0B D6 00 9F 32 2C 38 2C 31 30 2C 22 30 |)......2,8,10,"0|
000003A0: 3A 42 4D 2D 22 AA 46 49 24 AA 22 2C 53 2C 52 22 |:BM-".FI$.",S,R"|
000003B0: 00 BD 0B D8 00 84 31 2C 41 24 2C 42 24 00 D0 0B |......1,A$,B$...|
000003C0: DA 00 8B 41 24 B2 22 30 30 22 A7 89 20 32 33 32 |...A$."00".. 232|
000003D0: 00 E7 0B DC 00 99 22 11 12 44 49 53 4B 20 46 45 |......"..DISK FE|
000003E0: 4A 4C 3A 92 22 42 24 00 EF 0B DE 00 A0 20 32 00 |JL:."B$...... 2.|
000003F0: FA 0B E0 00 46 49 24 B2 22 22 00 08 0C E2 00 81 |....FI$.""......|
00000400: 49 B2 31 A4 31 30 30 30 00 0F 0C E4 00 82 49 00 |I.1.1000......I.|
00000410: 18 0C E6 00 89 32 30 36 00 26 0C E8 00 84 32 2C |.....206.&....2,|
00000420: 4E 24 2C 4E 46 24 00 34 0C EA 00 4E 46 B2 C5 28 |N$,NF$.4...NF..(|
00000430: 4E 46 24 29 00 42 0C EC 00 86 20 46 44 24 28 4E |NF$).B.... FD$(N|
00000440: 46 29 00 52 0C EE 00 81 49 B2 31 A4 C5 28 4E 46 |F).R....I.1..(NF|
00000450: 24 29 00 60 0C F0 00 84 32 2C 46 44 24 28 49 29 |$).`....2,FD$(I)|
00000460: 00 67 0C F2 00 82 49 00 6E 0C F4 00 A0 32 00 78 |.g....I.n....2.x|
00000470: 0C F6 00 89 20 34 30 30 00 90 0C 2C 01 99 22 93 |.... 400...,..".|
00000480: 11 22 3A 99 5A 24 3A 99 5A 5A 24 3A 99 58 5A 24 |.":.Z$:.ZZ$:.XZ$|
00000490: 00 B6 0C 2E 01 99 22 1D 1D 91 91 12 20 20 20 20 |......"..... |
000004A0: 20 20 20 20 20 20 C2 C1 D3 C5 2D CF D0 D2 C5 D4 | ....-.....|
000004B0: D4 C5 CC D3 C5 22 00 D4 0C 30 01 99 22 11 11 11 |....."...0.."...|
000004C0: 20 20 D3 4B 52 49 56 20 45 54 20 4E 41 56 4E 20 | .KRIV ET NAVN |
000004D0: 46 4F 52 22 00 E7 0C 31 01 85 22 1D 1D 42 41 53 |FOR"...1.."..BAS|
000004E0: 45 4E 22 3B 46 49 24 00 FA 0C 32 01 8B 46 49 24 |EN";FI$...2..FI$|
000004F0: B2 22 22 A7 20 89 20 33 30 34 00 17 0D 34 01 8B |."". . 304...4..|
00000500: C3 28 46 49 24 29 B1 31 32 A7 46 49 24 B2 C8 28 |.(FI$).12.FI$..(|
00000510: 46 49 24 2C 31 33 29 00 36 0D 36 01 9F 32 2C 38 |FI$,13).6.6..2,8|
00000520: 2C 31 34 2C 22 30 3A 42 4D 2D 22 AA 46 49 24 AA |,14,"0:BM-".FI$.|
00000530: 22 2C 53 2C 57 22 00 43 0D 38 01 84 31 2C 41 24 |",S,W".C.8..1,A$|
00000540: 2C 42 24 00 54 0D 3A 01 8B 41 24 B2 22 30 30 22 |,B$.T.:..A$."00"|
00000550: A7 33 32 32 00 6B 0D 3C 01 99 22 11 12 44 49 53 |.322.k.<.."..DIS|
00000560: 4B 20 46 45 4A 4C 3A 92 22 42 24 00 72 0D 3E 01 |K FEJL:."B$.r.>.|
00000570: A0 32 00 7B 0D 40 01 89 33 30 34 00 9B 0D 42 01 |.2.{.@..304...B.|
00000580: 99 22 11 20 20 D3 4B 52 49 56 20 4D 41 4B 53 49 |.". .KRIV MAKSI|
00000590: 4D 41 4C 54 20 41 4E 54 41 4C 22 00 B2 0D 44 01 |MALT ANTAL"...D.|
000005A0: 85 22 20 20 4F 50 54 41 47 45 4C 53 45 52 22 3B |." OPTAGELSER";|
000005B0: 4E 24 00 C0 0D 46 01 98 32 2C 4E 24 43 52 24 3B |N$...F..2,N$CR$;|
000005C0: 00 EE 0D 48 01 85 22 11 20 20 C8 56 4F 52 20 4D |...H..". .VOR M|
000005D0: 41 4E 47 45 20 46 45 4C 54 45 52 20 50 52 2E 20 |ANGE FELTER PR. |
000005E0: 4F 50 54 41 47 45 4C 53 45 22 3B 4E 46 24 00 FC |OPTAGELSE";NF$..|
000005F0: 0D 4A 01 4E 46 B2 C5 28 4E 46 24 29 00 0A 0E 4C |.J.NF..(NF$)...L|
00000600: 01 86 20 46 44 24 28 4E 46 29 00 19 0E 4E 01 98 |.. FD$(NF)...N..|
00000610: 32 2C 4E 46 24 43 52 24 3B 00 25 0E 50 01 81 49 |2,NF$CR$;.%.P..I|
00000620: B2 31 A4 4E 46 00 46 0E 52 01 99 22 20 20 20 C2 |.1.NF.F.R.." .|
00000630: 45 53 4B 52 49 56 45 4C 53 45 20 46 4F 52 20 46 |ESKRIVELSE FOR F|
00000640: 45 4C 54 22 49 3B 00 52 0E 54 01 85 46 44 24 28 |ELT"I;.R.T..FD$(|
00000650: 49 29 00 64 0E 56 01 98 32 2C 46 44 24 28 49 29 |I).d.V..2,FD$(I)|
00000660: 43 52 24 3B 00 6B 0E 58 01 82 49 00 72 0E 5A 01 |CR$;.k.X..I.r.Z.|
00000670: A0 32 00 8A 0E 5C 01 8F 20 2A 2A 2A 2A 4E 55 4C |.2...\.. ****NUL|
00000680: 2D 4F 50 54 41 47 45 4C 53 45 00 A6 0E 5E 01 9F |-OPTAGELSE...^..|
00000690: 32 2C 38 2C 31 30 2C 22 30 3A 22 AA 46 49 24 AA |2,8,10,"0:".FI$.|
000006A0: 22 2C 53 2C 57 22 00 B2 0E 60 01 81 49 B2 31 A4 |",S,W"...`..I.1.|
000006B0: 4E 46 00 C3 0E 62 01 98 32 2C 22 45 4F 44 22 43 |NF...b..2,"EOD"C|
000006C0: 52 24 3B 00 CA 0E 64 01 82 49 00 D1 0E 66 01 A0 |R$;...d..I...f..|
000006D0: 32 00 EA 0E 90 01 8F 20 2A 2A 2A 2A 49 4E 49 54 |2...... ****INIT|
000006E0: 49 41 4C 49 53 41 54 49 4F 4E 00 F6 0E 92 01 4E |IALISATION.....N|
000006F0: B2 C5 28 4E 24 29 00 28 0F 94 01 86 20 52 45 43 |..(N$).(.... REC|
00000700: 24 28 4E 2C 4E 46 29 2C 52 25 28 4E 29 2C 53 25 |$(N,NF),R%(N),S%|
00000710: 28 32 AC 4E 29 2C 57 28 4E 46 29 2C 46 28 4E 46 |(2.N),W(NF),F(NF|
00000720: 29 2C 46 57 28 4E 46 29 00 33 0F 96 01 81 49 B2 |),FW(NF).3....I.|
00000730: 30 A4 4E 00 3F 0F 98 01 52 25 28 49 29 B2 49 00 |0.N.?...R%(I).I.|
00000740: 46 0F 9A 01 82 49 00 56 0F 9C 01 4C B2 C3 28 46 |F....I.V...L..(F|
00000750: 44 24 28 31 29 29 00 62 0F 9E 01 46 57 28 31 29 |D$(1)).b...FW(1)|
00000760: B2 4C 00 6E 0F A0 01 81 4A B2 32 A4 4E 46 00 82 |.L.n....J.2.NF..|
00000770: 0F A2 01 46 57 28 4A 29 B2 C3 28 46 44 24 28 4A |...FW(J)..(FD$(J|
00000780: 29 29 00 97 0F A4 01 8B 4C B3 46 57 28 4A 29 A7 |))......L.FW(J).|
00000790: 4C B2 46 57 28 4A 29 00 9E 0F A6 01 82 4A 00 BD |L.FW(J)......J..|
000007A0: 0F A8 01 42 4C 24 B2 22 20 20 20 20 20 20 20 20 |...BL$." |
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 C6 0F | "...|
000007C0: AA 01 4E B2 AB 31 00 DE 0F F4 01 99 22 93 11 22 |..N..1......".."|
000007D0: 3A 99 5A 24 3A 99 5A 5A 24 3A 99 58 5A 24 00 23 |:.Z$:.ZZ$:.XZ$.#|
000007E0: 10 F5 01 99 22 1D 1D 91 91 12 20 20 20 20 20 20 |...."..... |
000007F0: 20 C2 C1 D3 C5 CD C1 C7 C5 D2 A0 2A 2A A0 C8 CF | ..........**...|
00000800: D6 C5 C4 CD C5 CE D5 22 3A 99 22 11 11 11 11 1D |.......":.".....|
00000810: 1D 1D 1D 1D 12 CC CF C1 C4 A0 C6 DC D2 D3 D4 21 |...............!|
00000820: 21 92 22 00 68 10 F6 01 99 22 11 1D 1D 1D 1D 1D |!.".h...."......|
00000830: 12 46 31 92 3A 20 C9 4E 44 53 4B 52 49 56 45 11 |.F1.: .NDSKRIVE.|
00000840: 22 3A 99 22 1D 1D 1D 1D 1D 12 46 32 92 3A 20 D3 |":."......F2.: .|
00000850: 41 56 45 11 22 3A 99 22 1D 1D 1D 1D 1D 12 46 33 |AVE.":."......F3|
00000860: 92 3A 20 D3 5C 47 45 22 00 9C 10 F7 01 99 A3 32 |.: .\GE".......2|
00000870: 30 29 22 91 91 91 91 91 91 91 12 46 34 92 3A 20 |0)"........F4.: |
00000880: D0 52 49 4E 54 45 52 11 22 3A 99 A3 32 30 29 22 |.RINTER.":..20)"|
00000890: 12 46 35 92 3A 20 CC 4F 41 44 11 22 00 CE 10 F8 |.F5.: .OAD."....|
000008A0: 01 99 A3 32 30 29 22 12 46 36 92 3A 20 D3 4C 55 |...20)".F6.: .LU|
000008B0: 54 54 45 11 22 3A 99 A3 32 30 29 22 12 46 37 92 |TTE.":..20)".F7.|
000008C0: 3A 20 CD 41 4E 49 50 55 4C 45 52 45 11 22 00 E7 |: .ANIPULERE."..|
000008D0: 10 F9 01 99 22 11 11 11 11 11 22 5A 24 3A 99 5A |...."....."Z$:.Z|
000008E0: 5A 24 3A 99 58 5A 24 00 11 11 FA 01 99 22 1D 1D |Z$:.XZ$......"..|
000008F0: 91 91 12 20 20 20 20 20 20 20 D6 5B 4C 47 20 56 |... .[LG V|
00000900: 45 44 20 46 55 4E 4B 54 49 4F 4E 53 54 41 53 54 |ED FUNKTIONSTAST|
00000910: 22 00 1C 11 01 02 8D 20 31 35 30 30 00 2A 11 02 |"...... 1500.*..|
00000920: 02 4B B2 C6 28 4B 45 59 24 29 00 44 11 03 02 8B |.K..(KEY$).D....|
00000930: 4B B3 31 33 33 20 B0 4B B1 31 33 39 20 A7 20 89 |K.133 .K.139 . .|
00000940: 20 35 31 33 00 54 11 04 02 8B 4B B2 31 33 39 A7 | 513.T....K.139.|
00000950: 89 35 32 30 00 7B 11 05 02 91 20 4B AB 31 33 32 |.520.{.... K.132|
00000960: 20 8D 36 30 30 2C 37 30 30 2C 39 30 30 2C 31 30 | .600,700,900,10|
00000970: 30 30 2C 38 30 30 2C 32 31 30 30 00 85 11 06 02 |00,800,2100.....|
00000980: 89 20 35 30 30 00 8C 11 08 02 A0 31 00 A4 11 0A |. 500......1....|
00000990: 02 99 22 93 11 22 3A 99 5A 24 3A 99 5A 5A 24 3A |.."..":.Z$:.ZZ$:|
000009A0: 99 58 5A 24 00 C8 11 0B 02 99 22 1D 1D 91 91 12 |.XZ$......".....|
000009B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 C1 C6 D3 | ...|
000009C0: CC D5 D4 CE C9 CE C7 22 00 F8 11 0C 02 99 22 11 |......."......".|
000009D0: 11 11 11 11 11 11 1D 1D D4 52 59 4B 20 12 52 45 |.........RYK .RE|
000009E0: 54 55 52 4E 92 20 48 56 49 53 20 44 55 20 46 4F |TURN. HVIS DU FO|
000009F0: 52 54 52 59 44 45 52 22 00 1F 12 0D 02 99 22 11 |RTRYDER"......".|
00000A00: 1D 1D 53 5D 20 4B 4F 4D 4D 45 52 20 44 55 20 54 |..S] KOMMER DU T|
00000A10: 49 4C 42 41 47 45 20 49 20 42 41 53 45 4E 22 00 |ILBAGE I BASEN".|
00000A20: 3B 12 0E 02 99 22 11 1D 1D 55 44 45 4E 20 54 41 |;...."...UDEN TA|
00000A30: 42 20 41 46 20 44 41 54 41 21 22 00 5B 12 12 02 |B AF DATA!".[...|
00000A40: 99 22 11 11 11 4F 50 45 4E 31 2C 38 2C 31 35 3A |."...OPEN1,8,15:|
00000A50: 47 4F 54 4F 35 30 30 91 91 91 22 00 61 12 1C 02 |GOTO500...".a...|
00000A60: 80 00 78 12 58 02 8F 20 2A 2A 2A 2A 49 4E 44 53 |..x.X.. ****INDS|
00000A70: 4B 52 49 56 4E 49 4E 47 00 82 12 5A 02 4E B2 4E |KRIVNING...Z.N.N|
00000A80: AA 31 00 9D 12 5C 02 99 22 93 11 12 20 20 C9 CE |.1...\.."... ..|
00000A90: C4 D3 CB D2 C9 D6 CE C9 CE C7 20 11 22 00 A8 12 |.......... ."...|
00000AA0: 5E 02 8D 20 31 38 30 30 00 BB 12 60 02 8B 4B 45 |^.. 1800...`..KE|
00000AB0: 59 24 B2 22 4A 22 A7 89 36 31 34 00 C7 12 62 02 |Y$."J"..614...b.|
00000AC0: 99 22 13 11 11 11 22 00 D0 12 64 02 89 36 30 36 |."...."...d..606|
00000AD0: 00 F8 12 66 02 99 43 52 24 3B 22 C8 41 52 20 44 |...f..CR$;".AR D|
00000AE0: 55 20 46 4C 45 52 45 20 52 45 47 49 53 54 52 45 |U FLERE REGISTRE|
00000AF0: 52 49 4E 47 45 52 3F 22 00 03 13 68 02 8D 20 31 |RINGER?"...h.. 1|
00000B00: 35 30 30 00 1E 13 6A 02 8B 20 4B 45 59 24 B2 22 |500...j.. KEY$."|
00000B10: 4A 22 A7 20 99 22 93 22 3A 89 20 36 30 30 00 24 |J". .".":. 600.$|
00000B20: 13 6C 02 8E 00 36 13 BC 02 8F 20 2A 2A 2A 2A 53 |.l...6.... ****S|
00000B30: 5C 47 4E 49 4E 47 00 4A 13 BE 02 99 22 93 11 11 |\GNING.J...."...|
00000B40: 12 1D D3 DC C7 CE C9 CE C7 22 00 61 13 C0 02 99 |.........".a....|
00000B50: 22 11 20 C4 55 20 4B 41 4E 20 53 5C 47 45 3A 22 |". .U KAN S\GE:"|
00000B60: 3B 00 6C 13 C2 02 8D 20 31 39 30 30 00 77 13 C4 |;.l.... 1900.w..|
00000B70: 02 8D 20 31 35 30 30 00 89 13 C6 02 8B 4B 45 59 |.. 1500......KEY|
00000B80: 24 B2 22 2A 22 A7 37 33 38 00 9A 13 C8 02 4B B2 |$."*".738.....K.|
00000B90: C6 28 4B 45 59 24 29 AB 36 34 00 AF 13 CA 02 8B |.(KEY$).64......|
00000BA0: 4B B3 31 20 B0 20 4B B1 4E 46 20 A7 37 30 38 00 |K.1 . K.NF .708.|
00000BB0: B8 13 CC 02 99 22 93 22 00 D6 13 CE 02 50 52 4F |.....".".....PRO|
00000BC0: 4D 54 24 B2 46 44 24 28 4B 29 AA 22 20 41 54 20 |MT$.FD$(K)." AT |
00000BD0: 46 49 4E 44 45 22 00 EB 13 D0 02 97 20 36 33 31 |FINDE"...... 631|
00000BE0: 2C 33 34 3A 97 20 31 39 38 2C 31 00 F6 13 D2 02 |,34:. 198,1.....|
00000BF0: 8D 20 31 36 30 30 00 01 14 D4 02 81 49 B2 30 A4 |. 1600......I.0.|
00000C00: 4E 00 26 14 D6 02 8B 41 24 B3 B1 C8 28 52 45 43 |N.&....A$...(REC|
00000C10: 24 28 52 25 28 49 29 2C 4B 29 2C C3 28 41 24 29 |$(R%(I),K),.(A$)|
00000C20: 29 A7 20 37 33 36 00 36 14 D8 02 99 22 93 12 D2 |). 736.6...."...|
00000C30: 45 47 2E 23 22 49 00 41 14 DA 02 8D 20 31 37 30 |EG.#"I.A.... 170|
00000C40: 30 00 66 14 DC 02 99 22 11 C6 4F 52 54 53 5B 54 |0.f...."..ORTS[T|
00000C50: 20 56 45 44 20 54 52 59 4B 20 50 5D 20 45 4E 20 | VED TRYK P] EN |
00000C60: 54 41 53 54 2E 22 00 71 14 DE 02 8D 20 31 35 30 |TAST.".q.... 150|
00000C70: 30 00 79 14 E0 02 82 20 49 00 7F 14 E2 02 8E 00 |0.y.... I.......|
00000C80: 95 14 20 03 99 22 93 11 22 5A 24 3A 99 5A 5A 24 |.. ..".."Z$:.ZZ$|
00000C90: 3A 99 58 5A 24 00 BF 14 22 03 99 22 1D 1D 91 91 |:.XZ$...".."....|
00000CA0: 12 20 20 20 20 20 20 20 20 20 20 20 20 CF D0 D4 |. ...|
00000CB0: C1 C7 C5 CC D3 C5 A0 D0 DD A0 C4 C9 D3 CB 22 00 |..............".|
00000CC0: ED 14 24 03 99 22 11 11 11 11 20 20 C9 4E 44 53 |..$..".... .NDS|
00000CD0: 5B 54 20 44 41 54 41 2D 44 49 53 4B 20 49 20 44 |[T DATA-DISK I D|
00000CE0: 49 53 4B 20 44 52 45 56 20 27 30 27 22 00 14 15 |ISK DREV '0'"...|
00000CF0: 26 03 99 22 20 20 D4 52 59 4B 20 45 4E 20 54 41 |&.." .RYK EN TA|
00000D00: 53 54 2C 20 4E 5D 52 20 44 55 20 45 52 20 4B 4C |ST, N]R DU ER KL|
00000D10: 41 52 2E 22 00 39 15 28 03 99 22 20 20 D4 52 59 |AR.".9.(.." .RY|
00000D20: 4B 20 27 41 27 20 48 56 49 53 20 44 55 20 46 4F |K 'A' HVIS DU FO|
00000D30: 52 54 52 59 44 45 52 2E 22 00 44 15 2A 03 8D 20 |RTRYDER.".D.*.. |
00000D40: 31 35 30 30 00 5A 15 2C 03 8B 20 4B 45 59 24 B2 |1500.Z.,.. KEY$.|
00000D50: 22 41 22 A7 20 89 20 38 35 32 00 6B 15 2E 03 98 |"A". . 852.k....|
00000D60: 31 2C 22 53 30 3A 22 AA 46 49 24 00 78 15 30 03 |1,"S0:".FI$.x.0.|
00000D70: 84 31 2C 41 24 2C 42 24 00 92 15 32 03 8B 41 24 |.1,A$,B$...2..A$|
00000D80: B2 22 30 30 22 B0 41 24 B2 22 30 31 22 A7 89 38 |."00".A$."01"..8|
00000D90: 32 34 00 A7 15 34 03 99 22 12 44 49 53 4B 20 46 |24...4..".DISK F|
00000DA0: 45 4A 4C 92 22 42 24 00 AD 15 36 03 90 00 CA 15 |EJL."B$...6.....|
00000DB0: 38 03 9F 20 32 2C 38 2C 31 30 2C 22 30 3A 22 AA |8.. 2,8,10,"0:".|
00000DC0: 46 49 24 AA 22 2C 53 2C 57 22 00 D7 15 3A 03 84 |FI$.",S,W"...:..|
00000DD0: 31 2C 41 24 2C 42 24 00 EA 15 3C 03 8B 41 24 B2 |1,A$,B$...<..A$.|
00000DE0: 22 30 30 22 A7 89 20 38 33 34 00 00 16 3E 03 99 |"00".. 834...>..|
00000DF0: 22 12 44 49 53 4B 20 46 45 4A 4C 3A 92 22 42 24 |".DISK FEJL:."B$|
00000E00: 00 06 16 40 03 90 00 11 16 42 03 81 4A B2 30 A4 |...@.....B..J.0.|
00000E10: 4E 00 1E 16 44 03 81 20 4B B2 31 A4 4E 46 00 3C |N...D.. K.1.NF.<|
00000E20: 16 46 03 98 32 2C C7 28 33 34 29 52 45 43 24 28 |.F..2,.(34)REC$(|
00000E30: 52 25 28 4A 29 2C 4B 29 43 52 24 3B 00 43 16 48 |R%(J),K)CR$;.C.H|
00000E40: 03 82 4B 00 4A 16 4A 03 82 4A 00 56 16 4C 03 81 |..K.J.J..J.V.L..|
00000E50: 4A B2 31 A4 4E 46 00 67 16 4E 03 98 32 2C 22 45 |J.1.NF.g.N..2,"E|
00000E60: 4F 44 22 43 52 24 3B 00 6E 16 50 03 82 4A 00 75 |OD"CR$;.n.P..J.u|
00000E70: 16 52 03 A0 32 00 7B 16 54 03 8E 00 91 16 84 03 |.R..2.{.T.......|
00000E80: 99 22 93 11 22 5A 24 3A 99 5A 5A 24 3A 99 58 5A |.".."Z$:.ZZ$:.XZ|
00000E90: 24 00 BB 16 86 03 99 22 1D 1D 91 91 12 20 20 20 |$......"..... |
00000EA0: 20 20 20 20 20 20 C9 CE C4 CC DB D3 CE C9 CE C7 | ..........|
00000EB0: D3 D0 D2 CF C3 C5 C4 D5 D2 C5 22 00 E7 16 88 03 |..........".....|
00000EC0: 99 22 11 11 11 11 1D 1D D3 5B 54 20 44 41 54 41 |.".......[T DATA|
00000ED0: 2D 44 49 53 4B 20 49 20 44 49 53 4B 20 44 52 45 |-DISK I DISK DRE|
00000EE0: 56 20 27 30 27 2E 22 00 0D 17 8A 03 99 22 20 20 |V '0'."......" |
00000EF0: C6 4F 52 54 53 5B 54 20 56 45 44 20 54 52 59 4B |.ORTS[T VED TRYK|
00000F00: 20 50 5D 20 45 4E 20 54 41 53 54 2E 22 00 33 17 | P] EN TAST.".3.|
00000F10: 8C 03 99 22 20 20 D4 52 59 4B 20 27 41 27 2C 20 |..." .RYK 'A', |
00000F20: 48 56 49 53 20 44 55 20 46 4F 52 54 52 59 44 45 |HVIS DU FORTRYDE|
00000F30: 52 2E 22 00 3E 17 8E 03 8D 20 31 35 30 30 00 51 |R.".>.... 1500.Q|
00000F40: 17 90 03 8B 4B 45 59 24 B2 22 41 22 A7 89 39 34 |....KEY$."A"..94|
00000F50: 34 00 6D 17 92 03 9F 32 2C 38 2C 31 30 2C 22 30 |4.m....2,8,10,"0|
00000F60: 3A 22 AA 46 49 24 AA 22 2C 53 2C 52 22 00 7A 17 |:".FI$.",S,R".z.|
00000F70: 94 03 84 31 2C 41 24 2C 42 24 00 8C 17 96 03 8B |...1,A$,B$......|
00000F80: 41 24 B2 22 30 30 22 A7 89 39 32 34 00 A2 17 98 |A$."00"..924....|
00000F90: 03 99 22 12 44 49 53 4B 20 46 45 4A 4C 3A 92 22 |..".DISK FEJL:."|
00000FA0: 42 24 00 A8 17 9A 03 90 00 BC 17 9C 03 99 22 11 |B$............".|
00000FB0: 11 1D 1D CC CF C1 C4 C9 CE C7 22 3B 00 C6 17 9E |..........";....|
00000FC0: 03 4E B2 4E AA 31 00 D2 17 A0 03 81 4A B2 31 A4 |.N.N.1......J.1.|
00000FD0: 4E 46 00 E3 17 A2 03 84 32 2C 52 45 43 24 28 4E |NF......2,REC$(N|
00000FE0: 2C 4A 29 00 EA 17 A4 03 82 4A 00 F4 17 A6 03 99 |,J)......J......|
00000FF0: 22 2E 22 3B 00 11 18 A8 03 8B 20 52 45 43 24 28 |".";...... REC$(|
00001000: 4E 2C 31 29 B2 22 45 4F 44 22 A7 20 89 20 39 34 |N,1)."EOD". . 94|
00001010: 30 00 1B 18 AA 03 89 20 39 32 36 00 25 18 AC 03 |0...... 926.%...|
00001020: 4E B2 4E AB 31 00 2C 18 AE 03 A0 32 00 32 18 B0 |N.N.1.,....2.2..|
00001030: 03 8E 00 4A 18 E8 03 99 22 93 11 22 3A 99 5A 24 |...J...."..":.Z$|
00001040: 3A 99 5A 5A 24 3A 99 58 5A 24 00 56 18 E9 03 8B |:.ZZ$:.XZ$.V....|
00001050: 4E B2 AB 31 A7 8E 00 7D 18 EA 03 99 22 1D 1D 91 |N..1...}...."...|
00001060: 91 12 20 20 20 20 20 20 20 20 20 C4 C1 D4 C1 2D |.. ....-|
00001070: CD C1 CE C9 D0 D5 CC C1 D4 C9 CF CE 22 00 B6 18 |............"...|
00001080: EB 03 99 22 11 11 11 11 1D 1D 1D 1D 1D 12 46 31 |..."..........F1|
00001090: 92 3A 20 CC 49 53 54 20 41 4C 54 11 22 3A 99 22 |.: .IST ALT.":."|
000010A0: 1D 1D 1D 1D 1D 12 46 33 92 3A 20 C5 4E 4B 45 4C |......F3.: .NKEL|
000010B0: 54 56 49 53 11 22 00 00 19 EC 03 99 22 1D 1D 1D |TVIS."......"...|
000010C0: 1D 1D 12 46 35 92 3A 20 D3 4F 52 54 45 52 45 11 |...F5.: .ORTERE.|
000010D0: 22 3A 99 A3 32 30 29 22 91 91 91 91 91 91 12 46 |":..20)".......F|
000010E0: 37 92 3A 20 DB 4E 44 52 45 11 22 3A 99 A3 32 30 |7.: .NDRE.":..20|
000010F0: 29 22 12 46 36 92 3A 20 D3 4C 45 54 54 45 11 22 |)".F6.: .LETTE."|
00001100: 00 1B 19 ED 03 99 A3 32 30 29 22 12 46 38 92 3A |.......20)".F8.:|
00001110: 20 C8 4F 56 45 44 4D 45 4E 55 22 00 36 19 EE 03 | .OVEDMENU".6...|
00001120: 99 22 11 11 11 11 11 11 11 22 5A 24 3A 99 5A 5A |."......."Z$:.ZZ|
00001130: 24 3A 99 58 5A 24 00 60 19 EF 03 99 22 1D 1D 91 |$:.XZ$.`...."...|
00001140: 91 12 20 20 20 20 20 20 20 D6 5B 4C 47 20 56 45 |.. .[LG VE|
00001150: 44 20 46 55 4E 4B 54 49 4F 4E 53 54 41 53 54 22 |D FUNKTIONSTAST"|
00001160: 00 6B 19 F0 03 8D 20 31 35 30 30 00 79 19 F2 03 |.k.... 1500.y...|
00001170: 4D B2 C6 28 4B 45 59 24 29 00 8A 19 F4 03 8B 4D |M..(KEY$)......M|
00001180: B2 31 34 30 A7 89 31 34 32 32 00 9C 19 F6 03 8B |.140..1422......|
00001190: 4D B3 B1 31 33 34 A7 89 31 31 30 30 00 B2 19 F8 |M..134..1100....|
000011A0: 03 99 22 93 11 22 5A 24 3A 99 5A 5A 24 3A 99 58 |..".."Z$:.ZZ$:.X|
000011B0: 5A 24 00 D9 19 F9 03 99 22 1D 1D 91 91 12 20 20 |Z$......"..... |
000011C0: 20 20 20 20 20 20 C5 CE CB C5 CC D4 D6 C9 D3 A0 | ..........|
000011D0: CC C9 D3 D4 CE C9 CE C7 22 00 03 1A FA 03 99 22 |........"......"|
000011E0: 11 11 11 11 20 20 C4 45 52 20 45 52 22 3B 4E AA |.... .ER ER";N.|
000011F0: 31 3B 22 20 52 45 47 49 53 54 52 45 52 49 4E 47 |1;" REGISTRERING|
00001200: 45 52 22 00 1D 1A FC 03 85 22 20 20 D3 54 41 52 |ER"......" .TAR|
00001210: 54 20 4D 45 44 20 52 45 47 2E 22 3B 4B 00 32 1A |T MED REG.";K.2.|
00001220: FE 03 8B 4B B1 B2 30 AF 4B B3 B2 4E A7 89 31 30 |...K..0.K..N..10|
00001230: 32 38 00 55 1A 00 04 99 22 11 12 20 20 C6 4F 52 |28.U....".. .OR|
00001240: 4B 45 52 54 20 52 45 47 2E 4E 52 2E 20 C7 45 4E |KERT REG.NR. .EN|
00001250: 54 41 47 21 22 00 60 1A 02 04 89 20 31 30 32 30 |TAG!".`.... 1020|
00001260: 00 6C 1A 04 04 49 B2 52 25 28 4B 29 00 9C 1A 06 |.l...I.R%(K)....|
00001270: 04 99 22 93 11 12 2B 92 C6 4F 52 4C 5B 4E 53 20 |.."...+..ORL[NS |
00001280: 12 2D 92 C2 41 47 4C 5B 4E 53 20 12 CF 92 4D 53 |.-..AGL[NS ...MS|
00001290: 54 41 52 54 20 12 CD 92 45 4E 55 22 00 A2 1A 08 |TART ...ENU"....|
000012A0: 04 99 00 B7 1A 0A 04 99 22 12 D2 45 47 2E 4E 55 |........"..EG.NU|
000012B0: 4D 4D 45 52 3A 22 4B 00 C2 1A 0C 04 8D 20 31 37 |MMER:"K...... 17|
000012C0: 30 30 00 CD 1A 0E 04 8D 20 31 35 30 30 00 E1 1A |00...... 1500...|
000012D0: 10 04 8B 4B 45 59 24 B2 22 2B 22 A7 4B B2 4B AA |...KEY$."+".K.K.|
000012E0: 31 00 F5 1A 12 04 8B 4B 45 59 24 B2 22 2D 22 A7 |1......KEY$."-".|
000012F0: 4B B2 4B AB 31 00 0B 1B 14 04 8B 4B 45 59 24 B2 |K.K.1......KEY$.|
00001300: 22 4F 22 A7 20 89 20 31 30 31 36 00 22 1B 16 04 |"O". . 1016."...|
00001310: 8B 20 4B 45 59 24 B2 22 4D 22 A7 20 89 20 31 30 |. KEY$."M". . 10|
00001320: 30 30 00 2D 1B 18 04 89 20 31 30 32 32 00 36 1B |00.-.... 1022.6.|
00001330: 4C 04 99 22 93 22 00 49 1B 4E 04 8B 4D B3 B1 31 |L..".".I.N..M..1|
00001340: 33 33 20 A7 89 31 32 30 30 00 54 1B 50 04 81 4A |33 ..1200.T.P..J|
00001350: B2 30 A4 4E 00 62 1B 52 04 99 22 12 22 4A 22 92 |.0.N.b.R.."."J".|
00001360: 22 3B 00 6A 1B 54 04 A1 41 24 00 7B 1B 56 04 8B |";.j.T..A$.{.V..|
00001370: 41 24 B2 22 22 A7 89 31 31 31 36 00 83 1B 58 04 |A$.""..1116...X.|
00001380: A1 41 24 00 94 1B 5A 04 8B 41 24 B2 22 22 A7 89 |.A$...Z..A$.""..|
00001390: 31 31 31 32 00 A0 1B 5C 04 81 4B B2 31 A4 4E 46 |1112...\..K.1.NF|
000013A0: 00 B9 1B 5E 04 99 20 52 45 43 24 28 52 25 28 4A |...^.. REC$(R%(J|
000013B0: 29 2C 4B 29 3B 22 20 22 3B 00 C1 1B 60 04 82 20 |),K);" ";...`.. |
000013C0: 4B 00 C7 1B 62 04 99 00 CD 1B 64 04 82 00 D8 1B |K...b.....d.....|
000013D0: 66 04 8D 20 31 35 30 30 00 E3 1B 68 04 89 20 31 |f.. 1500...h.. 1|
000013E0: 30 30 30 00 FC 1B B0 04 8F 20 2A 2A 2A 2A 53 4C |000...... ****SL|
000013F0: 45 54 54 45 20 45 4E 20 50 4F 53 54 00 0E 1C B2 |ETTE EN POST....|
00001400: 04 8B 4D B3 B1 31 33 39 A7 89 31 33 30 30 00 36 |..M..139..1300.6|
00001410: 1C B4 04 50 52 4F 4D 50 54 24 B2 22 93 11 11 12 |...PROMPT$."....|
00001420: 20 D2 45 47 2E 4E 52 2E 20 54 49 4C 20 53 4C 45 | .EG.NR. TIL SLE|
00001430: 54 4E 49 4E 47 22 00 41 1C B6 04 8D 20 31 36 30 |TNING".A.... 160|
00001440: 30 00 5D 1C B8 04 8B C5 28 41 24 29 B3 30 20 B0 |0.].....(A$).0 .|
00001450: C5 28 41 24 29 B1 4E A7 89 31 33 32 34 00 70 1C |.(A$).N..1324.p.|
00001460: BA 04 99 22 12 20 D3 CC C5 D4 D4 C5 20 92 3A 22 |...". ...... .:"|
00001470: 00 7C 1C BC 04 49 B2 C5 28 41 24 29 00 87 1C BE |.|...I..(A$)....|
00001480: 04 8D 20 31 37 30 30 00 AA 1C C0 04 99 22 C2 45 |.. 1700......".E|
00001490: 4B 52 5B 46 54 3A 20 54 52 59 4B 20 12 4A 92 20 |KR[FT: TRYK .J. |
000014A0: 45 4C 4C 45 52 20 12 4E 92 22 00 B5 1C C2 04 8D |ELLER .N."......|
000014B0: 20 31 35 30 30 00 C9 1C C4 04 8B 4B 45 59 24 B2 | 1500......KEY$.|
000014C0: 22 4E 22 A7 89 31 30 30 30 00 DE 1C C6 04 8B 4B |"N"..1000......K|
000014D0: 45 59 24 B3 B1 22 4A 22 A7 89 31 32 31 36 00 EA |EY$.."J"..1216..|
000014E0: 1C C8 04 81 4A B2 31 A4 4E 46 00 0A 1D CA 04 52 |....J.1.NF.....R|
000014F0: 45 43 24 28 52 25 28 49 29 2C 4A 29 B2 52 45 43 |EC$(R%(I),J).REC|
00001500: 24 28 52 25 28 4E 29 2C 4A 29 00 11 1D CC 04 82 |$(R%(N),J)......|
00001510: 4A 00 1B 1D CE 04 4E B2 4E AB 31 00 25 1D D0 04 |J.....N.N.1.%...|
00001520: 89 31 30 30 30 00 3D 1D 14 05 8F 20 2A 2A 2A 2A |.1000.=.... ****|
00001530: 5B 4E 44 52 45 20 45 4E 20 50 4F 53 54 00 4F 1D |[NDRE EN POST.O.|
00001540: 16 05 8B 4D B3 B1 31 33 36 A7 89 31 34 30 30 00 |...M..136..1400.|
00001550: 74 1D 18 05 50 52 4F 4D 50 54 24 B2 22 93 11 11 |t...PROMPT$."...|
00001560: 12 1D DB 4E 44 52 45 20 52 45 47 2E 20 4E 55 4D |...NDRE REG. NUM|
00001570: 4D 45 52 22 00 7F 1D 1A 05 8D 20 31 36 30 30 00 |MER"...... 1600.|
00001580: 9A 1D 1C 05 8B C5 28 41 24 29 B3 30 B0 C5 28 41 |......(A$).0..(A|
00001590: 24 29 B1 4E A7 89 31 34 30 30 00 A6 1D 1E 05 49 |$).N..1400.....I|
000015A0: B2 C5 28 41 24 29 00 BD 1D 20 05 99 22 93 11 11 |..(A$)... .."...|
000015B0: 12 20 20 D2 45 47 2E 20 23 92 22 3B 49 00 C8 1D |. .EG. #.";I...|
000015C0: 22 05 8D 20 31 37 30 30 00 E7 1D 24 05 99 22 11 |".. 1700...$..".|
000015D0: 1D 1D C5 52 20 4E 55 4D 4D 45 52 45 54 20 52 49 |...R NUMMERET RI|
000015E0: 47 54 49 47 54 3F 22 00 08 1E 26 05 99 22 1D 1D |GTIGT?"...&.."..|
000015F0: 54 52 59 4B 20 4A 2F 4E 20 2D 20 27 4D 27 20 54 |TRYK J/N - 'M' T|
00001600: 49 4C 20 4D 45 4E 55 22 00 13 1E 28 05 8D 20 31 |IL MENU"...(.. 1|
00001610: 35 30 30 00 28 1E 2A 05 8B 20 4B 45 59 24 B2 22 |500.(.*.. KEY$."|
00001620: 4D 22 A7 89 31 30 30 30 00 3D 1E 2C 05 8B 4B 45 |M"..1000.=.,..KE|
00001630: 59 24 B2 22 4A 22 A7 89 20 31 33 33 30 00 52 1E |Y$."J".. 1330.R.|
00001640: 2E 05 8B 20 4B 45 59 24 B2 22 4E 22 A7 89 31 33 |... KEY$."N"..13|
00001650: 30 34 00 5D 1E 30 05 89 20 31 33 32 30 00 75 1E |04.].0.. 1320.u.|
00001660: 32 05 81 20 4B B2 31 A4 38 30 3A 99 C7 28 32 30 |2.. K.1.80:..(20|
00001670: 29 3B 3A 82 4B 00 8B 1E 34 05 99 22 13 11 11 12 |);:.K...4.."....|
00001680: 20 D2 C5 D4 D4 C5 CC D3 C5 3A 22 00 96 1E 36 05 | ........:"...6.|
00001690: 46 4C 41 47 B2 31 00 9E 1E 38 05 42 B2 4E 00 A6 |FLAG.1...8.B.N..|
000016A0: 1E 3A 05 4E B2 49 00 B1 1E 3C 05 8D 20 31 38 30 |.:.N.I...<.. 180|
000016B0: 30 00 BC 1E 3E 05 46 4C 41 47 B2 30 00 C4 1E 40 |0...>.FLAG.0...@|
000016C0: 05 4E B2 42 00 CF 1E 42 05 89 20 31 30 30 30 00 |.N.B...B.. 1000.|
000016D0: E3 1E 78 05 8F 20 2A 2A 2A 2A 53 4F 52 54 45 52 |..x.. ****SORTER|
000016E0: 49 4E 47 00 F5 1E 7A 05 8B 4D B3 B1 31 33 35 A7 |ING...z..M..135.|
000016F0: 89 31 30 30 30 00 11 1F 7C 05 99 22 93 11 11 12 |.1000...|.."....|
00001700: 20 20 D3 CF D2 D4 C5 D2 C5 A0 D0 CF D3 D4 C5 D2 | ..............|
00001710: 22 00 28 1F 7E 05 99 22 11 11 20 20 D3 4F 52 54 |".(.~..".. .ORT|
00001720: 45 52 20 50 5D 3A 22 3B 00 33 1F 80 05 8D 20 31 |ER P]:";.3.... 1|
00001730: 39 30 30 00 3E 1F 82 05 8D 20 31 35 30 30 00 52 |900.>.... 1500.R|
00001740: 1F 84 05 8B 20 4B 45 59 24 B2 22 2A 22 A7 31 34 |.... KEY$."*".14|
00001750: 32 32 00 63 1F 86 05 4B B2 C6 28 4B 45 59 24 29 |22.c...K..(KEY$)|
00001760: AB 36 34 00 76 1F 88 05 8B 4B B3 31 B0 4B B1 4E |.64.v....K.1.K.N|
00001770: 46 A7 31 34 31 30 00 87 1F 8A 05 99 22 1D 56 45 |F.1410......".VE|
00001780: 4E 54 20 2E 2E 2E 22 00 92 1F 8C 05 8D 20 32 30 |NT ..."...... 20|
00001790: 30 30 00 98 1F 8E 05 8E 00 A2 1F DC 05 8F 20 2A |00............ *|
000017A0: 2A 2A 00 AD 1F DE 05 A1 20 4B 45 59 24 00 C2 1F |**...... KEY$...|
000017B0: E0 05 8B 20 4B 45 59 24 B2 22 22 A7 89 20 31 35 |... KEY$."".. 15|
000017C0: 30 32 00 C8 1F E2 05 8E 00 D2 1F 40 06 8F 20 2A |02.........@.. *|
000017D0: 2A 2A 00 E0 1F 42 06 99 50 52 4F 4D 50 54 24 3B |**...B..PROMPT$;|
000017E0: 00 EA 1F 44 06 41 24 B2 22 22 00 F2 1F 46 06 85 |...D.A$.""...F..|
000017F0: 41 24 00 04 20 48 06 8B 41 24 B3 B1 22 22 A7 89 |A$.. H..A$..""..|
00001800: 31 36 31 34 00 0E 20 4A 06 99 22 91 22 3B 00 19 |1614.. J..".";..|
00001810: 20 4C 06 89 20 31 36 30 30 00 1F 20 4E 06 8E 00 | L.. 1600.. N...|
00001820: 28 20 A4 06 8F 20 2A 2A 00 35 20 A6 06 81 20 4A |( ... **.5 ... J|
00001830: B2 31 A4 4E 46 00 48 20 A8 06 99 52 45 43 24 28 |.1.NF.H ...REC$(|
00001840: 52 25 28 49 29 2C 4A 29 00 4F 20 AA 06 82 4A 00 |R%(I),J).O ...J.|
00001850: 55 20 AC 06 8E 00 5F 20 08 07 8F 20 2A 2A 2A 00 |U ...._ ... ***.|
00001860: 6B 20 0A 07 81 4B B2 31 A4 4E 46 00 75 20 0C 07 |k ...K.1.NF.u ..|
00001870: 41 24 B2 22 22 00 8D 20 0E 07 99 C8 28 46 44 24 |A$."".. ....(FD$|
00001880: 28 4B 29 AA 42 4C 24 2C 4C AA 32 29 3B 00 BA 20 |(K).BL$,L.2);.. |
00001890: 10 07 8B 20 46 4C 41 47 B2 31 A7 99 A3 4C AA 33 |... FLAG.1...L.3|
000018A0: 29 52 45 43 24 28 52 25 28 4E 29 2C 4B 29 43 52 |)REC$(R%(N),K)CR|
000018B0: 24 3B A3 4C 29 3B 22 91 22 3B 00 CD 20 12 07 97 |$;.L);".";.. ...|
000018C0: 36 33 31 2C 33 34 3A 97 31 39 38 2C 31 00 D5 20 |631,34:.198,1.. |
000018D0: 14 07 85 41 24 00 E7 20 16 07 8B 41 24 B2 22 22 |...A$.. ...A$.""|
000018E0: A7 41 24 B2 22 2A 22 00 FC 20 18 07 52 45 43 24 |.A$."*".. ..REC$|
000018F0: 28 52 25 28 4E 29 2C 4B 29 B2 41 24 00 03 21 1A |(R%(N),K).A$..!.|
00001900: 07 82 4B 00 28 21 1C 07 99 22 11 11 1D C5 52 20 |..K.(!..."....R |
00001910: 49 4E 46 4F 52 4D 41 54 49 4F 4E 45 4E 20 4B 4F |INFORMATIONEN KO|
00001920: 52 52 45 4B 54 3F 22 3B 00 33 21 1E 07 8D 20 31 |RREKT?";.3!... 1|
00001930: 35 30 30 00 47 21 20 07 8B 20 4B 45 59 24 B2 22 |500.G! .. KEY$."|
00001940: 4A 22 A7 31 38 33 34 00 5C 21 22 07 8B 20 4B 45 |J".1834.\!".. KE|
00001950: 59 24 B3 B1 22 4E 22 A7 31 38 32 32 00 72 21 24 |Y$.."N".1822.r!$|
00001960: 07 81 49 B2 31 A4 33 30 3A 99 C7 28 32 30 29 3B |..I.1.30:..(20);|
00001970: 3A 82 00 7D 21 26 07 99 22 13 11 11 22 00 88 21 |:..}!&.."..."..!|
00001980: 28 07 89 20 31 38 30 32 00 8E 21 2A 07 8E 00 98 |(.. 1802..!*....|
00001990: 21 6C 07 8F 20 2A 2A 2A 00 A9 21 6E 07 81 20 49 |!l.. ***..!n.. I|
000019A0: 20 B2 20 31 20 A4 20 4E 46 00 C6 21 70 07 99 A3 | . 1 . NF..!p...|
000019B0: 31 36 29 22 12 22 C7 28 49 AA 36 34 29 22 92 22 |16)".".(I.64)"."|
000019C0: 46 44 24 28 49 29 00 CD 21 72 07 82 49 00 E0 21 |FD$(I)..!r..I..!|
000019D0: 74 07 8B 20 46 4C 41 47 B2 31 A7 89 31 39 31 34 |t.. FLAG.1..1914|
000019E0: 00 10 22 76 07 99 22 11 20 C4 55 20 4B 41 4E 20 |.."v..". .U KAN |
000019F0: 4F 47 53 5D 20 47 5D 20 54 49 4C 42 41 47 45 20 |OGS] G] TILBAGE |
00001A00: 54 49 4C 20 4D 45 4E 55 45 4E 28 12 2A 92 29 22 |TIL MENUEN(.*.)"|
00001A10: 00 2B 22 78 07 99 22 20 D6 5B 4C 47 20 56 45 44 |.+"x.." .[LG VED|
00001A20: 20 42 4F 47 53 54 41 56 3A 20 22 00 31 22 7A 07 | BOGSTAV: ".1"z.|
00001A30: 8E 00 45 22 D0 07 8F 20 2A 2A 2A 2A 53 4F 52 54 |..E"... ****SORT|
00001A40: 45 52 49 4E 47 00 6F 22 D2 07 4D B2 30 3A 4E B2 |ERING.o"..M.0:N.|
00001A50: 4E AA 31 3A 58 B2 30 3A 42 B2 4E AB 31 3A 81 4A |N.1:X.0:B.N.1:.J|
00001A60: B2 30 A4 42 3A 53 25 28 4A 29 B2 4A 3A 82 4A 00 |.0.B:S%(J).J:.J.|
00001A70: 80 22 D4 07 81 4A B2 30 A4 4E AC 32 AB 33 A9 32 |."...J.0.N.2.3.2|
00001A80: 00 9E 22 D6 07 42 B2 42 AA 31 3A 49 31 B2 53 25 |.."..B.B.1:I1.S%|
00001A90: 28 4A 29 3A 49 32 B2 53 25 28 4A AA 31 29 00 A9 |(J):I2.S%(J.1)..|
00001AA0: 22 D8 07 8D 20 32 30 33 30 00 B8 22 DA 07 53 25 |"... 2030.."..S%|
00001AB0: 28 42 29 B2 49 3A 82 4A 00 D4 22 DC 07 58 B2 58 |(B).I:.J.."..X.X|
00001AC0: AB 31 3A 43 B2 53 25 28 42 29 3A 8B 43 B3 30 89 |.1:C.S%(B):.C.0.|
00001AD0: 32 30 33 34 00 F2 22 DE 07 99 52 45 43 24 28 43 |2034.."...REC$(C|
00001AE0: 2C 4B 29 2C 3A 52 25 28 4D 29 B2 43 3A 4D B2 4D |,K),:R%(M).C:M.M|
00001AF0: AA 31 00 FE 22 E0 07 53 25 28 43 29 B2 58 00 21 |.1.."..S%(C).X.!|
00001B00: 23 E2 07 43 25 B2 43 AD 32 3A 4A B2 43 25 AC 32 |#..C%.C.2:J.C%.2|
00001B10: 3A 43 B2 4E AA 43 25 3A 8B 43 B1 42 89 32 30 31 |:C.N.C%:.C.B.201|
00001B20: 32 00 39 23 E4 07 49 31 B2 53 25 28 4A 29 3A 49 |2.9#..I1.S%(J):I|
00001B30: 32 B2 53 25 28 4A AA 31 29 00 4E 23 E6 07 8B 49 |2.S%(J.1).N#...I|
00001B40: 31 B3 30 A7 49 B2 49 32 3A 89 32 30 32 38 00 63 |1.0.I.I2:.2028.c|
00001B50: 23 E8 07 8B 49 32 B3 30 A7 49 B2 49 31 3A 89 32 |#...I2.0.I.I1:.2|
00001B60: 30 32 38 00 6E 23 EA 07 8D 20 32 30 33 30 00 80 |028.n#... 2030..|
00001B70: 23 EC 07 53 25 28 43 29 B2 49 3A 89 32 30 31 38 |#..S%(C).I:.2018|
00001B80: 00 A5 23 EE 07 49 B2 49 31 3A 8B 52 45 43 24 28 |..#..I.I1:.REC$(|
00001B90: 49 32 2C 4B 29 B3 52 45 43 24 28 49 31 2C 4B 29 |I2,K).REC$(I1,K)|
00001BA0: A7 49 B2 49 32 00 AB 23 F0 07 8E 00 B5 23 F2 07 |.I.I2..#.....#..|
00001BB0: 4E B2 4E AB 31 00 BB 23 F4 07 8E 00 D1 23 34 08 |N.N.1..#.....#4.|
00001BC0: 99 22 93 11 22 5A 24 3A 99 5A 5A 24 3A 99 58 5A |.".."Z$:.ZZ$:.XZ|
00001BD0: 24 00 FA 23 36 08 99 22 1D 1D 91 91 12 20 20 20 |$..#6.."..... |
00001BE0: 20 20 20 20 20 CF D5 D4 D0 D5 D4 2F D3 CB DB D2 | ....../....|
00001BF0: CD 2F D0 D2 C9 CE D4 C5 D2 22 00 04 24 38 08 54 |./......."..$8.T|
00001C00: 24 B2 22 22 00 18 24 3A 08 97 20 36 33 31 2C 33 |$.""..$:.. 631,3|
00001C10: 34 3A 97 31 39 38 2C 31 00 37 24 3C 08 85 22 11 |4:.198,1.7$<..".|
00001C20: 11 11 11 20 20 D3 4B 52 49 56 20 45 4E 20 54 49 |... .KRIV EN TI|
00001C30: 54 45 4C 22 3B 54 24 00 4E 24 3E 08 99 22 20 20 |TEL";T$.N$>.." |
00001C40: C6 45 4C 54 45 52 4E 45 20 45 52 3A 22 3B 00 59 |.ELTERNE ER:";.Y|
00001C50: 24 40 08 46 4C 41 47 B2 31 00 64 24 42 08 8D 20 |$@.FLAG.1.d$B.. |
00001C60: 31 39 30 30 00 6F 24 44 08 46 4C 41 47 B2 30 00 |1900.o$D.FLAG.0.|
00001C70: 8D 24 46 08 85 22 11 20 20 C8 56 4F 52 20 4D 41 |.$F..". .VOR MA|
00001C80: 4E 47 45 20 46 45 4C 54 45 52 22 3B 46 00 98 24 |NGE FELTER";F..$|
00001C90: 48 08 81 49 B2 31 A4 46 00 B1 24 4A 08 85 22 20 |H..I.1.F..$J.." |
00001CA0: 20 C6 45 4C 54 20 42 4F 47 53 54 41 56 22 3B 41 | .ELT BOGSTAV";A|
00001CB0: 24 00 C3 24 4C 08 46 28 49 29 B2 C6 28 41 24 29 |$..$L.F(I)..(A$)|
00001CC0: AB 36 34 00 DF 24 4E 08 8B 46 28 49 29 B1 4E 46 |.64..$N..F(I).NF|
00001CD0: 20 B0 20 46 28 49 29 B3 31 A7 89 32 31 32 32 00 | . F(I).1..2122.|
00001CE0: ED 24 50 08 99 22 91 22 A3 32 30 29 3B 00 04 25 |.$P..".".20);..%|
00001CF0: 52 08 85 22 23 20 4B 4F 4C 4F 4E 4E 45 52 22 3B |R.."# KOLONNER";|
00001D00: 57 28 49 29 00 0B 25 54 08 82 49 00 2D 25 56 08 |W(I)..%T..I.-%V.|
00001D10: 85 20 22 20 20 D0 52 49 4E 54 45 20 48 4F 56 45 |. " .RINTE HOVE|
00001D20: 44 45 52 20 28 4A 2F 4E 29 22 3B 48 24 00 4E 25 |DER (J/N)";H$.N%|
00001D30: 58 08 85 22 20 20 D3 54 41 52 54 20 4D 45 44 20 |X.." .TART MED |
00001D40: 52 45 47 2E 20 23 20 30 9D 9D 9D 22 3B 42 00 6B |REG. # 0...";B.k|
00001D50: 25 5A 08 99 22 20 20 D3 54 4F 50 20 4D 45 44 20 |%Z.." .TOP MED |
00001D60: 52 45 47 2E 20 23 20 22 3B 4E 3B 00 7A 25 5C 08 |REG. # ";N;.z%\.|
00001D70: 85 22 9D 9D 9D 9D 9D 22 3B 45 00 87 25 5E 08 8B |.".....";E..%^..|
00001D80: 45 B1 4E A7 45 B2 4E 00 AC 25 60 08 85 22 20 20 |E.N.E.N..%`.." |
00001D90: 12 D3 92 4B 5B 52 4D 20 45 4C 4C 45 52 20 12 D0 |...K[RM ELLER ..|
00001DA0: 92 52 49 4E 54 45 52 22 3B 44 56 24 00 B5 25 62 |.RINTER";DV$..%b|
00001DB0: 08 44 56 B2 34 00 C7 25 64 08 8B 44 56 24 B2 22 |.DV.4..%d..DV$."|
00001DC0: 53 22 A7 44 56 B2 33 00 E5 25 66 08 99 22 11 20 |S".DV.3..%f..". |
00001DD0: 20 C6 4F 52 42 45 52 45 44 20 50 52 49 4E 54 45 | .ORBERED PRINTE|
00001DE0: 52 45 4E 2E 22 00 0B 26 68 08 99 22 20 20 C6 4F |REN."..&h.." .O|
00001DF0: 52 54 53 5B 54 20 56 45 44 20 54 52 59 4B 20 50 |RTS[T VED TRYK P|
00001E00: 5D 20 45 4E 20 54 41 53 54 2E 22 00 2D 26 6A 08 |] EN TAST.".-&j.|
00001E10: 99 22 20 20 D4 52 59 4B 20 27 41 27 20 56 45 44 |." .RYK 'A' VED|
00001E20: 20 46 4F 52 54 52 59 44 45 4C 53 45 22 00 38 26 | FORTRYDELSE".8&|
00001E30: 6C 08 8D 20 31 35 30 30 00 4D 26 6E 08 8B 20 4B |l.. 1500.M&n.. K|
00001E40: 45 59 24 B2 22 41 22 A7 89 32 32 30 32 00 58 26 |EY$."A"..2202.X&|
00001E50: 70 08 9F 20 33 2C 44 56 00 75 26 72 08 98 33 2C |p.. 3,DV.u&r..3,|
00001E60: C8 28 42 4C 24 2C 28 38 30 AB C3 28 54 24 29 29 |.(BL$,(80..(T$))|
00001E70: AD 32 29 54 24 00 7C 26 74 08 98 33 00 91 26 76 |.2)T$.|&t..3..&v|
00001E80: 08 8B 48 24 B3 B1 22 4A 22 A7 20 89 20 32 31 37 |..H$.."J". . 217|
00001E90: 38 00 9C 26 78 08 81 49 B2 31 A4 46 00 BE 26 7A |8..&x..I.1.F..&z|
00001EA0: 08 98 33 2C C8 28 46 44 24 28 46 28 49 29 29 AA |..3,.(FD$(F(I)).|
00001EB0: 42 4C 24 2C 57 28 49 29 29 3B 22 20 22 3B 00 C5 |BL$,W(I));" ";..|
00001EC0: 26 7C 08 82 49 00 CC 26 7E 08 98 33 00 E6 26 80 |&|..I..&~..3..&.|
00001ED0: 08 81 20 49 B2 31 20 A4 20 38 30 3A 98 33 2C 22 |.. I.1 . 80:.3,"|
00001EE0: 3D 22 3B 3A 82 49 00 ED 26 82 08 98 33 00 F8 26 |=";:.I..&...3..&|
00001EF0: 84 08 81 49 B2 42 A4 45 00 03 27 86 08 81 4A B2 |...I.B.E..'...J.|
00001F00: 31 A4 46 00 2C 27 88 08 98 33 2C C8 28 52 45 43 |1.F.,'...3,.(REC|
00001F10: 24 28 52 25 28 49 29 2C 46 28 4A 29 29 AA 42 4C |$(R%(I),F(J)).BL|
00001F20: 24 2C 57 28 4A 29 29 3B 22 20 22 3B 00 33 27 8A |$,W(J));" ";.3'.|
00001F30: 08 82 4A 00 3A 27 8C 08 98 33 00 42 27 8E 08 A1 |..J.:'...3.B'...|
00001F40: 41 24 00 53 27 90 08 8B 41 24 B2 22 20 22 A7 32 |A$.S'...A$." ".2|
00001F50: 31 39 36 00 5E 27 92 08 8D 20 31 35 30 30 00 65 |196.^'... 1500.e|
00001F60: 27 94 08 82 49 00 6C 27 96 08 98 33 00 73 27 98 |'...I.l'...3.s'.|
00001F70: 08 A0 33 00 79 27 9A 08 8E 00 00 00 |..3.y'...... |
....... G(14)...... G(8).K.2.Z$." ......
.................................."..3.
ZZ$." .
."...4.XZ$." ......................
..................".K.D.. *** BASEMAGER
***...H.V(1).0:V(2).0:V(3).1...J.. 53280
,V(1):.53281,V(2):.646,V(3).#.L.."..":.Z
$:.ZZ$:.XZ$.Q.M.."..... BASEMAGER **
FARVEJUSTERING "...N.."................
...F1.: KANT...........F3.: BAGGRUND".J.
O..".............. .F5.: SKRIFT.........
....F7.: TIL BASE"...P.."......"Z$:.ZZ$:
.XZ$...Q.."..... V[LG VED FUNKTIONS
TAST"...... KEY$./...K.F(KEY$.G(0)).132.
D....K.1 . K.4 . 130.S....K.4 . 150.S...
V(K).V(K).1:.V(K).16.V(K).0.|....106....
..".."Z$:.ZZ$:.XZ$......".....
VALG AF DATABASE".M.H.. ****OPS[TNING...
J.CR$.G(13)...L.. 1,8,15...N..".......SK
RIV BASENAVN, HVIS DET EKSISTERER":..B.O
.." TRYK .RETURN., HVIS DU VIL":.._.P..
" OPRETTE EN BASE";FI$.S.R.. FI$."". .
300...T.. C(FI$).13.FI$.H(FI$,13)...V..2
,8,10,"0:BM-".FI$.",S,R"...X..1,A$,B$.P.
Z..A$."00".. 232......"..DISK FEJL:."B$.
.... 2.....FI$.""......I.1.1000......I.
.....206.&....2,N$,NF$.4...NF.E(NF$).B..
.. FD$(NF).R....I.1.E(NF$).`....2,FD$(I)
.G....I.N... 2.X.... 400...,.."..":.Z$:.
ZZ$:.XZ$......"..... BASE-OPRET
TELSE".T.0.."... SKRIV ET NAVN FOR"...1
.."..BASEN";FI$...2..FI$."". . 304...4..
C(FI$).12.FI$.H(FI$,13).6.6..2,8,14,"0:B
M-".FI$.",S,W".C.8..1,A$,B$.T.:..A$."00"
.322.K.<.."..DISK FEJL:."B$.R.>. 2.{.@..
304...B..". SKRIV MAKSIMALT ANTAL"...D.
." OPTAGELSER";N$...F..2,N$CR$;...H..".
HVOR MANGE FELTER PR. OPTAGELSE";NF$..
.J.NF.E(NF$)...L.. FD$(NF)...N..2,NF$CR$
;.%.P..I.1.NF.F.R.." BESKRIVELSE FOR F
ELT"I;.R.T..FD$(I).D.V..2,FD$(I)CR$;.K.X
..I.R.Z. 2...\.. ****NUL-OPTAGELSE...^..
2,8,10,"0:".FI$.",S,W"...`..I.1.NF.C.B..
2,"EOD"CR$;.J.D..I.Q.F. 2...... ****INIT
IALISATION.....N.E(N$).(.... REC$(N,NF),
R%(N),S%(2.N),W(NF),F(NF),FW(NF).3....I.
0.N.?...R%(I).I.F....I.V...L.C(FD$(1)).B
...FW(1).L.N. ..J.2.NF.....FW(J).C(FD$(J
))......L.FW(J).L.FW(J)......J.....BL$."
".F...N..1......".."
:.Z$:.ZZ$:.XZ$.#...."..... BASEMAG
ER ** HOVEDMENU":."..........LOAD F.RST!
!.".H....".......F1.: INDSKRIVE.":."....
..F2.: SAVE.":."......F3.: S\GE".......2
0)"........F4.: PRINTER.":..20)".F5.: LO
AD.".N.....20)".F6.: SLUTTE.":..20)".F7.
: MANIPULERE."......"....."Z$:.ZZ$:.XZ$.
....."..... V[LG VED FUNKTIONSTAST
"...... 1500.*...K.F(KEY$).D....K.133 .K
.139 . . 513.T....K.139..520.{.... K.132
.600,700,900,1000,800,2100...... 500...
.. 1......"..":.Z$:.ZZ$:.XZ$.H....".....
AFSLUTNING"......".........
TRYK .RETURN. HVIS DU FORTRYDER"......".
..S] KOMMER DU TILBAGE I BASEN".;...."..
.UDEN TAB AF DATA!".[...."...OPEN1,8,15:
GOTO500...".A.....X.X.. ****INDSKRIVNING
...Z.N.N.1...\.."... INDSKRIVNING ."...
^.. 1800...`..KEY$."J"..614.G.B.."....".
P.D..606...F..CR$;"HAR DU FLERE REGISTRE
RINGER?"...H.. 1500...J.. KEY$."J". ."."
:. 600.$.L...6.... ****S\GNING.J...."...
..S.GNING".A....". DU KAN S\GE:";.L.B..
1900.W.D.. 1500...F..KEY$."*".738...H.K.
F(KEY$).64...J..K.1 . K.NF .708...L.."."
.V.N.PROMT$.FD$(K)." AT FINDE"...P.. 631
,34:. 198,1...R.. 1600...T..I.0.N.&.V..A
$..H(REC$(R%(I),K),C(A$)). 736.6.X.."..R
EG.#"I.A.Z.. 1700.F....".FORTS[T VED TRY
K P] EN TAST.".Q.... 1500.Y.... I......
.. ..".."Z$:.ZZ$:.XZ$..."..".....
OPTAGELSE P. DISK"...$..".... INDS
[T DATA-DISK I DISK DREV '0'"...&.." TR
YK EN TAST, N]R DU ER KLAR.".9.(.." TRY
K 'A' HVIS DU FORTRYDER.".D.*.. 1500.Z.,
.. KEY$."A". . 852.K....1,"S0:".FI$.X.0.
.1,A$,B$...2..A$."00".A$."01"..824...4..
".DISK FEJL."B$...6...J.8.. 2,8,10,"0:".
FI$.",S,W".W.:..1,A$,B$...<..A$."00".. 8
34...>..".DISK FEJL:."B$...@.....B..J.0.
N...D.. K.1.NF.<.F..2,G(34)REC$(R%(J),K)
CR$;.C.H..K.J.J..J.V.L..J.1.NF.G.N..2,"E
OD"CR$;.N.P..J.U.R. 2.{.T........".."Z$:
.ZZ$:.XZ$......"..... INDL.SNING
SPROCEDURE"......"......S[T DATA-DISK I
DISK DREV '0'."......" FORTS[T VED TRYK
P] EN TAST.".3...." TRYK 'A', HVIS DU
FORTRYDER.".>.... 1500.Q....KEY$."A"..94
4.M....2,8,10,"0:".FI$.",S,R".Z....1,A$,
B$......A$."00"..924......".DISK FEJL:."
B$............"....LOADING";.F...N.N.1.R
. ..J.1.NF......2,REC$(N,J)......J......
".";...... REC$(N,1)."EOD". . 940......
926.%...N.N.1.,... 2.2.....J...."..":.Z$
:.ZZ$:.XZ$.V....N..1...}....".....
DATA-MANIPULATION"......"..........F1
.: LIST ALT.":."......F3.: ENKELTVIS."..
...."......F5.: SORTERE.":..20)".......F
7.: .NDRE.":..20)".F6.: SLETTE.".......2
0)".F8.: HOVEDMENU".6...."......."Z$:.ZZ
$:.XZ$.`...."..... V[LG VED FUNKTI
ONSTAST".K.... 1500.Y...M.F(KEY$)......M
.140..1422......M..134..1100......".."Z$
:.ZZ$:.XZ$.Y...."..... ENKELTVIS
LISTNING"......".... DER ER";N.1;" REGI
STRERINGER"......" START MED REG.";K.2.
...K..0.K..N..1028.U....".. FORKERT REG
.NR. GENTAG!".`.... 1020.L...I.R%(K)....
.."...+.FORL[NS .-.BAGL[NS .O.MSTART .M.
ENU"............".REG.NUMMER:"K.B.... 17
00.M.... 1500......KEY$."+".K.K.1......K
EY$."-".K.K.1......KEY$."O". . 1016."...
. KEY$."M". . 1000.-.... 1022.6.L..".".I
.N..M..133 ..1200.T.P..J.0.N.B.R.."."J".
";.J.T..A$.{.V..A$.""..1116...X..A$...Z.
.A$.""..1112. .\..K.1.NF...^.. REC$(R%(J
),K);" ";.A.`.. K.G.B...M.D...X.F.. 1500
...H.. 1000...... ****SLETTE EN POST....
..M..139..1300.6...PROMPT$.".... REG.NR.
TIL SLETNING".A.... 1600.]....E(A$).0 .
E(A$).N..1324.P....". SLETTE .:".|...I.E
(A$)...... 1700......"BEKR[FT: TRYK .J.
ELLER .N."...B.. 1500.I.D..KEY$."N"..100
0...F..KEY$.."J"..1216...H..J.1.NF...J.R
EC$(R%(I),J).REC$(R%(N),J)...L..J...N.N.
N.1.%.P..1000.=.... ****[NDRE EN POST.O.
...M..136..1400.T...PROMPT$."......NDRE
REG. NUMMER"..... 1600......E(A$).0.E(A
$).N..1400.....I.E(A$)... ..".... REG.
#.";I.H.".. 1700...$.."...ER NUMMERET RI
GTIGT?"...&.."..TRYK J/N - 'M' TIL MENU"
...(.. 1500.(.*.. KEY$."M"..1000.=.,..KE
Y$."J".. 1330.R.... KEY$."N"..1304.].0..
1320.U.2.. K.1.80:.G(20);:.K...4.."....
RETTELSE:"...6.FLAG.1...8.B.N...:.N.I..
.<.. 1800...>.FLAG.0.D.@.N.B.O.B.. 1000.
..X.. ****SORTERING...Z..M..135..1000...
|..".... SORTERE POSTER".(.~..".. SORT
ER P]:";.3.... 1900.>.... 1500.R.... KEY
$."*".1422.C...K.F(KEY$).64.V....K.1.K.N
F.1410......".VENT ..."...... 2000......
...... ***...... KEY$.B.... KEY$."".. 15
02.H.....R.@.. ***...B..PROMPT$;...D.A$.
""...F..A$.. H..A$..""..1614.. J..".";..
L.. 1600.. N...( ... **.5 ... J.1.NF.H
...REC$(R%(I),J).O ...J.U ...._ ... ***.
K ...K.1.NF.U ..A$."".. ...H(FD$(K).BL$,
L.2);.. ... FLAG.1...L.3)REC$(R%(N),K)CR
$;.L);".";.M ...631,34:.198,1.U ...A$..
...A$."".A$."*".. ..REC$(R%(N),K).A$..!.
..K.(!..."...ER INFORMATIONEN KORREKT?";
.3!... 1500.G! .. KEY$."J".1834.\!".. KE
Y$.."N".1822.R!$..I.1.30:.G(20);:..}!&..
"..."..!(.. 1802..!*....!L.. ***..!N.. I
. 1 . NF.F!P...16)"."G(I.64)"."FD$(I).M
!R..I..!T.. FLAG.1..1914.."V..". DU KAN
OGS] G] TILBAGE TIL MENUEN(.*.)".+"X.."
V[LG VED BOGSTAV: ".1"Z...E"P.. ****SORT
ERING.O"R.M.0:N.N.1:X.0:B.N.1:.J.0.B:S%(
J).J:.J.."T..J.0.N.2.3.2.."V.B.B.1:I1.S%
(J):I2.S%(J.1).."X.. 2030.."Z.S%(B).I:.J
.T"..X.X.1:C.S%(B):.C.0.2034.."...REC$(C
,K),:R%(M).C:M.M.1.."..S%(C).X.!#..C%.C.
2:J.C%.2:C.N.C%:.C.B.2012.9#..I1.S%(J):I
2.S%(J.1).N#...I1.0.I.I2:.2028.C#...I2.0
.I.I1:.2028.N#... 2030..#..S%(C).I:.2018
..#..I.I1:.REC$(I2,K).REC$(I1,K).I.I2..#
.....#..N.N.1..#....Q#4..".."Z$:.ZZ$:.XZ
$..#6.."..... OUTPUT/SK.RM/PRINTE
R"..$8.T$.""..$:.. 631,34:.198,1.7$<..".
... SKRIV EN TITEL";T$.N$>.." FELTERNE
ER:";.Y$@.FLAG.1.D$B.. 1900.O$D.FLAG.0.
.$F..". HVOR MANGE FELTER";F..$H..I.1.F
..$J.." FELT BOGSTAV";A$.C$L.F(I).F(A$)
.64..$N..F(I).NF . F(I).1..2122..$P.."."
.20);..%R.."# KOLONNER";W(I)..%T..I.-%V.
. " PRINTE HOVEDER (J/N)";H$.N%X.." ST
ART MED REG. # 0...";B.K%Z.." STOP MED
REG. # ";N;.Z%\..".....";E..%^..E.N.E.N.
.%`.." .S.K[RM ELLER .P.RINTER";DV$..%B
.DV.4.G%D..DV$."S".DV.3..%F..". FORBERE
D PRINTEREN."..&H.." FORTS[T VED TRYK P
] EN TAST.".-&J.." TRYK 'A' VED FORTRYD
ELSE".8&L.. 1500.M&N.. KEY$."A"..2202.X&
P.. 3,DV.U&R..3,H(BL$,(80.C(T$)).2)T$.|&
T..3..&V..H$.."J". . 2178..&X..I.1.F..&Z
..3,H(FD$(F(I)).BL$,W(I));" ";.E&|..I.L&
~..3..&... I.1 . 80:.3,"=";:.I..&...3..&
...I.B.E..'...J.1.F.,'...3,H(REC$(R%(I),
F(J)).BL$,W(J));" ";.3'...J.:'...3.B'...
A$.S'...A$." ".2196.^'... 1500.E'...I.L'
...3.S'.. 3.Y'......
> CLICK IMAGE PREVIEW FOR FULL MODAL