PERIODEREGNSKAB
FILE INFORMATION
FILENAME(S): PERIODEREGNSKAB
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 20:14:46
APPEARS ON: 1 disk(s)
FILE HASH
22a18bc1a09e4d30748ac87fb5ee40019b418f9a9d4771b3d60c518dc329c25b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BEDSTE PROGAM | PERIODEREGNSKAB | PRG | Curtcool, LPN | 24 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 10 27 8F 2A 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 37 08 11 27 8F 20 49 4E 49 54 |*****.7..'. INIT|
00000030: 49 41 4C 49 53 45 52 00 5B 08 12 27 8F 2A 2A 2A |IALISER.[..'.***|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7C 08 1A 27 |***********.|..'|
00000060: 86 54 45 24 28 31 30 30 29 3A 86 4D 44 24 28 31 |.TE$(100):.MD$(1|
00000070: 36 29 3A 86 42 49 24 28 32 35 35 29 00 9B 08 24 |6):.BI$(255)...$|
00000080: 27 48 4A 24 B2 22 20 20 20 20 20 20 20 20 20 20 |'HJ$." |
00000090: 20 20 20 20 20 20 20 20 20 20 22 00 A8 08 2E 27 | "....'|
000000A0: 86 50 45 28 31 30 30 29 00 DE 08 42 27 53 54 52 |.PE(100)...B'STR|
000000B0: 45 47 24 B2 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |EG$."...........|
000000C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000000D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 00 03 |............."..|
000000E0: 09 43 27 4D 44 24 28 30 29 B2 22 4A 41 4E 55 41 |.C'MD$(0)."JANUA|
000000F0: 52 22 3A 4D 44 24 28 31 29 B2 22 46 45 42 52 55 |R":MD$(1)."FEBRU|
00000100: 41 52 22 00 25 09 44 27 4D 44 24 28 32 29 B2 22 |AR".%.D'MD$(2)."|
00000110: 4D 41 52 54 53 22 3A 4D 44 24 28 33 29 B2 22 41 |MARTS":MD$(3)."A|
00000120: 50 52 49 4C 22 00 44 09 45 27 4D 44 24 28 34 29 |PRIL".D.E'MD$(4)|
00000130: B2 22 4D 41 4A 22 3A 4D 44 24 28 35 29 B2 22 4A |."MAJ":MD$(5)."J|
00000140: 55 4E 49 22 00 66 09 46 27 4D 44 24 28 36 29 B2 |UNI".f.F'MD$(6).|
00000150: 22 4A 55 4C 49 22 3A 4D 44 24 28 37 29 B2 22 41 |"JULI":MD$(7)."A|
00000160: 55 47 55 53 54 22 00 8E 09 47 27 4D 44 24 28 38 |UGUST"...G'MD$(8|
00000170: 29 B2 22 53 45 50 54 45 4D 42 45 52 22 3A 4D 44 |)."SEPTEMBER":MD|
00000180: 24 28 39 29 B2 22 4F 4B 54 4F 42 45 52 22 00 B8 |$(9)."OKTOBER"..|
00000190: 09 48 27 4D 44 24 28 31 30 29 B2 22 4E 4F 56 45 |.H'MD$(10)."NOVE|
000001A0: 4D 42 45 52 22 3A 4D 44 24 28 31 31 29 B2 22 44 |MBER":MD$(11)."D|
000001B0: 45 43 45 4D 42 45 52 22 00 CC 09 49 27 4D 44 24 |ECEMBER"...I'MD$|
000001C0: 28 31 32 29 B2 22 54 4F 54 41 4C 22 00 FA 09 4A |(12)."TOTAL"...J|
000001D0: 27 4D 44 24 28 31 33 29 B2 22 31 2E 20 4B 56 41 |'MD$(13)."1. KVA|
000001E0: 52 54 41 4C 22 3A 4D 44 24 28 31 34 29 B2 22 32 |RTAL":MD$(14)."2|
000001F0: 2E 20 4B 56 41 52 54 41 4C 22 00 28 0A 4B 27 4D |. KVARTAL".(.K'M|
00000200: 44 24 28 31 35 29 B2 22 33 2E 20 4B 56 41 52 54 |D$(15)."3. KVART|
00000210: 41 4C 22 3A 4D 44 24 28 31 36 29 B2 22 34 2E 20 |AL":MD$(16)."4. |
00000220: 4B 56 41 52 54 41 4C 22 00 33 0A F7 2A 89 32 39 |KVARTAL".3..*.29|
00000230: 30 30 30 00 57 0A 1E 2D 8F 2A 2A 2A 2A 2A 2A 2A |000.W..-.*******|
00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000250: 2A 2A 2A 2A 2A 2A 2A 00 6C 0A 1F 2D 8F 20 4C 4F |*******.l..-. LO|
00000260: 41 44 20 4B 4F 4E 54 4F 50 4C 41 4E 00 90 0A 21 |AD KONTOPLAN...!|
00000270: 2D 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |-.**************|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000290: 00 BF 0A 23 2D 8D 32 30 34 30 30 3A 58 B2 31 33 |...#-.20400:X.13|
000002A0: 3A 59 B2 32 32 3A 8D 32 30 30 30 30 3A 99 22 12 |:Y.22:.20000:.".|
000002B0: 20 56 45 4E 54 20 31 20 4D 49 4E 55 54 20 22 00 | VENT 1 MINUT ".|
000002C0: DC 0A 28 2D 9F 31 2C 38 2C 32 2C 22 30 3A 4B 4F |..(-.1,8,2,"0:KO|
000002D0: 4E 54 4F 50 4C 41 4E 2C 53 2C 52 22 00 F3 0A 32 |NTOPLAN,S,R"...2|
000002E0: 2D 81 49 B2 30 A4 31 30 30 3A 84 31 2C 54 45 24 |-.I.0.100:.1,TE$|
000002F0: 28 49 29 00 0D 0B 37 2D 8B 54 45 24 28 49 29 B2 |(I)...7-.TE$(I).|
00000300: 22 22 A7 54 45 24 28 49 29 B2 48 4A 24 00 14 0B |"".TE$(I).HJ$...|
00000310: 38 2D 82 49 00 1D 0B 3C 2D A0 31 3A 8E 00 41 0B |8-.I...<-.1:..A.|
00000320: 74 40 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |t@.*************|
00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000340: 2A 00 57 0B 75 40 8F 20 4F 50 42 59 47 20 42 49 |*.W.u@. OPBYG BI|
00000350: 4C 41 47 53 46 49 4C 00 7B 0B 77 40 8F 2A 2A 2A |LAGSFIL.{.w@.***|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9E 0B 7E 40 |***********...~@|
00000380: 8B 51 24 B2 22 41 22 A7 44 41 24 B2 C8 28 42 49 |.Q$."A".DA$..(BI|
00000390: 24 28 31 29 2C 34 29 AA 22 31 33 30 30 22 00 C6 |$(1),4)."1300"..|
000003A0: 0B 88 40 8B 51 24 B2 22 4B 22 AF 4B 25 B2 31 A7 |..@.Q$."K".K%.1.|
000003B0: 44 41 24 B2 C8 28 42 49 24 28 31 29 2C 34 29 AA |DA$..(BI$(1),4).|
000003C0: 22 31 34 30 30 22 00 EE 0B 92 40 8B 51 24 B2 22 |"1400"....@.Q$."|
000003D0: 4B 22 AF 4B 25 B2 32 A7 44 41 24 B2 C8 28 42 49 |K".K%.2.DA$..(BI|
000003E0: 24 28 31 29 2C 34 29 AA 22 31 35 30 30 22 00 16 |$(1),4)."1500"..|
000003F0: 0C 9C 40 8B 51 24 B2 22 4B 22 AF 4B 25 B2 33 A7 |..@.Q$."K".K%.3.|
00000400: 44 41 24 B2 C8 28 42 49 24 28 31 29 2C 34 29 AA |DA$..(BI$(1),4).|
00000410: 22 31 36 30 30 22 00 3E 0C A6 40 8B 51 24 B2 22 |"1600".>..@.Q$."|
00000420: 4B 22 AF 4B 25 B2 34 A7 44 41 24 B2 C8 28 42 49 |K".K%.4.DA$..(BI|
00000430: 24 28 31 29 2C 34 29 AA 22 31 37 30 30 22 00 46 |$(1),4)."1700".F|
00000440: 0C CE 40 4E B2 30 00 80 0C D8 40 81 49 B2 30 A4 |..@N.0....@.I.0.|
00000450: 39 39 3A 8B CA 28 54 45 24 28 49 29 2C 35 2C 31 |99:..(TE$(I),5,1|
00000460: 32 29 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |2)." |
00000470: 22 AF 50 45 28 49 29 B2 30 A7 89 31 36 37 34 30 |".PE(I).0..16740|
00000480: 00 9D 0C E2 40 8B 49 B3 31 30 A7 49 24 B2 22 30 |....@.I.10.I$."0|
00000490: 22 AA CA 28 C4 28 49 29 2C 32 2C 31 29 00 B5 0C |"..(.(I),2,1)...|
000004A0: EC 40 8B 49 B1 39 A7 49 24 B2 CA 28 C4 28 49 29 |.@.I.9.I$..(.(I)|
000004B0: 2C 32 2C 32 29 00 D0 0C 3C 41 42 45 B2 50 45 28 |,2,2)...<ABE.PE(|
000004C0: 49 29 3A 8D 32 30 35 30 30 3A 8D 32 31 30 30 30 |I):.20500:.21000|
000004D0: 00 F1 0C 46 41 50 45 24 B2 C8 28 28 48 4D 24 AA |...FAPE$..((HM$.|
000004E0: C4 28 50 45 28 49 29 29 AA 44 45 24 29 2C 31 30 |.(PE(I)).DE$),10|
000004F0: 29 00 1A 0D 50 41 42 49 24 28 4E 29 B2 44 41 24 |)...PABI$(N).DA$|
00000500: AA 49 24 AA CA 28 54 45 24 28 49 29 2C 35 2C 31 |.I$..(TE$(I),5,1|
00000510: 32 29 AA 22 50 22 AA 50 45 24 00 24 0D 5A 41 4E |2)."P".PE$.$.ZAN|
00000520: B2 4E AA 31 00 2B 0D 64 41 82 49 00 4F 0D 68 42 |.N.1.+.dA.I.O.hB|
00000530: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000550: 69 0D 69 42 8F 20 53 41 56 45 20 4F 50 53 55 4D |i.iB. SAVE OPSUM|
00000560: 4D 45 52 45 54 20 46 49 4C 00 8D 0D 6B 42 8F 2A |MERET FIL...kB.*|
00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9C 0D |*************...|
00000590: 6D 42 42 49 24 28 4E 29 B2 22 2A 22 00 B9 0D 72 |mBBI$(N)."*"...r|
000005A0: 42 46 49 24 B2 CA 28 44 41 24 2C 35 2C 32 29 3A |BFI$..(DA$,5,2):|
000005B0: 46 49 B2 C5 28 46 49 24 29 00 DB 0D 7C 42 9F 33 |FI..(FI$)...|B.3|
000005C0: 2C 38 2C 34 2C 22 40 30 3A 22 AA 4D 44 24 28 46 |,8,4,"@0:".MD$(F|
000005D0: 49 AB 31 29 AA 22 2C 53 2C 57 22 00 E3 0D 86 42 |I.1).",S,W"....B|
000005E0: 49 B2 31 00 EC 0D 90 42 98 33 2C 4E 00 FA 0D 9A |I.1....B.3,N....|
000005F0: 42 98 33 2C 42 49 24 28 49 29 00 10 0E A4 42 8B |B.3,BI$(I)....B.|
00000600: 42 49 24 28 49 29 B2 22 2A 22 A7 31 37 30 38 30 |BI$(I)."*".17080|
00000610: 00 21 0E AE 42 49 B2 49 AA 31 3A 89 31 37 30 35 |.!..BI.I.1:.1705|
00000620: 30 00 3B 0E B8 42 A0 33 3A 81 49 B2 31 A4 4E 3A |0.;..B.3:.I.1.N:|
00000630: 42 49 24 28 49 29 B2 22 22 3A 82 00 68 0E C2 42 |BI$(I)."":..h..B|
00000640: 4E B2 31 3A 4D 49 24 28 31 29 B2 22 22 3A 4D 49 |N.1:MI$(1)."":MI|
00000650: 24 28 32 29 B2 22 22 3A 4D 49 24 28 33 29 B2 22 |$(2)."":MI$(3)."|
00000660: 22 3A 89 32 39 30 30 30 00 8C 0E CC 42 8F 2A 2A |":.29000....B.**|
00000670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A3 0E CD |************....|
00000690: 42 8F 20 4C 4F 41 44 20 42 49 4C 41 47 53 46 49 |B. LOAD BILAGSFI|
000006A0: 4C 45 52 00 C7 0E CF 42 8F 2A 2A 2A 2A 2A 2A 2A |LER....B.*******|
000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006C0: 2A 2A 2A 2A 2A 2A 2A 00 DD 0E D1 42 9F 33 2C 38 |*******....B.3,8|
000006D0: 2C 34 2C 46 49 24 AA 22 2C 53 2C 52 22 00 E5 0E |,4,FI$.",S,R"...|
000006E0: D6 42 49 B2 31 00 F8 0E E0 42 84 33 2C 4E 3A 4E |.BI.1....B.3,N:N|
000006F0: 4E B2 4E 3A 4D 4E B2 4E 00 06 0F EA 42 84 33 2C |N.N:MN.N....B.3,|
00000700: 42 49 24 28 49 29 00 1C 0F F4 42 8B 42 49 24 28 |BI$(I)....B.BI$(|
00000710: 49 29 B2 22 2A 22 A7 31 37 31 36 30 00 2D 0F FE |I)."*".17160.-..|
00000720: 42 49 B2 49 AA 31 3A 89 31 37 31 33 30 00 34 0F |BI.I.1:.17130.4.|
00000730: 08 43 A0 33 00 62 0F 12 43 4D 49 24 28 31 29 B2 |.C.3.b..CMI$(1).|
00000740: C8 28 42 49 24 28 31 29 2C 34 29 3A 4D 49 24 28 |.(BI$(1),4):MI$(|
00000750: 32 29 B2 CA 28 42 49 24 28 31 29 2C 35 2C 32 29 |2)..(BI$(1),5,2)|
00000760: 3A 8E 00 86 0F 38 4A 8F 2A 2A 2A 2A 2A 2A 2A 2A |:....8J.********|
00000770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000780: 2A 2A 2A 2A 2A 2A 00 A7 0F 39 4A 8F 20 4F 50 53 |******...9J. OPS|
00000790: 55 4D 4D 45 52 49 4E 47 20 41 46 20 42 49 4C 41 |UMMERING AF BILA|
000007A0: 47 53 46 49 4C 45 52 00 CB 0F 3B 4A 8F 2A 2A 2A |GSFILER...;J.***|
000007B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D6 0F 42 4A |***********...BJ|
000007D0: 8D 31 31 35 35 30 00 FE 0F 4C 4A 8B 51 24 B2 22 |.11550...LJ.Q$."|
000007E0: 41 22 A7 81 4D B2 31 A4 31 32 3A 46 49 24 B2 4D |A"..M.1.12:FI$.M|
000007F0: 44 24 28 4D AB 31 29 3A 8D 31 37 31 30 30 00 2A |D$(M.1):.17100.*|
00000800: 10 56 4A 8B 51 24 B2 22 4B 22 AF 4B 25 B2 31 A7 |.VJ.Q$."K".K%.1.|
00000810: 81 4D B2 31 A4 33 3A 46 49 24 B2 4D 44 24 28 4D |.M.1.3:FI$.MD$(M|
00000820: AB 31 29 3A 8D 31 37 31 30 30 00 56 10 60 4A 8B |.1):.17100.V.`J.|
00000830: 51 24 B2 22 4B 22 AF 4B 25 B2 32 A7 81 4D B2 34 |Q$."K".K%.2..M.4|
00000840: A4 36 3A 46 49 24 B2 4D 44 24 28 4D AB 31 29 3A |.6:FI$.MD$(M.1):|
00000850: 8D 31 37 31 30 30 00 82 10 6A 4A 8B 51 24 B2 22 |.17100...jJ.Q$."|
00000860: 4B 22 AF 4B 25 B2 33 A7 81 4D B2 37 A4 39 3A 46 |K".K%.3..M.7.9:F|
00000870: 49 24 B2 4D 44 24 28 4D AB 31 29 3A 8D 31 37 31 |I$.MD$(M.1):.171|
00000880: 30 30 00 B0 10 74 4A 8B 51 24 B2 22 4B 22 AF 4B |00...tJ.Q$."K".K|
00000890: 25 B2 34 A7 81 4D B2 31 30 A4 31 32 3A 46 49 24 |%.4..M.10.12:FI$|
000008A0: B2 4D 44 24 28 4D AB 31 29 3A 8D 31 37 31 30 30 |.MD$(M.1):.17100|
000008B0: 00 BD 10 9C 4A 81 49 B2 31 A4 4E AB 31 00 D5 10 |....J.I.1.N.1...|
000008C0: B0 4A 49 49 B2 C5 28 CA 28 42 49 24 28 49 29 2C |.JII..(.(BI$(I),|
000008D0: 39 2C 32 29 29 00 F7 10 BA 4A 50 45 28 49 49 29 |9,2))....JPE(II)|
000008E0: B2 50 45 28 49 49 29 AA C5 28 C9 28 42 49 24 28 |.PE(II)..(.(BI$(|
000008F0: 49 29 2C 31 30 29 29 00 01 11 C4 4A 82 49 3A 82 |I),10))....J.I:.|
00000900: 4D 00 0C 11 F6 4A 89 31 36 35 30 30 00 30 11 20 |M....J.16500.0. |
00000910: 4E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |N.**************|
00000920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000930: 00 51 11 21 4E 8F 20 53 55 42 2E 20 54 49 4C 20 |.Q.!N. SUB. TIL |
00000940: 50 52 49 4E 54 20 41 46 20 58 2C 59 20 50 4F 53 |PRINT AF X,Y POS|
00000950: 2E 00 75 11 22 4E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..u."N.*********|
00000960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000970: 2A 2A 2A 2A 2A 00 7F 11 2A 4E 99 22 13 22 3B 00 |*****...*N.".";.|
00000980: 98 11 34 4E 8B 20 59 B3 B1 30 20 A7 20 97 20 32 |..4N. Y..0 . . 2|
00000990: 31 34 2C 59 AB 31 3A 99 00 A4 11 3E 4E 97 20 32 |14,Y.1:....>N. 2|
000009A0: 31 31 2C 58 00 AA 11 48 4E 8E 00 CE 11 B0 4F 8F |11,X...HN.....O.|
000009B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E9 |**************..|
000009D0: 11 B1 4F 8F 20 53 55 42 2E 20 48 45 4C 20 42 4C |..O. SUB. HEL BL|
000009E0: 41 4E 4B 20 4C 49 4E 49 45 00 0D 12 B3 4F 8F 2A |ANK LINIE....O.*|
000009F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 21 12 |*************.!.|
00000A10: BA 4F 58 B2 30 3A 59 B2 32 32 3A 8D 32 30 30 30 |.OX.0:Y.22:.2000|
00000A20: 30 00 53 12 C4 4F 99 22 20 20 20 20 20 20 20 20 |0.S..O." |
00000A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A50: 22 3A 8E 00 77 12 14 50 8F 2A 2A 2A 2A 2A 2A 2A |":..w..P.*******|
00000A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A70: 2A 2A 2A 2A 2A 2A 2A 00 9B 12 15 50 8F 20 53 55 |*******....P. SU|
00000A80: 42 2E 20 48 4F 45 4A 52 45 20 4D 41 52 47 49 4E |B. HOEJRE MARGIN|
00000A90: 20 46 4F 52 20 42 45 4C 4F 45 42 00 BF 12 17 50 | FOR BELOEB....P|
00000AA0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000AC0: DB 12 1E 50 8B B6 28 42 45 29 B3 31 30 A7 48 4D |...P..(BE).10.HM|
00000AD0: 24 B2 22 20 20 20 20 20 22 3A 8E 00 F7 12 28 50 |$." ":....(P|
00000AE0: 8B B6 28 42 45 29 B3 31 30 30 A7 48 4D 24 B2 22 |..(BE).100.HM$."|
00000AF0: 20 20 20 20 22 3A 8E 00 13 13 32 50 8B B6 28 42 | ":....2P..(B|
00000B00: 45 29 B3 31 30 30 30 A7 48 4D 24 B2 22 20 20 20 |E).1000.HM$." |
00000B10: 22 3A 8E 00 2F 13 3C 50 8B B6 28 42 45 29 B3 31 |":../.<P..(BE).1|
00000B20: 30 30 30 30 A7 48 4D 24 B2 22 20 20 22 3A 8E 00 |0000.HM$." ":..|
00000B30: 4B 13 46 50 8B B6 28 42 45 29 B3 31 30 30 30 30 |K.FP..(BE).10000|
00000B40: 30 A7 48 4D 24 B2 22 20 22 3A 8E 00 58 13 50 50 |0.HM$." ":..X.PP|
00000B50: 48 4D 24 B2 22 22 3A 8E 00 7C 13 08 52 8F 2A 2A |HM$."":..|..R.**|
00000B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 92 13 09 |************....|
00000B80: 52 8F 20 53 55 42 2E 20 4F 45 52 45 42 45 4C 4F |R. SUB. OEREBELO|
00000B90: 45 42 00 B6 13 0B 52 8F 2A 2A 2A 2A 2A 2A 2A 2A |EB....R.********|
00000BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BB0: 2A 2A 2A 2A 2A 2A 00 D5 13 12 52 8B B6 28 42 45 |******....R..(BE|
00000BC0: AB B5 28 42 45 29 29 B2 30 A7 44 45 24 B2 22 2E |..(BE)).0.DE$.".|
00000BD0: 30 30 22 3A 8E 00 E3 13 1C 52 44 45 24 B2 22 30 |00":.....RDE$."0|
00000BE0: 22 3A 8E 00 07 14 48 71 8F 2A 2A 2A 2A 2A 2A 2A |":....Hq.*******|
00000BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C00: 2A 2A 2A 2A 2A 2A 2A 00 1B 14 49 71 8F 20 53 4B |*******...Iq. SK|
00000C10: 41 45 52 4D 42 49 4C 4C 45 44 45 00 3F 14 4B 71 |AERMBILLEDE.?.Kq|
00000C20: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000C30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000C40: 5B 14 52 71 99 22 93 05 22 3A 97 35 33 32 38 30 |[.Rq."..":.53280|
00000C50: 2C 30 3A 97 35 33 32 38 31 2C 32 00 8B 14 5C 71 |,0:.53281,2...\q|
00000C60: 58 B2 37 3A 59 B2 31 3A 8D 32 30 30 30 30 3A 99 |X.7:Y.1:.20000:.|
00000C70: 22 52 20 55 20 4E 20 2D 20 43 4F 4D 4D 4F 44 4F |"R U N - COMMODO|
00000C80: 52 45 20 4D 41 47 41 53 49 4E 22 00 B2 14 66 71 |RE MAGASIN"...fq|
00000C90: 58 B2 31 32 3A 59 B2 33 3A 8D 32 30 30 30 30 3A |X.12:Y.3:.20000:|
00000CA0: 99 22 50 52 49 56 41 54 52 45 47 4E 53 4B 41 42 |."PRIVATREGNSKAB|
00000CB0: 2E 22 00 DF 14 70 71 58 B2 39 3A 59 B2 35 3A 8D |."...pqX.9:Y.5:.|
00000CC0: 32 30 30 30 30 3A 99 22 12 50 20 45 20 52 20 49 |20000:.".P E R I|
00000CD0: 20 4F 20 44 20 45 20 53 20 4C 20 55 20 54 22 00 | O D E S L U T".|
00000CE0: 0A 15 75 71 58 B2 31 31 3A 59 B2 31 30 3A 8D 32 |..uqX.11:Y.10:.2|
00000CF0: 30 30 30 30 3A 99 22 28 4C 3A 20 4C 4F 41 44 20 |0000:."(L: LOAD |
00000D00: 52 45 47 4E 53 4B 41 42 29 22 00 2D 15 76 71 58 |REGNSKAB)".-.vqX|
00000D10: B2 31 31 3A 59 B2 31 32 3A 8D 32 30 30 30 30 3A |.11:Y.12:.20000:|
00000D20: 99 22 28 42 3A 20 42 41 53 49 43 29 22 00 49 15 |."(B: BASIC)".I.|
00000D30: 7A 71 58 B2 30 3A 59 B2 32 30 3A 8D 32 30 30 30 |zqX.0:Y.20:.2000|
00000D40: 30 3A 99 53 54 52 45 47 24 00 87 15 84 71 58 B2 |0:.STREG$....qX.|
00000D50: 33 3A 59 B2 32 32 3A 8D 32 30 30 30 30 3A 99 22 |3:Y.22:.20000:."|
00000D60: 12 20 92 4B 12 56 41 52 54 41 4C 20 45 4C 4C 45 |. .K.VARTAL ELLE|
00000D70: 52 20 92 41 12 41 52 20 2D 20 49 4E 44 54 41 53 |R .A.AR - INDTAS|
00000D80: 54 20 4B 2F 41 20 22 00 9C 15 8E 71 A1 51 24 3A |T K/A "....q.Q$:|
00000D90: 8B 51 24 B2 22 22 A7 32 39 30 37 30 00 C8 15 98 |.Q$."".29070....|
00000DA0: 71 8B 51 24 B3 B1 22 4B 22 AF 51 24 B3 B1 22 41 |q.Q$.."K".Q$.."A|
00000DB0: 22 AF 51 24 B3 B1 22 4C 22 AF 51 24 B3 B1 22 42 |".Q$.."L".Q$.."B|
00000DC0: 22 A7 89 32 39 30 37 30 00 DB 15 A2 71 8B 51 24 |"..29070....q.Q$|
00000DD0: B2 22 4B 22 A7 89 32 39 33 30 30 00 EE 15 AC 71 |."K"..29300....q|
00000DE0: 8B 51 24 B2 22 41 22 A7 89 31 39 30 30 30 00 01 |.Q$."A"..19000..|
00000DF0: 16 B6 71 8B 51 24 B2 22 4C 22 A7 89 32 39 39 35 |..q.Q$."L"..2995|
00000E00: 30 00 14 16 C0 71 8B 51 24 B2 22 42 22 A7 99 22 |0....q.Q$."B".."|
00000E10: 93 22 3A 80 00 38 16 74 72 8F 2A 2A 2A 2A 2A 2A |.":..8.tr.******|
00000E20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E30: 2A 2A 2A 2A 2A 2A 2A 2A 00 4E 16 75 72 8F 20 49 |********.N.ur. I|
00000E40: 4E 44 54 41 53 54 20 4B 56 41 52 54 41 4C 00 72 |NDTAST KVARTAL.r|
00000E50: 16 77 72 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.wr.************|
00000E60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E70: 2A 2A 00 A7 16 7E 72 8D 32 30 34 30 30 3A 58 B2 |**...~r.20400:X.|
00000E80: 39 3A 59 B2 32 32 3A 8D 32 30 30 30 30 3A 99 22 |9:Y.22:.20000:."|
00000E90: 12 20 49 4E 44 54 41 53 54 20 4B 56 41 52 54 41 |. INDTAST KVARTA|
00000EA0: 4C 20 31 2D 34 20 22 00 C1 16 88 72 A1 4B 25 3A |L 1-4 "....r.K%:|
00000EB0: 8B 4B 25 B3 31 B0 4B 25 B1 34 A7 89 32 39 33 32 |.K%.1.K%.4..2932|
00000EC0: 30 00 CC 16 92 72 89 31 39 30 30 30 00 F0 16 FE |0....r.19000....|
00000ED0: 74 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |t.**************|
00000EE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EF0: 00 0A 17 FF 74 8F 20 4C 4F 41 44 20 52 45 47 4E |....t. LOAD REGN|
00000F00: 53 4B 41 42 2F 42 41 53 49 43 00 2E 17 01 75 8F |SKAB/BASIC....u.|
00000F10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 37 |**************.7|
00000F30: 17 08 75 99 22 93 22 00 75 17 09 75 58 B2 30 3A |..u.".".u..uX.0:|
00000F40: 59 B2 30 3A 8D 32 30 30 30 30 3A 99 22 4C 4F 41 |Y.0:.20000:."LOA|
00000F50: 44 20 22 AA C7 28 33 34 29 AA 22 52 45 47 4E 53 |D "..(34)."REGNS|
00000F60: 4B 41 42 2F 42 41 53 49 43 22 AA C7 28 33 34 29 |KAB/BASIC"..(34)|
00000F70: AA 22 2C 38 22 00 B7 17 0D 75 58 B2 30 3A 59 B2 |.",8"....uX.0:Y.|
00000F80: 35 3A 8D 32 30 30 30 30 3A 99 22 31 30 30 31 30 |5:.20000:."10010|
00000F90: 20 44 49 4D 54 45 24 28 31 30 30 29 3A 44 49 4D | DIMTE$(100):DIM|
00000FA0: 4D 44 24 28 31 36 29 3A 44 49 4D 42 55 28 31 36 |MD$(16):DIMBU(16|
00000FB0: 2C 31 30 30 29 22 3B 00 CB 17 0E 75 99 22 3A 44 |,100)";....u.":D|
00000FC0: 49 4D 42 49 24 28 32 35 35 29 22 00 FB 17 12 75 |IMBI$(255)"....u|
00000FD0: 99 22 31 30 30 35 38 20 4D 44 24 28 31 33 29 3D |."10058 MD$(13)=|
00000FE0: 22 AA C7 28 33 34 29 AA 22 31 2E 20 4B 56 41 52 |"..(34)."1. KVAR|
00000FF0: 54 41 4C 22 AA C7 28 33 34 29 3B 00 25 18 13 75 |TAL"..(34);.%..u|
00001000: 99 22 3A 4D 44 24 28 31 34 29 3D 22 AA C7 28 33 |.":MD$(14)="..(3|
00001010: 34 29 AA 22 32 2E 20 4B 56 41 52 54 41 4C 22 AA |4)."2. KVARTAL".|
00001020: C7 28 33 34 29 00 55 18 17 75 99 22 31 30 30 35 |.(34).U..u."1005|
00001030: 39 20 4D 44 24 28 31 35 29 3D 22 AA C7 28 33 34 |9 MD$(15)="..(34|
00001040: 29 AA 22 33 2E 20 4B 56 41 52 54 41 4C 22 AA C7 |)."3. KVARTAL"..|
00001050: 28 33 34 29 3B 00 7F 18 18 75 99 22 3A 4D 44 24 |(34);....u.":MD$|
00001060: 28 31 36 29 3D 22 AA C7 28 33 34 29 AA 22 34 2E |(16)="..(34)."4.|
00001070: 20 4B 56 41 52 54 41 4C 22 AA C7 28 33 34 29 00 | KVARTAL"..(34).|
00001080: BC 18 19 75 99 22 31 39 34 33 30 20 50 52 24 3D |...u."19430 PR$=|
00001090: 22 AA C7 28 33 34 29 AA 22 42 55 44 47 45 54 20 |"..(34)."BUDGET |
000010A0: 4F 47 20 50 4F 53 54 45 52 49 4E 47 45 52 20 22 |OG POSTERINGER "|
000010B0: AA C7 28 33 34 29 AA 22 2B 50 52 24 00 F1 18 1A |..(34)."+PR$....|
000010C0: 75 99 22 31 39 35 30 30 20 49 46 46 49 3C 31 34 |u."19500 IFFI<14|
000010D0: 54 48 45 4E 42 55 24 3D 22 AA C7 28 33 34 29 AA |THENBU$="..(34).|
000010E0: 22 20 20 20 20 20 20 20 20 22 AA C7 28 33 34 29 |" "..(34)|
000010F0: 3B 00 23 19 1B 75 99 22 2B 53 54 52 24 28 42 55 |;.#..u."+STR$(BU|
00001100: 28 46 49 2C 51 2B 49 29 29 3A 42 55 24 3D 52 49 |(FI,Q+I)):BU$=RI|
00001110: 47 48 54 24 28 42 55 24 2C 37 29 22 3A 99 22 52 |GHT$(BU$,7)":."R|
00001120: 55 4E 22 00 57 19 1C 75 97 36 33 31 2C 31 39 3A |UN".W..u.631,19:|
00001130: 97 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 33 3A |.632,13:.633,13:|
00001140: 97 36 33 34 2C 31 33 3A 97 36 33 35 2C 31 33 3A |.634,13:.635,13:|
00001150: 97 36 33 36 2C 31 33 00 72 19 1D 75 97 36 33 37 |.636,13.r..u.637|
00001160: 2C 31 33 3A 97 36 33 38 2C 31 33 3A 97 31 39 38 |,13:.638,13:.198|
00001170: 2C 38 00 00 00 |,8... |
..%..'.******************************.7.
.'. INITIALISER.[..'.*******************
***********.|..'.TE$(100):.MD$(16):.BI$(
255)...$'HJ$." "....'
.PE(100)...B'STREG$."CCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCC"...C'MD$(0)."JANUA
R":MD$(1)."FEBRUAR".%.D'MD$(2)."MARTS":M
D$(3)."APRIL".D.E'MD$(4)."MAJ":MD$(5)."J
UNI".F.F'MD$(6)."JULI":MD$(7)."AUGUST"..
.G'MD$(8)."SEPTEMBER":MD$(9)."OKTOBER"..
.H'MD$(10)."NOVEMBER":MD$(11)."DECEMBER"
.L.I'MD$(12)."TOTAL"...J'MD$(13)."1. KVA
RTAL":MD$(14)."2. KVARTAL".(.K'MD$(15)."
3. KVARTAL":MD$(16)."4. KVARTAL".3..*.29
000.W..-.******************************.
L..-. LOAD KONTOPLAN...!-.**************
****************...#-.20400:X.13:Y.22:.2
0000:.". VENT 1 MINUT "...(-.1,8,2,"0:KO
NTOPLAN,S,R"...2-.I.0.100:.1,TE$(I)...7-
.TE$(I)."".TE$(I).HJ$...8-.I...<- 1:..A.
T@.******************************.W.U@.
OPBYG BILAGSFIL.{.W@.*******************
***********...~@.Q$."A".DA$.H(BI$(1),4).
"1300".F..@.Q$."K".K%.1.DA$.H(BI$(1),4).
"1400"....@.Q$."K".K%.2.DA$.H(BI$(1),4).
"1500"....@.Q$."K".K%.3.DA$.H(BI$(1),4).
"1600".>..@.Q$."K".K%.4.DA$.H(BI$(1),4).
"1700".F.N@N.0...X@.I.0.99:.J(TE$(I),5,1
2)." ".PE(I).0..16740....@.I.
10.I$."0".J(D(I),2,1)....@.I.9.I$.J(D(I)
,2,2).P.<ABE.PE(I):.20500:.21000...FAPE$
.H((HM$.D(PE(I)).DE$),10)...PABI$(N).DA$
.I$.J(TE$(I),5,12)."P".PE$.$.ZAN.N.1.+.D
A.I.O.HB.******************************.
I.IB. SAVE OPSUMMERET FIL...KB.*********
*********************...MBBI$(N)."*"...R
BFI$.J(DA$,5,2):FI.E(FI$)...|B.3,8,4,"@0
:".MD$(FI.1).",S,W"....BI.1....B.3,N....
B.3,BI$(I)....B.BI$(I)."*".17080.!..BI.I
.1:.17050.;..B 3:.I.1.N:BI$(I)."":..H.BB
N.1:MI$(1)."":MI$(2)."":MI$(3)."":.29000
...LB.******************************...M
B. LOAD BILAGSFILER.G.OB.***************
***************...QB.3,8,4,FI$.",S,R"...
VBI.1....B.3,N:NN.N:MN.N....B.3,BI$(I)..
..B.BI$(I)."*".17160.-..BI.I.1:.17130.4.
.C 3.B..CMI$(1).H(BI$(1),4):MI$(2).J(BI$
(1),5,2):....8J.************************
******...9J. OPSUMMERING AF BILAGSFILER.
K.;J.******************************.V.BJ
.11550...LJ.Q$."A"..M.1.12:FI$.MD$(M.1):
.17100.*.VJ.Q$."K".K%.1..M.1.3:FI$.MD$(M
.1):.17100.V.`J.Q$."K".K%.2..M.4.6:FI$.M
D$(M.1):.17100...JJ.Q$."K".K%.3..M.7.9:F
I$.MD$(M.1):.17100...TJ.Q$."K".K%.4..M.1
0.12:FI$.MD$(M.1):.17100....J.I.1.N.1.U.
.JII.E(J(BI$(I),9,2))....JPE(II).PE(II).
E(I(BI$(I),10))...DJ.I:.M....J.16500.0.
N.******************************.Q.!N. S
UB. TIL PRINT AF X,Y POS..U."N.*********
*********************..*N.".";...4N. Y.
.0 . . 214,Y.1:....>N. 211,X...HN..N..O.
******************************....O. SUB
. HEL BLANK LINIE....O.*****************
*************.!..OX.0:Y.22:.20000.S.DO."
":..W..P.******************************.
...P. SUB. HOEJRE MARGIN FOR BELOEB....P
.******************************....P..(B
E).10.HM$." ":....(P..(BE).100.HM$."
":....2P..(BE).1000.HM$." ":../.<P
..(BE).10000.HM$." ":..K.FP..(BE).10000
0.HM$." ":..X.PPHM$."":..|..R.**********
********************....R. SUB. OEREBELO
EB....R.******************************.U
..R..(BE..(BE)).0.DE$.".00":.....RDE$."0
":....HQ.******************************.
..IQ. SKAERMBILLEDE.?.KQ.***************
***************.[.RQ."..":.53280,0:.5328
1,2...\QX.7:Y.1:.20000:."R U N - COMMODO
RE MAGASIN"...FQX.12:Y.3:.20000:."PRIVAT
REGNSKAB."...PQX.9:Y.5:.20000:.".P E R I
O D E S L U T"...UQX.11:Y.10:.20000:."(
L: LOAD REGNSKAB)".-.VQX.11:Y.12:.20000:
."(B: BASIC)".I.ZQX.0:Y.20:.20000:.STREG
$....QX.3:Y.22:.20000:.". .K.VARTAL ELLE
R .A.AR - INDTAST K/A "....Q.Q$:.Q$."".2
9070.H..Q.Q$.."K".Q$.."A".Q$.."L".Q$.."B
"..29070....Q.Q$."K"..29300....Q.Q$."A".
.19000....Q.Q$."L"..29950....Q.Q$."B".."
.":..8.TR.******************************
.N.UR. INDTAST KVARTAL.R.WR.************
******************...~R.20400:X.9:Y.22:.
20000:.". INDTAST KVARTAL 1-4 ".A..R.K%:
.K%.1.K%.4..29320.L..R.19000....T.******
************************....T. LOAD REGN
SKAB/BASIC....U.************************
******.7..U.".".U..UX.0:Y.0:.20000:."LOA
D ".G(34)."REGNSKAB/BASIC".G(34).",8"...
.UX.0:Y.5:.20000:."10010 DIMTE$(100):DIM
MD$(16):DIMBU(16,100)";.K..U.":DIMBI$(25
5)"....U."10058 MD$(13)=".G(34)."1. KVAR
TAL".G(34);.%..U.":MD$(14)=".G(34)."2. K
VARTAL".G(34).U..U."10059 MD$(15)=".G(34
)."3. KVARTAL".G(34);...U.":MD$(16)=".G
(34)."4. KVARTAL".G(34)....U."19430 PR$=
".G(34)."BUDGET OG POSTERINGER ".G(34)."
+PR$....U."19500 IFFI<14THENBU$=".G(34).
" ".G(34);.#..U."+STR$(BU(FI,Q+I)
):BU$=RIGHT$(BU$,7)":."RUN".W..U.631,19:
.632,13:.633,13:.634,13:.635,13:.636,13.
R..U.637,13:.638,13:.198,8...
> CLICK IMAGE PREVIEW FOR FULL MODAL