> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 0A 00 8F 00 21 08 14 00 8F 20 2D 41 |........!.... -A|
00000010: 46 42 45 54 41 64 59 47 53 50 52 4F 47 52 41 4D |FBETAdYGSPROGRAM|
00000020: 2D 00 3B 08 1E 00 8F 20 20 41 52 54 49 53 41 4E |-.;.... ARTISAN|
00000030: 20 44 41 54 41 20 20 31 39 38 35 00 54 08 28 00 | DATA 1985.T.(.|
00000040: 8F 20 20 20 43 41 52 53 54 45 4E 20 41 4E 44 45 |. CARSTEN ANDE|
00000050: 52 53 45 4E 00 6C 08 32 00 8F 20 20 20 20 4A 4F |RSEN.l.2.. JO|
00000060: 48 4E 20 48 56 49 44 4C 59 4B 4B 45 00 72 08 3C |HN HVIDLYKKE.r.<|
00000070: 00 8F 00 8F 08 46 00 96 A5 41 28 58 29 B2 B5 28 |.....F...A(X)..(|
00000080: 28 58 AC 31 30 30 29 AA 2E 35 29 AD 31 30 30 00 |(X.100)..5).100.|
00000090: AC 08 50 00 97 35 33 32 38 30 2C 36 3A 97 35 33 |..P..53280,6:.53|
000000A0: 32 38 31 2C 36 3A 97 36 34 36 2C 31 00 BE 08 5A |281,6:.646,1...Z|
000000B0: 00 99 C7 28 31 34 37 29 3A 99 3A 99 3A 99 00 EB |...(147):.:.:...|
000000C0: 08 64 00 99 A3 32 29 3A 99 C7 28 31 31 31 29 3B |.d...2):..(111);|
000000D0: 3A 81 41 B2 31 A4 33 32 3A 99 C7 28 31 38 33 29 |:.A.1.32:..(183)|
000000E0: 3B 3A 82 3A 99 C7 28 31 31 32 29 00 16 09 6E 00 |;:.:..(112)...n.|
000000F0: 81 42 B2 30 A4 31 31 3A 99 A3 32 29 3A 99 C7 28 |.B.0.11:..2):..(|
00000100: 31 38 30 29 3B 3A 99 A3 33 35 29 3B 3A 99 C7 28 |180);:..35);:..(|
00000110: 31 37 30 29 3A 82 00 43 09 78 00 99 A3 32 29 3A |170):..C.x...2):|
00000120: 99 C7 28 31 30 38 29 3B 3A 81 41 B2 31 A4 33 32 |..(108);:.A.1.32|
00000130: 3A 99 C7 28 31 37 35 29 3B 3A 82 3A 99 C7 28 31 |:..(175);:.:..(1|
00000140: 38 36 29 00 64 09 82 00 97 37 38 31 2C 36 3A 97 |86).d....781,6:.|
00000150: 37 38 32 2C 31 30 3A 97 37 38 33 2C 30 3A 9E 36 |782,10:.783,0:.6|
00000160: 35 35 32 30 00 7E 09 8C 00 99 22 41 46 42 45 54 |5520.~...."AFBET|
00000170: 41 4C 49 4E 47 53 50 52 4F 47 52 41 4D 22 00 86 |ALINGSPROGRAM"..|
00000180: 09 96 00 99 3A 99 00 AE 09 A0 00 99 A3 34 29 3B |....:........4);|
00000190: 22 43 4F 50 59 52 49 47 48 54 3A 20 41 52 54 49 |"COPYRIGHT: ARTI|
000001A0: 53 41 4E 20 44 41 54 41 20 31 39 38 35 22 00 D1 |SAN DATA 1985"..|
000001B0: 09 AA 00 99 3A 99 A3 34 29 3B 22 49 44 45 3A 20 |....:..4);"IDE: |
000001C0: 43 41 52 53 54 45 4E 20 41 4E 44 45 52 53 45 4E |CARSTEN ANDERSEN|
000001D0: 22 00 FE 09 B4 00 99 3A 99 A3 34 29 3B 22 50 52 |"......:..4);"PR|
000001E0: 4F 47 52 41 4D 4D 45 52 49 4E 47 3A 20 43 41 52 |OGRAMMERING: CAR|
000001F0: 53 54 45 4E 20 41 4E 44 45 52 53 45 4E 22 00 1B |STEN ANDERSEN"..|
00000200: 0A BE 00 99 3A 99 A3 31 39 29 3B 22 4A 4F 48 4E |....:..19);"JOHN|
00000210: 20 48 56 49 44 4C 59 4B 4B 45 22 00 2E 0A C8 00 | HVIDLYKKE".....|
00000220: A1 41 24 3A 8B 41 24 B2 22 22 A7 32 30 30 00 6B |.A$:.A$."".200.k|
00000230: 0A D2 00 99 C7 28 31 34 37 29 3A 99 C7 28 31 38 |.....(147):..(18|
00000240: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |);" |
00000250: 20 41 46 42 45 54 41 4C 49 4E 47 20 20 20 20 20 | AFBETALING |
00000260: 20 20 20 20 20 20 20 20 20 20 22 00 85 0A DC 00 | ".....|
00000270: 97 37 38 31 2C 33 3A 97 37 38 32 2C 31 30 3A 9E |.781,3:.782,10:.|
00000280: 36 35 35 32 30 00 9F 0A E6 00 99 22 41 52 54 49 |65520......"ARTI|
00000290: 53 41 4E 20 44 41 54 41 20 20 31 39 38 35 22 00 |SAN DATA 1985".|
000002A0: B8 0A F0 00 97 37 38 31 2C 39 3A 97 37 38 32 2C |.....781,9:.782,|
000002B0: 30 3A 9E 36 35 35 32 30 00 CD 0A FA 00 99 22 49 |0:.65520......"I|
000002C0: 4E 44 54 41 53 54 20 47 41 45 4C 44 22 00 E8 0A |NDTAST GAELD"...|
000002D0: 04 01 99 3A 99 22 49 4E 44 54 41 53 54 20 52 45 |...:."INDTAST RE|
000002E0: 4E 54 45 53 41 54 53 22 00 08 0B 0E 01 99 3A 99 |NTESATS"......:.|
000002F0: 22 49 4E 44 54 41 53 54 20 41 4E 54 41 4C 20 54 |"INDTAST ANTAL T|
00000300: 45 52 4D 49 4E 45 52 22 00 22 0B 18 01 97 37 38 |ERMINER"."....78|
00000310: 31 2C 39 3A 97 37 38 32 2C 31 35 3A 9E 36 35 35 |1,9:.782,15:.655|
00000320: 32 30 00 3F 0B 22 01 85 47 41 45 4C 44 24 3A 8B |20.?."..GAELD$:.|
00000330: C5 28 47 41 45 4C 44 24 29 B2 30 A7 32 38 30 00 |.(GAELD$).0.280.|
00000340: 5A 0B 2C 01 97 37 38 31 2C 31 31 3A 97 37 38 32 |Z.,..781,11:.782|
00000350: 2C 31 39 3A 9E 36 35 35 32 30 00 77 0B 36 01 85 |,19:.65520.w.6..|
00000360: 50 43 54 24 3A 8B C5 28 50 43 54 24 29 B2 30 A7 |PCT$:..(PCT$).0.|
00000370: 31 31 37 4E 33 30 30 00 92 0B 40 01 97 37 38 31 |117N300...@..781|
00000380: 2C 31 33 3A 97 37 38 32 2C 32 34 3A 9E 36 35 35 |,13:.782,24:.655|
00000390: 32 30 00 A7 0B 4A 01 85 4E 24 3A 8B C5 28 4E 24 |20...J..N$:..(N$|
000003A0: 29 B2 30 A7 33 32 30 00 C1 0B 54 01 97 37 38 31 |).0.320...T..781|
000003B0: 2C 32 32 3A 97 37 38 32 2C 30 3A 9E 36 35 35 32 |,22:.782,0:.6552|
000003C0: 30 00 F7 0B 5E 01 99 C7 28 31 38 29 3B 22 20 20 |0...^...(18);" |
000003D0: 20 20 20 20 20 20 20 20 20 20 20 20 44 41 54 41 | DATA|
000003E0: 20 4F 4B 20 28 4A 2F 4E 29 20 20 20 20 20 20 20 | OK (J/N) |
000003F0: 20 20 20 20 20 20 22 00 0B 0C 68 01 A1 41 24 3A | "...h..A$:|
00000400: 8B 41 24 B2 22 4E 22 A7 32 31 30 00 1C 0C 72 01 |.A$."N".210...r.|
00000410: 8B 41 24 B3 B1 22 4A 22 A7 33 36 30 00 44 0C 7C |.A$.."J".360.D.||
00000420: 01 47 41 45 4C 44 B2 C5 28 47 41 45 4C 44 24 29 |.GAELD..(GAELD$)|
00000430: 3A 50 43 54 B2 C5 28 50 43 54 24 29 3A 4E B2 C5 |:PCT..(PCT$):N..|
00000440: 28 4E 24 29 00 72 0C 86 01 59 44 45 4C 53 45 B2 |(N$).r...YDELSE.|
00000450: 47 41 45 4C 44 AC 50 43 54 AD 28 31 30 30 AC 28 |GAELD.PCT.(100.(|
00000460: 31 AB 28 31 AA 50 43 54 AD 31 30 30 29 AE AB 4E |1.(1.PCT.100)..N|
00000470: 29 29 00 7E 0C 90 01 99 C7 28 31 34 37 29 00 AF |)).~.....(147)..|
00000480: 0C 9A 01 81 43 B2 31 A4 33 39 3A 99 C7 28 31 38 |....C.1.39:..(18|
00000490: 29 3B C7 28 33 32 29 3B 3A 82 3A 97 37 38 31 2C |);.(32);:.:.781,|
000004A0: 31 3A 97 37 38 32 2C 30 3A 9E 36 35 35 32 30 00 |1:.782,0:.65520.|
000004B0: EE 0C A4 01 99 C7 28 31 38 29 3B 22 53 54 41 52 |......(18);"STAR|
000004C0: 54 47 41 45 4C 44 3A 22 A5 41 28 47 41 45 4C 44 |TGAELD:".A(GAELD|
000004D0: 29 22 50 43 54 3A 22 A5 41 28 50 43 54 29 22 54 |)"PCT:".A(PCT)"T|
000004E0: 45 52 4D 49 4E 45 52 3A 22 A5 41 28 4E 29 00 07 |ERMINER:".A(N)..|
000004F0: 0D AE 01 97 37 38 31 2C 33 3A 97 37 38 32 2C 30 |....781,3:.782,0|
00000500: 3A 9E 36 35 35 32 30 00 2D 0D B8 01 99 22 54 45 |:.65520.-...."TE|
00000510: 52 4D 49 4E 53 59 44 45 4C 53 45 20 28 4B 52 2E |RMINSYDELSE (KR.|
00000520: 29 3A 22 A5 41 28 59 44 45 4C 53 45 29 00 33 0D |):".A(YDELSE).3.|
00000530: C2 01 99 00 61 0D CC 01 99 22 54 45 52 4D 49 4E |....a...."TERMIN|
00000540: 20 20 20 52 45 4E 54 45 20 20 20 20 20 41 46 44 | RENTE AFD|
00000550: 52 41 47 20 20 20 20 52 45 53 54 47 41 45 4C 44 |RAG RESTGAELD|
00000560: 22 00 77 0D D6 01 81 41 B2 31 A4 33 39 3A 99 C7 |".w....A.1.39:..|
00000570: 28 39 39 29 3B 3A 82 00 7D 0D E0 01 99 00 88 0D |(99);:..}.......|
00000580: EA 01 81 49 B2 31 A4 4E 00 C7 0D F4 01 52 45 4E |...I.1.N.....REN|
00000590: 54 45 B2 47 41 45 4C 44 AC 50 43 54 AD 31 30 30 |TE.GAELD.PCT.100|
000005A0: 3A 41 46 44 52 41 47 B2 59 44 45 4C 53 45 AB 52 |:AFDRAG.YDELSE.R|
000005B0: 45 4E 54 45 3A 47 41 45 4C 44 B2 47 41 45 4C 44 |ENTE:GAELD.GAELD|
000005C0: AB 41 46 44 52 41 47 00 D6 0D FE 01 8B 49 B1 31 |.AFDRAG......I.1|
000005D0: 35 A7 8D 36 31 30 00 08 0E 08 02 99 A5 41 28 49 |5..610.......A(I|
000005E0: 29 A3 37 29 A5 41 28 52 45 4E 54 45 29 A3 31 38 |).7).A(RENTE).18|
000005F0: 29 A5 41 28 41 46 44 52 41 47 29 A3 32 38 29 A5 |).A(AFDRAG).28).|
00000600: 41 28 47 41 45 4C 44 29 00 27 0E 12 02 8B 49 B2 |A(GAELD).'....I.|
00000610: 4E A7 97 37 38 31 2C 32 32 3A 97 37 38 32 2C 30 |N..781,22:.782,0|
00000620: 3A 9E 36 35 35 32 30 00 34 0E 1C 02 82 3A 97 36 |:.65520.4....:.6|
00000630: 34 36 2C 31 00 4A 0E 26 02 81 41 B2 31 A4 33 39 |46,1.J.&..A.1.39|
00000640: 3A 99 C7 28 39 39 29 3B 3A 82 00 6A 0E 30 02 99 |:..(99);:..j.0..|
00000650: 22 20 30 4E 53 4B 45 53 20 47 45 4E 4B 30 52 53 |" 0NSKES GENK0RS|
00000660: 45 4C 20 28 4A 2F 4E 29 20 22 00 7D 0E 3A 02 A1 |EL (J/N) ".}.:..|
00000670: 41 24 3A 8B 41 24 B2 22 22 A7 35 37 30 00 8D 0E |A$:.A$."".570...|
00000680: 44 02 8B 41 24 B2 22 4A 22 A7 32 31 30 00 9B 0E |D..A$."J".210...|
00000690: 4E 02 8B 41 24 B2 22 4E 22 A7 8A 00 B4 0E 58 02 |N..A$."N".....X.|
000006A0: 8B 41 24 B3 B1 22 4A 22 AF 41 24 B3 B1 22 4E 22 |.A$.."J".A$.."N"|
000006B0: A7 35 37 30 00 BA 0E 62 02 8F 00 CE 0E 6C 02 8F |.570...b.....l..|
000006C0: 20 53 43 52 4F 4C 4C 20 52 55 54 49 4E 45 00 D4 | SCROLL RUTINE..|
000006D0: 0E 76 02 8F 00 F4 0E 80 02 8B 49 B2 31 36 A7 97 |.v........I.16..|
000006E0: 37 38 31 2C 32 32 3A 97 37 38 32 2C 30 3A 9E 36 |781,22:.782,0:.6|
000006F0: 35 35 32 30 00 2B 0F 8A 02 8B 49 B2 31 36 A7 81 |5520.+....I.16..|
00000700: 45 B2 31 A4 34 30 3A 99 C7 28 39 39 29 3B 3A 82 |E.1.40:..(99);:.|
00000710: 3A 99 22 54 41 53 54 20 3C 53 50 41 43 45 3E 20 |:."TAST <SPACE> |
00000720: 46 4F 52 20 53 43 52 4F 4C 4C 22 00 45 0F 94 02 |FOR SCROLL".E...|
00000730: 97 37 38 31 2C 32 31 3A 97 37 38 32 2C 30 3A 9E |.781,21:.782,0:.|
00000740: 36 35 35 32 30 00 58 0F 9E 02 A1 41 24 3A 8B 41 |65520.X....A$:.A|
00000750: 24 B2 22 22 A7 36 37 30 00 85 0F A8 02 97 37 38 |$."".670......78|
00000760: 31 2C 32 31 3A 97 37 38 32 2C 30 3A 9E 36 35 35 |1,21:.782,0:.655|
00000770: 32 30 3A 81 44 B2 31 A4 34 30 3A 99 C7 28 33 32 |20:.D.1.40:..(32|
00000780: 29 3B 3A 82 44 00 98 0F B2 02 99 C7 28 31 34 35 |);:.D.......(145|
00000790: 29 3B C7 28 31 34 35 29 00 A3 0F BC 02 97 36 34 |);.(145)......64|
000007A0: 36 2C 37 00 A9 0F C6 02 8E 00 00 00 |6,7......... |
........!.... -AFBETADYGSPROGRAM-.;....
ARTISAN DATA 1985.T.(.. CARSTEN ANDE
RSEN.L.2.. JOHN HVIDLYKKE.R.<.....F..
.A(X)..((X.100)..5).100...P..53280,6:.53
281,6:.646,1...Z..G(147):.:.:....D...2):
.G(111);:.A.1.32:.G(183);:.:.G(112)...N.
.B.0.11:..2):.G(180);:..35);:.G(170):..C
.X...2):.G(108);:.A.1.32:.G(175);:.:.G(1
86).D....781,6:.782,10:.783,0:.65520.~..
.."AFBETALINGSPROGRAM"......:.... ...4);
"COPYRIGHT: ARTISAN DATA 1985".Q....:..4
);"IDE: CARSTEN ANDERSEN"......:..4);"PR
OGRAMMERING: CARSTEN ANDERSEN"......:..1
9);"JOHN HVIDLYKKE"...H..A$:.A$."".200.K
.R..G(147):.G(18);" AFBETAL
ING "......781,3:.782,10:.
65520......"ARTISAN DATA 1985"......781
,9:.782,0:.65520.M...."INDTAST GAELD"...
...:."INDTAST RENTESATS"......:."INDTAST
ANTAL TERMINER"."....781,9:.782,15:.655
20.?."..GAELD$:.E(GAELD$).0.280.Z.,..781
,11:.782,19:.65520.W.6..PCT$:.E(PCT$).0.
117N300...@..781,13:.782,24:.65520...J..
N$:.E(N$).0.320.A.T..781,22:.782,0:.6552
0...^..G(18);" DATA OK (J/N
) "...H..A$:.A$."N".210...R.
.A$.."J".360.D.|.GAELD.E(GAELD$):PCT.E(P
CT$):N.E(N$).R...YDELSE.GAELD.PCT.(100.(
1.(1.PCT.100)..N)).~....G(147)......C.1.
39:.G(18);G(32);:.:.781,1:.782,0:.65520.
.....G(18);"STARTGAELD:".A(GAELD)"PCT:".
A(PCT)"TERMINER:".A(N)......781,3:.782,0
:.65520.-...."TERMINSYDELSE (KR.):".A(YD
ELSE).3.B...A.L.."TERMIN RENTE AFD
RAG RESTGAELD".W.V..A.1.39:.G(99);:..
}..........I.1.N.G...RENTE.GAELD.PCT.100
:AFDRAG.YDELSE.RENTE:GAELD.GAELD.AFDRAG.
V....I.15..610.......A(I).7).A(RENTE).18
).A(AFDRAG).28).A(GAELD).'....I.N..781,2
2:.782,0:.65520.4....:.646,1.J.&..A.1.39
:.G(99);:..J.0.." 0NSKES GENK0RSEL (J/N)
".}.:..A$:.A$."".570...D..A$."J".210...
N..A$."N".....X..A$.."J".A$.."N".570...B
...N.L.. SCROLL RUTINE.T.V........I.16..
781,22:.782,0:.65520.+....I.16..E.1.40:.
G(99);:.:."TAST <SPACE> FOR SCROLL".E...
.781,21:.782,0:.65520.X....A$:.A$."".670
......781,21:.782,0:.65520:.D.1.40:.G(32
);:.D......G(145);G(145)......646,7...F.
....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL