B1
FILE INFORMATION
FILENAME(S): B1
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 20:14:29
APPEARS ON: 2 disk(s)
FILE HASH
1f80f8b64cb75a841c0cb92c615196c72b60fda785a084cf0e24b71e8086f2d7
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FINANS REG 64 | B1 | PRG | Curtcool, LPN | 19 | 9 | DOWNLOAD FILE |
| FINANS REG 64 | B1 | PRG | Curtcool, LPN | 19 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 00 00 9E 32 30 37 33 00 00 00 20 52 |.......2073... R| 00000010: 08 4C 45 B7 20 52 08 4C 99 A4 20 52 08 AD FF 02 |.LE. R.L.. R....| 00000020: C9 64 F0 17 A9 3F 85 BB A9 08 85 BC A9 06 85 B7 |.d...?..........| 00000030: A9 00 85 B9 A2 00 A0 A0 20 D5 FF 68 68 4C 48 A0 |........ ..hhLH.| 00000040: 52 54 4C 2D 36 34 20 52 08 20 71 AF 20 5F 08 60 |RTL-64 R. q. _.`| 00000050: A2 01 60 A9 03 05 00 85 00 A9 FE 25 01 85 01 60 |..`........%...`| 00000060: 48 A9 03 05 00 85 00 A5 01 09 01 85 01 68 60 20 |H............h` | 00000070: 5F 08 20 47 A3 20 52 08 60 40 00 03 87 00 87 00 |_. G. R.`@......| 00000080: F0 00 00 00 45 1A 00 01 00 54 5B 05 56 4C 2D 42 |....E....T[.VL-B| 00000090: 31 00 86 4D 28 31 30 29 3A 41 00 08 00 86 53 28 |1..M(10):A....S(| 000000A0: 31 30 29 3A 41 00 0A 00 86 49 4B 28 31 30 29 3A |10):A....IK(10):| 000000B0: 41 00 0C 00 86 41 53 28 31 30 29 3A 41 00 12 00 |A....AS(10):A...| 000000C0: 86 46 24 28 31 30 29 3A 41 00 04 00 86 4E 24 28 |.F$(10):A....N$(| 000000D0: 31 30 29 3A 41 00 06 00 86 49 54 24 28 31 30 29 |10):A....IT$(10)| 000000E0: 3A 41 00 0E 00 86 49 42 24 28 31 30 29 3A 41 00 |:A....IB$(10):A.| 000000F0: 10 57 00 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 |.W..15,8,15,"I0"| 00000100: 3A 8A 25 20 43 4F 50 59 52 49 47 48 54 20 3A 20 |:.% COPYRIGHT : | 00000110: 44 4A 55 52 53 20 44 41 54 41 20 41 50 53 20 2D |DJURS DATA APS -| 00000120: 20 47 52 45 4E 5D 20 20 D2 02 8A 25 20 44 41 54 | GREN] ...% DAT| 00000130: 4F 20 20 20 20 20 20 3A 20 30 39 2E 31 31 2E 31 |O : 09.11.1| 00000140: 39 38 33 20 20 20 20 20 2D 20 41 2E 4F 2E 20 20 |983 - A.O. | 00000150: 20 D2 09 8A 25 20 50 52 4F 47 52 41 4D 20 20 20 | ...% PROGRAM | 00000160: 3A 20 56 45 44 4C 49 47 45 48 4F 4C 44 20 53 41 |: VEDLIGEHOLD SA| 00000170: 54 53 4B 41 52 54 4F 54 2E 20 D2 10 00 99 22 93 |TSKARTOT. ....".| 00000180: 22 3A 81 D0 17 8D 03 E8 42 00 17 47 00 17 00 A1 |":......B..G....| 00000190: 58 24 3A 92 1E 8A 01 40 2E 4F 05 48 0D C6 00 99 |X$:....@.O.H....| 000001A0: 22 93 11 11 11 12 1D 22 3B 4E 31 24 00 99 22 12 |"......";N1$..".| 000001B0: 1D 22 4E 32 24 00 99 22 12 1D 22 3B 4E 33 24 3A |."N2$.."..";N3$:| 000001C0: 81 D0 17 8D 07 D0 42 00 17 47 00 17 48 0D 73 8A |......B..G..H.s.| 000001D0: 03 30 3A 46 89 14 B8 13 01 8A 0D 46 49 52 4D 2D |.0:F.......FIRM-| 000001E0: 57 41 52 45 2C 50 2C 52 01 D2 25 00 9F 32 2C 38 |WARE,P,R..%..2,8| 000001F0: 2C 32 2C 44 46 24 3A 4A 13 1B 81 D0 17 85 42 00 |,2,DF$:J......B.| 00000200: 17 00 84 32 2C 4E 24 3A 4A 13 1B 47 00 17 00 A0 |...2,N$:J..G....| 00000210: 32 3A 4A 13 1B 8A 0E 30 3A 53 59 53 2D 55 54 49 |2:J....0:SYS-UTI| 00000220: 4C 2C 53 2C 52 D2 25 00 9F 32 2C 38 2C 32 2C 44 |L,S,R.%..2,8,2,D| 00000230: 46 24 3A 4A 13 1B 00 84 32 2C 44 49 24 3A 4A 13 |F$:J....2,DI$:J.| 00000240: 1B 00 A0 32 3A 8A 0B 30 3A 53 4B 5B 52 4D 2C 53 |...2:..0:SK[RM,S| 00000250: 2C 52 D2 25 00 9F 32 2C 38 2C 32 2C 44 46 24 3A |,R.%..2,8,2,DF$:| 00000260: 4A 13 1B 00 84 32 2C 43 31 2C 43 32 2C 43 33 2C |J....2,C1,C2,C3,| 00000270: 43 34 2C 43 35 3A 4A 13 1B 00 A0 32 3A 4A 13 1B |C4,C5:J....2:J..| 00000280: 88 90 50 20 00 00 90 3A 50 88 90 50 21 00 00 90 |..P ...:P..P!...| 00000290: 41 50 00 99 C7 28 43 33 29 3A 90 4F B8 13 89 9D |AP...(C3):.O....| 000002A0: B8 13 01 D2 5D 8A 02 30 3A D2 64 80 D0 6B 8A 01 |....]..0:.d..k..| 000002B0: 30 90 56 B8 10 81 B8 15 01 81 B8 15 8A 01 3A 01 |0.V...........:.| 000002C0: D2 72 90 56 D0 79 80 D0 3A 80 D0 41 80 D0 48 80 |.r.V.y..:..A..H.| 000002D0: D0 4F 80 D0 56 90 79 81 2B 4F 05 48 0F 26 8A 02 |.O..V.y.+O.H.&..| 000002E0: 30 3A D2 72 80 D0 79 00 99 22 93 11 11 11 1D 1D |0:.r..y.."......| 000002F0: 49 53 5B 54 20 44 41 54 41 2D 44 49 53 4B 45 54 |IS[T DATA-DISKET| 00000300: 54 45 20 2D 20 54 52 59 4B 20 52 45 54 55 52 4E |TE - TRYK RETURN| 00000310: 22 00 A1 58 24 3A 92 1E 89 0D B8 13 2B 4F 0F 00 |"..X$:......+O..| 00000320: 98 31 35 2C 22 49 30 22 3A 48 0F 26 48 0F 18 89 |.15,"I0":H.&H...| 00000330: C6 80 50 8D 03 14 89 34 50 8A 00 D2 02 8A 00 D2 |..P....4P.......| 00000340: 09 8A 00 D2 10 89 48 D0 80 89 0D B8 13 D2 87 89 |......H.........| 00000350: 2C B8 13 D2 8E 8A 0C 1D 1D 1D 1D 1D 1D 1D 1D 1D |,...............| 00000360: 1D 1D 1D D2 95 8A 0E 91 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000370: 1D 1D 1D 1D 1D D2 9C 8A 31 20 20 20 20 20 20 20 |........1 | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003A0: 20 20 20 20 20 20 20 20 20 20 D2 A3 8D 03 4E 8D | ....N.| 000003B0: 02 BC B8 0E 01 B8 0E D0 AA 90 AA 8D 03 4F B8 0E |.............O..| 000003C0: 2E 4F 05 48 08 AC 90 AA 81 2E 4F 05 48 08 AC 8D |.O.H......O.H...| 000003D0: 03 38 B8 0E D0 B1 8D 03 37 B8 0E D0 B8 8D 03 36 |.8......7......6| 000003E0: B8 0E D0 BF 90 B1 B8 10 82 B8 15 8A 01 2E 01 89 |................| 000003F0: 64 90 B8 01 B8 10 82 B8 15 01 8A 01 2E 01 89 64 |d..............d| 00000400: 90 BF 01 B8 10 82 B8 15 01 D2 C6 8D 03 46 B8 0E |.............F..| 00000410: D0 CD 90 CD 89 64 03 8D 03 47 B8 0E 01 B8 10 D2 |.....d...G......| 00000420: D4 90 CD 81 2B 4F 21 92 72 8A 0C 53 41 54 53 4B |....+O!.r..SATSK| 00000430: 41 52 54 4F 54 45 4B 01 D2 DB 90 CD 8A 06 46 49 |ARTOTEK.......FI| 00000440: 4E 41 4E 53 E2 04 90 CD 85 2B 4F 27 92 64 8A 0E |NANS.....+O'.d..| 00000450: 45 2D 53 41 54 53 4B 41 52 54 4F 54 45 4B 01 D2 |E-SATSKARTOTEK..| 00000460: DB 90 CD 8A 0A 45 4E 54 52 45 50 52 49 53 45 E2 |.....ENTREPRISE.| 00000470: 04 90 CD 86 2B 4F 27 92 64 8A 0F 54 53 2D 53 41 |....+O'.d..TS-SA| 00000480: 54 53 4B 41 52 54 4F 54 45 4B 01 D2 DB 90 CD 8A |TSKARTOTEK......| 00000490: 09 54 49 4D 45 2D 2F 53 41 47 E2 04 4A 12 FE 4A |.TIME-/SAG..J..J| 000004A0: 12 60 48 0A DB 00 99 22 20 46 45 4A 4C 20 44 45 |.`H...." FEJL DE| 000004B0: 4C 50 52 4F 47 52 41 4D 22 00 99 00 99 22 12 53 |LPROGRAM"....".S| 000004C0: 4C 55 4B 20 41 4E 4C 5B 47 47 45 54 20 4F 47 20 |LUK ANL[GGET OG | 000004D0: 50 52 5C 56 20 49 47 45 4E 21 21 22 3A 49 5E 03 |PR\V IGEN!!":I^.| 000004E0: 00 A2 00 99 00 99 00 99 22 20 20 20 20 20 12 A6 |........" ..| 000004F0: A6 20 53 4C 55 54 20 50 52 4F 47 52 41 4D 20 42 |. SLUT PROGRAM B| 00000500: 31 20 A6 A6 22 00 A0 34 3A 90 E2 80 2E 90 E9 84 |1 .."..4:.......| 00000510: 2B 06 4F 1F 00 9F 34 2C 34 3A 90 E2 D0 17 90 80 |+.O...4,4:......| 00000520: 81 02 42 00 17 00 98 34 2C 22 20 22 3A 46 00 A0 |..B....4," ":F..| 00000530: 34 3A 90 79 80 2E 4F 05 48 09 8D 00 99 22 11 11 |4:.y..O.H...."..| 00000540: 11 1D 1D 1D 49 53 5B 54 20 50 52 47 2E 2D 44 49 |....IS[T PRG.-DI| 00000550: 53 4B 45 54 54 45 20 2D 20 4F 47 20 54 52 59 4B |SKETTE - OG TRYK| 00000560: 20 52 45 54 55 52 4E 22 00 A1 58 24 3A 92 1E 89 | RETURN"..X$:...| 00000570: 0D B8 13 2B 4F 0F 00 98 31 35 2C 22 49 30 22 3A |...+O...15,"I0":| 00000580: 48 09 8D 48 09 6F 00 A0 34 00 A0 31 35 3A 8D 03 |H..H.o..4..15:..| 00000590: 46 80 50 8D 03 4E 8D 02 BC B8 0E 01 90 CD 50 49 |F.P..N........PI| 000005A0: 00 93 22 30 3A 4D 45 4E 55 22 2C 38 00 99 22 12 |.."0:MENU",8..".| 000005B0: 22 3B 54 24 3B 22 92 20 22 3B 43 41 24 3B 3A 8A |";T$;". ";CA$;:.| 000005C0: 00 D2 F7 89 D4 80 50 89 CC 80 50 00 A1 58 24 3A |......P...P..X$:| 000005D0: 92 1E 8A 00 2B 4F 05 48 09 C2 92 1E B8 12 89 0D |....+O.H........| 000005E0: 2B 4F 11 89 D4 81 50 89 CC 81 50 00 99 22 20 22 |+O....P...P.." "| 000005F0: 3A 4C 92 1E B8 12 89 14 2B 4F 05 48 0A A5 92 1E |:L......+O.H....| 00000600: B8 12 89 1F 2D 4F 05 48 09 C2 92 1E B8 12 89 7F |....-O.H........| 00000610: 2A 92 1E B8 12 89 A0 2D 06 4F 05 48 09 C2 92 1E |*......-.O.H....| 00000620: B8 12 89 22 2B 92 1E B8 12 89 2C 2B 07 92 1E B8 |..."+.....,+....| 00000630: 12 89 3A 2B 07 4F 05 48 09 C2 92 1E B8 12 89 1D |..:+.O.H........| 00000640: 2B 92 1E B8 12 89 9D 2B 07 4F 05 48 09 C2 92 1E |+......+.O.H....| 00000650: B8 12 89 5F 2B 4F 07 8A 01 3D D2 1E 92 F7 92 1E |..._+O...=......| 00000660: 01 D2 F7 00 99 58 24 3B 43 41 24 3B 3A 92 F7 B8 |.....X$;CA$;:...| 00000670: 0F 91 FE 2A 4F 05 48 0A 9B 92 1E B8 12 89 3D 2B |...*O.H.......=+| 00000680: 92 1E B8 12 89 5E 2B 07 4F 09 92 87 D2 1E 48 09 |.....^+.O.....H.| 00000690: D1 48 09 C2 92 F7 91 FE B8 14 D2 F7 00 99 22 20 |.H............" | 000006A0: 9D 9D 20 9D 22 3B 43 41 24 3B 3A 48 09 C2 92 F7 |.. .";CA$;:H....| 000006B0: B8 0F 80 2A 4F 1C 92 F7 92 F7 B8 0F 81 02 B8 14 |...*O...........| 000006C0: D2 F7 00 99 22 20 9D 9D 20 9D 22 3B 43 41 24 3B |...." .. .";CA$;| 000006D0: 3A 48 09 C2 00 99 22 93 12 20 53 41 54 53 4B 41 |:H....".. SATSKA| 000006E0: 52 54 4F 54 45 4B 2D 52 55 54 49 4E 45 56 41 4C |RTOTEK-RUTINEVAL| 000006F0: 47 20 22 3B 46 24 28 50 59 29 00 99 00 99 22 20 |G ";F$(PY)...." | 00000700: 20 20 20 12 31 92 20 3D 20 56 45 44 4C 49 47 45 | .1. = VEDLIGE| 00000710: 48 4F 4C 44 22 00 99 00 99 22 20 20 20 20 12 32 |HOLD"...." .2| 00000720: 92 20 3D 20 55 44 53 4B 52 49 56 20 50 5D 20 53 |. = UDSKRIV P] S| 00000730: 4B 5B 52 4D 22 00 99 00 99 22 20 20 20 20 12 33 |K[RM"...." .3| 00000740: 92 20 3D 20 55 44 53 4B 52 49 56 20 50 5D 20 4C |. = UDSKRIV P] L| 00000750: 49 4E 49 45 53 4B 52 49 56 45 52 22 00 99 00 99 |INIESKRIVER"....| 00000760: 22 20 20 20 20 12 34 92 20 3D 20 41 46 53 4C 55 |" .4. = AFSLU| 00000770: 54 20 50 52 4F 47 52 41 4D 22 00 99 3A 8A 0D 92 |T PROGRAM"..:...| 00000780: 1D 52 55 54 49 4E 45 56 41 4C 47 20 D2 F0 81 D1 |.RUTINEVALG ....| 00000790: FE 4A 09 A3 92 F7 B8 11 D0 AA 90 AA 81 2D 90 AA |.J...........-..| 000007A0: 84 2A 07 4F 24 8A 10 1D 46 45 4A 4C 20 52 55 54 |.*.O$...FEJL RUT| 000007B0: 49 4E 45 56 41 4C 47 D2 F0 4A 13 81 00 99 22 91 |INEVALG..J....".| 000007C0: 91 91 22 3A 48 0B 73 90 AA 84 2B 4F 05 48 08 E9 |..":H.s...+O.H..| 000007D0: 90 AA 82 2B 4F 0B 83 D0 E9 4A 12 60 48 17 40 90 |...+O....J.`H.@.| 000007E0: AA 83 2B 4F 29 84 D0 E9 81 D4 01 05 94 01 0C 89 |..+O)...........| 000007F0: 13 01 D4 01 0C 94 01 13 81 01 D4 01 13 94 01 1A |................| 00000800: 89 11 01 D4 01 1A 4A 12 60 48 17 40 90 AA 81 2B |......J.`H.@...+| 00000810: 4F 11 80 D0 E9 80 D4 01 05 94 01 21 81 01 D4 01 |O..........!....| 00000820: 21 00 99 22 93 20 20 20 20 53 41 54 53 4B 41 52 |!..". SATSKAR| 00000830: 54 4F 54 45 4B 20 22 3B 46 24 28 50 59 29 00 99 |TOTEK ";F$(PY)..| 00000840: 3A 81 D0 17 85 42 00 17 00 99 22 12 4E 41 56 4E |:....B....".NAVN| 00000850: 45 4C 49 4E 2E 20 22 AA C4 28 49 29 3B 22 92 20 |ELIN. "..(I);". | 00000860: 22 3B 4E 24 28 49 29 3A 46 00 99 3A 81 D0 17 83 |";N$(I):F..:....| 00000870: 42 00 17 00 99 22 12 4D 4F 4D 53 53 41 54 53 20 |B....".MOMSSATS | 00000880: 20 22 AA C4 28 49 29 3B 22 92 20 22 3B 4D 28 49 | "..(I);". ";M(I| 00000890: 29 3A 46 00 99 3A 81 D0 17 89 09 42 00 17 00 99 |):F..:.....B....| 000008A0: 22 12 53 59 53 54 45 4D 4B 4F 44 45 22 AA C4 28 |".SYSTEMKODE"..(| 000008B0: 49 29 3B 22 92 20 22 3B 53 28 49 29 3A 46 00 99 |I);". ";S(I):F..| 000008C0: 3A 81 D4 01 28 83 D4 01 2F 4A 1C 17 81 D0 17 85 |:...(.../J......| 000008D0: 42 00 17 89 18 D1 FE 92 95 D2 F0 4A 09 A3 92 F7 |B..........J....| 000008E0: 8A 01 5E 2B 4F 05 48 14 B7 92 F7 8A 01 3D 2B 4F |..^+O.H......=+O| 000008F0: 11 00 99 4F 50 24 3B 4E 24 28 49 29 3A 48 15 18 |...OP$;N$(I):H..| 00000900: 92 F7 8A 00 2B 4F 06 92 C6 D2 F7 90 17 92 F7 E2 |....+O..........| 00000910: 06 46 81 D4 01 28 89 09 D4 01 2F 4A 1C 17 81 D0 |.F...(..../J....| 00000920: 17 83 42 00 17 92 95 D2 F0 85 D1 FE 4A 09 A3 92 |..B.........J...| 00000930: F7 8A 01 5E 2B 4F 05 48 15 19 92 F7 8A 01 3D 2B |...^+O.H......=+| 00000940: 4F 10 00 99 4F 50 24 3B 4D 28 49 29 3A 48 15 5F |O...OP$;M(I):H._| 00000950: 90 17 92 F7 B8 11 E0 08 46 81 D4 01 28 89 0D D4 |........F...(...| 00000960: 01 2F 4A 1C 17 81 D0 17 89 09 42 00 17 92 95 D2 |./J.......B.....| 00000970: F0 4A 09 A3 92 F7 8A 01 5E 2B 4F 05 48 15 50 92 |.J......^+O.H.P.| 00000980: F7 8A 01 3D 2B 4F 16 00 99 4F 50 24 3B 22 20 20 |...=+O...OP$;" | 00000990: 20 22 3B 53 28 49 29 3A 48 15 AA 90 17 92 F7 B8 | ";S(I):H.......| 000009A0: 11 E0 0A 46 82 A0 0A 80 2B 4F 05 48 17 40 00 99 |...F....+O.H.@..| 000009B0: 22 93 12 2D 2D 56 45 44 4C 49 47 45 48 4F 4C 44 |"..--VEDLIGEHOLD| 000009C0: 20 49 4E 54 45 47 52 41 54 49 4F 4E 53 4B 4F 4E | INTEGRATIONSKON| 000009D0: 54 49 2D 2D 22 00 99 3A 81 D0 17 89 09 42 00 17 |TI--"..:.....B..| 000009E0: 00 99 22 13 22 00 99 3A 94 01 1A 81 01 D4 01 1A |.."."..:........| 000009F0: 00 99 22 12 53 41 4D 4C 45 4B 4F 4E 54 4F 22 AA |..".SAMLEKONTO".| 00000A00: C4 28 49 29 3B 22 92 20 22 3B C8 28 C4 28 49 4B |.(I);". ";.(.(IK| 00000A10: 28 49 29 29 AA 42 4C 24 2C 37 29 00 99 22 12 4B |(I)).BL$,7)..".K| 00000A20: 4F 4E 54 4F 54 45 4B 53 54 22 AA C4 28 49 29 3B |ONTOTEKST"..(I);| 00000A30: 22 92 20 22 3B C8 28 49 54 24 28 49 29 AA 42 4C |". ";.(IT$(I).BL| 00000A40: 24 2C 31 37 29 00 99 22 12 53 41 4C 44 4F 2E 2E |$,17)..".SALDO..| 00000A50: 2E 2E 2E 22 AA C4 28 49 29 3B 22 92 20 22 3B C8 |..."..(I);". ";.| 00000A60: 28 49 42 24 28 49 29 AA 42 4C 24 2C 31 32 29 00 |(IB$(I).BL$,12).| 00000A70: 99 22 13 22 00 99 3A 83 D4 01 2F 89 16 D4 01 28 |."."..:.../....(| 00000A80: 4A 1C 17 86 D1 FE 4A 09 B5 92 F7 8A 01 5E 2B 4F |J.....J......^+O| 00000A90: 05 48 15 A5 92 F7 8A 01 30 2B 4F 05 48 17 40 92 |.H......0+O.H.@.| 00000AA0: F7 8A 01 3D 2B 4F 16 00 99 4F 50 24 3B 49 4B 28 |...=+O...OP$;IK(| 00000AB0: 49 29 3A 90 17 A0 0C B8 10 D2 F7 90 17 92 F7 B8 |I):.............| 00000AC0: 11 E0 0C 90 17 A0 0C 80 2B 4F 05 48 17 40 84 D4 |........+O.H.@..| 00000AD0: 01 2F 89 16 D4 01 28 4A 1C 17 89 11 D1 FE 4A 09 |./....(J......J.| 00000AE0: B5 92 F7 8A 01 5E 2B 4F 05 48 16 7D 92 F7 8A 01 |.....^+O.H.}....| 00000AF0: 3D 2B 4F 12 00 99 4F 50 24 3B 49 54 24 28 49 29 |=+O...OP$;IT$(I)| 00000B00: 3A 48 17 01 90 17 92 F7 E2 0E 85 D4 01 2F 89 16 |:H.........../..| 00000B10: D4 01 28 4A 1C 17 89 0C D1 FE 4A 09 B5 92 F7 8A |..(J......J.....| 00000B20: 01 5E 2B 4F 05 48 16 C5 92 F7 8A 01 3D 2B 4F 12 |.^+O.H......=+O.| 00000B30: 00 99 4F 50 24 3B 49 42 24 28 49 29 3A 48 17 4D |..OP$;IB$(I):H.M| 00000B40: 90 17 92 F7 E2 10 47 00 17 90 E9 80 2B 4F 05 48 |......G.....+O.H| 00000B50: 17 D5 00 9F 34 2C 44 56 3A 90 E9 83 2B 4F 2B 00 |....4,DV:...+O+.| 00000B60: 98 34 2C 22 53 41 54 53 4B 41 52 54 4F 54 45 4B |.4,"SATSKARTOTEK| 00000B70: 20 20 22 3B 46 24 28 50 59 29 3B 22 20 2D 20 22 | ";F$(PY);" - "| 00000B80: 3B 44 44 24 3A 48 17 B6 00 98 34 2C C7 28 41 53 |;DD$:H....4,.(AS| 00000B90: 28 31 29 29 3B 22 53 41 54 53 4B 41 52 54 4F 54 |(1));"SATSKARTOT| 00000BA0: 45 4B 20 20 22 3B 46 24 28 50 59 29 3B 22 20 2D |EK ";F$(PY);" -| 00000BB0: 20 22 3B 44 44 24 3B C7 28 41 53 28 32 29 29 00 | ";DD$;.(AS(2)).| 00000BC0: 98 34 2C 22 4B 4C 49 45 4E 54 4E 55 4D 4D 45 52 |.4,"KLIENTNUMMER| 00000BD0: 3A 20 22 3B 44 49 24 00 98 34 2C 22 20 22 3A 92 |: ";DI$..4," ":.| 00000BE0: DB D2 25 4A 1C 97 92 DB 8A 04 2C 53 2C 57 01 D2 |..%J......,S,W..| 00000BF0: 25 00 9F 32 2C 38 2C 32 2C 44 46 24 3A 81 D0 17 |%..2,8,2,DF$:...| 00000C00: 85 42 00 17 00 98 32 2C 4E 24 28 49 29 43 52 24 |.B....2,N$(I)CR$| 00000C10: 3B 3A 4A 13 1B 90 E9 80 2A 4F 0B 00 98 34 2C 4E |;:J.....*O...4,N| 00000C20: 24 28 49 29 3A 46 90 E9 80 2A 4F 0E 00 98 34 2C |$(I):F...*O...4,| 00000C30: 22 20 22 3A 89 09 D0 E2 81 D0 17 83 42 00 17 00 |" ":........B...| 00000C40: 98 32 2C C4 28 4D 28 49 29 29 43 52 24 3B 3A 4A |.2,.(M(I))CR$;:J| 00000C50: 13 1B 90 E9 80 2A 4F 2C 00 98 34 2C 22 4D 4F 4D |.....*O,..4,"MOM| 00000C60: 53 53 41 54 53 22 3B 49 3B 22 20 20 3A 20 22 AA |SSATS";I;" : ".| 00000C70: C4 28 4D 28 49 29 29 3B 22 25 22 3A 90 E2 81 01 |.(M(I));"%":....| 00000C80: D0 E2 94 01 05 81 2B 4F 10 00 98 34 2C 22 20 22 |......+O...4," "| 00000C90: 3A 90 E2 81 01 D0 E2 46 90 E9 80 2A 4F 10 00 98 |:......F...*O...| 00000CA0: 34 2C 22 20 22 3A 90 E2 81 01 D0 E2 81 D0 17 89 |4," ":..........| 00000CB0: 09 42 00 17 00 98 32 2C C4 28 53 28 49 29 29 43 |.B....2,.(S(I))C| 00000CC0: 52 24 3B 3A 4A 13 1B 90 E9 80 2A 4F 28 00 98 34 |R$;:J.....*O(..4| 00000CD0: 2C 22 53 59 53 54 45 4D 4B 4F 44 45 22 3B 49 3B |,"SYSTEMKODE";I;| 00000CE0: 22 3A 20 22 AA C4 28 53 28 49 29 29 3A 90 E2 81 |": "..(S(I)):...| 00000CF0: 01 D0 E2 94 01 05 81 2B 4F 10 00 98 34 2C 22 20 |.......+O...4," | 00000D00: 22 3A 90 E2 81 01 D0 E2 47 00 17 48 11 62 90 E9 |":......G..H.b..| 00000D10: 80 2A 4F 38 00 98 34 2C 22 20 22 00 98 34 2C 22 |.*O8..4," "..4,"| 00000D20: 53 41 4D 4C 45 4B 4F 4E 54 4F 20 20 54 45 4B 53 |SAMLEKONTO TEKS| 00000D30: 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T | 00000D40: 20 20 20 20 20 20 20 20 22 3B 3A 90 E9 80 2A 4F | ";:...*O| 00000D50: 1C 00 98 34 2C 22 20 53 41 4C 44 4F 22 00 98 34 |...4," SALDO"..4| 00000D60: 2C 22 20 22 3A 90 E2 82 01 D0 E2 81 D0 17 89 09 |," ":...........| 00000D70: 42 00 17 00 98 32 2C C4 28 49 4B 28 49 29 29 4F |B....2,.(IK(I))O| 00000D80: 24 49 42 24 28 49 29 4F 24 49 54 24 28 49 29 43 |$IB$(I)O$IT$(I)C| 00000D90: 52 24 3B 3A 4A 13 1B 90 E9 80 2B 4F 05 48 12 16 |R$;:J.....+O.H..| 00000DA0: 90 17 A0 0C 80 2B 4F 05 48 12 16 00 98 34 2C C9 |.....+O.H....4,.| 00000DB0: 28 42 4C 24 AA C4 28 49 4B 28 49 29 29 2C 31 30 |(BL$..(IK(I)),10| 00000DC0: 29 3B 22 20 20 22 3B 00 98 34 2C C8 28 49 54 24 |);" ";..4,.(IT$| 00000DD0: 28 49 29 AA 42 4C 24 2C 32 34 29 3B 3A 92 A3 90 |(I).BL$,24);:...| 00000DE0: 17 A2 10 01 89 0C B8 15 D2 2C 00 98 34 2C C8 28 |.........,..4,.(| 00000DF0: 49 42 24 28 49 29 2C 31 30 29 3B 22 2E 22 3B C9 |IB$(I),10);".";.| 00000E00: 28 49 42 24 28 49 29 2C 32 29 3A 90 E2 81 01 D0 |(IB$(I),2):.....| 00000E10: E2 90 E9 84 2B 4F 0A 94 01 0C 81 01 D4 01 0C 46 |....+O.........F| 00000E20: 00 98 32 2C 22 2A 22 43 52 24 3B 3A 4A 13 1B 00 |..2,"*"CR$;:J...| 00000E30: A0 32 3A 89 09 A0 0A D0 80 90 E9 83 2A 4F 19 90 |.2:.........*O..| 00000E40: E2 D0 17 90 80 82 02 42 00 17 00 98 34 2C 22 20 |.......B....4," | 00000E50: 22 3A 46 80 D0 E2 00 A0 34 3A 81 83 A0 12 E0 12 |":F.....4:......| 00000E60: 82 84 A0 12 E0 12 48 0A DB 92 DB 8A 04 2C 53 2C |......H......,S,| 00000E70: 52 01 D2 25 00 9F 33 2C 38 2C 33 2C 44 46 24 3A |R..%..3,8,3,DF$:| 00000E80: 81 D0 17 85 42 00 17 00 84 33 2C 4E 24 28 49 29 |....B....3,N$(I)| 00000E90: 3A 46 81 D0 17 83 42 00 17 00 84 33 2C 4D 28 49 |:F....B....3,M(I| 00000EA0: 29 3A 46 81 D0 17 89 09 42 00 17 00 84 33 2C 53 |):F.....B....3,S| 00000EB0: 28 49 29 3A 46 89 09 A0 0A D0 80 82 A0 0A 80 2B |(I):F..........+| 00000EC0: 4F 05 48 12 E7 81 D0 17 89 09 42 00 17 00 84 33 |O.H.......B....3| 00000ED0: 2C 49 4B 28 49 29 2C 49 42 24 28 49 29 2C 49 54 |,IK(I),IB$(I),IT| 00000EE0: 24 28 49 29 3A 46 90 80 80 2B 4F 06 89 48 D0 80 |$(I):F...+O..H..| 00000EF0: 00 A0 33 00 99 3A 4C 81 8D 03 3E B8 0E E0 12 83 |..3..:L...>.....| 00000F00: 81 A0 12 E0 12 82 8D 03 3F B8 0E E0 12 84 82 A0 |........?.......| 00000F10: 12 E0 12 4C B8 1A D4 01 36 00 84 31 35 2C 41 31 |...L....6..15,A1| 00000F20: 3A 94 01 3D 80 2B 4F 03 4C 00 99 00 99 22 44 49 |:..=.+O.L...."DI| 00000F30: 53 4B 20 46 45 4A 4C 4E 52 2E 22 3B 41 31 3B 22 |SK FEJLNR.";A1;"| 00000F40: 92 20 4F 42 53 45 52 56 45 52 45 54 20 56 45 44 |. OBSERVERET VED| 00000F50: 20 12 22 3B 44 46 24 00 99 00 99 22 53 4C 55 4B | .";DF$...."SLUK| 00000F60: 20 41 4E 4C 5B 47 47 45 54 20 53 54 41 52 54 20 | ANL[GGET START | 00000F70: 46 52 41 20 4B 4F 50 49 44 49 53 4B 22 00 A0 32 |FRA KOPIDISK"..2| 00000F80: 00 A0 31 35 3A 49 5E 03 00 A2 3A 89 D1 89 98 50 |..15:I^...:....P| 00000F90: 89 D2 87 50 00 99 22 12 22 3B C8 28 54 24 AA 42 |...P..".";.(T$.B| 00000FA0: 4C 24 2C 33 39 29 00 99 22 91 91 22 3B 00 99 A3 |L$,39).."..";...| 00000FB0: 33 33 29 3B 22 20 92 46 45 4A 4C 22 3A 81 D0 17 |33);" .FEJL":...| 00000FC0: 89 C8 42 00 17 46 00 99 22 91 22 3B A3 33 33 29 |..B..F..".";.33)| 00000FD0: 3B 22 20 12 46 45 4A 4C 91 22 3A 81 D0 17 89 C8 |;" .FEJL.":.....| 00000FE0: 42 00 17 46 00 A1 58 24 3A 92 1E 8A 00 2B 4F 05 |B..F..X$:....+O.| 00000FF0: 48 13 A4 00 99 00 99 22 91 22 3B A3 31 36 29 3B |H......".";.16);| 00001000: C8 28 42 4C 24 2C 32 32 29 3A 89 D1 89 98 50 89 |.(BL$,22):....P.| 00001010: D2 87 50 00 99 C8 28 42 4C 24 2C 33 39 29 3A 4C |..P...(BL$,39):L| 00001020: 8A 27 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.'..............| 00001030: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001040: 1D 1D 1D 1D 1D 1D 1D 1D 1D D6 01 44 8A 1B 11 11 |...........D....| 00001050: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00001060: 11 11 11 11 11 11 11 11 11 D6 01 4B 00 99 22 13 |...........K..".| 00001070: 22 3B 3A 94 01 28 81 2A 4F 10 00 99 C8 28 41 43 |";:..(.*O....(AC| 00001080: 24 2C 43 4F AB 31 29 3B 3A 94 01 2F 81 2A 4F 10 |$,CO.1);:../.*O.| 00001090: 00 99 C8 28 41 44 24 2C 4C 4E AB 31 29 3B 3A 4C |...(AD$,LN.1);:L| 000010A0: 8A 01 53 92 25 01 D2 25 00 98 31 35 2C 44 46 24 |..S.%..%..15,DF$| 000010B0: 00 84 31 35 2C 41 31 3A 94 01 3D 81 2B 4F 03 4C |..15,A1:..=.+O.L| 000010C0: 94 01 3D 80 2B 4F 03 4C 48 13 20 5E 03 00 80 00 |..=.+O.LH. ^....| 000010D0: 00 00 4E B1 00 00 00 00 00 4E B2 00 00 00 00 00 |..N......N......| 000010E0: 4E B3 00 00 00 00 00 49 00 00 00 00 00 00 58 80 |N......I......X.| 000010F0: 00 00 00 00 00 44 C6 00 00 00 00 00 4E 80 00 00 |.....D......N...| 00001100: 00 00 00 44 C9 00 00 00 00 00 43 31 00 00 00 00 |...D......C1....| 00001110: 00 43 32 00 00 00 00 00 43 33 00 00 00 00 00 43 |.C2.....C3.....C| 00001120: 34 00 00 00 00 00 43 35 00 00 00 00 00 43 C1 00 |4.....C5.....C..| 00001130: 00 00 00 00 44 B0 00 00 00 00 00 44 30 00 00 00 |....D......D0...| 00001140: 00 00 44 B1 00 00 00 00 00 44 31 00 00 00 00 00 |..D......D1.....| 00001150: 43 4C 00 00 00 00 00 43 D2 00 00 00 00 00 4F 80 |CL.....C......O.| 00001160: 00 00 00 00 00 43 D0 00 00 00 00 00 4F D0 00 00 |.....C......O...| 00001170: 00 00 00 42 CC 00 00 00 00 00 4E 00 00 00 00 00 |...B......N.....| 00001180: 00 41 52 00 00 00 00 00 4D 44 00 00 00 00 00 44 |.AR.....MD.....D| 00001190: 47 00 00 00 00 00 44 C4 00 00 00 00 00 50 59 00 |G.....D......PY.| 000011A0: 00 00 00 00 4E CE 00 00 00 00 00 41 C6 00 00 00 |....N......A....| 000011B0: 00 00 43 54 00 00 00 00 00 44 56 00 00 00 00 00 |..CT.....DV.....| 000011C0: 54 80 00 00 00 00 00 48 80 00 00 00 00 00 CC C6 |T......H........| 000011D0: 00 00 00 00 00 45 4C 00 00 00 00 00 50 4C 00 00 |.....EL.....PL..| 000011E0: 00 00 00 50 47 00 00 00 00 00 50 54 00 00 00 00 |...PG.....PT....| 000011F0: 00 50 52 00 00 00 00 00 43 4F 00 00 00 00 00 4C |.PR.....CO.....L| 00001200: 4E 00 00 00 00 00 52 53 00 00 00 00 00 41 31 00 |N.....RS.....A1.| 00001210: 00 00 00 00 41 C3 00 00 00 00 00 41 C4 00 00 00 |....A......A....| 00001220: 00 00 00 00 14 00 00 00 00 00 00 00 00 00 00 00 |................| 00001230: 00 00 00 00 00 00 25 1A D9 18 04 08 2F 0B D3 8D |......%...../...| 00001240: E4 92 D5 ED 30 F8 |....0. |
.......2073... R.LE. R.L.. R....ID...?..
.............. U.HHLH RTL-64 R. Q. _.`
..`........%...`H............H` _. G. R.
`@..........E....T[.VL-B1..M(10):A....S(
10):A....IK(10):A....AS(10):A....F$(10):
A....N$(10):A....IT$(10):A....IB$(10):A.
.W..15,8,15,"I0":.% COPYRIGHT : DJURS DA
TA APS - GREN] R..% DATO : 09.11.1
983 - A.O. R..% PROGRAM : VEDLIG
EHOLD SATSKARTOT. R...".":.P....B..G....
X$:....@.O.H.F.."......";N1$..".."N2$.."
..";N3$:.P...PB..G..H.S..0:F.......FIRM-
WARE,P,R.R%..2,8,2,DF$:J...P..B....2,N$:
J..G... 2:J....0:SYS-UTIL,S,RR%..2,8,2,D
F$:J....2,DI$:J... 2:..0:SK[RM,S,RR%..2,
8,2,DF$:J....2,C1,C2,C3,C4,C5:J... 2:J..
..P ...:P..P!...AP..G(C3):.O.......R]..0
:RD.PK..0.V...........:.RR.VPY.P:.PA.PH.
PO.PV.Y.+O.H.&..0:RR.PY.."......IS[T DAT
A-DISKETTE - TRYK RETURN"..X$:......+O..
.15,"I0":H.&H...F.P....4P..R...R...R..HP
.....R..,..R...............R............
.....R..1
R...N........P.....O..
.O.H......O.H....8..P...7..P...6..P.....
........D..............D.........RF..F..
PM.M.D...G.....RT.M.+O!.R..SATSKARTOTEK.
R..M..FINANS...M.+O'.D..E-SATSKARTOTEK.R
..M..ENTREPRISE...M.+O'.D..TS-SATSKARTOT
EK.R..M..TIME-/SAG..J..J.`H...." FEJL DE
LPROGRAM"....".SLUK ANL[GGET OG PR\V IGE
N!!":I^........." ... SLUT PROGRAM B
1 ..". 4:.......+.O...4,4:..P.....B....4
," ":F. 4:.Y..O.H...."......IS[T PRG.-DI
SKETTE - OG TRYK RETURN"..X$:......+O...
15,"I0":H..H.O. 4. 15:..F.P..N.......MPI
.."0:MENU",8..".";T$;". ";CA$;:..R..T.P.
L.P..X$:....+O.H.B......+O..T.P.L.P.." "
:L......+O.H........-O.H.B.....*..... -
.O.H.B....."+.....,+......:+.O.H.B......
+......+.O.H.B....._+O...=R......R...X$;
CA$;:......*O.H.......=+.....^+.O...R.H.
QH.B......R..." .. .";CA$;:H.B.....*O...
........R..." .. .";CA$;:H.B..".. SATSKA
RTOTEK-RUTINEVALG ";F$(PY)...." .1. =
VEDLIGEHOLD"...." .2. = UDSKRIV P] S
K[RM"...." .3. = UDSKRIV P] LINIESKRI
VER"...." .4. = AFSLUT PROGRAM"..:...
.RUTINEVALG R..Q.J......P....-...*.O$...
FEJL RUTINEVALGR.J...."...":H.S...+O.H..
...+O..P.J.`H.@...+O).P..T........T.....
..T........T..J.`H.@...+O..P..T....!..T.
!..". SATSKARTOTEK ";F$(PY)..:.P..B..
..".NAVNELIN. ".D(I);". ";N$(I):F..:.P..
B....".MOMSSATS ".D(I);". ";M(I):F..:.P
...B....".SYSTEMKODE".D(I);". ";S(I):F..
:.T.(.T./J...P..B....Q...R.J......^+O.H.
.....=+O...OP$;N$(I):H......+O..FR......
.F.T.(..T./J...P..B....R..Q.J......^+O.H
......=+O...OP$;M(I):H._........F.T.(..T
./J...P...B....R.J......^+O.H.P....=+O..
.OP$;" ";S(I):H..........F. ..+O.H.@..
"..--VEDLIGEHOLD INTEGRATIONSKONTI--"..:
.P...B...."."..:.....T....".SAMLEKONTO".
D(I);". ";H(D(IK(I)).BL$,7)..".KONTOTEKS
T".D(I);". ";H(IT$(I).BL$,17)..".SALDO..
...".D(I);". ";H(IB$(I).BL$,12).."."..:.
T./..T.(J...Q.J......^+O.H......0+O.H.@.
...=+O...OP$;IK(I):.. ...R........... ..
+O.H.@.T./..T.(J....Q.J......^+O.H.}....
=+O...OP$;IT$(I):H.........T./..T.(J....
Q.J......^+O.H.E....=+O...OP$;IB$(I):H.M
......G.....+O.H.U..4,DV:...+O+..4,"SATS
KARTOTEK ";F$(PY);" - ";DD$:H....4,G(AS
(1));"SATSKARTOTEK ";F$(PY);" - ";DD$;G
(AS(2))..4,"KLIENTNUMMER: ";DI$..4," ":.
.R%J......,S,W.R%..2,8,2,DF$:.P..B....2,
N$(I)CR$;:J.....*O...4,N$(I):F...*O...4,
" ":..P..P..B....2,D(M(I))CR$;:J.....*O,
..4,"MOMSSATS";I;" : ".D(M(I));"%":....
P.....+O...4," ":....P.F...*O...4," ":..
..P..P...B....2,D(S(I))CR$;:J.....*O(..4
,"SYSTEMKODE";I;": ".D(S(I)):....P.....+
O...4," ":....P.G..H.B...*O8..4," "..4,"
SAMLEKONTO TEKST
";:...*O...4," SALDO"..4," ":....P..P...
B....2,D(IK(I))O$IB$(I)O$IT$(I)CR$;:J...
..+O.H.... ..+O.H....4,I(BL$.D(IK(I)),10
);" ";..4,H(IT$(I).BL$,24);:...........
R,..4,H(IB$(I),10);".";I(IB$(I),2):....P
....+O......T..F..2,"*"CR$;:J... 2:.. .P
....*O...P.....B....4," ":F.P.. 4:.. ...
.. ...H......,S,R.R%..3,8,3,DF$:.P..B...
.3,N$(I):F.P..B....3,M(I):F.P...B....3,S
(I):F.. .P.. ..+O.H...P...B....3,IK(I),I
B$(I),IT$(I):F...+O..HP.. 3..:L...>.....
. ......?...... ...L..T.6..15,A1:..=.+O.
L...."DISK FEJLNR.";A1;". OBSERVERET VED
.";DF$...."SLUK ANL[GGET START FRA KOPI
DISK". 2. 15:I^...:.Q..P.R.P..".";H(T$.B
L$,39).."..";...33);" .FEJL":.P..HB..F..
".";.33);" .FEJL.":.P..HB..F..X$:....+O.
H......".";.16);H(BL$,22):.Q..P.R.P..H(B
L$,39):L.'..............................
.........V.D............................
.V.K..".";:..(.*O...H(AC$,CO.1);:../.*O.
..H(AD$,LN.1);:L..S.%.R%..15,DF$..15,A1:
..=.+O.L..=.+O.LH. ^......N......N......
N......I......X......DF.....N......DI...
..C1.....C2.....C3.....C4.....C5.....CA.
....D......D0.....D......D1.....CL.....C
R.....O......CP.....OP.....BL.....N.....
.AR.....MD.....DG.....DD.....PY.....NN..
...AF.....CT.....DV.....T......H......LF
.....EL.....PL.....PG.....PT.....PR.....
CO.....LN.....RS.....A1.....AC.....AD...
......................%.Y.../.S...U.0.
> CLICK IMAGE PREVIEW FOR FULL MODAL