RENTENOTA
FILE INFORMATION
FILENAME(S): RENTENOTA
FILE TYPE(S): PRG
FILE SIZE: 11.2K
FIRST SEEN: 2025-11-30 19:37:14
APPEARS ON: 1 disk(s)
FILE HASH
b182c24dd257cf25f3c0ea74c3f2f860419e4b9d36f825377f2c7b9213dbef8c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISKETTE 3 | RENTENOTA | PRG | Curtcool, Bo | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 8F 20 2A 2A 2A 20 52 45 4E 54 |..%.... *** RENT|
00000010: 45 4E 4F 54 41 20 2A 2A 2A 20 44 41 54 4F 20 32 |ENOTA *** DATO 2|
00000020: 31 31 31 38 34 00 5B 08 14 00 86 20 44 24 28 31 |11184.[.... D$(1|
00000030: 30 30 29 2C 42 45 28 31 30 30 29 2C 52 44 28 31 |00),BE(100),RD(1|
00000040: 30 30 29 2C 52 42 28 31 30 30 29 2C 53 41 28 31 |00),RB(100),SA(1|
00000050: 30 30 29 2C 52 54 28 31 30 30 29 00 7C 08 19 00 |00),RT(100).|...|
00000060: 86 20 42 45 24 28 31 30 30 29 2C 52 42 24 28 31 |. BE$(100),RB$(1|
00000070: 30 30 29 2C 53 41 24 28 31 30 30 29 00 9F 08 1E |00),SA$(100)....|
00000080: 00 99 22 93 11 11 1D 1D 1D 1D 1D 1D 1D 1D 48 4F |.."...........HO|
00000090: 56 45 44 4D 45 4E 55 22 3A 41 24 B2 22 30 22 00 |VEDMENU":A$."0".|
000000A0: C2 08 28 00 99 22 11 1D 31 2E 20 49 4E 44 54 41 |..(.."..1. INDTA|
000000B0: 53 54 20 4B 56 41 52 54 41 4C 53 2D 42 49 4C 41 |ST KVARTALS-BILA|
000000C0: 47 22 00 DD 08 32 00 99 22 11 1D 32 2E 20 52 45 |G"...2.."..2. RE|
000000D0: 4E 54 45 42 45 52 45 47 4E 49 4E 47 22 00 FC 08 |NTEBEREGNING"...|
000000E0: 3C 00 99 22 11 1D 33 2E 20 55 44 53 4B 52 49 56 |<.."..3. UDSKRIV|
000000F0: 4E 49 4E 47 20 50 41 41 20 54 56 22 00 20 09 46 |NING PAA TV". .F|
00000100: 00 99 22 11 1D 34 2E 20 55 44 53 4B 52 49 56 4E |.."..4. UDSKRIVN|
00000110: 49 4E 47 20 50 41 41 20 50 52 49 4E 54 45 52 22 |ING PAA PRINTER"|
00000120: 00 40 09 50 00 99 22 11 1D 35 2E 20 53 41 56 45 |.@.P.."..5. SAVE|
00000130: 20 44 41 54 41 20 50 41 41 20 42 41 41 4E 44 22 | DATA PAA BAAND"|
00000140: 00 60 09 5A 00 99 22 11 1D 36 2E 20 4C 4F 41 44 |.`.Z.."..6. LOAD|
00000150: 20 44 41 54 41 20 46 52 41 20 42 41 41 4E 44 22 | DATA FRA BAAND"|
00000160: 00 7E 09 64 00 99 22 11 1D 37 2E 20 52 45 54 54 |.~.d.."..7. RETT|
00000170: 45 4C 53 45 20 41 46 20 42 49 4C 41 47 22 00 95 |ELSE AF BILAG"..|
00000180: 09 84 03 A1 20 41 24 3A 8B 41 24 B2 22 31 22 A7 |.... A$:.A$."1".|
00000190: 20 31 30 30 30 00 A7 09 8E 03 8B 41 24 B2 22 32 | 1000......A$."2|
000001A0: 22 A7 20 32 30 30 30 00 B9 09 98 03 8B 41 24 B2 |". 2000......A$.|
000001B0: 22 33 22 A7 20 33 30 30 30 00 CB 09 A2 03 8B 41 |"3". 3000......A|
000001C0: 24 B2 22 34 22 A7 20 34 30 30 30 00 DD 09 AC 03 |$."4". 4000.....|
000001D0: 8B 41 24 B2 22 35 22 A7 20 35 30 30 30 00 EF 09 |.A$."5". 5000...|
000001E0: B6 03 8B 41 24 B2 22 36 22 A7 20 36 30 30 30 00 |...A$."6". 6000.|
000001F0: 01 0A C0 03 8B 41 24 B2 22 37 22 A7 20 37 30 30 |.....A$."7". 700|
00000200: 30 00 0A 0A E7 03 89 39 30 30 00 3F 0A E8 03 8F |0......900.?....|
00000210: 20 2A 2A 2A 2A 2A 2A 2A 20 49 4E 44 54 41 53 54 | ******* INDTAST|
00000220: 4E 49 4E 47 20 41 46 20 4B 56 41 52 54 41 4C 53 |NING AF KVARTALS|
00000230: 42 49 4C 41 47 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |BILAG *********.|
00000240: 47 0A F2 03 58 B2 31 00 5C 0A FC 03 85 22 93 11 |G...X.1.\...."..|
00000250: 4B 56 41 52 54 41 4C 20 22 3B 4B 24 00 72 0A 06 |KVARTAL ";K$.r..|
00000260: 04 85 22 11 52 45 4E 54 45 53 41 54 53 20 22 3B |..".RENTESATS ";|
00000270: 52 53 00 8E 0A 10 04 85 22 11 53 54 41 52 54 53 |RS......".STARTS|
00000280: 41 4C 44 4F 22 3B 53 44 3A 48 53 B2 53 44 00 C3 |ALDO";SD:HS.SD..|
00000290: 0A 4C 04 99 22 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.L.."...........|
000002A0: 1D 52 45 4E 54 45 44 41 47 45 22 20 52 22 1D 1D |.RENTEDAGE" R"..|
000002B0: 1D 1D 1D 1D 42 49 4C 41 47 20 22 58 3A 41 24 B2 |....BILAG "X:A$.|
000002C0: 22 30 22 00 E0 0A 56 04 85 22 11 11 44 41 54 4F |"0"...V.."..DATO|
000002D0: 20 22 3B 44 24 28 58 29 3A 20 8D 20 31 39 30 30 | ";D$(X): . 1900|
000002E0: 00 F6 0A 60 04 85 22 11 11 42 45 4C 30 42 20 22 |...`.."..BEL0B "|
000002F0: 3B 42 45 28 58 29 00 20 0B 6A 04 85 22 11 11 41 |;BE(X). .j.."..A|
00000300: 4E 54 41 4C 20 52 45 4E 54 45 44 41 47 45 20 22 |NTAL RENTEDAGE "|
00000310: 3B 52 44 28 58 29 3A 52 B2 52 AA 52 44 28 58 29 |;RD(X):R.R.RD(X)|
00000320: 00 41 0B 74 04 99 22 11 11 11 11 11 11 11 11 11 |.A.t..".........|
00000330: 11 46 4C 45 52 45 20 42 49 4C 41 47 20 4A 2F 4E |.FLERE BILAG J/N|
00000340: 22 00 62 0B 7E 04 A1 20 41 24 3A 8B 41 24 B2 20 |".b.~.. A$:.A$. |
00000350: 22 4A 22 20 A7 20 58 B2 58 AA 31 3A 89 20 31 31 |"J" . X.X.1:. 11|
00000360: 30 30 00 7D 0B 88 04 8B 41 24 B2 22 4E 22 20 AF |00.}....A$."N" .|
00000370: 20 52 B3 B1 39 30 20 A7 20 31 31 39 30 00 96 0B | R..90 . 1190...|
00000380: 92 04 8B 41 24 B2 22 4E 22 20 AF 20 52 B2 20 39 |...A$."N" . R. 9|
00000390: 30 20 A7 20 33 30 00 A1 0B 9C 04 89 20 31 31 35 |0 . 30...... 115|
000003A0: 30 00 C1 0B A6 04 99 22 93 11 11 1D 1D 54 4F 54 |0......".....TOT|
000003B0: 41 4C 45 20 52 45 4E 54 45 44 41 47 45 20 3D 22 |ALE RENTEDAGE ="|
000003C0: 52 00 F4 0B B0 04 99 22 11 11 11 11 11 11 11 11 |R......"........|
000003D0: 11 11 11 11 11 11 11 1D 1D 52 45 54 55 52 20 54 |.........RETUR T|
000003E0: 49 4C 20 4D 45 4E 55 3A 20 54 52 59 4B 20 53 50 |IL MENU: TRYK SP|
000003F0: 41 43 45 22 00 21 0C BA 04 99 22 11 1D 1D 44 49 |ACE".!...."...DI|
00000400: 53 50 4C 41 59 20 41 46 20 42 49 4C 41 47 2F 52 |SPLAY AF BILAG/R|
00000410: 45 4E 54 45 44 41 47 45 3A 20 54 52 59 4B 20 44 |ENTEDAGE: TRYK D|
00000420: 22 00 35 0C C4 04 A1 20 41 24 3A 8B 41 24 B2 22 |".5.... A$:.A$."|
00000430: 20 22 A7 33 30 00 46 0C CE 04 8B 41 24 B2 22 44 | ".30.F....A$."D|
00000440: 22 A7 31 33 30 30 00 62 0C D8 04 8B 41 24 B3 B1 |".1300.b....A$..|
00000450: 22 20 22 B0 41 24 B3 B1 22 44 22 20 A7 20 31 32 |" ".A$.."D" . 12|
00000460: 32 30 00 97 0C 14 05 8F 20 2A 2A 2A 2A 2A 2A 2A |20...... *******|
00000470: 20 44 49 53 50 41 4C 59 20 41 46 20 42 49 4C 41 | DISPALY AF BILA|
00000480: 47 2F 52 45 4E 54 45 44 41 47 45 20 2A 2A 2A 2A |G/RENTEDAGE ****|
00000490: 2A 2A 2A 2A 2A 2A 2A 00 9F 0C 19 05 52 B2 30 00 |*******.....R.0.|
000004A0: A8 0C 1E 05 99 22 93 22 00 B7 0C 28 05 81 49 20 |....."."...(..I |
000004B0: B2 20 31 20 A4 20 58 00 DB 0C 32 05 99 22 1D 1D |. 1 . X...2.."..|
000004C0: 42 49 4C 41 47 20 22 49 3B 22 20 22 52 44 28 49 |BILAG "I;" "RD(I|
000004D0: 29 3A 52 B2 52 AA 52 44 28 49 29 00 E3 0C 3C 05 |):R.R.RD(I)...<.|
000004E0: 82 20 49 00 09 0D 46 05 99 22 11 1D 1D 52 45 54 |. I...F.."...RET|
000004F0: 55 52 20 54 49 4C 20 4D 45 4E 55 3A 20 20 54 52 |UR TIL MENU: TR|
00000500: 59 4B 20 53 50 41 43 45 22 00 1C 0D 50 05 A1 41 |YK SPACE"...P..A|
00000510: 24 3A 8B 41 24 B2 22 20 22 A7 33 30 00 2E 0D 5A |$:.A$." ".30...Z|
00000520: 05 8B 41 24 B3 B1 22 20 22 A7 31 33 36 30 00 59 |..A$.." ".1360.Y|
00000530: 0D 6C 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.l.. ***********|
00000540: 20 44 41 54 4F 56 41 4C 49 44 45 52 49 4E 47 20 | DATOVALIDERING |
00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 76 0D 76 07 41 24 |*********.v.v.A$|
00000560: B2 C8 28 44 24 28 58 29 2C 32 29 3A 20 41 B2 20 |..(D$(X),2): A. |
00000570: C5 20 28 41 24 29 00 95 0D 80 07 42 24 B2 CA 28 |. (A$).....B$..(|
00000580: 44 24 28 58 29 2C 33 2C 32 29 3A 20 42 B2 20 C5 |D$(X),3,2): B. .|
00000590: 20 28 42 24 29 00 B2 0D 8A 07 43 24 B2 C9 28 44 | (B$).....C$..(D|
000005A0: 24 28 58 29 2C 32 29 3A 20 43 B2 20 C5 20 28 43 |$(X),2): C. . (C|
000005B0: 24 29 00 CE 0D 94 07 8B 20 41 20 B3 20 31 20 B0 |$)...... A . 1 .|
000005C0: 20 41 20 B1 20 33 31 20 A7 20 31 31 30 30 00 EA | A . 31 . 1100..|
000005D0: 0D 9E 07 8B 20 42 20 B3 20 31 20 B0 20 42 20 B1 |.... B . 1 . B .|
000005E0: 20 31 32 20 A7 20 31 31 30 30 00 06 0E A8 07 8B | 12 . 1100......|
000005F0: 20 43 20 B3 20 31 20 B0 20 43 20 B1 20 39 39 20 | C . 1 . C . 99 |
00000600: A7 20 31 31 30 30 00 22 0E B2 07 8B 20 C3 20 28 |. 1100.".... . (|
00000610: 44 24 28 58 29 29 20 B3 B1 20 36 20 A7 20 31 31 |D$(X)) .. 6 . 11|
00000620: 30 30 00 3D 0E BC 07 41 24 B2 22 30 22 3A 20 42 |00.=...A$."0": B|
00000630: 24 B2 22 30 22 3A 20 43 24 B2 22 30 22 00 43 0E |$."0": C$."0".C.|
00000640: C6 07 8E 00 70 0E D0 07 8F 20 2A 2A 2A 2A 2A 2A |....p.... ******|
00000650: 2A 2A 2A 2A 20 52 45 4E 54 45 42 45 52 45 47 4E |**** RENTEBEREGN|
00000660: 49 4E 47 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ING ************|
00000670: 00 9B 0E D5 07 99 22 93 11 11 11 11 11 11 11 11 |......".........|
00000680: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 52 45 4E 54 |............RENT|
00000690: 45 42 45 52 45 47 4E 49 4E 47 22 00 AA 0E D7 07 |EBEREGNING".....|
000006A0: 52 54 B2 30 3A 48 53 B2 53 44 00 BA 0E DA 07 81 |RT.0:HS.SD......|
000006B0: 20 49 20 B2 20 31 20 A4 20 58 00 E7 0E DC 07 53 | I . 1 . X.....S|
000006C0: 41 28 49 29 B2 48 53 AB 42 45 28 49 29 3A 53 41 |A(I).HS.BE(I):SA|
000006D0: 28 49 29 B2 B5 28 53 41 28 49 29 AC 31 30 30 AA |(I)..(SA(I).100.|
000006E0: 2E 35 29 AD 31 30 30 00 28 0F E4 07 52 42 28 49 |.5).100.(...RB(I|
000006F0: 29 20 B2 20 28 53 41 28 49 29 AC 28 52 53 AD 31 |) . (SA(I).(RS.1|
00000700: 30 30 29 AC 52 44 28 49 29 29 AD 33 36 30 3A 52 |00).RD(I)).360:R|
00000710: 42 28 49 29 B2 B5 28 52 42 28 49 29 AC 31 30 30 |B(I)..(RB(I).100|
00000720: AA 2E 35 29 AD 31 30 30 00 35 0F E6 07 48 53 B2 |..5).100.5...HS.|
00000730: 53 41 28 49 29 00 45 0F EE 07 52 54 B2 52 54 AA |SA(I).E...RT.RT.|
00000740: 52 42 28 49 29 00 4D 0F F8 07 82 20 49 00 78 0F |RB(I).M.... I.x.|
00000750: 34 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 52 |4.. ********** R|
00000760: 45 4E 54 45 54 41 4C 53 55 44 52 45 47 4E 49 4E |ENTETALSUDREGNIN|
00000770: 47 20 2A 2A 2A 2A 2A 2A 00 88 0F 3E 08 81 20 49 |G ******...>.. I|
00000780: 20 B2 20 31 20 A4 20 58 00 A0 0F 48 08 52 54 28 | . 1 . X...H.RT(|
00000790: 49 29 20 B2 20 53 41 28 49 29 AC 52 44 28 49 29 |I) . SA(I).RD(I)|
000007A0: 00 D3 0F 52 08 52 54 28 49 29 20 B2 20 B5 28 52 |...R.RT(I) . .(R|
000007B0: 54 28 49 29 AC 31 30 30 AA 35 30 30 30 29 AD 31 |T(I).100.5000).1|
000007C0: 30 30 30 30 3A 52 54 28 49 29 B2 B5 28 52 54 28 |0000:RT(I)..(RT(|
000007D0: 49 29 29 00 E3 0F 5C 08 54 54 B2 54 54 AA 52 54 |I))...\.TT.TT.RT|
000007E0: 28 49 29 00 EB 0F 66 08 82 20 49 00 12 10 70 08 |(I)...f.. I...p.|
000007F0: 54 52 B2 28 54 54 AC 52 53 29 AD 33 36 30 3A 54 |TR.(TT.RS).360:T|
00000800: 52 B2 B5 28 54 52 AC 31 30 30 AA 2E 35 29 AD 31 |R..(TR.100..5).1|
00000810: 30 30 00 1B 10 8E 08 89 20 33 30 00 46 10 B8 0B |00...... 30.F...|
00000820: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 54 56 20 |. ********** TV |
00000830: 55 44 53 4B 52 49 4E 54 20 2A 2A 2A 2A 2A 2A 2A |UDSKRINT *******|
00000840: 2A 2A 2A 2A 2A 2A 00 67 10 C2 0B 99 22 93 52 45 |******.g....".RE|
00000850: 4E 54 45 4E 4F 54 41 20 22 4B 24 22 20 4B 56 41 |NTENOTA "K$" KVA|
00000860: 52 54 41 4C 20 22 3B 00 7D 10 CC 0B 99 22 20 52 |RTAL ";.}...." R|
00000870: 45 4E 54 45 53 41 54 53 3A 20 22 52 53 00 A4 10 |ENTESATS: "RS...|
00000880: D1 0B 99 22 44 41 54 4F 22 2C 22 42 45 4C 30 42 |..."DATO","BEL0B|
00000890: 22 2C 22 53 41 4C 44 4F 22 2C 22 20 20 20 52 45 |","SALDO"," RE|
000008A0: 4E 54 45 22 00 B4 10 D6 0B 81 20 49 20 B2 20 31 |NTE"...... I . 1|
000008B0: 20 A4 20 58 00 C1 10 E0 0B 99 20 44 24 28 49 29 | . X...... D$(I)|
000008C0: 3B 00 E2 10 EA 0B 8D 31 30 30 30 30 3A 8F 20 4B |;......10000:. K|
000008D0: 4F 4E 56 45 52 54 2E 20 42 45 20 54 49 4C 20 42 |ONVERT. BE TIL B|
000008E0: 45 24 00 FF 10 F4 0B 8D 31 31 30 31 30 3A 8F 20 |E$......11010:. |
000008F0: 48 30 4A 52 45 53 54 2E 20 41 46 20 42 45 24 00 |H0JREST. AF BE$.|
00000900: 14 11 FE 0B 99 A3 37 AA 48 4D AB 32 29 42 45 24 |......7.HM.2)BE$|
00000910: 28 49 29 3B 00 35 11 08 0C 8D 31 30 30 33 30 3A |(I);.5....10030:|
00000920: 8F 20 4B 4F 4E 56 45 52 54 2E 20 53 41 20 54 49 |. KONVERT. SA TI|
00000930: 4C 20 53 41 24 00 52 11 12 0C 8D 31 31 31 30 30 |L SA$.R....11100|
00000940: 3A 8F 20 48 30 4A 52 45 53 54 2E 20 41 46 20 53 |:. H0JREST. AF S|
00000950: 41 24 00 68 11 1C 0C 99 A3 31 39 AA 48 4D AB 32 |A$.h.....19.HM.2|
00000960: 29 53 41 24 28 49 29 3B 00 89 11 26 0C 8D 31 30 |)SA$(I);...&..10|
00000970: 30 35 30 3A 8F 20 4B 4F 4E 56 45 52 54 2E 20 52 |050:. KONVERT. R|
00000980: 42 20 54 49 4C 20 52 42 24 00 A6 11 30 0C 8D 31 |B TIL RB$...0..1|
00000990: 31 32 30 30 3A 8F 20 48 30 4A 52 45 53 54 2E 20 |1200:. H0JREST. |
000009A0: 41 46 20 52 42 24 00 BB 11 3A 0C 99 A3 32 39 AA |AF RB$...:...29.|
000009B0: 48 4D AB 31 29 52 42 24 28 49 29 00 C2 11 44 0C |HM.1)RB$(I)...D.|
000009C0: 82 49 00 E5 11 80 0C 99 22 11 52 45 54 55 52 20 |.I......".RETUR |
000009D0: 54 49 4C 20 4D 45 4E 55 2C 20 54 52 59 4B 20 53 |TIL MENU, TRYK S|
000009E0: 50 41 43 45 22 00 F8 11 8A 0C A1 41 24 3A 8B 41 |PACE"......A$:.A|
000009F0: 24 B2 22 20 22 A7 33 30 00 02 12 94 0C 89 33 32 |$." ".30......32|
00000A00: 31 30 00 2D 12 A0 0F 8F 20 2A 2A 2A 2A 2A 2A 2A |10.-.... *******|
00000A10: 2A 2A 2A 20 50 52 49 4E 54 45 52 55 44 53 4B 52 |*** PRINTERUDSKR|
00000A20: 49 46 54 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 58 12 |IFT *********.X.|
00000A30: A5 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 52 |... ********** R|
00000A40: 45 4E 54 45 54 41 4C 53 55 44 52 45 47 4E 49 4E |ENTETALSUDREGNIN|
00000A50: 47 20 2A 2A 2A 2A 2A 2A 00 87 12 A7 0F 99 22 93 |G ******......".|
00000A60: 11 1D 1D 48 56 49 4C 4B 45 4E 20 55 44 53 4B 52 |...HVILKEN UDSKR|
00000A70: 49 46 54 53 54 59 50 45 20 30 4E 53 4B 45 53 22 |IFTSTYPE 0NSKES"|
00000A80: 3A 41 24 B2 22 30 22 00 A4 12 A9 0F 99 22 11 11 |:A$."0"......"..|
00000A90: 1D 31 2E 20 52 45 4E 54 45 54 41 4C 53 4D 45 54 |.1. RENTETALSMET|
00000AA0: 4F 44 45 22 00 C5 12 AB 0F 99 22 11 1D 32 2E 20 |ODE"......"..2. |
00000AB0: 52 45 4E 54 45 42 45 4C 30 42 20 50 52 2E 20 42 |RENTEBEL0B PR. B|
00000AC0: 49 4C 41 47 22 00 DD 12 AD 0F A1 20 41 24 3A 20 |ILAG"...... A$: |
00000AD0: 8B 41 24 B2 22 31 22 A7 20 34 30 31 39 00 EF 12 |.A$."1". 4019...|
00000AE0: AF 0F 8B 41 24 B2 22 32 22 A7 20 34 34 30 30 00 |...A$."2". 4400.|
00000AF0: F9 12 B1 0F 89 34 30 31 33 00 03 13 B3 0F 9F 20 |.....4013...... |
00000B00: 31 2C 34 00 2A 13 B4 0F 98 31 2C 22 52 45 4E 54 |1,4.*....1,"RENT|
00000B10: 45 4E 4F 54 41 20 46 4F 52 20 22 4B 24 22 20 4B |ENOTA FOR "K$" K|
00000B20: 56 41 52 54 41 4C 2E 20 22 3B 00 49 13 BE 0F 98 |VARTAL. ";.I....|
00000B30: 31 2C 22 20 52 45 4E 54 45 53 41 54 53 3A 20 22 |1," RENTESATS: "|
00000B40: 52 53 3A 20 98 31 3A 98 31 00 74 13 C0 0F 98 31 |RS: .1:.1.t....1|
00000B50: 2C 22 44 41 54 4F 22 C7 28 31 36 29 22 31 35 42 |,"DATO".(16)"15B|
00000B60: 45 4C 30 42 22 C7 28 31 36 29 22 33 30 53 41 4C |EL0B".(16)"30SAL|
00000B70: 44 4F 22 3B 00 A2 13 C2 0F 98 31 2C C7 28 31 36 |DO";......1,.(16|
00000B80: 29 22 34 30 52 45 4E 54 45 44 41 47 45 22 C7 28 |)"40RENTEDAGE".(|
00000B90: 31 36 29 22 35 38 52 45 4E 54 45 54 41 4C 22 3A |16)"58RENTETAL":|
00000BA0: 98 31 00 C3 13 C4 0F 8D 31 30 30 37 30 3A 8F 20 |.1......10070:. |
00000BB0: 4B 4F 4E 56 45 52 54 2E 20 53 44 20 54 49 4C 20 |KONVERT. SD TIL |
00000BC0: 53 44 24 00 E0 13 C6 0F 8D 31 31 36 30 30 3A 8F |SD$......11600:.|
00000BD0: 20 48 30 4A 52 45 53 54 2E 20 41 46 20 53 44 24 | H0JREST. AF SD$|
00000BE0: 00 F7 13 C7 0F 98 31 2C C7 28 31 36 29 22 32 35 |......1,.(16)"25|
00000BF0: 22 59 24 3B 53 44 24 00 07 14 C8 0F 81 20 49 20 |"Y$;SD$...... I |
00000C00: B2 20 31 20 A4 20 58 00 15 14 D2 0F 98 31 2C 44 |. 1 . X......1,D|
00000C10: 24 28 49 29 3B 00 36 14 DC 0F 8D 31 30 30 30 30 |$(I);.6....10000|
00000C20: 3A 8F 20 4B 4F 4E 56 45 52 54 2E 20 42 45 20 54 |:. KONVERT. BE T|
00000C30: 49 4C 20 42 45 24 00 53 14 E6 0F 8D 31 31 30 31 |IL BE$.S....1101|
00000C40: 30 3A 8F 20 48 30 4A 52 45 53 54 2E 20 41 46 20 |0:. H0JREST. AF |
00000C50: 42 45 24 00 6E 14 F0 0F 98 31 2C C7 28 31 36 29 |BE$.n....1,.(16)|
00000C60: 22 31 30 22 59 24 3B 42 45 24 28 49 29 3B 00 8F |"10"Y$;BE$(I);..|
00000C70: 14 FA 0F 8D 31 30 30 33 30 3A 8F 20 4B 4F 4E 56 |....10030:. KONV|
00000C80: 45 52 54 2E 20 53 41 20 54 49 4C 20 53 41 24 00 |ERT. SA TIL SA$.|
00000C90: AC 14 04 10 8D 31 31 31 30 30 3A 8F 20 48 30 4A |.....11100:. H0J|
00000CA0: 52 45 53 54 2E 20 41 46 20 53 41 24 00 C7 14 0E |REST. AF SA$....|
00000CB0: 10 98 31 2C C7 28 31 36 29 22 32 35 22 59 24 3B |..1,.(16)"25"Y$;|
00000CC0: 53 41 24 28 49 29 3B 00 E5 14 18 10 8D 20 31 31 |SA$(I);...... 11|
00000CD0: 31 33 30 3A 20 8F 20 48 30 4A 52 45 53 54 2E 20 |130: . H0JREST. |
00000CE0: 41 46 20 52 44 00 FF 14 22 10 98 31 2C C7 28 31 |AF RD..."..1,.(1|
00000CF0: 36 29 22 34 31 22 59 24 3B 52 44 28 49 29 3B 00 |6)"41"Y$;RD(I);.|
00000D00: 1B 15 36 10 8D 31 31 34 30 30 3A 8F 20 48 30 4A |..6..11400:. H0J|
00000D10: 52 45 53 54 2E 20 41 46 20 52 54 00 44 15 40 10 |REST. AF RT.D.@.|
00000D20: 98 31 2C C7 28 31 36 29 22 35 37 22 59 24 3B 52 |.1,.(16)"57"Y$;R|
00000D30: 54 28 49 29 C7 28 31 36 29 22 36 39 42 49 4C 41 |T(I).(16)"69BILA|
00000D40: 47 20 22 49 00 4C 15 4A 10 82 20 49 00 53 15 54 |G "I.L.J.. I.S.T|
00000D50: 10 98 31 00 80 15 5E 10 98 31 2C C7 28 31 36 29 |..1...^..1,.(16)|
00000D60: 22 34 32 22 52 3B 3A 8F 20 52 3D 54 4F 54 41 4C |"42"R;:. R=TOTAL|
00000D70: 20 41 4E 54 41 4C 20 52 45 4E 54 45 44 41 47 45 | ANTAL RENTEDAGE|
00000D80: 00 AE 15 68 10 8D 31 31 35 30 30 3A 20 8F 20 48 |...h..11500: . H|
00000D90: 30 4A 52 45 53 54 2E 20 41 46 20 54 54 20 28 54 |0JREST. AF TT (T|
00000DA0: 4F 54 41 4C 20 52 45 4E 54 45 54 41 4C 29 00 C4 |OTAL RENTETAL)..|
00000DB0: 15 72 10 98 31 2C C7 28 31 36 29 22 35 37 22 59 |.r..1,.(16)"57"Y|
00000DC0: 24 3B 54 54 00 CB 15 7C 10 98 31 00 EA 15 86 10 |$;TT...|..1.....|
00000DD0: 98 31 2C 22 54 4F 54 41 4C 20 52 45 4E 54 45 42 |.1,"TOTAL RENTEB|
00000DE0: 45 4C 30 42 20 3D 20 22 54 52 00 F1 15 90 10 A0 |EL0B = "TR......|
00000DF0: 31 00 F9 15 9A 10 89 33 30 00 24 16 30 11 8F 20 |1......30.$.0.. |
00000E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 50 52 49 4E 54 |********** PRINT|
00000E10: 45 52 55 44 53 4B 52 49 49 46 54 20 2A 2A 2A 2A |ERUDSKRIIFT ****|
00000E20: 2A 2A 2A 2A 00 4E 16 3A 11 8F 20 2A 2A 2A 2A 2A |****.N.:.. *****|
00000E30: 2A 2A 2A 20 52 45 4E 54 45 42 45 4C 30 42 20 50 |*** RENTEBEL0B P|
00000E40: 52 2E 20 42 49 4C 41 47 20 2A 2A 2A 2A 2A 00 57 |R. BILAG *****.W|
00000E50: 16 44 11 9F 31 2C 34 00 8F 16 4E 11 98 31 2C 22 |.D..1,4...N..1,"|
00000E60: 52 45 4E 54 45 4E 4F 54 41 20 46 4F 52 20 22 4B |RENTENOTA FOR "K|
00000E70: 24 22 20 4B 56 41 52 54 41 4C 2E 20 20 52 45 4E |$" KVARTAL. REN|
00000E80: 54 45 53 41 54 53 22 52 53 3A 98 31 3A 98 31 00 |TESATS"RS:.1:.1.|
00000E90: BB 16 58 11 98 31 2C 22 20 44 41 54 4F 22 C7 28 |..X..1," DATO".(|
00000EA0: 31 36 29 22 31 35 42 45 4C 30 42 22 C7 28 31 36 |16)"15BEL0B".(16|
00000EB0: 29 22 33 30 53 41 4C 44 4F 22 3B 00 D9 16 62 11 |)"30SALDO";...b.|
00000EC0: 98 31 2C C7 28 31 36 29 22 34 36 52 45 4E 54 45 |.1,.(16)"46RENTE|
00000ED0: 42 45 4C 30 42 22 3A 98 31 00 FD 16 76 11 8D 31 |BEL0B":.1...v..1|
00000EE0: 30 30 37 30 3A 20 8F 20 4B 4F 4E 56 45 52 54 20 |0070: . KONVERT |
00000EF0: 41 46 20 53 44 20 54 49 4C 20 53 44 24 00 23 17 |AF SD TIL SD$.#.|
00000F00: 80 11 8D 20 31 31 36 30 30 3A 20 8F 20 48 30 4A |... 11600: . H0J|
00000F10: 52 45 53 54 2E 20 41 46 20 53 54 41 52 54 53 41 |REST. AF STARTSA|
00000F20: 4C 44 4F 00 3A 17 8A 11 98 31 2C C7 28 31 36 29 |LDO.:....1,.(16)|
00000F30: 22 32 35 22 59 24 3B 53 44 24 00 4A 17 94 11 81 |"25"Y$;SD$.J....|
00000F40: 20 49 20 B2 20 31 20 A4 20 58 00 58 17 9E 11 98 | I . 1 . X.X....|
00000F50: 31 2C 44 24 28 49 29 3B 00 7B 17 A8 11 8D 20 31 |1,D$(I);.{.... 1|
00000F60: 30 30 30 30 3A 20 8F 20 4B 4F 4E 56 45 52 54 2E |0000: . KONVERT.|
00000F70: 20 42 45 20 54 49 4C 20 42 45 24 00 99 17 B2 11 | BE TIL BE$.....|
00000F80: 8D 31 31 30 31 30 3A 20 8F 20 48 30 4A 52 45 53 |.11010: . H0JRES|
00000F90: 54 2E 20 41 46 20 42 45 24 00 B4 17 BC 11 98 31 |T. AF BE$......1|
00000FA0: 2C C7 28 31 36 29 22 31 30 22 59 24 3B 42 45 24 |,.(16)"10"Y$;BE$|
00000FB0: 28 49 29 3B 00 D6 17 C6 11 8D 20 31 30 30 33 30 |(I);...... 10030|
00000FC0: 3A 8F 20 4B 4F 4E 56 45 52 54 2E 20 53 41 20 54 |:. KONVERT. SA T|
00000FD0: 49 4C 20 53 41 24 00 F4 17 D0 11 8D 20 31 31 31 |IL SA$...... 111|
00000FE0: 30 30 3A 8F 20 48 30 4A 52 45 53 54 2E 20 41 46 |00:. H0JREST. AF|
00000FF0: 20 53 41 24 00 0F 18 DA 11 98 31 2C C7 28 31 36 | SA$......1,.(16|
00001000: 29 22 32 35 22 59 24 3B 53 41 24 28 49 29 3B 00 |)"25"Y$;SA$(I);.|
00001010: 30 18 E4 11 8D 31 30 30 35 30 3A 8F 20 4B 4F 4E |0....10050:. KON|
00001020: 56 45 52 54 2E 20 52 42 20 54 49 4C 20 52 42 24 |VERT. RB TIL RB$|
00001030: 00 4E 18 EE 11 8D 20 31 31 32 30 30 3A 8F 20 48 |.N.... 11200:. H|
00001040: 30 4A 52 45 53 54 2E 20 41 46 20 52 42 24 00 69 |0JREST. AF RB$.i|
00001050: 18 F8 11 98 31 2C C7 28 31 36 29 22 34 35 22 59 |....1,.(16)"45"Y|
00001060: 24 3B 52 42 24 28 49 29 3B 00 81 18 02 12 98 31 |$;RB$(I);......1|
00001070: 2C C7 28 31 36 29 22 37 30 42 49 4C 41 47 20 22 |,.(16)"70BILAG "|
00001080: 49 00 89 18 0C 12 82 20 49 00 90 18 20 12 98 31 |I...... I... ..1|
00001090: 00 AF 18 2A 12 98 31 2C 22 54 4F 54 41 4C 20 52 |...*..1,"TOTAL R|
000010A0: 45 4E 54 45 42 45 4C 30 42 20 3D 20 22 54 52 00 |ENTEBEL0B = "TR.|
000010B0: B6 18 34 12 A0 31 00 BE 18 3E 12 89 33 30 00 E9 |..4..1...>..30..|
000010C0: 18 88 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |.... ********** |
000010D0: 53 41 56 45 20 44 41 54 41 20 50 41 41 20 42 41 |SAVE DATA PAA BA|
000010E0: 41 4E 44 20 2A 2A 2A 2A 2A 00 05 19 92 13 9F 31 |AND *****......1|
000010F0: 2C 31 2C 31 2C 22 52 45 4E 54 45 4E 4F 54 41 2C |,1,1,"RENTENOTA,|
00001100: 44 41 54 41 22 00 0F 19 99 13 98 31 2C 53 44 00 |DATA"......1,SD.|
00001110: 19 19 9C 13 98 31 2C 4B 24 00 23 19 A6 13 98 31 |.....1,K$.#....1|
00001120: 2C 52 53 00 2B 19 B0 13 49 B2 31 00 38 19 BA 13 |,RS.+...I.1.8...|
00001130: 98 31 2C 44 24 28 49 29 00 45 19 C4 13 98 31 2C |.1,D$(I).E....1,|
00001140: 42 45 28 49 29 00 52 19 CE 13 98 31 2C 52 44 28 |BE(I).R....1,RD(|
00001150: 49 29 00 63 19 D8 13 8B 49 B2 58 20 A7 20 89 35 |I).c....I.X . .5|
00001160: 31 31 30 00 6D 19 E2 13 49 B2 49 AA 31 00 77 19 |110.m...I.I.1.w.|
00001170: EC 13 89 35 30 35 30 00 82 19 F6 13 A0 31 3A 89 |...5050......1:.|
00001180: 33 30 00 AD 19 70 17 8F 20 2A 2A 2A 2A 2A 2A 2A |30...p.. *******|
00001190: 2A 2A 2A 20 4C 4F 41 44 20 44 41 54 41 20 46 52 |*** LOAD DATA FR|
000011A0: 41 20 42 41 41 4E 44 20 2A 2A 2A 2A 2A 00 C9 19 |A BAAND *****...|
000011B0: 7A 17 9F 31 2C 31 2C 30 2C 22 52 45 4E 54 45 4E |z..1,1,0,"RENTEN|
000011C0: 4F 54 41 2C 44 41 54 41 22 00 D3 19 81 17 84 31 |OTA,DATA"......1|
000011D0: 2C 53 44 00 DD 19 84 17 84 31 2C 4B 24 00 E7 19 |,SD......1,K$...|
000011E0: 8E 17 84 31 2C 52 53 00 EF 19 98 17 58 B2 31 00 |...1,RS.....X.1.|
000011F0: FC 19 A2 17 84 31 2C 44 24 28 58 29 00 09 1A AC |.....1,D$(X)....|
00001200: 17 84 31 2C 42 45 28 58 29 00 16 1A B6 17 84 31 |..1,BE(X)......1|
00001210: 2C 52 44 28 58 29 00 20 1A C0 17 58 B2 58 AA 31 |,RD(X). ...X.X.1|
00001220: 00 30 1A CA 17 8B 53 54 B2 30 A7 89 36 30 35 30 |.0....ST.0..6050|
00001230: 00 49 1A D4 17 8B 53 54 B2 36 34 A7 20 A0 31 3A |.I....ST.64. .1:|
00001240: 58 B2 58 AB 31 3A 89 33 30 00 74 1A 58 1B 8F 20 |X.X.1:.30.t.X.. |
00001250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 52 45 54 54 45 |********** RETTE|
00001260: 4C 53 45 20 41 46 20 42 49 4C 41 47 20 2A 2A 2A |LSE AF BILAG ***|
00001270: 2A 2A 2A 2A 00 A0 1A 62 1B 99 22 93 11 1D 1D 1D |****...b..".....|
00001280: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 42 49 4C 41 47 53 |..........BILAGS|
00001290: 52 45 54 54 45 4C 53 45 22 3A 41 24 B2 22 30 22 |RETTELSE":A$."0"|
000012A0: 00 CA 1A 6C 1B 85 22 11 11 48 56 49 4C 4B 45 54 |...l.."..HVILKET|
000012B0: 20 42 49 4C 41 47 53 4E 52 2E 20 53 4B 41 4C 20 | BILAGSNR. SKAL |
000012C0: 52 45 54 54 45 53 22 3B 42 4E 00 E8 1A 76 1B 99 |RETTES";BN...v..|
000012D0: 22 11 11 22 44 24 28 42 4E 29 2C 42 45 28 42 4E |".."D$(BN),BE(BN|
000012E0: 29 2C 52 44 28 42 4E 29 00 08 1B 80 1B 99 22 11 |),RD(BN)......".|
000012F0: 11 49 4E 44 54 41 53 54 20 42 49 4C 41 47 45 54 |.INDTAST BILAGET|
00001300: 20 50 41 41 20 4E 59 22 00 1D 1B 8A 1B 85 22 11 | PAA NY"......".|
00001310: 11 44 41 54 4F 22 3B 44 24 28 42 4E 29 00 33 1B |.DATO";D$(BN).3.|
00001320: 94 1B 85 22 11 11 42 45 4C 30 42 22 3B 42 45 28 |..."..BEL0B";BE(|
00001330: 42 4E 29 00 53 1B 9E 1B 85 22 11 11 41 4E 54 41 |BN).S...."..ANTA|
00001340: 4C 20 52 45 4E 54 45 44 41 47 45 22 3B 52 44 28 |L RENTEDAGE";RD(|
00001350: 42 4E 29 00 5C 1B A8 1B 42 4E B2 30 00 7A 1B B2 |BN).\...BN.0.z..|
00001360: 1B 99 22 11 11 11 46 4C 45 52 45 20 52 45 54 54 |.."...FLERE RETT|
00001370: 45 4C 53 45 52 20 4A 2F 4E 22 00 92 1B BC 1B A1 |ELSER J/N"......|
00001380: 20 41 24 3A 8B 41 24 B2 22 4A 22 20 A7 20 37 30 | A$:.A$."J" . 70|
00001390: 30 30 00 A5 1B C6 1B 8B 41 24 B2 22 4E 22 A7 20 |00......A$."N". |
000013A0: 31 32 30 30 30 00 B0 1B D0 1B 89 20 37 31 30 30 |12000...... 7100|
000013B0: 00 E8 1B 10 27 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |....'. *********|
000013C0: 20 4B 4F 4E 56 45 52 54 45 52 49 4E 47 20 41 46 | KONVERTERING AF|
000013D0: 20 54 41 4C 20 54 49 4C 20 53 54 52 45 4E 47 2A | TAL TIL STRENG*|
000013E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 FC 1B 1A 27 42 45 24 |********....'BE$|
000013F0: 28 49 29 B2 C4 28 42 45 28 49 29 29 00 08 1C 24 |(I)..(BE(I))...$|
00001400: 27 89 20 31 30 32 30 30 00 1C 1C 2E 27 53 41 24 |'. 10200....'SA$|
00001410: 28 49 29 B2 C4 28 53 41 28 49 29 29 00 28 1C 38 |(I)..(SA(I)).(.8|
00001420: 27 89 20 31 30 34 30 30 00 3C 1C 42 27 52 42 24 |'. 10400.<.B'RB$|
00001430: 28 49 29 B2 C4 28 52 42 28 49 29 29 00 48 1C 4C |(I)..(RB(I)).H.L|
00001440: 27 89 20 31 30 36 30 30 00 56 1C 56 27 53 44 24 |'. 10600.V.V'SD$|
00001450: B2 C4 28 53 44 29 00 62 1C 60 27 89 20 31 30 38 |..(SD).b.`'. 108|
00001460: 30 30 00 76 1C 6A 27 53 54 24 28 49 29 B2 C4 28 |00.v.j'ST$(I)..(|
00001470: 53 54 28 49 29 29 00 7C 1C 6F 27 8E 00 B4 1C D8 |ST(I)).|.o'.....|
00001480: 27 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 42 45 4C |'. ********* BEL|
00001490: 30 42 53 49 4E 49 54 2E 20 28 42 45 29 20 28 32 |0BSINIT. (BE) (2|
000014A0: 20 44 45 43 49 4D 41 4C 45 52 29 20 2A 2A 2A 2A | DECIMALER) ****|
000014B0: 2A 2A 2A 2A 00 C7 1C DD 27 8B 42 45 28 49 29 B3 |****....'.BE(I).|
000014C0: 30 A7 31 35 30 30 30 00 F2 1C E2 27 8B 42 45 28 |0.15000....'.BE(|
000014D0: 49 29 B1 B2 31 AF 42 45 28 49 29 B3 31 30 AF C3 |I)..1.BE(I).10..|
000014E0: 28 42 45 24 28 49 29 29 B2 32 20 A7 20 31 30 33 |(BE$(I)).2 . 103|
000014F0: 35 30 00 19 1D E7 27 8B 42 45 28 49 29 B1 B2 31 |50....'.BE(I)..1|
00001500: AF 42 45 28 49 29 B3 31 30 AF C3 28 42 45 24 28 |.BE(I).10..(BE$(|
00001510: 49 29 29 B2 35 20 A7 20 8E 00 44 1D EC 27 8B 42 |I)).5 . ..D..'.B|
00001520: 45 28 49 29 B1 B2 31 AF 42 45 28 49 29 B3 31 30 |E(I)..1.BE(I).10|
00001530: AF C3 28 42 45 24 28 49 29 29 B2 34 20 A7 20 31 |..(BE$(I)).4 . 1|
00001540: 30 33 36 30 00 71 1D F6 27 8B 42 45 28 49 29 B1 |0360.q..'.BE(I).|
00001550: B2 31 30 AF 42 45 28 49 29 B3 31 30 30 AF C3 28 |.10.BE(I).100..(|
00001560: 42 45 24 28 49 29 29 B2 33 20 A7 20 31 30 33 35 |BE$(I)).3 . 1035|
00001570: 30 00 9A 1D FB 27 8B 42 45 28 49 29 B1 B2 31 30 |0....'.BE(I)..10|
00001580: AF 42 45 28 49 29 B3 31 30 30 AF C3 28 42 45 24 |.BE(I).100..(BE$|
00001590: 28 49 29 29 B2 36 20 A7 20 8E 00 C7 1D 00 28 8B |(I)).6 . .....(.|
000015A0: 42 45 28 49 29 B1 B2 31 30 AF 42 45 28 49 29 B3 |BE(I)..10.BE(I).|
000015B0: 31 30 30 AF C3 28 42 45 24 28 49 29 29 B2 35 20 |100..(BE$(I)).5 |
000015C0: A7 20 31 30 33 36 30 00 F6 1D 0A 28 8B 42 45 28 |. 10360....(.BE(|
000015D0: 49 29 B1 B2 31 30 30 AF 42 45 28 49 29 B3 31 30 |I)..100.BE(I).10|
000015E0: 30 30 AF C3 28 42 45 24 28 49 29 29 B2 34 20 A7 |00..(BE$(I)).4 .|
000015F0: 20 31 30 33 35 30 00 21 1E 0F 28 8B 42 45 28 49 | 10350.!..(.BE(I|
00001600: 29 B1 B2 31 30 30 AF 42 45 28 49 29 B3 31 30 30 |)..100.BE(I).100|
00001610: 30 AF C3 28 42 45 24 28 49 29 29 B2 37 20 A7 20 |0..(BE$(I)).7 . |
00001620: 8E 00 50 1E 14 28 8B 42 45 28 49 29 B1 B2 31 30 |..P..(.BE(I)..10|
00001630: 30 AF 42 45 28 49 29 B3 31 30 30 30 AF C3 28 42 |0.BE(I).1000..(B|
00001640: 45 24 28 49 29 29 B2 36 20 A7 20 31 30 33 36 30 |E$(I)).6 . 10360|
00001650: 00 81 1E 1E 28 8B 42 45 28 49 29 B1 B2 31 30 30 |....(.BE(I)..100|
00001660: 30 AF 42 45 28 49 29 B3 31 30 30 30 30 AF C3 28 |0.BE(I).10000..(|
00001670: 42 45 24 28 49 29 29 B2 35 20 A7 20 31 30 33 35 |BE$(I)).5 . 1035|
00001680: 30 00 AE 1E 23 28 8B 42 45 28 49 29 B1 B2 31 30 |0...#(.BE(I)..10|
00001690: 30 30 AF 42 45 28 49 29 B3 31 30 30 30 30 AF C3 |00.BE(I).10000..|
000016A0: 28 42 45 24 28 49 29 29 B2 38 20 A7 20 8E 00 DF |(BE$(I)).8 . ...|
000016B0: 1E 28 28 8B 42 45 28 49 29 B1 B2 31 30 30 30 AF |.((.BE(I)..1000.|
000016C0: 42 45 28 49 29 B3 31 30 30 30 30 AF C3 28 42 45 |BE(I).10000..(BE|
000016D0: 24 28 49 29 29 B2 37 20 A7 20 31 30 33 36 30 00 |$(I)).7 . 10360.|
000016E0: 12 1F 32 28 8B 42 45 28 49 29 B1 B2 31 30 30 30 |..2(.BE(I)..1000|
000016F0: 30 AF 42 45 28 49 29 B3 31 30 30 30 30 30 AF C3 |0.BE(I).100000..|
00001700: 28 42 45 24 28 49 29 29 B2 36 20 A7 20 31 30 33 |(BE$(I)).6 . 103|
00001710: 35 30 00 41 1F 37 28 8B 42 45 28 49 29 B1 B2 31 |50.A.7(.BE(I)..1|
00001720: 30 30 30 30 AF 42 45 28 49 29 B3 31 30 30 30 30 |0000.BE(I).10000|
00001730: 30 AF C3 28 42 45 24 28 49 29 29 B2 39 20 A7 20 |0..(BE$(I)).9 . |
00001740: 8E 00 74 1F 3C 28 8B 42 45 28 49 29 B1 B2 31 30 |..t.<(.BE(I)..10|
00001750: 30 30 30 AF 42 45 28 49 29 B3 31 30 30 30 30 30 |000.BE(I).100000|
00001760: AF C3 28 42 45 24 28 49 29 29 B2 38 20 A7 20 31 |..(BE$(I)).8 . 1|
00001770: 30 33 36 30 00 A9 1F 46 28 8B 42 45 28 49 29 B1 |0360...F(.BE(I).|
00001780: B2 31 30 30 30 30 30 AF 42 45 28 49 29 B3 31 30 |.100000.BE(I).10|
00001790: 30 30 30 30 30 AF C3 28 42 45 24 28 49 29 29 B2 |00000..(BE$(I)).|
000017A0: 37 20 A7 20 31 30 33 35 30 00 DB 1F 4B 28 8B 42 |7 . 10350...K(.B|
000017B0: 45 28 49 29 B1 B2 31 30 30 30 30 30 AF 42 45 28 |E(I)..100000.BE(|
000017C0: 49 29 B3 31 30 30 30 30 30 30 AF C3 28 42 45 24 |I).1000000..(BE$|
000017D0: 28 49 29 29 B2 31 30 20 A7 20 8E 00 10 20 50 28 |(I)).10 . ... P(|
000017E0: 8B 42 45 28 49 29 B1 B2 31 30 30 30 30 30 AF 42 |.BE(I)..100000.B|
000017F0: 45 28 49 29 B3 31 30 30 30 30 30 30 AF C3 28 42 |E(I).1000000..(B|
00001800: 45 24 28 49 29 29 B2 39 20 A7 20 31 30 33 36 30 |E$(I)).9 . 10360|
00001810: 00 16 20 5A 28 8E 00 30 20 6E 28 42 45 24 28 49 |.. Z(..0 n(BE$(I|
00001820: 29 B2 42 45 24 28 49 29 AA 22 2E 30 30 22 3A 8E |).BE$(I).".00":.|
00001830: 00 48 20 78 28 42 45 24 28 49 29 B2 42 45 24 28 |.H x(BE$(I).BE$(|
00001840: 49 29 AA 22 30 22 3A 8E 00 4E 20 82 28 8E 00 86 |I)."0":..N .(...|
00001850: 20 A0 28 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 53 | .(. ********* S|
00001860: 41 4C 44 4F 49 4E 49 54 2E 20 28 53 41 29 20 28 |ALDOINIT. (SA) (|
00001870: 32 20 44 45 43 49 4D 41 4C 45 52 29 20 2A 2A 2A |2 DECIMALER) ***|
00001880: 2A 2A 2A 2A 2A 2A 00 B1 20 AA 28 8B 53 41 28 49 |******.. .(.SA(I|
00001890: 29 B1 B2 31 AF 53 41 28 49 29 B3 31 30 AF C3 28 |)..1.SA(I).10..(|
000018A0: 53 41 24 28 49 29 29 B2 32 20 A7 20 31 30 35 35 |SA$(I)).2 . 1055|
000018B0: 30 00 D8 20 AF 28 8B 53 41 28 49 29 B1 B2 31 AF |0.. .(.SA(I)..1.|
000018C0: 53 41 28 49 29 B3 31 30 AF C3 28 53 41 24 28 49 |SA(I).10..(SA$(I|
000018D0: 29 29 B2 35 20 A7 20 8E 00 03 21 B4 28 8B 53 41 |)).5 . ...!.(.SA|
000018E0: 28 49 29 B1 B2 31 AF 53 41 28 49 29 B3 31 30 AF |(I)..1.SA(I).10.|
000018F0: C3 28 53 41 24 28 49 29 29 B2 34 20 A7 20 31 30 |.(SA$(I)).4 . 10|
00001900: 35 36 30 00 30 21 BE 28 8B 53 41 28 49 29 B1 B2 |560.0!.(.SA(I)..|
00001910: 31 30 AF 53 41 28 49 29 B3 31 30 30 AF C3 28 53 |10.SA(I).100..(S|
00001920: 41 24 28 49 29 29 B2 33 20 A7 20 31 30 35 35 30 |A$(I)).3 . 10550|
00001930: 00 59 21 C3 28 8B 53 41 28 49 29 B1 B2 31 30 AF |.Y!.(.SA(I)..10.|
00001940: 53 41 28 49 29 B3 31 30 30 AF C3 28 53 41 24 28 |SA(I).100..(SA$(|
00001950: 49 29 29 B2 36 20 A7 20 8E 00 86 21 C8 28 8B 53 |I)).6 . ...!.(.S|
00001960: 41 28 49 29 B1 B2 31 30 AF 53 41 28 49 29 B3 31 |A(I)..10.SA(I).1|
00001970: 30 30 AF C3 28 53 41 24 28 49 29 29 B2 35 20 A7 |00..(SA$(I)).5 .|
00001980: 20 31 30 35 36 30 00 B5 21 D2 28 8B 53 41 28 49 | 10560..!.(.SA(I|
00001990: 29 B1 B2 31 30 30 AF 53 41 28 49 29 B3 31 30 30 |)..100.SA(I).100|
000019A0: 30 AF C3 28 53 41 24 28 49 29 29 B2 34 20 A7 20 |0..(SA$(I)).4 . |
000019B0: 31 30 35 35 30 00 E0 21 D7 28 8B 53 41 28 49 29 |10550..!.(.SA(I)|
000019C0: B1 B2 31 30 30 AF 53 41 28 49 29 B3 31 30 30 30 |..100.SA(I).1000|
000019D0: AF C3 28 53 41 24 28 49 29 29 B2 37 20 A7 20 8E |..(SA$(I)).7 . .|
000019E0: 00 0F 22 DC 28 8B 53 41 28 49 29 B1 B2 31 30 30 |..".(.SA(I)..100|
000019F0: AF 53 41 28 49 29 B3 31 30 30 30 AF C3 28 53 41 |.SA(I).1000..(SA|
00001A00: 24 28 49 29 29 B2 36 20 A7 20 31 30 35 36 30 00 |$(I)).6 . 10560.|
00001A10: 40 22 E6 28 8B 53 41 28 49 29 B1 B2 31 30 30 30 |@".(.SA(I)..1000|
00001A20: AF 53 41 28 49 29 B3 31 30 30 30 30 AF C3 28 53 |.SA(I).10000..(S|
00001A30: 41 24 28 49 29 29 B2 35 20 A7 20 31 30 35 35 30 |A$(I)).5 . 10550|
00001A40: 00 6D 22 EB 28 8B 53 41 28 49 29 B1 B2 31 30 30 |.m".(.SA(I)..100|
00001A50: 30 AF 53 41 28 49 29 B3 31 30 30 30 30 AF C3 28 |0.SA(I).10000..(|
00001A60: 53 41 24 28 49 29 29 B2 38 20 A7 20 8E 00 9E 22 |SA$(I)).8 . ..."|
00001A70: F0 28 8B 53 41 28 49 29 B1 B2 31 30 30 30 AF 53 |.(.SA(I)..1000.S|
00001A80: 41 28 49 29 B3 31 30 30 30 30 AF C3 28 53 41 24 |A(I).10000..(SA$|
00001A90: 28 49 29 29 B2 37 20 A7 20 31 30 35 36 30 00 D1 |(I)).7 . 10560..|
00001AA0: 22 FA 28 8B 53 41 28 49 29 B1 B2 31 30 30 30 30 |".(.SA(I)..10000|
00001AB0: AF 53 41 28 49 29 B3 31 30 30 30 30 30 AF C3 28 |.SA(I).100000..(|
00001AC0: 53 41 24 28 49 29 29 B2 36 20 A7 20 31 30 35 35 |SA$(I)).6 . 1055|
00001AD0: 30 00 00 23 FF 28 8B 53 41 28 49 29 B1 B2 31 30 |0..#.(.SA(I)..10|
00001AE0: 30 30 30 AF 53 41 28 49 29 B3 31 30 30 30 30 30 |000.SA(I).100000|
00001AF0: AF C3 28 53 41 24 28 49 29 29 B2 39 20 A7 20 8E |..(SA$(I)).9 . .|
00001B00: 00 33 23 04 29 8B 53 41 28 49 29 B1 B2 31 30 30 |.3#.).SA(I)..100|
00001B10: 30 30 AF 53 41 28 49 29 B3 31 30 30 30 30 30 AF |00.SA(I).100000.|
00001B20: C3 28 53 41 24 28 49 29 29 B2 38 20 A7 20 31 30 |.(SA$(I)).8 . 10|
00001B30: 35 36 30 00 68 23 0E 29 8B 53 41 28 49 29 B1 B2 |560.h#.).SA(I)..|
00001B40: 31 30 30 30 30 30 AF 53 41 28 49 29 B3 31 30 30 |100000.SA(I).100|
00001B50: 30 30 30 30 AF C3 28 53 41 24 28 49 29 29 B2 37 |0000..(SA$(I)).7|
00001B60: 20 A7 20 31 30 35 35 30 00 9A 23 13 29 8B 53 41 | . 10550..#.).SA|
00001B70: 28 49 29 B1 B2 31 30 30 30 30 30 AF 53 41 28 49 |(I)..100000.SA(I|
00001B80: 29 B3 31 30 30 30 30 30 30 AF C3 28 53 41 24 28 |).1000000..(SA$(|
00001B90: 49 29 29 B2 31 30 20 A7 20 8E 00 CF 23 18 29 8B |I)).10 . ...#.).|
00001BA0: 53 41 28 49 29 B1 B2 31 30 30 30 30 30 AF 53 41 |SA(I)..100000.SA|
00001BB0: 28 49 29 B3 31 30 30 30 30 30 30 AF C3 28 53 41 |(I).1000000..(SA|
00001BC0: 24 28 49 29 29 B2 39 20 A7 20 31 30 35 36 30 00 |$(I)).9 . 10560.|
00001BD0: E9 23 36 29 53 41 24 28 49 29 B2 53 41 24 28 49 |.#6)SA$(I).SA$(I|
00001BE0: 29 AA 22 2E 30 30 22 3A 8E 00 01 24 40 29 53 41 |).".00":...$@)SA|
00001BF0: 24 28 49 29 B2 53 41 24 28 49 29 AA 22 30 22 3A |$(I).SA$(I)."0":|
00001C00: 8E 00 07 24 4A 29 8E 00 3F 24 68 29 8F 20 2A 2A |...$J)..?$h). **|
00001C10: 2A 2A 2A 2A 2A 2A 2A 20 52 45 4E 54 45 42 45 4C |******* RENTEBEL|
00001C20: 30 42 2E 20 28 52 42 29 20 28 32 20 44 45 43 49 |0B. (RB) (2 DECI|
00001C30: 4D 41 4C 45 52 29 20 2A 2A 2A 2A 2A 2A 2A 2A 00 |MALER) ********.|
00001C40: 6A 24 72 29 8B 52 42 28 49 29 B1 B2 31 AF 52 42 |j$r).RB(I)..1.RB|
00001C50: 28 49 29 B3 31 30 AF C3 28 52 42 24 28 49 29 29 |(I).10..(RB$(I))|
00001C60: B2 32 20 A7 20 31 30 37 35 30 00 91 24 77 29 8B |.2 . 10750..$w).|
00001C70: 52 42 28 49 29 B1 B2 31 AF 52 42 28 49 29 B3 31 |RB(I)..1.RB(I).1|
00001C80: 30 AF C3 28 52 42 24 28 49 29 29 B2 35 20 A7 20 |0..(RB$(I)).5 . |
00001C90: 8E 00 BC 24 7C 29 8B 52 42 28 49 29 B1 B2 31 AF |...$|).RB(I)..1.|
00001CA0: 52 42 28 49 29 B3 31 30 AF C3 28 52 42 24 28 49 |RB(I).10..(RB$(I|
00001CB0: 29 29 B2 34 20 A7 20 31 30 37 36 30 00 E9 24 86 |)).4 . 10760..$.|
00001CC0: 29 8B 52 42 28 49 29 B1 B2 31 30 AF 52 42 28 49 |).RB(I)..10.RB(I|
00001CD0: 29 B3 31 30 30 AF C3 28 52 42 24 28 49 29 29 B2 |).100..(RB$(I)).|
00001CE0: 33 20 A7 20 31 30 37 35 30 00 12 25 8B 29 8B 52 |3 . 10750..%.).R|
00001CF0: 42 28 49 29 B1 B2 31 30 AF 52 42 28 49 29 B3 31 |B(I)..10.RB(I).1|
00001D00: 30 30 AF C3 28 52 42 24 28 49 29 29 B2 36 20 A7 |00..(RB$(I)).6 .|
00001D10: 20 8E 00 3F 25 90 29 8B 52 42 28 49 29 B1 B2 31 | ..?%.).RB(I)..1|
00001D20: 30 AF 52 42 28 49 29 B3 31 30 30 AF C3 28 52 42 |0.RB(I).100..(RB|
00001D30: 24 28 49 29 29 B2 35 20 A7 20 31 30 37 36 30 00 |$(I)).5 . 10760.|
00001D40: 6E 25 9A 29 8B 52 42 28 49 29 B1 B2 31 30 30 AF |n%.).RB(I)..100.|
00001D50: 52 42 28 49 29 B3 31 30 30 30 AF C3 28 52 42 24 |RB(I).1000..(RB$|
00001D60: 28 49 29 29 B2 34 20 A7 20 31 30 37 35 30 00 99 |(I)).4 . 10750..|
00001D70: 25 9F 29 8B 52 42 28 49 29 B1 B2 31 30 30 AF 52 |%.).RB(I)..100.R|
00001D80: 42 28 49 29 B3 31 30 30 30 AF C3 28 52 42 24 28 |B(I).1000..(RB$(|
00001D90: 49 29 29 B2 37 20 A7 20 8E 00 C8 25 A4 29 8B 52 |I)).7 . ...%.).R|
00001DA0: 42 28 49 29 B1 B2 31 30 30 AF 52 42 28 49 29 B3 |B(I)..100.RB(I).|
00001DB0: 31 30 30 30 AF C3 28 52 42 24 28 49 29 29 B2 36 |1000..(RB$(I)).6|
00001DC0: 20 A7 20 31 30 37 36 30 00 F9 25 AE 29 8B 52 42 | . 10760..%.).RB|
00001DD0: 28 49 29 B1 B2 31 30 30 30 AF 52 42 28 49 29 B3 |(I)..1000.RB(I).|
00001DE0: 31 30 30 30 30 AF C3 28 52 42 24 28 49 29 29 B2 |10000..(RB$(I)).|
00001DF0: 35 20 A7 20 31 30 37 35 30 00 26 26 B3 29 8B 52 |5 . 10750.&&.).R|
00001E00: 42 28 49 29 B1 B2 31 30 30 30 AF 52 42 28 49 29 |B(I)..1000.RB(I)|
00001E10: B3 31 30 30 30 30 AF C3 28 52 42 24 28 49 29 29 |.10000..(RB$(I))|
00001E20: B2 38 20 A7 20 8E 00 57 26 B8 29 8B 52 42 28 49 |.8 . ..W&.).RB(I|
00001E30: 29 B1 B2 31 30 30 30 AF 52 42 28 49 29 B3 31 30 |)..1000.RB(I).10|
00001E40: 30 30 30 AF C3 28 52 42 24 28 49 29 29 B2 37 20 |000..(RB$(I)).7 |
00001E50: A7 20 31 30 37 36 30 00 8A 26 C2 29 8B 52 42 28 |. 10760..&.).RB(|
00001E60: 49 29 B1 B2 31 30 30 30 30 AF 52 42 28 49 29 B3 |I)..10000.RB(I).|
00001E70: 31 30 30 30 30 30 AF C3 28 52 42 24 28 49 29 29 |100000..(RB$(I))|
00001E80: B2 36 20 A7 20 31 30 37 35 30 00 B9 26 C7 29 8B |.6 . 10750..&.).|
00001E90: 52 42 28 49 29 B1 B2 31 30 30 30 30 AF 52 42 28 |RB(I)..10000.RB(|
00001EA0: 49 29 B3 31 30 30 30 30 30 AF C3 28 52 42 24 28 |I).100000..(RB$(|
00001EB0: 49 29 29 B2 39 20 A7 20 8E 00 EC 26 CC 29 8B 52 |I)).9 . ...&.).R|
00001EC0: 42 28 49 29 B1 B2 31 30 30 30 30 AF 52 42 28 49 |B(I)..10000.RB(I|
00001ED0: 29 B3 31 30 30 30 30 30 AF C3 28 52 42 24 28 49 |).100000..(RB$(I|
00001EE0: 29 29 B2 38 20 A7 20 31 30 37 36 30 00 21 27 D6 |)).8 . 10760.!'.|
00001EF0: 29 8B 52 42 28 49 29 B1 B2 31 30 30 30 30 30 AF |).RB(I)..100000.|
00001F00: 52 42 28 49 29 B3 31 30 30 30 30 30 30 AF C3 28 |RB(I).1000000..(|
00001F10: 52 42 24 28 49 29 29 B2 37 20 A7 20 31 30 37 35 |RB$(I)).7 . 1075|
00001F20: 30 00 53 27 DB 29 8B 52 42 28 49 29 B1 B2 31 30 |0.S'.).RB(I)..10|
00001F30: 30 30 30 30 AF 52 42 28 49 29 B3 31 30 30 30 30 |0000.RB(I).10000|
00001F40: 30 30 AF C3 28 52 42 24 28 49 29 29 B2 31 30 20 |00..(RB$(I)).10 |
00001F50: A7 20 8E 00 88 27 E0 29 8B 52 42 28 49 29 B1 B2 |. ...'.).RB(I)..|
00001F60: 31 30 30 30 30 30 AF 52 42 28 49 29 B3 31 30 30 |100000.RB(I).100|
00001F70: 30 30 30 30 AF C3 28 52 42 24 28 49 29 29 B2 39 |0000..(RB$(I)).9|
00001F80: 20 A7 20 31 30 37 36 30 00 A2 27 FE 29 52 42 24 | . 10760..'.)RB$|
00001F90: 28 49 29 B2 52 42 24 28 49 29 AA 22 2E 30 30 22 |(I).RB$(I).".00"|
00001FA0: 3A 8E 00 BA 27 08 2A 52 42 24 28 49 29 B2 52 42 |:...'.*RB$(I).RB|
00001FB0: 24 28 49 29 AA 22 30 22 3A 8E 00 C0 27 12 2A 8E |$(I)."0":...'.*.|
00001FC0: 00 F8 27 30 2A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..'0*. *********|
00001FD0: 20 53 54 41 52 54 53 41 4C 44 4F 49 4E 49 54 2E | STARTSALDOINIT.|
00001FE0: 20 28 53 44 29 20 28 32 20 44 45 43 49 4D 41 4C | (SD) (2 DECIMAL|
00001FF0: 45 52 29 20 2A 2A 2A 2A 00 1A 28 3A 2A 8B 53 44 |ER) ****..(:*.SD|
00002000: B1 B2 31 AF 53 44 B3 31 30 AF C3 28 53 44 24 29 |..1.SD.10..(SD$)|
00002010: B2 32 20 A7 20 31 30 39 35 30 00 38 28 3F 2A 8B |.2 . 10950.8(?*.|
00002020: 53 44 B1 B2 31 AF 53 44 B3 31 30 AF C3 28 53 44 |SD..1.SD.10..(SD|
00002030: 24 29 B2 35 20 A7 20 8E 00 5A 28 44 2A 8B 53 44 |$).5 . ..Z(D*.SD|
00002040: B1 B2 31 AF 53 44 B3 31 30 AF C3 28 53 44 24 29 |..1.SD.10..(SD$)|
00002050: B2 34 20 A7 20 31 30 39 36 30 00 7E 28 4E 2A 8B |.4 . 10960.~(N*.|
00002060: 53 44 B1 B2 31 30 AF 53 44 B3 31 30 30 AF C3 28 |SD..10.SD.100..(|
00002070: 53 44 24 29 B2 33 20 A7 20 31 30 39 35 30 00 9E |SD$).3 . 10950..|
00002080: 28 53 2A 8B 53 44 B1 B2 31 30 AF 53 44 B3 31 30 |(S*.SD..10.SD.10|
00002090: 30 AF C3 28 53 44 24 29 B2 36 20 A7 20 8E 00 C2 |0..(SD$).6 . ...|
000020A0: 28 58 2A 8B 53 44 B1 B2 31 30 AF 53 44 B3 31 30 |(X*.SD..10.SD.10|
000020B0: 30 AF C3 28 53 44 24 29 B2 35 20 A7 20 31 30 39 |0..(SD$).5 . 109|
000020C0: 36 30 00 E8 28 62 2A 8B 53 44 B1 B2 31 30 30 AF |60..(b*.SD..100.|
000020D0: 53 44 B3 31 30 30 30 AF C3 28 53 44 24 29 B2 34 |SD.1000..(SD$).4|
000020E0: 20 A7 20 31 30 39 35 30 00 0A 29 67 2A 8B 53 44 | . 10950..)g*.SD|
000020F0: B1 B2 31 30 30 AF 53 44 B3 31 30 30 30 AF C3 28 |..100.SD.1000..(|
00002100: 53 44 24 29 B2 37 20 A7 20 8E 00 30 29 6C 2A 8B |SD$).7 . ..0)l*.|
00002110: 53 44 B1 B2 31 30 30 AF 53 44 B3 31 30 30 30 AF |SD..100.SD.1000.|
00002120: C3 28 53 44 24 29 B2 36 20 A7 20 31 30 39 36 30 |.(SD$).6 . 10960|
00002130: 00 58 29 76 2A 8B 53 44 B1 B2 31 30 30 30 AF 53 |.X)v*.SD..1000.S|
00002140: 44 B3 31 30 30 30 30 AF C3 28 53 44 24 29 B2 35 |D.10000..(SD$).5|
00002150: 20 A7 20 31 30 39 35 30 00 7C 29 7B 2A 8B 53 44 | . 10950.|){*.SD|
00002160: B1 B2 31 30 30 30 AF 53 44 B3 31 30 30 30 30 AF |..1000.SD.10000.|
00002170: C3 28 53 44 24 29 B2 38 20 A7 20 8E 00 A4 29 80 |.(SD$).8 . ...).|
00002180: 2A 8B 53 44 B1 B2 31 30 30 30 AF 53 44 B3 31 30 |*.SD..1000.SD.10|
00002190: 30 30 30 AF C3 28 53 44 24 29 B2 37 20 A7 20 31 |000..(SD$).7 . 1|
000021A0: 30 39 36 30 00 CE 29 8A 2A 8B 53 44 B1 B2 31 30 |0960..).*.SD..10|
000021B0: 30 30 30 AF 53 44 B3 31 30 30 30 30 30 AF C3 28 |000.SD.100000..(|
000021C0: 53 44 24 29 B2 36 20 A7 20 31 30 39 35 30 00 F4 |SD$).6 . 10950..|
000021D0: 29 8F 2A 8B 53 44 B1 B2 31 30 30 30 30 AF 53 44 |).*.SD..10000.SD|
000021E0: B3 31 30 30 30 30 30 AF C3 28 53 44 24 29 B2 39 |.100000..(SD$).9|
000021F0: 20 A7 20 8E 00 1E 2A 94 2A 8B 53 44 B1 B2 31 30 | . ...*.*.SD..10|
00002200: 30 30 30 AF 53 44 B3 31 30 30 30 30 30 AF C3 28 |000.SD.100000..(|
00002210: 53 44 24 29 B2 38 20 A7 20 31 30 39 36 30 00 4A |SD$).8 . 10960.J|
00002220: 2A 9E 2A 8B 53 44 B1 B2 31 30 30 30 30 30 AF 53 |*.*.SD..100000.S|
00002230: 44 B3 31 30 30 30 30 30 30 AF C3 28 53 44 24 29 |D.1000000..(SD$)|
00002240: B2 37 20 A7 20 31 30 39 35 30 00 73 2A A3 2A 8B |.7 . 10950.s*.*.|
00002250: 53 44 B1 B2 31 30 30 30 30 30 AF 53 44 B3 31 30 |SD..100000.SD.10|
00002260: 30 30 30 30 30 AF C3 28 53 44 24 29 B2 31 30 20 |00000..(SD$).10 |
00002270: A7 20 8E 00 9F 2A A8 2A 8B 53 44 B1 B2 31 30 30 |. ...*.*.SD..100|
00002280: 30 30 30 AF 53 44 B3 31 30 30 30 30 30 30 AF C3 |000.SD.1000000..|
00002290: 28 53 44 24 29 B2 39 20 A7 20 31 30 35 36 30 00 |(SD$).9 . 10560.|
000022A0: B3 2A C6 2A 53 44 24 B2 53 44 24 AA 22 2E 30 30 |.*.*SD$.SD$.".00|
000022B0: 22 3A 8E 00 C5 2A D0 2A 53 44 24 B2 53 44 24 AA |":...*.*SD$.SD$.|
000022C0: 22 30 22 3A 8E 00 CB 2A DA 2A 8E 00 03 2B F8 2A |"0":...*.*...+.*|
000022D0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 48 30 4A 52 |. ********* H0JR|
000022E0: 45 53 54 49 4C 4C 49 4E 47 20 41 46 20 42 45 20 |ESTILLING AF BE |
000022F0: 28 42 45 4C 30 42 29 20 2A 2A 2A 2A 2A 2A 2A 2A |(BEL0B) ********|
00002300: 2A 2A 2A 00 2D 2B 02 2B 8B 42 45 28 49 29 B1 B2 |***.-+.+.BE(I)..|
00002310: 31 AF 42 45 28 49 29 B3 31 30 A7 48 4D B2 36 3A |1.BE(I).10.HM.6:|
00002320: 59 24 B2 22 20 20 20 20 20 20 22 3A 8E 00 58 2B |Y$." ":..X+|
00002330: 0C 2B 8B 42 45 28 49 29 B1 B2 31 30 AF 42 45 28 |.+.BE(I)..10.BE(|
00002340: 49 29 B3 31 30 30 A7 48 4D B2 35 3A 59 24 B2 22 |I).100.HM.5:Y$."|
00002350: 20 20 20 20 20 22 3A 8E 00 84 2B 16 2B 8B 42 45 | ":...+.+.BE|
00002360: 28 49 29 B1 B2 31 30 30 AF 42 45 28 49 29 B3 31 |(I)..100.BE(I).1|
00002370: 30 30 30 A7 48 4D B2 34 3A 59 24 B2 22 20 20 20 |000.HM.4:Y$." |
00002380: 20 22 3A 8E 00 B1 2B 20 2B 8B 42 45 28 49 29 B1 | ":...+ +.BE(I).|
00002390: B2 31 30 30 30 AF 42 45 28 49 29 B3 31 30 30 30 |.1000.BE(I).1000|
000023A0: 30 A7 48 4D B2 33 3A 59 24 B2 22 20 20 20 22 3A |0.HM.3:Y$." ":|
000023B0: 8E 00 DF 2B 2A 2B 8B 42 45 28 49 29 B1 B2 31 30 |...+*+.BE(I)..10|
000023C0: 30 30 30 AF 42 45 28 49 29 B3 31 30 30 30 30 30 |000.BE(I).100000|
000023D0: A7 48 4D B2 32 3A 59 24 B2 22 20 20 22 3A 8E 00 |.HM.2:Y$." ":..|
000023E0: 0E 2C 34 2B 8B 42 45 28 49 29 B1 B2 31 30 30 30 |.,4+.BE(I)..1000|
000023F0: 30 30 AF 42 45 28 49 29 B3 31 30 30 30 30 30 30 |00.BE(I).1000000|
00002400: A7 48 4D B2 31 3A 59 24 B2 22 20 22 3A 8E 00 14 |.HM.1:Y$." ":...|
00002410: 2C 3E 2B 8E 00 4C 2C 5C 2B 8F 20 2A 2A 2A 2A 2A |,>+..L,\+. *****|
00002420: 2A 2A 2A 2A 20 48 30 4A 52 45 53 54 49 4C 4C 49 |**** H0JRESTILLI|
00002430: 4E 47 20 41 46 20 53 41 20 28 53 41 4C 44 4F 29 |NG AF SA (SALDO)|
00002440: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 76 2C 66 | ***********.v,f|
00002450: 2B 8B 53 41 28 49 29 B1 B2 31 AF 53 41 28 49 29 |+.SA(I)..1.SA(I)|
00002460: B3 31 30 A7 48 4D B2 36 3A 59 24 B2 22 20 20 20 |.10.HM.6:Y$." |
00002470: 20 20 20 22 3A 8E 00 A1 2C 70 2B 8B 53 41 28 49 | ":...,p+.SA(I|
00002480: 29 B1 B2 31 30 AF 53 41 28 49 29 B3 31 30 30 A7 |)..10.SA(I).100.|
00002490: 48 4D B2 35 3A 59 24 B2 22 20 20 20 20 20 22 3A |HM.5:Y$." ":|
000024A0: 8E 00 CD 2C 7A 2B 8B 53 41 28 49 29 B1 B2 31 30 |...,z+.SA(I)..10|
000024B0: 30 AF 53 41 28 49 29 B3 31 30 30 30 A7 48 4D B2 |0.SA(I).1000.HM.|
000024C0: 34 3A 59 24 B2 22 20 20 20 20 22 3A 8E 00 FA 2C |4:Y$." ":...,|
000024D0: 84 2B 8B 53 41 28 49 29 B1 B2 31 30 30 30 AF 53 |.+.SA(I)..1000.S|
000024E0: 41 28 49 29 B3 31 30 30 30 30 A7 48 4D B2 33 3A |A(I).10000.HM.3:|
000024F0: 59 24 B2 22 20 20 20 22 3A 8E 00 28 2D 8E 2B 8B |Y$." ":..(-.+.|
00002500: 53 41 28 49 29 B1 B2 31 30 30 30 30 AF 53 41 28 |SA(I)..10000.SA(|
00002510: 49 29 B3 31 30 30 30 30 30 A7 48 4D B2 32 3A 59 |I).100000.HM.2:Y|
00002520: 24 B2 22 20 20 22 3A 8E 00 57 2D 98 2B 8B 53 41 |$." ":..W-.+.SA|
00002530: 28 49 29 B1 B2 31 30 30 30 30 30 AF 53 41 28 49 |(I)..100000.SA(I|
00002540: 29 B3 31 30 30 30 30 30 30 A7 48 4D B2 31 3A 59 |).1000000.HM.1:Y|
00002550: 24 B2 22 20 22 3A 8E 00 5D 2D A2 2B 8E 00 95 2D |$." ":..]-.+...-|
00002560: C0 2B 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 48 30 |.+. ********* H0|
00002570: 4A 52 45 53 54 49 4C 4C 49 4E 47 20 41 46 20 52 |JRESTILLING AF R|
00002580: 42 20 28 52 45 4E 54 45 42 45 4C 30 42 29 2A 2A |B (RENTEBEL0B)**|
00002590: 2A 2A 2A 2A 2A 00 BF 2D CA 2B 8B 52 42 28 49 29 |*****..-.+.RB(I)|
000025A0: B1 B2 31 AF 52 42 28 49 29 B3 31 30 A7 48 4D B2 |..1.RB(I).10.HM.|
000025B0: 36 3A 59 24 B2 22 20 20 20 20 20 20 22 3A 8E 00 |6:Y$." ":..|
000025C0: EA 2D D4 2B 8B 52 42 28 49 29 B1 B2 31 30 AF 52 |.-.+.RB(I)..10.R|
000025D0: 42 28 49 29 B3 31 30 30 A7 48 4D B2 35 3A 59 24 |B(I).100.HM.5:Y$|
000025E0: B2 22 20 20 20 20 20 22 3A 8E 00 16 2E DE 2B 8B |." ":.....+.|
000025F0: 52 42 28 49 29 B1 B2 31 30 30 AF 52 42 28 49 29 |RB(I)..100.RB(I)|
00002600: B3 31 30 30 30 A7 48 4D B2 34 3A 59 24 B2 22 20 |.1000.HM.4:Y$." |
00002610: 20 20 20 22 3A 8E 00 43 2E E8 2B 8B 52 42 28 49 | ":..C..+.RB(I|
00002620: 29 B1 B2 31 30 30 30 AF 52 42 28 49 29 B3 31 30 |)..1000.RB(I).10|
00002630: 30 30 30 A7 48 4D B2 33 3A 59 24 B2 22 20 20 20 |000.HM.3:Y$." |
00002640: 22 3A 8E 00 71 2E F2 2B 8B 52 42 28 49 29 B1 B2 |":..q..+.RB(I)..|
00002650: 31 30 30 30 30 AF 52 42 28 49 29 B3 31 30 30 30 |10000.RB(I).1000|
00002660: 30 30 A7 48 4D B2 32 3A 59 24 B2 22 20 20 22 3A |00.HM.2:Y$." ":|
00002670: 8E 00 A0 2E FC 2B 8B 52 42 28 49 29 B1 B2 31 30 |.....+.RB(I)..10|
00002680: 30 30 30 30 AF 52 42 28 49 29 B3 31 30 30 30 30 |0000.RB(I).10000|
00002690: 30 30 A7 48 4D B2 31 3A 59 24 B2 22 20 22 3A 8E |00.HM.1:Y$." ":.|
000026A0: 00 A6 2E 06 2C 8E 00 DE 2E 24 2C 8F 20 2A 2A 2A |....,....$,. ***|
000026B0: 2A 2A 2A 2A 2A 2A 20 48 30 4A 52 45 53 54 49 4C |****** H0JRESTIL|
000026C0: 4C 49 4E 47 20 41 46 20 52 44 20 28 52 45 4E 54 |LING AF RD (RENT|
000026D0: 45 44 41 47 45 29 20 2A 2A 2A 2A 2A 2A 2A 00 05 |EDAGE) *******..|
000026E0: 2F 2E 2C 8B 52 44 28 49 29 B1 B2 30 20 AF 52 44 |/.,.RD(I)..0 .RD|
000026F0: 28 49 29 B3 31 30 A7 48 4D B2 31 3A 59 24 B2 22 |(I).10.HM.1:Y$."|
00002700: 20 20 22 3A 8E 00 2C 2F 38 2C 8B 52 44 28 49 29 | ":..,/8,.RD(I)|
00002710: B1 B2 31 30 AF 52 44 28 49 29 B3 31 30 30 A7 48 |..10.RD(I).100.H|
00002720: 4D B2 30 3A 59 24 B2 22 20 22 3A 8E 00 32 2F 42 |M.0:Y$." ":..2/B|
00002730: 2C 8E 00 6A 2F 88 2C 8F 20 2A 2A 2A 2A 2A 2A 2A |,..j/.,. *******|
00002740: 2A 2A 20 48 30 4A 52 45 53 54 49 4C 4C 49 4E 47 |** H0JRESTILLING|
00002750: 20 41 46 20 52 45 4E 54 45 54 41 4C 20 20 2A 2A | AF RENTETAL **|
00002760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 94 2F 92 2C 8B |**********../.,.|
00002770: 52 54 28 49 29 B1 B2 31 AF 52 54 28 49 29 B3 31 |RT(I)..1.RT(I).1|
00002780: 30 A7 48 4D B2 36 3A 59 24 B2 22 20 20 20 20 20 |0.HM.6:Y$." |
00002790: 20 22 3A 8E 00 BF 2F 9C 2C 8B 52 54 28 49 29 B1 | ":.../.,.RT(I).|
000027A0: B2 31 30 AF 52 54 28 49 29 B3 31 30 30 A7 48 4D |.10.RT(I).100.HM|
000027B0: B2 35 3A 59 24 B2 22 20 20 20 20 20 22 3A 8E 00 |.5:Y$." ":..|
000027C0: EB 2F A6 2C 8B 52 54 28 49 29 B1 B2 31 30 30 AF |./.,.RT(I)..100.|
000027D0: 52 54 28 49 29 B3 31 30 30 30 A7 48 4D B2 34 3A |RT(I).1000.HM.4:|
000027E0: 59 24 B2 22 20 20 20 20 22 3A 8E 00 18 30 B0 2C |Y$." ":...0.,|
000027F0: 8B 52 54 28 49 29 B1 B2 31 30 30 30 AF 52 54 28 |.RT(I)..1000.RT(|
00002800: 49 29 B3 31 30 30 30 30 A7 48 4D B2 33 3A 59 24 |I).10000.HM.3:Y$|
00002810: B2 22 20 20 20 22 3A 8E 00 46 30 BA 2C 8B 52 54 |." ":..F0.,.RT|
00002820: 28 49 29 B1 B2 31 30 30 30 30 AF 52 54 28 49 29 |(I)..10000.RT(I)|
00002830: B3 31 30 30 30 30 30 A7 48 4D B2 32 3A 59 24 B2 |.100000.HM.2:Y$.|
00002840: 22 20 20 22 3A 8E 00 75 30 C4 2C 8B 52 54 28 49 |" ":..u0.,.RT(I|
00002850: 29 B1 B2 31 30 30 30 30 30 AF 52 54 28 49 29 B3 |)..100000.RT(I).|
00002860: 31 30 30 30 30 30 30 A7 48 4D B2 31 3A 59 24 B2 |1000000.HM.1:Y$.|
00002870: 22 20 22 3A 8E 00 7B 30 CE 2C 8E 00 B3 30 EC 2C |" ":..{0.,...0.,|
00002880: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 48 30 4A 52 |. ********* H0JR|
00002890: 45 53 54 49 4C 4C 49 4E 47 20 41 46 20 54 54 20 |ESTILLING AF TT |
000028A0: 28 54 4F 54 41 4C 20 52 45 4E 54 45 54 41 4C 29 |(TOTAL RENTETAL)|
000028B0: 2A 2A 2A 00 D7 30 F6 2C 8B 54 54 B1 B2 31 AF 54 |***..0.,.TT..1.T|
000028C0: 54 B3 31 30 A7 48 4D B2 36 3A 59 24 B2 22 20 20 |T.10.HM.6:Y$." |
000028D0: 20 20 20 20 22 3A 8E 00 FC 30 00 2D 8B 54 54 B1 | ":...0.-.TT.|
000028E0: B2 31 30 AF 54 54 B3 31 30 30 A7 48 4D B2 35 3A |.10.TT.100.HM.5:|
000028F0: 59 24 B2 22 20 20 20 20 20 22 3A 8E 00 22 31 0A |Y$." ":.."1.|
00002900: 2D 8B 54 54 B1 B2 31 30 30 AF 54 54 B3 31 30 30 |-.TT..100.TT.100|
00002910: 30 A7 48 4D B2 34 3A 59 24 B2 22 20 20 20 20 22 |0.HM.4:Y$." "|
00002920: 3A 8E 00 49 31 14 2D 8B 54 54 B1 B2 31 30 30 30 |:..I1.-.TT..1000|
00002930: AF 54 54 B3 31 30 30 30 30 A7 48 4D B2 33 3A 59 |.TT.10000.HM.3:Y|
00002940: 24 B2 22 20 20 20 22 3A 8E 00 71 31 1E 2D 8B 54 |$." ":..q1.-.T|
00002950: 54 B1 B2 31 30 30 30 30 AF 54 54 B3 31 30 30 30 |T..10000.TT.1000|
00002960: 30 30 A7 48 4D B2 32 3A 59 24 B2 22 20 20 22 3A |00.HM.2:Y$." ":|
00002970: 8E 00 9A 31 28 2D 8B 54 54 B1 B2 31 30 30 30 30 |...1(-.TT..10000|
00002980: 30 AF 54 54 B3 31 30 30 30 30 30 30 A7 48 4D B2 |0.TT.1000000.HM.|
00002990: 31 3A 59 24 B2 22 20 22 3A 8E 00 A0 31 32 2D 8E |1:Y$." ":...12-.|
000029A0: 00 D8 31 50 2D 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..1P-. *********|
000029B0: 20 48 30 4A 52 45 53 54 49 4C 4C 49 4E 47 20 41 | H0JRESTILLING A|
000029C0: 46 20 53 44 20 28 53 54 41 52 54 53 41 4C 44 4F |F SD (STARTSALDO|
000029D0: 29 20 2A 2A 2A 2A 2A 2A 00 FC 31 5A 2D 8B 53 44 |) ******..1Z-.SD|
000029E0: B1 B2 31 AF 53 44 B3 31 30 A7 48 4D B2 36 3A 59 |..1.SD.10.HM.6:Y|
000029F0: 24 B2 22 20 20 20 20 20 20 22 3A 8E 00 21 32 64 |$." ":..!2d|
00002A00: 2D 8B 53 44 B1 B2 31 30 AF 53 44 B3 31 30 30 A7 |-.SD..10.SD.100.|
00002A10: 48 4D B2 35 3A 59 24 B2 22 20 20 20 20 20 22 3A |HM.5:Y$." ":|
00002A20: 8E 00 47 32 6E 2D 8B 53 44 B1 B2 31 30 30 AF 53 |..G2n-.SD..100.S|
00002A30: 44 B3 31 30 30 30 A7 48 4D B2 34 3A 59 24 B2 22 |D.1000.HM.4:Y$."|
00002A40: 20 20 20 20 22 3A 8E 00 6E 32 78 2D 8B 53 44 B1 | ":..n2x-.SD.|
00002A50: B2 31 30 30 30 AF 53 44 B3 31 30 30 30 30 A7 48 |.1000.SD.10000.H|
00002A60: 4D B2 33 3A 59 24 B2 22 20 20 20 22 3A 8E 00 96 |M.3:Y$." ":...|
00002A70: 32 82 2D 8B 53 44 B1 B2 31 30 30 30 30 AF 53 44 |2.-.SD..10000.SD|
00002A80: B3 31 30 30 30 30 30 A7 48 4D B2 32 3A 59 24 B2 |.100000.HM.2:Y$.|
00002A90: 22 20 20 22 3A 8E 00 BF 32 8C 2D 8B 53 44 B1 B2 |" ":...2.-.SD..|
00002AA0: 31 30 30 30 30 30 AF 53 44 B3 31 30 30 30 30 30 |100000.SD.100000|
00002AB0: 30 A7 48 4D B2 31 3A 59 24 B2 22 20 22 3A 8E 00 |0.HM.1:Y$." ":..|
00002AC0: C5 32 96 2D 8E 00 08 33 E0 2E 8F 20 2A 2A 2A 2A |.2.-...3... ****|
00002AD0: 2A 2A 2A 2A 2A 20 53 41 4D 4D 45 4E 54 41 45 4C |***** SAMMENTAEL|
00002AE0: 4C 49 4E 47 20 41 46 20 52 45 4E 54 45 44 41 47 |LING AF RENTEDAG|
00002AF0: 45 20 45 46 54 45 52 20 52 45 54 54 45 4C 53 45 |E EFTER RETTELSE|
00002B00: 20 2A 2A 2A 2A 2A 2A 2A 00 10 33 E5 2E 52 B2 30 | *******..3..R.0|
00002B10: 00 20 33 EA 2E 81 20 49 20 B2 20 31 20 A4 20 58 |. 3... I . 1 . X|
00002B20: 00 2E 33 F4 2E 52 B2 52 AA 52 44 28 49 29 00 36 |..3..R.R.RD(I).6|
00002B30: 33 FE 2E 82 20 49 00 48 33 08 2F 8B 52 B3 B1 39 |3... I.H3./.R..9|
00002B40: 30 20 A7 20 31 31 39 30 00 57 33 12 2F 8B 52 B2 |0 . 1190.W3./.R.|
00002B50: 39 30 20 A7 20 33 30 00 8E 33 98 3A 8F 20 2A 2A |90 . 30..3.:. **|
00002B60: 2A 2A 2A 2A 2A 2A 20 48 30 4A 52 45 53 54 2E 20 |****** H0JREST. |
00002B70: 41 46 20 4E 45 47 41 54 49 56 45 20 42 45 20 28 |AF NEGATIVE BE (|
00002B80: 42 45 4C 30 42 29 20 2A 2A 2A 2A 2A 2A 2A 00 BA |BEL0B) *******..|
00002B90: 33 A2 3A 8B 42 45 28 49 29 B3 30 20 AF 20 42 45 |3.:.BE(I).0 . BE|
00002BA0: 28 49 29 B1 AB 31 30 A7 48 4D B2 36 3A 59 24 B2 |(I)..10.HM.6:Y$.|
00002BB0: 22 20 20 20 20 20 20 22 3A 8E 00 E7 33 AC 3A 8B |" ":...3.:.|
00002BC0: 42 45 28 49 29 B3 AB 31 30 20 AF 42 45 28 49 29 |BE(I)..10 .BE(I)|
00002BD0: B1 AB 31 30 30 A7 48 4D B2 35 3A 59 24 B2 22 20 |..100.HM.5:Y$." |
00002BE0: 20 20 20 20 22 3A 8E 00 14 34 B6 3A 8B 42 45 28 | ":...4.:.BE(|
00002BF0: 49 29 B3 AB 31 30 30 AF 42 45 28 49 29 B1 AB 31 |I)..100.BE(I)..1|
00002C00: 30 30 30 A7 48 4D B2 34 3A 59 24 B2 22 20 20 20 |000.HM.4:Y$." |
00002C10: 20 22 3A 8E 00 42 34 C0 3A 8B 42 45 28 49 29 B3 | ":..B4.:.BE(I).|
00002C20: AB 31 30 30 30 AF 42 45 28 49 29 B1 AB 31 30 30 |.1000.BE(I)..100|
00002C30: 30 30 A7 48 4D B2 33 3A 59 24 B2 22 20 20 20 22 |00.HM.3:Y$." "|
00002C40: 3A 8E 00 71 34 CA 3A 8B 42 45 28 49 29 B3 AB 31 |:..q4.:.BE(I)..1|
00002C50: 30 30 30 30 AF 42 45 28 49 29 B1 AB 31 30 30 30 |0000.BE(I)..1000|
00002C60: 30 30 A7 48 4D B2 32 3A 59 24 B2 22 20 20 22 3A |00.HM.2:Y$." ":|
00002C70: 8E 00 A1 34 D4 3A 8B 42 45 28 49 29 B3 AB 31 30 |...4.:.BE(I)..10|
00002C80: 30 30 30 30 AF 42 45 28 49 29 B1 AB 31 30 30 30 |0000.BE(I)..1000|
00002C90: 30 30 30 A7 48 4D B2 31 3A 59 24 B2 22 20 22 3A |000.HM.1:Y$." ":|
00002CA0: 8E 00 00 00 |.... |
..%.... *** RENTENOTA *** DATO 211184.[.
... D$(100),BE(100),RD(100),RB(100),SA(1
00),RT(100).|.... BE$(100),RB$(100),SA$(
100)......"...........HOVEDMENU":A$."0".
B.(.."..1. INDTAST KVARTALS-BILAG"...2..
"..2. RENTEBEREGNING"...<.."..3. UDSKRIV
NING PAA TV". .F.."..4. UDSKRIVNING PAA
PRINTER".@.P.."..5. SAVE DATA PAA BAAND"
.`.Z.."..6. LOAD DATA FRA BAAND".~.D..".
.7. RETTELSE AF BILAG"...... A$:.A$."1".
1000......A$."2". 2000......A$."3". 300
0.K....A$."4". 4000......A$."5". 5000...
...A$."6". 6000......A$."7". 7000......9
00.?.... ******* INDTASTNING AF KVARTALS
BILAG *********.G...X.1.\...."..KVARTAL
";K$.R....".RENTESATS ";RS......".STARTS
ALDO";SD:HS.SD.C.L.."............RENTEDA
GE" R"......BILAG "X:A$."0"...V.."..DATO
";D$(X): . 1900...`.."..BEL0B ";BE(X).
.J.."..ANTAL RENTEDAGE ";RD(X):R.R.RD(X)
.A.T.."..........FLERE BILAG J/N".B.~..
A$:.A$. "J" . X.X.1:. 1100.}....A$."N" .
R..90 . 1190......A$."N" . R. 90 . 30..
.... 1150.A....".....TOTALE RENTEDAGE ="
R......".................RETUR TIL MENU:
TRYK SPACE".!...."...DISPLAY AF BILAG/R
ENTEDAGE: TRYK D".5.D.. A$:.A$." ".30.F.
N..A$."D".1300.B.X..A$.." ".A$.."D" . 12
20...... ******* DISPALY AF BILAG/RENTED
AGE ***********.....R.0......"."...(..I
. 1 . X...2.."..BILAG "I;" "RD(I):R.R.RD
(I)...<.. I...F.."...RETUR TIL MENU: TR
YK SPACE"...P..A$:.A$." ".30...Z..A$.."
".1360.Y.L.. *********** DATOVALIDERING
*********.V.V.A$.H(D$(X),2): A. E (A$)..
...B$.J(D$(X),3,2): B. E (B$).....C$.I(D
$(X),2): C. E (C$).N.... A . 1 . A . 31
. 1100...... B . 1 . B . 12 . 1100......
C . 1 . C . 99 . 1100.".... C (D$(X)) .
. 6 . 1100.=...A$."0": B$."0": C$."0".C.
F...P.P.. ********** RENTEBEREGNING ****
********...U..".....................RENT
EBEREGNING"...W.RT.0:HS.SD...Z.. I . 1 .
X.....SA(I).HS.BE(I):SA(I)..(SA(I).100.
.5).100.(...RB(I) . (SA(I).(RS.100).RD(I
)).360:RB(I)..(RB(I).100..5).100.5...HS.
SA(I).E...RT.RT.RB(I).M.... I.X.4.. ****
****** RENTETALSUDREGNING ******...>.. I
. 1 . X. .H.RT(I) . SA(I).RD(I).S.R.RT(
I) . .(RT(I).100.5000).10000:RT(I)..(RT(
I))...\.TT.TT.RT(I)...F.. I...P.TR.(TT.R
S).360:TR..(TR.100..5).100...... 30.F...
. ********** TV UDSKRINT *************.G
.B..".RENTENOTA "K$" KVARTAL ";.}.L.." R
ENTESATS: "RS...Q.."DATO","BEL0B","SALDO
"," RENTE"...V.. I . 1 . X.A.... D$(I)
;......10000:. KONVERT. BE TIL BE$......
11010:. H0JREST. AF BE$.......7.HM.2)BE$
(I);.5....10030:. KONVERT. SA TIL SA$.R.
...11100:. H0JREST. AF SA$.H.....19.HM.2
)SA$(I);...&..10050:. KONVERT. RB TIL RB
$...0..11200:. H0JREST. AF RB$...:...29.
HM.1)RB$(I).B.D..I......".RETUR TIL MENU
, TRYK SPACE"......A$:.A$." ".30......32
10.-. .. ********** PRINTERUDSKRIFT ****
*****.X.... ********** RENTETALSUDREGNIN
G ******......"....HVILKEN UDSKRIFTSTYPE
0NSKES":A$."0"......"...1. RENTETALSMET
ODE".E...."..2. RENTEBEL0B PR. BILAG"...
... A$: .A$."1". 4019......A$."2". 4400.
.....4013...... 1,4.*....1,"RENTENOTA FO
R "K$" KVARTAL. ";.I....1," RENTESATS: "
RS: .1:.1.T....1,"DATO"G(16)"15BEL0B"G(1
6)"30SALDO";...B..1,G(16)"40RENTEDAGE"G(
16)"58RENTETAL":.1.C.D..10070:. KONVERT.
SD TIL SD$...F..11600:. H0JREST. AF SD$
...G..1,G(16)"25"Y$;SD$...H.. I . 1 . X.
..R..1,D$(I);.6....10000:. KONVERT. BE T
IL BE$.S....11010:. H0JREST. AF BE$.N...
.1,G(16)"10"Y$;BE$(I);......10030:. KONV
ERT. SA TIL SA$......11100:. H0JREST. AF
SA$.G....1,G(16)"25"Y$;SA$(I);...... 11
130: . H0JREST. AF RD..."..1,G(16)"41"Y$
;RD(I);...6..11400:. H0JREST. AF RT.D.@.
.1,G(16)"57"Y$;RT(I)G(16)"69BILAG "I.L.J
.. I.S.T..1...^..1,G(16)"42"R;:. R=TOTAL
ANTAL RENTEDAGE...H..11500: . H0JREST.
AF TT (TOTAL RENTETAL).D.R..1,G(16)"57"Y
$;TT.K.|..1......1,"TOTAL RENTEBEL0B = "
TR..... 1......30.$.0.. ********** PRINT
ERUDSKRIIFT ********.N.:.. ******** RENT
EBEL0B PR. BILAG *****.W.D..1,4...N..1,"
RENTENOTA FOR "K$" KVARTAL. RENTESATS"R
S:.1:.1...X..1," DATO"G(16)"15BEL0B"G(16
)"30SALDO";.Y.B..1,G(16)"46RENTEBEL0B":.
1...V..10070: . KONVERT AF SD TIL SD$.#.
... 11600: . H0JREST. AF STARTSALDO.:...
.1,G(16)"25"Y$;SD$.J.... I . 1 . X.X....
1,D$(I);.{.... 10000: . KONVERT. BE TIL
BE$......11010: . H0JREST. AF BE$......1
,G(16)"10"Y$;BE$(I);.V.F.. 10030:. KONVE
RT. SA TIL SA$...P.. 11100:. H0JREST. AF
SA$...Z..1,G(16)"25"Y$;SA$(I);.0....100
50:. KONVERT. RB TIL RB$.N.... 11200:. H
0JREST. AF RB$.I....1,G(16)"45"Y$;RB$(I)
;......1,G(16)"70BILAG "I...... I... ..1
...*..1,"TOTAL RENTEBEL0B = "TR...4. 1..
.>..30...... ********** SAVE DATA PAA BA
AND *****......1,1,1,"RENTENOTA,DATA"...
...1,SD......1,K$.#....1,RS.+...I.1.8...
.1,D$(I).E.D..1,BE(I).R.N..1,RD(I).C.X..
I.X . .5110.M...I.I.1.W....5050..... 1:.
30...P.. ********** LOAD DATA FRA BAAND
*****.I.Z..1,1,0,"RENTENOTA,DATA".S....1
,SD......1,K$......1,RS.....X.1......1,D
$(X)......1,BE(X)......1,RD(X). ...X.X.1
.0.J..ST.0..6050.I.T..ST.64. 1:X.X.1:.3
0.T.X.. ********** RETTELSE AF BILAG ***
****. .B.."...............BILAGSRETTELSE
":A$."0".J.L.."..HVILKET BILAGSNR. SKAL
RETTES";BN...V..".."D$(BN),BE(BN),RD(BN)
......"..INDTAST BILAGET PAA NY"......".
.DATO";D$(BN).3...."..BEL0B";BE(BN).S...
."..ANTAL RENTEDAGE";RD(BN).\...BN.0.Z..
.."...FLERE RETTELSER J/N"...... A$:.A$.
"J" . 7000...F..A$."N". 12000...P.. 7100
....'. ********* KONVERTERING AF TAL TIL
STRENG*********....'BE$(I).D(BE(I))...$
'. 10200....'SA$(I).D(SA(I)).(.8'. 10400
.<.B'RB$(I).D(RB(I)).H.L'. 10600.V.V'SD$
.D(SD).B.`'. 10800.V.J'ST$(I).D(ST(I)).|
.O'....X'. ********* BEL0BSINIT. (BE) (2
DECIMALER) ********.G..'.BE(I).0.15000.
...'.BE(I)..1.BE(I).10.C(BE$(I)).2 . 103
50....'.BE(I)..1.BE(I).10.C(BE$(I)).5 .
..D..'.BE(I)..1.BE(I).10.C(BE$(I)).4 . 1
0360.Q..'.BE(I)..10.BE(I).100.C(BE$(I)).
3 . 10350....'.BE(I)..10.BE(I).100.C(BE$
(I)).6 . ..G..(.BE(I)..10.BE(I).100.C(BE
$(I)).5 . 10360....(.BE(I)..100.BE(I).10
00.C(BE$(I)).4 . 10350.!..(.BE(I)..100.B
E(I).1000.C(BE$(I)).7 . ..P..(.BE(I)..10
0.BE(I).1000.C(BE$(I)).6 . 10360....(.BE
(I)..1000.BE(I).10000.C(BE$(I)).5 . 1035
0...#(.BE(I)..1000.BE(I).10000.C(BE$(I))
.8 . ....((.BE(I)..1000.BE(I).10000.C(BE
$(I)).7 . 10360...2(.BE(I)..10000.BE(I).
100000.C(BE$(I)).6 . 10350.A.7(.BE(I)..1
0000.BE(I).100000.C(BE$(I)).9 . ..T.<(.B
E(I)..10000.BE(I).100000.C(BE$(I)).8 . 1
0360...F(.BE(I)..100000.BE(I).1000000.C(
BE$(I)).7 . 10350...K(.BE(I)..100000.BE(
I).1000000.C(BE$(I)).10 . ... P(.BE(I)..
100000.BE(I).1000000.C(BE$(I)).9 . 10360
.. Z(..0 N(BE$(I).BE$(I).".00":..H X(BE$
(I).BE$(I)."0":..N .(... (. ********* S
ALDOINIT. (SA) (2 DECIMALER) *********..
.(.SA(I)..1.SA(I).10.C(SA$(I)).2 . 1055
0.X .(.SA(I)..1.SA(I).10.C(SA$(I)).5 . .
..!.(.SA(I)..1.SA(I).10.C(SA$(I)).4 . 10
560.0!.(.SA(I)..10.SA(I).100.C(SA$(I)).3
. 10550.Y!C(.SA(I)..10.SA(I).100.C(SA$(
I)).6 . ...!H(.SA(I)..10.SA(I).100.C(SA$
(I)).5 . 10560..!R(.SA(I)..100.SA(I).100
0.C(SA$(I)).4 . 10550..!W(.SA(I)..100.SA
(I).1000.C(SA$(I)).7 . ...".(.SA(I)..100
.SA(I).1000.C(SA$(I)).6 . 10560.@".(.SA(
I)..1000.SA(I).10000.C(SA$(I)).5 . 10550
.M".(.SA(I)..1000.SA(I).10000.C(SA$(I)).
8 . ...".(.SA(I)..1000.SA(I).10000.C(SA$
(I)).7 . 10560.Q".(.SA(I)..10000.SA(I).1
00000.C(SA$(I)).6 . 10550..#.(.SA(I)..10
000.SA(I).100000.C(SA$(I)).9 . ..3#.).SA
(I)..10000.SA(I).100000.C(SA$(I)).8 . 10
560.H#.).SA(I)..100000.SA(I).1000000.C(S
A$(I)).7 . 10550..#.).SA(I)..100000.SA(I
).1000000.C(SA$(I)).10 . ..O#.).SA(I)..1
00000.SA(I).1000000.C(SA$(I)).9 . 10560.
.#6)SA$(I).SA$(I).".00":...$@)SA$(I).SA$
(I)."0":...$J)..?$H). ********* RENTEBEL
0B. (RB) (2 DECIMALER) ********.J$R).RB(
I)..1.RB(I).10.C(RB$(I)).2 . 10750..$W).
RB(I)..1.RB(I).10.C(RB$(I)).5 . ...$|).R
B(I)..1.RB(I).10.C(RB$(I)).4 . 10760..$.
).RB(I)..10.RB(I).100.C(RB$(I)).3 . 1075
0..%.).RB(I)..10.RB(I).100.C(RB$(I)).6 .
..?%.).RB(I)..10.RB(I).100.C(RB$(I)).5
. 10760.N%.).RB(I)..100.RB(I).1000.C(RB$
(I)).4 . 10750..%.).RB(I)..100.RB(I).100
0.C(RB$(I)).7 . ..H%.).RB(I)..100.RB(I).
1000.C(RB$(I)).6 . 10760..%.).RB(I)..100
0.RB(I).10000.C(RB$(I)).5 . 10750.&&.).R
B(I)..1000.RB(I).10000.C(RB$(I)).8 . ..W
&.).RB(I)..1000.RB(I).10000.C(RB$(I)).7
. 10760..&B).RB(I)..10000.RB(I).100000.C
(RB$(I)).6 . 10750..&G).RB(I)..10000.RB(
I).100000.C(RB$(I)).9 . ...&L).RB(I)..10
000.RB(I).100000.C(RB$(I)).8 . 10760.!'V
).RB(I)..100000.RB(I).1000000.C(RB$(I)).
7 . 10750.S'.).RB(I)..100000.RB(I).10000
00.C(RB$(I)).10 . ...'.).RB(I)..100000.R
B(I).1000000.C(RB$(I)).9 . 10760..'.)RB$
(I).RB$(I).".00":...'.*RB$(I).RB$(I)."0"
:...'.*...'0*. ********* STARTSALDOINIT.
(SD) (2 DECIMALER) ****..(:*.SD..1.SD.1
0.C(SD$).2 . 10950.8(?*.SD..1.SD.10.C(SD
$).5 . ..Z(D*.SD..1.SD.10.C(SD$).4 . 109
60.~(N*.SD..10.SD.100.C(SD$).3 . 10950..
(S*.SD..10.SD.100.C(SD$).6 . ..B(X*.SD..
10.SD.100.C(SD$).5 . 10960..(B*.SD..100.
SD.1000.C(SD$).4 . 10950..)G*.SD..100.SD
.1000.C(SD$).7 . ..0)L*.SD..100.SD.1000.
C(SD$).6 . 10960.X)V*.SD..1000.SD.10000.
C(SD$).5 . 10950.|){*.SD..1000.SD.10000.
C(SD$).8 . ...).*.SD..1000.SD.10000.C(SD
$).7 . 10960.N).*.SD..10000.SD.100000.C(
SD$).6 . 10950..).*.SD..10000.SD.100000.
C(SD$).9 . ...*.*.SD..10000.SD.100000.C(
SD$).8 . 10960.J*.*.SD..100000.SD.100000
0.C(SD$).7 . 10950.S*.*.SD..100000.SD.10
00000.C(SD$).10 . ...*.*.SD..100000.SD.1
000000.C(SD$).9 . 10560..*F*SD$.SD$.".00
":..E*P*SD$.SD$."0":..K*Z*...+.*. ******
*** H0JRESTILLING AF BE (BEL0B) ********
***.-+.+.BE(I)..1.BE(I).10.HM.6:Y$."
":..X+.+.BE(I)..10.BE(I).100.HM.5:Y$."
":...+.+.BE(I)..100.BE(I).1000.HM.4
:Y$." ":...+ +.BE(I)..1000.BE(I).1000
0.HM.3:Y$." ":...+*+.BE(I)..10000.BE(I
).100000.HM.2:Y$." ":...,4+.BE(I)..1000
00.BE(I).1000000.HM.1:Y$." ":...,>+..L,\
+. ********* H0JRESTILLING AF SA (SALDO)
***********.V,F+.SA(I)..1.SA(I).10.HM.6
:Y$." ":...,P+.SA(I)..10.SA(I).100.
HM.5:Y$." ":..M,Z+.SA(I)..100.SA(I).
1000.HM.4:Y$." ":...,.+.SA(I)..1000.S
A(I).10000.HM.3:Y$." ":..(-.+.SA(I)..1
0000.SA(I).100000.HM.2:Y$." ":..W-.+.SA
(I)..100000.SA(I).1000000.HM.1:Y$." ":..
]-.+...-.+. ********* H0JRESTILLING AF R
B (RENTEBEL0B)*******..-J+.RB(I)..1.RB(I
).10.HM.6:Y$." ":...-T+.RB(I)..10.R
B(I).100.HM.5:Y$." ":.....+.RB(I)..1
00.RB(I).1000.HM.4:Y$." ":..C..+.RB(I
)..1000.RB(I).10000.HM.3:Y$." ":..Q..+
.RB(I)..10000.RB(I).100000.HM.2:Y$." ":
.. ..+.RB(I)..100000.RB(I).1000000.HM.1:
Y$." ":.....,....$,. ********* H0JRESTIL
LING AF RD (RENTEDAGE) *******../.,.RD(I
)..0 .RD(I).10.HM.1:Y$." ":..,/8,.RD(I)
..10.RD(I).100.HM.0:Y$." ":..2/B,..J/.,.
********* H0JRESTILLING AF RENTETAL **
**********../.,.RT(I)..1.RT(I).10.HM.6:Y
$." ":.../.,.RT(I)..10.RT(I).100.HM
.5:Y$." ":.../.,.RT(I)..100.RT(I).10
00.HM.4:Y$." ":...0.,.RT(I)..1000.RT(
I).10000.HM.3:Y$." ":..F0.,.RT(I)..100
00.RT(I).100000.HM.2:Y$." ":..U0D,.RT(I
)..100000.RT(I).1000000.HM.1:Y$." ":..{0
N,...0.,. ********* H0JRESTILLING AF TT
(TOTAL RENTETAL)***.W0.,.TT..1.TT.10.HM.
6:Y$." ":...0.-.TT..10.TT.100.HM.5:
Y$." ":.."1.-.TT..100.TT.1000.HM.4:Y
$." ":..I1.-.TT..1000.TT.10000.HM.3:Y
$." ":..Q1.-.TT..10000.TT.100000.HM.2:
Y$." ":...1(-.TT..100000.TT.1000000.HM.
1:Y$." ":.. 12-..X1P-. ********* H0JREST
ILLING AF SD (STARTSALDO) ******..1Z-.SD
..1.SD.10.HM.6:Y$." ":..!2D-.SD..10
.SD.100.HM.5:Y$." ":..G2N-.SD..100.S
D.1000.HM.4:Y$." ":..N2X-.SD..1000.SD
.10000.HM.3:Y$." ":...2.-.SD..10000.SD
.100000.HM.2:Y$." ":...2.-.SD..100000.S
D.1000000.HM.1:Y$." ":..E2.-...3... ****
***** SAMMENTAELLING AF RENTEDAGE EFTER
RETTELSE *******..3..R.0. 3... I . 1 . X
..3..R.R.RD(I).63... I.H3./.R..90 . 1190
.W3./.R.90 . 30..3.:. ******** H0JREST.
AF NEGATIVE BE (BEL0B) *******..3.:.BE(I
).0 . BE(I)..10.HM.6:Y$." ":...3.:.
BE(I)..10 .BE(I)..100.HM.5:Y$." ":..
.4.:.BE(I)..100.BE(I)..1000.HM.4:Y$."
":..B4.:.BE(I)..1000.BE(I)..10000.HM.3:
Y$." ":..Q4J:.BE(I)..10000.BE(I)..1000
00.HM.2:Y$." ":...4T:.BE(I)..100000.BE(
I)..1000000.HM.1:Y$." ":....
> CLICK IMAGE PREVIEW FOR FULL MODAL