MOMS BEREGN
FILE INFORMATION
FILENAME(S): MOMS BEREGN
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 19:47:28
APPEARS ON: 2 disk(s)
FILE HASH
4d776b5c4859e47c91af9d74ddd3399b976d32f2a5b7ec78b73fca66aee43f3b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ANNI | MOMS BEREGN | PRG | Curtcool, Frank | 10 | 3 | DOWNLOAD FILE |
| DISK 42 2 | MOMS BEREGN | PRG | Curtcool, Frank | 20 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 01 00 9C 3A 97 35 33 32 38 30 2C 30 |.......:.53280,0|
00000010: 3A 97 35 33 32 38 31 2C 30 3A 99 22 93 22 00 28 |:.53281,0:.".".(|
00000020: 08 02 00 43 4D B2 32 32 00 3C 08 03 00 43 39 B2 |...CM.22.<...C9.|
00000030: 28 31 30 30 AA 43 4D 29 AD 31 30 30 00 69 08 0A |(100.CM).100.i..|
00000040: 00 86 41 28 39 30 30 29 2C 4B 24 28 39 30 30 29 |..A(900),K$(900)|
00000050: 2C 4B 4D 24 28 32 35 35 29 2C 4D 31 28 32 35 36 |,KM$(255),M1(256|
00000060: 29 2C 4D 32 28 32 35 36 29 00 8D 08 0B 00 81 4D |),M2(256)......M|
00000070: B2 31 A4 32 35 36 3A 4D 31 28 4D 29 B2 30 2E 30 |.1.256:M1(M).0.0|
00000080: 3A 4D 32 28 4D 29 B2 30 2E 30 3A 82 4D 00 97 08 |:M2(M).0.0:.M...|
00000090: 19 00 89 39 30 30 30 00 A5 08 65 00 9F 31 2C 31 |...9000...e..1,1|
000000A0: 2C 30 2C 22 22 00 B9 08 66 00 A1 23 31 2C 49 24 |,0,""...f..#1,I$|
000000B0: 3A 99 49 24 3A 89 31 30 32 00 C0 08 67 00 A0 31 |:.I$:.102...g..1|
000000C0: 00 C6 08 68 00 8E 00 DC 08 C8 00 4B 24 28 4D 29 |...h.......K$(M)|
000000D0: B2 41 24 AA 42 24 AA 44 24 AA 45 24 00 F2 08 CD |.A$.B$.D$.E$....|
000000E0: 00 8B 20 C3 28 4B 24 28 4D 29 29 B3 B1 34 A7 32 |.. .(K$(M))..4.2|
000000F0: 32 30 00 F8 08 D2 00 8E 00 08 09 DC 00 99 4B 24 |20............K$|
00000100: 28 4D 29 3A 8D 33 30 30 00 12 09 2C 01 41 24 B2 |(M):.300...,.A$.|
00000110: 22 22 00 26 09 31 01 41 24 B2 CA 28 4B 24 28 4D |"".&.1.A$..(K$(M|
00000120: 29 2C 31 2C 31 29 00 30 09 36 01 42 24 B2 22 22 |),1,1).0.6.B$.""|
00000130: 00 44 09 3B 01 42 24 B2 CA 28 4B 24 28 4D 29 2C |.D.;.B$..(K$(M),|
00000140: 32 2C 31 29 00 4E 09 40 01 44 24 B2 22 22 00 62 |2,1).N.@.D$."".b|
00000150: 09 45 01 44 24 B2 CA 28 4B 24 28 4D 29 2C 33 2C |.E.D$..(K$(M),3,|
00000160: 31 29 00 6C 09 4A 01 45 24 B2 22 22 00 80 09 4F |1).l.J.E$.""...O|
00000170: 01 45 24 B2 CA 28 4B 24 28 4D 29 2C 34 2C 31 29 |.E$..(K$(M),4,1)|
00000180: 00 9E 09 50 01 54 B2 C3 28 41 24 29 AA C3 28 42 |...P.T..(A$)..(B|
00000190: 24 29 AA C3 28 44 24 29 AA C3 28 45 24 29 00 AE |$)..(D$)..(E$)..|
000001A0: 09 51 01 8B 20 54 B3 B1 34 20 A7 33 34 35 00 B4 |.Q.. T..4 .345..|
000001B0: 09 54 01 8E 00 D7 09 59 01 99 22 41 22 2C 41 24 |.T.....Y.."A",A$|
000001C0: 2C 22 42 22 2C 42 24 2C 22 44 22 2C 44 24 2C 22 |,"B",B$,"D",D$,"|
000001D0: 45 22 2C 45 24 3A 90 00 01 0A D0 07 99 22 11 52 |E",E$:.......".R|
000001E0: 45 47 49 53 54 45 52 4E 52 3F 22 3A 85 49 24 3A |EGISTERNR?":.I$:|
000001F0: 41 24 28 30 29 B2 C7 28 B5 28 C5 28 49 24 29 29 |A$(0)..(.(.(I$))|
00000200: 29 00 2A 0A DA 07 99 22 47 41 4D 4D 45 4C 20 44 |).*...."GAMMEL D|
00000210: 41 54 4F 22 3A 85 49 24 3A 44 24 28 30 29 B2 C7 |ATO":.I$:D$(0)..|
00000220: 28 B5 28 C5 28 49 24 29 29 29 00 55 0A DF 07 99 |(.(.(I$))).U....|
00000230: 22 47 41 4D 4D 45 4C 20 4D 41 41 4E 45 44 22 3A |"GAMMEL MAANED":|
00000240: 85 49 24 3A 45 24 28 30 29 B2 C7 28 B5 28 C5 28 |.I$:E$(0)..(.(.(|
00000250: 49 24 29 29 29 00 8B 0A EE 07 52 31 24 B2 C4 28 |I$))).....R1$..(|
00000260: C6 28 41 24 28 30 29 29 29 AA C9 28 C4 28 C6 28 |.(A$(0)))..(.(.(|
00000270: 44 24 28 30 29 29 29 2C 32 29 AA C9 28 C4 28 C6 |D$(0))),2)..(.(.|
00000280: 28 45 24 28 30 29 29 29 2C 32 29 00 B9 0A 2A 08 |(E$(0))),2)...*.|
00000290: 99 22 93 4F 4B 20 44 45 52 20 53 30 47 45 53 20 |.".OK DER S0GES |
000002A0: 45 46 54 45 52 20 44 41 54 41 52 45 47 49 53 54 |EFTER DATAREGIST|
000002B0: 45 52 20 3A 22 3B 52 31 24 00 BF 0A 33 08 8E 00 |ER :";R1$...3...|
000002C0: CC 0A B8 0B 4D B2 30 3A 8D 33 30 30 00 F2 0A B9 |....M.0:.300....|
000002D0: 0B 99 22 11 44 45 4E 4E 45 20 44 41 54 4F 22 3A |..".DENNE DATO":|
000002E0: 85 49 24 3A 44 24 B2 C7 28 B5 28 C5 28 49 24 29 |.I$:D$..(.(.(I$)|
000002F0: 29 29 00 19 0B BD 0B 99 22 44 45 4E 4E 45 20 4D |))......"DENNE M|
00000300: 41 41 4E 45 44 22 3A 85 49 24 3A 45 24 B2 C7 28 |AANED":.I$:E$..(|
00000310: B5 28 C5 28 49 24 29 29 29 00 26 0B BE 0B 4D B2 |.(.(I$))).&...M.|
00000320: 30 3A 8D 32 30 30 00 53 0B C2 0B 52 31 24 B2 C4 |0:.200.S...R1$..|
00000330: 28 C6 28 41 24 29 29 AA C9 28 C4 28 C6 28 44 24 |(.(A$))..(.(.(D$|
00000340: 29 29 2C 32 29 AA C9 28 C4 28 C6 28 45 24 29 29 |)),2)..(.(.(E$))|
00000350: 2C 32 29 00 83 0B CC 0B 99 22 93 4F 4B 20 52 45 |,2)......".OK RE|
00000360: 47 49 53 54 52 45 54 20 47 45 4D 4D 45 53 20 55 |GISTRET GEMMES U|
00000370: 4E 44 45 52 20 4E 41 56 4E 45 54 20 20 3A 22 3B |NDER NAVNET :";|
00000380: 52 31 24 00 89 0B 1B 0C 8E 00 AF 0B 94 11 99 22 |R1$............"|
00000390: 93 20 2A 2A 2A 20 4E 55 20 49 4E 44 4C 41 45 53 |. *** NU INDLAES|
000003A0: 45 53 20 4D 4F 4D 53 52 45 47 20 2A 2A 2A 22 00 |ES MOMSREG ***".|
000003B0: BA 0B 95 11 53 24 B2 22 20 22 00 D0 0B A8 11 9F |....S$." "......|
000003C0: 32 2C 38 2C 32 2C 22 4D 4F 4D 53 2C 53 2C 52 22 |2,8,2,"MOMS,S,R"|
000003D0: 00 F1 0B B2 11 81 4D B2 31 A4 32 35 35 3A A1 23 |......M.1.255:.#|
000003E0: 32 2C 41 4D 24 3A 8B 53 54 B3 B1 30 A7 34 35 36 |2,AM$:.ST..0.456|
000003F0: 30 00 00 0C BC 11 4B 4D 24 28 4D 29 B2 41 4D 24 |0.....KM$(M).AM$|
00000400: 00 07 0C C6 11 82 4D 00 32 0C D0 11 99 22 11 11 |......M.2...."..|
00000410: 4D 4F 4D 53 52 45 47 20 49 4E 44 4C 41 45 53 54 |MOMSREG INDLAEST|
00000420: 20 4D 45 44 20 20 22 3B 4D 3B 22 50 4F 53 54 45 | MED ";M;"POSTE|
00000430: 52 22 00 3A 0C D5 11 A0 20 32 00 40 0C EE 11 8E |R".:.... 2.@....|
00000440: 00 57 0C 88 13 41 28 30 29 B2 41 28 30 29 AA 31 |.W...A(0).A(0).1|
00000450: 3A 4D B2 41 28 30 29 00 62 0C 92 13 41 28 4D 29 |:M.A(0).b...A(M)|
00000460: B2 49 00 76 0C EC 13 41 24 B2 C7 28 B5 28 C5 28 |.I.v...A$..(.(.(|
00000470: 49 31 24 29 29 29 00 8A 0C 50 14 42 24 B2 C7 28 |I1$)))...P.B$..(|
00000480: B5 28 C5 28 49 32 24 29 29 29 00 9E 0C B4 14 44 |.(.(I2$))).....D|
00000490: 24 B2 C7 28 B5 28 C5 28 49 34 24 29 29 29 00 B2 |$..(.(.(I4$)))..|
000004A0: 0C 18 15 45 24 B2 C7 28 B5 28 C5 28 49 35 24 29 |...E$..(.(.(I5$)|
000004B0: 29 29 00 C8 0C 4A 15 4B 24 28 4D 29 B2 41 24 AA |))...J.K$(M).A$.|
000004C0: 42 24 AA 44 24 AA 45 24 00 CE 0C 7C 15 8E 00 E6 |B$.D$.E$...|....|
000004D0: 0C E0 15 41 28 30 29 B2 41 28 30 29 AA 31 3A 4D |...A(0).A(0).1:M|
000004E0: 34 B2 41 28 30 29 00 F2 0C EA 15 41 28 4D 34 29 |4.A(0).....A(M4)|
000004F0: B2 49 00 0D 0D F4 15 4B 24 28 4D 34 29 B2 49 31 |.I.....K$(M4).I1|
00000500: 24 AA 49 32 24 AA 49 34 24 AA 49 35 24 00 13 0D |$.I2$.I4$.I5$...|
00000510: 3A 16 8E 00 32 0D 38 18 99 22 93 20 2A 2A 2A 20 |:...2.8..". *** |
00000520: 4D 4F 4D 53 4F 50 47 30 52 45 4C 53 45 20 2A 2A |MOMSOPG0RELSE **|
00000530: 2A 22 00 50 0D 42 18 99 22 11 11 49 4E 44 54 41 |*".P.B.."..INDTA|
00000540: 53 54 20 53 54 41 52 54 20 4D 44 22 3A 85 53 4D |ST START MD":.SM|
00000550: 00 6B 0D 56 18 99 22 49 4E 44 54 41 53 54 20 53 |.k.V.."INDTAST S|
00000560: 4C 55 54 20 4D 44 22 3A 85 48 4D 00 75 0D 60 18 |LUT MD":.HM.u.`.|
00000570: 48 44 B2 33 31 00 7B 0D 92 18 8E 00 9B 0D 9C 18 |HD.31.{.........|
00000580: 49 B2 30 2E 30 3A 81 4D B2 31 A4 32 35 35 3A 4D |I.0.0:.M.1.255:M|
00000590: 31 28 4D 29 B2 30 2E 30 3A 82 4D 00 A9 0D 9D 18 |1(M).0.0:.M.....|
000005A0: 81 4D B2 31 A4 41 28 30 29 00 B2 0D 9E 18 8D 33 |.M.1.A(0)......3|
000005B0: 30 30 00 BF 0D A1 18 53 31 B2 C6 28 41 24 29 00 |00.....S1..(A$).|
000005C0: D5 0D A2 18 8B 4B 4D 24 28 53 31 29 B2 22 4E 22 |.....KM$(S1)."N"|
000005D0: A7 36 33 31 38 00 F1 0D A3 18 8B 4B 4D 24 28 53 |.6318......KM$(S|
000005E0: 31 29 B2 22 49 22 A7 53 32 B2 34 3A 89 36 33 31 |1)."I".S2.4:.631|
000005F0: 32 00 0D 0E A4 18 8B 4B 4D 24 28 53 31 29 B2 22 |2......KM$(S1)."|
00000600: 55 22 A7 53 32 B2 35 3A 89 36 33 31 32 00 37 0E |U".S2.5:.6312.7.|
00000610: A5 18 99 4B 4D 24 28 53 31 29 3A 99 22 11 4D 4F |...KM$(S1):.".MO|
00000620: 4D 53 20 46 45 4A 4C 2C 4B 54 22 2C C6 28 41 24 |MS FEJL,KT",.(A$|
00000630: 29 3A 89 36 33 31 38 00 53 0E A8 18 8B 45 24 B3 |):.6318.S....E$.|
00000640: C7 28 53 4D 29 B0 45 24 B1 C7 28 48 4D 29 A7 36 |.(SM).E$..(HM).6|
00000650: 33 31 38 00 73 0E AA 18 42 31 B2 41 28 4D 29 3A |318.s...B1.A(M):|
00000660: 42 32 B2 4D 31 28 53 32 29 3A 42 33 B2 4D 31 28 |B2.M1(S2):B3.M1(|
00000670: 53 31 29 00 A8 0E AB 18 42 34 B2 28 28 B5 28 42 |S1).....B4.((.(B|
00000680: 31 AC 43 4D AD 43 39 29 29 AD 31 30 30 29 3A 4D |1.CM.C9)).100):M|
00000690: 31 28 53 32 29 B2 42 32 AA 42 34 3A 4D 31 28 53 |1(S2).B2.B4:M1(S|
000006A0: 31 29 B2 42 33 AA 42 34 00 AF 0E AE 18 82 4D 00 |1).B3.B4......M.|
000006B0: B9 0E C9 18 4D B2 30 2E 30 00 D0 0E CA 18 99 22 |....M.0.0......"|
000006C0: 93 4F 50 47 30 52 45 4C 53 45 20 49 4E 44 47 22 |.OPG0RELSE INDG"|
000006D0: 00 E0 0E CB 18 81 20 4D B2 31 20 A4 20 32 35 35 |...... M.1 . 255|
000006E0: 00 EE 0E CC 18 54 24 B2 4B 4D 24 28 4D 29 00 01 |.....T$.KM$(M)..|
000006F0: 0F CD 18 8B 20 54 24 B3 B1 22 49 22 A7 36 33 35 |.... T$.."I".635|
00000700: 39 00 0B 0F CE 18 49 B2 30 2E 30 00 17 0F CF 18 |9.....I.0.0.....|
00000710: 49 B2 4D 31 28 4D 29 00 27 0F D0 18 8B 49 B2 30 |I.M1(M).'....I.0|
00000720: 2E 30 A7 36 33 35 39 00 59 0F D1 18 99 22 11 42 |.0.6359.Y....".B|
00000730: 4F 47 46 30 52 45 53 20 49 4E 44 47 20 53 4F 4D |OGF0RES INDG SOM|
00000740: 20 50 4F 53 54 20 4E 52 22 2C 28 41 28 30 29 AA | POST NR",(A(0).|
00000750: 31 29 2C 22 4B 52 22 2C 49 00 89 0F D2 18 49 31 |1),"KR",I.....I1|
00000760: 24 B2 C7 28 34 29 3A 49 32 24 B2 C7 28 4D 29 3A |$..(4):I2$..(M):|
00000770: 49 34 24 B2 C7 28 48 44 29 3A 49 35 24 B2 C7 28 |I4$..(HD):I5$..(|
00000780: 48 4D 29 3A 8D 35 36 30 30 00 C7 0F D3 18 99 22 |HM):.5600......"|
00000790: 50 4F 53 54 45 52 45 53 20 50 41 41 20 4B 54 20 |POSTERES PAA KT |
000007A0: 22 3B 4D 3B 22 20 53 4F 4D 20 50 4F 53 54 20 4E |";M;" SOM POST N|
000007B0: 52 22 2C 28 41 28 30 29 AA 31 29 2C 22 4B 52 22 |R",(A(0).1),"KR"|
000007C0: 2C 49 AC 28 AB 31 29 00 02 10 D4 18 49 31 24 B2 |,I.(.1).....I1$.|
000007D0: C7 28 4D 29 3A 49 32 24 B2 C7 28 32 35 33 29 3A |.(M):I2$..(253):|
000007E0: 49 34 24 B2 C7 28 48 44 29 3A 49 35 24 B2 C7 28 |I4$..(HD):I5$..(|
000007F0: 48 4D 29 3A 49 B2 49 AC 28 AB 31 29 3A 8D 35 36 |HM):I.I.(.1):.56|
00000800: 30 30 00 10 10 D5 18 99 22 54 41 53 54 2E 2E 22 |00......"TAST.."|
00000810: 00 24 10 D6 18 A1 54 24 3A 8B 54 24 B2 22 22 A7 |.$....T$:.T$."".|
00000820: 36 33 35 38 00 2C 10 D7 18 82 20 4D 00 3F 10 DB |6358.,.... M.?..|
00000830: 18 99 22 54 4F 54 41 4C 22 2C 4D 31 28 34 29 00 |.."TOTAL",M1(4).|
00000840: 53 10 DD 18 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 |S....A$:.A$."".6|
00000850: 33 36 35 00 5D 10 2D 19 4D B2 30 2E 30 00 73 10 |365.].-.M.0.0.s.|
00000860: 2E 19 99 22 93 4F 50 47 30 52 45 4C 53 45 20 55 |...".OPG0RELSE U|
00000870: 44 47 22 00 83 10 2F 19 81 20 4D B2 31 20 A4 20 |DG".../.. M.1 . |
00000880: 32 35 35 00 91 10 30 19 54 24 B2 4B 4D 24 28 4D |255...0.T$.KM$(M|
00000890: 29 00 A3 10 31 19 8B 54 24 B3 B1 22 55 22 A7 36 |)...1..T$.."U".6|
000008A0: 34 35 39 00 AD 10 32 19 49 B2 30 2E 30 00 B9 10 |459...2.I.0.0...|
000008B0: 33 19 49 B2 4D 31 28 4D 29 00 C7 10 34 19 8B 49 |3.I.M1(M)...4..I|
000008C0: B2 30 A7 36 34 35 39 00 F7 10 35 19 99 22 42 4F |.0.6459...5.."BO|
000008D0: 47 46 30 52 45 53 20 55 44 47 20 53 4F 4D 20 50 |GF0RES UDG SOM P|
000008E0: 4F 53 54 20 4E 52 22 2C 28 41 28 30 29 AA 31 29 |OST NR",(A(0).1)|
000008F0: 2C 22 4B 52 22 2C 49 00 27 11 36 19 49 31 24 B2 |,"KR",I.'.6.I1$.|
00000900: C7 28 35 29 3A 49 32 24 B2 C7 28 4D 29 3A 49 34 |.(5):I2$..(M):I4|
00000910: 24 B2 C7 28 48 44 29 3A 49 35 24 B2 C7 28 48 4D |$..(HD):I5$..(HM|
00000920: 29 3A 8D 35 36 30 30 00 64 11 37 19 99 22 50 4F |):.5600.d.7.."PO|
00000930: 53 54 45 52 45 53 20 50 41 41 20 4B 54 22 3B 4D |STERES PAA KT";M|
00000940: 3B 22 20 53 4F 4D 20 50 4F 53 54 20 4E 52 22 2C |;" SOM POST NR",|
00000950: 28 41 28 30 29 AA 31 29 2C 22 4B 52 22 2C 49 AC |(A(0).1),"KR",I.|
00000960: 28 AB 31 29 00 9F 11 38 19 49 31 24 B2 C7 28 4D |(.1)...8.I1$..(M|
00000970: 29 3A 49 32 24 B2 C7 28 32 35 33 29 3A 49 34 24 |):I2$..(253):I4$|
00000980: B2 C7 28 48 44 29 3A 49 35 24 B2 C7 28 48 4D 29 |..(HD):I5$..(HM)|
00000990: 3A 49 B2 49 AC 28 AB 31 29 3A 8D 35 36 30 30 00 |:I.I.(.1):.5600.|
000009A0: AD 11 39 19 99 22 54 41 53 54 2E 2E 22 00 C1 11 |..9.."TAST.."...|
000009B0: 3A 19 A1 54 24 3A 8B 54 24 B2 22 22 A7 36 34 35 |:..T$:.T$."".645|
000009C0: 38 00 C8 11 3B 19 82 4D 00 DB 11 3F 19 99 22 54 |8...;..M...?.."T|
000009D0: 4F 54 41 4C 22 2C 4D 31 28 35 29 00 EF 11 41 19 |OTAL",M1(5)...A.|
000009E0: A1 41 24 3A 8B 41 24 B2 22 22 A7 36 34 36 35 00 |.A$:.A$."".6465.|
000009F0: 10 12 64 19 99 22 4F 50 47 30 52 45 4C 53 45 20 |..d.."OPG0RELSE |
00000A00: 41 46 20 53 4B 59 4C 44 49 47 20 4D 4F 4D 53 22 |AF SKYLDIG MOMS"|
00000A10: 00 1C 12 6E 19 81 53 31 B2 34 A4 35 00 29 12 73 |...n..S1.4.5.).s|
00000A20: 19 49 B2 4D 31 28 53 31 29 00 53 12 78 19 99 22 |.I.M1(S1).S.x.."|
00000A30: 49 4E 44 4C 41 45 47 47 45 53 20 4E 55 20 53 4F |INDLAEGGES NU SO|
00000A40: 4D 20 50 4F 53 54 20 4E 52 22 2C 28 41 28 30 29 |M POST NR",(A(0)|
00000A50: AA 31 29 00 84 12 82 19 49 31 24 B2 C7 28 36 29 |.1).....I1$..(6)|
00000A60: 3A 49 32 24 B2 C7 28 53 31 29 3A 49 34 24 B2 C7 |:I2$..(S1):I4$..|
00000A70: 28 48 44 29 3A 49 35 24 B2 C7 28 48 4D 29 3A 8D |(HD):I5$..(HM):.|
00000A80: 35 36 30 30 00 B6 12 85 19 99 22 50 4F 53 54 45 |5600......"POSTE|
00000A90: 52 45 53 20 50 41 41 20 4B 54 22 3B 53 31 3B 22 |RES PAA KT";S1;"|
00000AA0: 20 53 4F 4D 20 50 4F 53 54 20 4E 52 22 2C 28 41 | SOM POST NR",(A|
00000AB0: 28 30 29 AA 31 29 00 F2 12 87 19 49 31 24 B2 C7 |(0).1).....I1$..|
00000AC0: 28 53 31 29 3A 49 32 24 B2 C7 28 32 35 33 29 3A |(S1):I2$..(253):|
00000AD0: 49 34 24 B2 C7 28 48 44 29 3A 49 35 24 B2 C7 28 |I4$..(HD):I5$..(|
00000AE0: 48 4D 29 3A 49 B2 49 AC 28 AB 31 29 3A 8D 35 36 |HM):I.I.(.1):.56|
00000AF0: 30 30 00 FA 12 8C 19 82 53 31 00 0C 13 8D 19 99 |00......S1......|
00000B00: 22 49 4E 44 47 22 2C 4D 31 28 34 29 00 1D 13 8E |"INDG",M1(4)....|
00000B10: 19 99 22 55 44 47 22 2C 4D 31 28 35 29 00 37 13 |.."UDG",M1(5).7.|
00000B20: 8F 19 99 22 4D 4F 4D 53 20 54 22 2C 4D 31 28 34 |..."MOMS T",M1(4|
00000B30: 29 AA 4D 31 28 35 29 00 3D 13 BE 19 8E 00 57 13 |).M1(5).=.....W.|
00000B40: 58 1B 99 22 46 31 3D 46 4F 52 54 52 59 44 2E 22 |X.."F1=FORTRYD."|
00000B50: 3A 53 24 B2 22 20 22 00 61 13 5D 1B 52 24 B2 22 |:S$." ".a.].R$."|
00000B60: 22 00 75 13 62 1B A1 53 24 3A 8B 53 24 B2 22 22 |".u.b..S$:.S$.""|
00000B70: A7 37 30 31 30 00 8F 13 6C 1B 58 B2 C6 28 53 24 |.7010...l.X..(S$|
00000B80: 29 AB 31 33 32 3A 8B 58 B3 30 A7 37 30 33 30 00 |).132:.X.0.7030.|
00000B90: 9B 13 71 1B 91 58 89 37 30 39 39 00 B0 13 76 1B |..q..X.7099...v.|
00000BA0: 9F 32 2C 38 2C 32 2C 52 31 24 AA 22 53 2C 52 22 |.2,8,2,R1$."S,R"|
00000BB0: 00 D8 13 7B 1B 84 32 2C 41 28 30 29 3A A1 23 32 |...{..2,A(0):.#2|
00000BC0: 2C 41 24 3A A1 23 32 2C 42 24 3A A1 23 32 2C 44 |,A$:.#2,B$:.#2,D|
00000BD0: 24 3A A1 23 32 2C 45 24 00 E3 13 7C 1B 42 24 B2 |$:.#2,E$...|.B$.|
00000BE0: 22 20 22 00 2D 14 80 1B 99 22 93 52 45 47 49 53 |" ".-....".REGIS|
00000BF0: 54 52 45 54 20 22 3B 52 31 24 3B 22 1D 45 52 20 |TRET ";R1$;".ER |
00000C00: 41 41 42 4E 45 54 2E 22 3A 99 22 53 49 44 53 54 |AABNET.":."SIDST|
00000C10: 45 20 44 41 54 4F 20 46 4F 52 20 53 4B 52 49 56 |E DATO FOR SKRIV|
00000C20: 4E 49 4E 47 20 22 3B C6 28 44 24 29 3B 00 56 14 |NING ";.(D$);.V.|
00000C30: 8A 1B 99 22 2F 22 3B C6 28 45 24 29 3B 22 52 45 |..."/";.(E$);"RE|
00000C40: 47 49 53 54 52 45 54 20 48 41 52 20 4E 52 20 22 |GISTRET HAR NR "|
00000C50: 3B C6 28 41 24 29 00 63 14 8B 1B 4D B2 30 3A 8D |;.(A$).c...M.0:.|
00000C60: 32 30 30 00 94 14 8F 1B 99 22 52 45 47 49 53 54 |200......"REGIST|
00000C70: 52 45 54 20 49 4E 44 45 48 4F 4C 44 45 52 20 22 |RET INDEHOLDER "|
00000C80: 3B 41 28 30 29 3B 22 20 50 4F 53 54 45 52 49 4E |;A(0);" POSTERIN|
00000C90: 47 45 52 22 00 A2 14 94 1B 81 4D B2 31 A4 41 28 |GER"......M.1.A(|
00000CA0: 30 29 00 CA 14 99 1B 84 32 2C 41 28 4D 29 3A A1 |0)......2,A(M):.|
00000CB0: 23 32 2C 41 24 3A A1 23 32 2C 42 24 3A A1 23 32 |#2,A$:.#2,B$:.#2|
00000CC0: 2C 44 24 3A A1 23 32 2C 45 24 00 D3 14 9C 1B 8D |,D$:.#2,E$......|
00000CD0: 32 30 30 00 E3 14 9E 1B 8B 53 54 B3 B1 30 89 37 |200......ST..0.7|
00000CE0: 30 38 30 00 EA 14 A3 1B 82 4D 00 F1 14 A8 1B A0 |080......M......|
00000CF0: 32 00 1B 15 B2 1B 99 22 4F 4B 22 3B 4D 3B 22 52 |2......"OK";M;"R|
00000D00: 45 43 20 4C 41 45 53 54 2E 20 54 52 59 4B 20 50 |EC LAEST. TRYK P|
00000D10: 41 41 20 45 4E 20 54 41 53 54 22 00 2F 15 B3 1B |AA EN TAST"./...|
00000D20: A1 53 24 3A 8B 53 24 B2 22 22 A7 37 30 39 31 00 |.S$:.S$."".7091.|
00000D30: 35 15 BB 1B 8E 00 48 15 BC 1B 99 22 46 31 3D 46 |5.....H...."F1=F|
00000D40: 4F 52 54 52 59 44 2E 22 00 5C 15 C6 1B A1 53 24 |ORTRYD.".\....S$|
00000D50: 3A 8B 53 24 B2 22 22 A7 37 31 31 30 00 76 15 D0 |:.S$."".7110.v..|
00000D60: 1B 58 B2 C6 28 53 24 29 AB 31 33 32 3A 8B 58 B3 |.X..(S$).132:.X.|
00000D70: 30 A7 37 31 33 30 00 82 15 D5 1B 91 58 89 37 31 |0.7130......X.71|
00000D80: 39 39 00 9D 15 DA 1B 9F 32 2C 38 2C 32 2C 22 40 |99......2,8,2,"@|
00000D90: 30 3A 22 AA 52 31 24 AA 22 53 2C 57 22 00 AA 15 |0:".R1$."S,W"...|
00000DA0: DF 1B 52 24 B2 C7 28 31 33 29 00 B8 15 E4 1B 81 |..R$..(13)......|
00000DB0: 4D B2 30 A4 41 28 30 29 00 C1 15 E9 1B 8D 33 30 |M.0.A(0)......30|
00000DC0: 30 00 DC 15 EE 1B 98 32 2C 41 28 4D 29 3B 52 24 |0......2,A(M);R$|
00000DD0: 3B 41 24 3B 42 24 3B 44 24 3B 45 24 00 EC 15 F8 |;A$;B$;D$;E$....|
00000DE0: 1B 8B 53 54 B3 B1 30 89 37 31 38 30 00 F3 15 02 |..ST..0.7180....|
00000DF0: 1C 82 4D 00 FA 15 0C 1C A0 32 00 14 16 16 1C 99 |..M......2......|
00000E00: 22 4F 4B 22 3B 4D 3B 22 52 45 43 20 53 4B 52 45 |"OK";M;"REC SKRE|
00000E10: 56 45 54 22 00 1A 16 1F 1C 8E 00 20 16 28 23 8F |VET"....... .(#.|
00000E20: 00 2A 16 8C 23 8D 34 35 30 30 00 34 16 F0 23 8D |.*..#.4500.4..#.|
00000E30: 32 30 30 30 00 3E 16 54 24 8D 37 30 30 30 00 48 |2000.>.T$.7000.H|
00000E40: 16 5E 24 8D 36 32 30 30 00 52 16 B8 24 8D 36 33 |.^$.6200.R..$.63|
00000E50: 30 30 00 5C 16 80 25 8D 33 30 30 30 00 66 16 E4 |00.\..%.3000.f..|
00000E60: 25 8D 37 31 30 30 00 7B 16 AC 26 99 22 46 31 3D |%.7100.{..&."F1=|
00000E70: 49 4B 4B 45 20 53 4C 55 54 2E 22 00 8F 16 B6 26 |IKKE SLUT."....&|
00000E80: A1 53 24 3A 8B 53 24 B2 22 22 A7 39 39 31 30 00 |.S$:.S$."".9910.|
00000E90: A9 16 C0 26 58 B2 C6 28 53 24 29 AB 31 33 32 3A |...&X..(S$).132:|
00000EA0: 8B 58 B3 30 A7 39 39 33 30 00 B5 16 C5 26 91 58 |.X.0.9930....&.X|
00000EB0: 89 39 35 30 30 00 BB 16 CA 26 80 00 C1 16 06 27 |.9500....&.....'|
00000EC0: 80 00 00 37 |...7 |
.......:.53280,0:.53281,0:.".".(...CM.22
.<...C9.(100.CM).100.I....A(900),K$(900)
,KM$(255),M1(256),M2(256)......M.1.256:M
1(M).0.0:M2(M).0.0:.M......9000...E..1,1
,0,""...F..#1,I$:.I$:.102...G. 1.F.H....
.H.K$(M).A$.B$.D$.E$...M.. C(K$(M))..4.2
20...R........K$(M):.300...,.A$."".&.1.A
$.J(K$(M),1,1).0.6.B$."".D.;.B$.J(K$(M),
2,1).N.@.D$."".B.E.D$.J(K$(M),3,1).L.J.E
$.""...O.E$.J(K$(M),4,1)...P.T.C(A$).C(B
$).C(D$).C(E$)...Q.. T..4 .345...T...W.Y
.."A",A$,"B",B$,"D",D$,"E",E$:....P..".R
EGISTERNR?":.I$:A$(0).G(.(E(I$))).*.Z.."
GAMMEL DATO":.I$:D$(0).G(.(E(I$))).U....
"GAMMEL MAANED":.I$:E$(0).G(.(E(I$)))...
..R1$.D(F(A$(0))).I(D(F(D$(0))),2).I(D(F
(E$(0))),2)...*..".OK DER S0GES EFTER DA
TAREGISTER :";R1$...3...L...M.0:.300....
..".DENNE DATO":.I$:D$.G(.(E(I$)))......
"DENNE MAANED":.I$:E$.G(.(E(I$))).&...M.
0:.200.S.B.R1$.D(F(A$)).I(D(F(D$)),2).I(
D(F(E$)),2)...L..".OK REGISTRET GEMMES U
NDER NAVNET :";R1$............". *** NU
INDLAESES MOMSREG ***".....S$." ".P....
2,8,2,"MOMS,S,R"......M.1.255:.#2,AM$:.S
T..0.4560.....KM$(M).AM$...F..M.2.P.."..
MOMSREG INDLAEST MED ";M;"POSTER".:.U.
2.@.....W...A(0).A(0).1:M.A(0).B...A(M)
.I.V...A$.G(.(E(I1$)))...P.B$.G(.(E(I2$)
)).....D$.G(.(E(I4$))).....E$.G(.(E(I5$)
)).H.J.K$(M).A$.B$.D$.E$.N.|.......A(0).
A(0).1:M4.A(0).....A(M4).I.....K$(M4).I1
$.I2$.I4$.I5$...:...2.8..". *** MOMSOPG0
RELSE ***".P.B.."..INDTAST START MD":.SM
.K.V.."INDTAST SLUT MD":.HM.U.`.HD.31.{.
........I.0.0:.M.1.255:M1(M).0.0:.M.....
.M.1.A(0)......300.....S1.F(A$).U....KM$
(S1)."N".6318......KM$(S1)."I".S2.4:.631
2......KM$(S1)."U".S2.5:.6312.7....KM$(S
1):.".MOMS FEJL,KT",F(A$):.6318.S....E$.
G(SM).E$.G(HM).6318.S...B1.A(M):B2.M1(S2
):B3.M1(S1).....B4.((.(B1.CM.C9)).100):M
1(S2).B2.B4:M1(S1).B3.B4......M...I.M.0.
0.P.J..".OPG0RELSE INDG"...K.. M.1 . 255
...L.T$.KM$(M)...M.. T$.."I".6359...N.I.
0.0...O.I.M1(M).'.P..I.0.0.6359.Y.Q..".B
OGF0RES INDG SOM POST NR",(A(0).1),"KR",
I...R.I1$.G(4):I2$.G(M):I4$.G(HD):I5$.G(
HM):.5600.G.S.."POSTERES PAA KT ";M;" SO
M POST NR",(A(0).1),"KR",I.(.1)...T.I1$.
G(M):I2$.G(253):I4$.G(HD):I5$.G(HM):I.I.
(.1):.5600...U.."TAST..".$.V..T$:.T$."".
6358.,.W.. M.?...."TOTAL",M1(4).S....A$:
.A$."".6365.].-.M.0.0.S....".OPG0RELSE U
DG".../.. M.1 . 255...0.T$.KM$(M)...1..T
$.."U".6459...2.I.0.0...3.I.M1(M).G.4..I
.0.6459...5.."BOGF0RES UDG SOM POST NR",
(A(0).1),"KR",I.'.6.I1$.G(5):I2$.G(M):I4
$.G(HD):I5$.G(HM):.5600.D.7.."POSTERES P
AA KT";M;" SOM POST NR",(A(0).1),"KR",I.
(.1)...8.I1$.G(M):I2$.G(253):I4$.G(HD):I
5$.G(HM):I.I.(.1):.5600...9.."TAST..".A.
:..T$:.T$."".6458.H.;..M...?.."TOTAL",M1
(5)...A..A$:.A$."".6465...D.."OPG0RELSE
AF SKYLDIG MOMS"...N..S1.4.5.).S.I.M1(S1
).S.X.."INDLAEGGES NU SOM POST NR",(A(0)
.1).....I1$.G(6):I2$.G(S1):I4$.G(HD):I5$
.G(HM):.5600......"POSTERES PAA KT";S1;"
SOM POST NR",(A(0).1).....I1$.G(S1):I2$
.G(253):I4$.G(HD):I5$.G(HM):I.I.(.1):.56
00......S1......"INDG",M1(4)......"UDG",
M1(5).7...."MOMS T",M1(4).M1(5).=.....W.
X.."F1=FORTRYD.":S$." ".A.].R$."".U.B..S
$:.S$."".7010...L.X.F(S$).132:.X.0.7030.
..Q..X.7099...V..2,8,2,R1$."S,R".X.{..2,
A(0):.#2,A$:.#2,B$:.#2,D$:.#2,E$...|.B$.
" ".-....".REGISTRET ";R1$;".ER AABNET."
:."SIDSTE DATO FOR SKRIVNING ";F(D$);.V.
..."/";F(E$);"REGISTRET HAR NR ";F(A$).C
...M.0:.200......"REGISTRET INDEHOLDER "
;A(0);" POSTERINGER"......M.1.A(0).J....
2,A(M):.#2,A$:.#2,B$:.#2,D$:.#2,E$.S....
200......ST..0.7080......M..... 2......"
OK";M;"REC LAEST. TRYK PAA EN TAST"./...
.S$:.S$."".7091.5.....H...."F1=FORTRYD."
.\.F..S$:.S$."".7110.V.P.X.F(S$).132:.X.
0.7130...U..X.7199...Z..2,8,2,"@0:".R1$.
"S,W".....R$.G(13)......M.0.A(0).A....30
0......2,A(M);R$;A$;B$;D$;E$......ST..0.
7180......M..... 2......"OK";M;"REC SKRE
VET"....... .(#..*..#.4500.4..#.2000.>.T
$.7000.H.^$.6200.R..$.6300.\..%.3000.F..
%.7100.{..&."F1=IKKE SLUT."....&.S$:.S$.
"".9910....&X.F(S$).132:.X.0.9930...E&.X
.9500...J&..A..'...7
> CLICK IMAGE PREVIEW FOR FULL MODAL