> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 46 08 01 00 8D 31 30 3A 89 31 30 30 30 3A |..F....10:.1000:|
00000010: 8F 20 43 4F 50 59 52 49 47 48 54 20 43 4F 4D 4D |. COPYRIGHT COMM|
00000020: 4F 44 4F 52 45 20 44 41 54 41 20 41 2F 53 2F 52 |ODORE DATA A/S/R|
00000030: 53 2D 44 41 54 41 20 5C 53 54 20 41 50 53 2D 31 |S-DATA \ST APS-1|
00000040: 38 2F 37 2F 38 32 00 7A 08 0A 00 56 44 24 B2 22 |8/7/82.z...VD$."|
00000050: 52 53 2D 54 49 50 53 20 2D 20 50 52 4F 47 52 41 |RS-TIPS - PROGRA|
00000060: 4D 22 3A 48 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |M":H$.".........|
00000070: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 C0 08 14 00 53 |.........".....S|
00000080: 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |P$." |
00000090: 20 20 20 20 20 20 20 20 20 22 3A 43 52 24 B2 C7 | ":CR$..|
000000A0: 28 31 33 29 3A 4E 24 B2 22 13 11 11 11 11 11 11 |(13):N$.".......|
000000B0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |..............."|
000000C0: 00 CF 08 1E 00 86 52 53 25 28 31 33 2C 33 29 00 |......RS%(13,3).|
000000D0: 01 09 28 00 46 31 24 B2 22 49 4E 44 54 41 53 54 |..(.F1$."INDTAST|
000000E0: 20 46 4F 52 44 45 4C 49 4E 47 22 3A 46 32 24 B2 | FORDELING":F2$.|
000000F0: 22 55 44 53 4B 52 49 56 20 52 5B 4B 4B 45 52 20 |"UDSKRIV R[KKER |
00000100: 22 00 1C 09 3C 00 46 38 24 B2 22 41 46 53 4C 55 |"...<.F8$."AFSLU|
00000110: 54 20 50 52 4F 47 52 41 4D 22 3A 8E 00 36 09 E8 |T PROGRAM":..6..|
00000120: 03 99 22 93 12 20 20 22 AA 56 44 24 AA 22 20 20 |..".. ".VD$." |
00000130: 92 22 3A 99 3A 99 00 5A 09 F2 03 99 22 11 12 46 |.":.:..Z...."..F|
00000140: 31 92 20 20 2D 22 AA 46 31 24 3A 99 22 11 12 46 |1. -".F1$:."..F|
00000150: 32 92 20 20 2D 22 AA 46 32 24 00 6E 09 FC 03 99 |2. -".F2$.n....|
00000160: 22 11 12 46 38 92 20 20 2D 22 AA 46 38 24 00 82 |"..F8. -".F8$..|
00000170: 09 1A 04 A1 43 24 3A 8B 43 24 B2 22 22 A7 31 30 |....C$:.C$."".10|
00000180: 35 30 00 A0 09 1F 04 43 B2 C5 28 43 24 29 3A 8B |50.....C..(C$):.|
00000190: 28 43 B3 31 29 B0 28 43 B1 38 29 A7 31 30 35 30 |(C.1).(C.8).1050|
000001A0: 00 D2 09 24 04 91 43 89 31 30 30 30 30 2C 31 31 |...$..C.10000,11|
000001B0: 30 30 30 2C 31 30 35 30 2C 31 30 35 30 2C 31 30 |000,1050,1050,10|
000001C0: 35 30 2C 31 30 35 30 2C 31 30 35 30 2C 31 37 30 |50,1050,1050,170|
000001D0: 30 30 00 E3 09 10 27 99 22 93 22 3B 46 31 24 3A |00....'.".";F1$:|
000001E0: 99 3A 99 00 FF 09 1A 27 99 22 2A 20 44 45 52 20 |.:.....'."* DER |
000001F0: 53 4B 41 4C 20 49 4E 44 54 41 53 54 45 53 22 00 |SKAL INDTASTES".|
00000200: 1B 0A 24 27 99 22 20 20 46 4F 52 44 45 4C 49 4E |..$'." FORDELIN|
00000210: 47 20 46 4F 52 20 48 56 45 52 22 00 39 0A 2E 27 |G FOR HVER".9..'|
00000220: 99 22 20 20 4B 41 4D 50 20 50 5D 20 4B 55 50 4F |." KAMP P] KUPO|
00000230: 4E 45 4E 3A 22 3A 99 3A 99 00 56 0A 30 27 99 22 |NEN:":.:..V.0'."|
00000240: 2A 20 53 5D 44 41 4E 4E 45 20 46 4F 52 44 45 4C |* S]DANNE FORDEL|
00000250: 49 4E 47 45 52 22 00 73 0A 32 27 99 22 20 20 4B |INGER".s.2'." K|
00000260: 41 4E 20 4C 5B 53 45 53 20 49 20 41 44 53 4B 49 |AN L[SES I ADSKI|
00000270: 4C 2D 22 00 90 0A 34 27 99 22 20 20 4C 49 47 45 |L-"...4'." LIGE|
00000280: 20 42 4C 41 44 45 20 20 20 20 20 20 20 20 20 22 | BLADE "|
00000290: 00 AC 0A 35 27 99 22 2A 2A 20 54 41 53 54 20 12 |...5'."** TAST .|
000002A0: 4A 92 20 4E 5D 52 20 4B 4C 41 52 22 00 C3 0A 36 |J. N]R KLAR"...6|
000002B0: 27 A1 59 24 3A 8B 59 24 B3 B1 22 4A 22 A7 31 30 |'.Y$:.Y$.."J".10|
000002C0: 30 33 38 00 E8 0A 37 27 99 22 93 22 3B 22 12 2A |038...7'.".";".*|
000002D0: 22 AA 46 31 24 AA 22 2A 92 22 3A 8D 31 30 30 34 |".F1$."*.":.1004|
000002E0: 30 3A 89 31 30 31 32 30 00 01 0B 38 27 99 22 4B |0:.10120...8'."K|
000002F0: 41 4D 50 20 20 20 20 2A 20 41 4E 54 41 4C 20 2A |AMP * ANTAL *|
00000300: 22 00 1B 0B 42 27 99 22 20 4E 52 2E 20 20 20 2D |"...B'." NR. -|
00000310: 31 2D 20 2D 58 2D 20 2D 32 2D 22 00 35 0B 4C 27 |1- -X- -2-".5.L'|
00000320: 99 22 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 |."..............|
00000330: D2 D2 D2 D2 22 00 64 0B 56 27 99 22 20 31 2E 22 |....".d.V'." 1."|
00000340: 3A 99 22 20 32 2E 22 3A 99 22 20 33 2E 22 3A 99 |:." 2.":." 3.":.|
00000350: 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |"...............|
00000360: C3 C3 C3 22 00 93 0B 60 27 99 22 20 34 2E 22 3A |..."...`'." 4.":|
00000370: 99 22 20 35 2E 22 3A 99 22 20 36 2E 22 3A 99 22 |." 5.":." 6.":."|
00000380: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000390: C3 C3 22 00 C2 0B 6A 27 99 22 20 37 2E 22 3A 99 |.."...j'." 7.":.|
000003A0: 22 20 38 2E 22 3A 99 22 20 39 2E 22 3A 99 22 C3 |" 8.":." 9.":.".|
000003B0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000003C0: C3 22 00 FA 0B 74 27 99 22 31 30 2E 22 3A 99 22 |."...t'."10.":."|
000003D0: 31 31 2E 22 3A 99 22 31 32 2E 22 3A 99 22 31 33 |11.":."12.":."13|
000003E0: 2E 22 3A 99 22 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |.":."...........|
000003F0: C5 C5 C5 C5 C5 C5 C5 22 3A 8E 00 0C 0C 88 27 58 |.......":.....'X|
00000400: B2 31 3A 59 B2 31 3A 4C 4C 25 B2 32 00 4C 0C 92 |.1:Y.1:LL%.2.L..|
00000410: 27 4E B2 34 AA 58 AA B5 28 28 58 AB 2E 35 29 AD |'N.4.X..((X..5).|
00000420: 33 29 AA 28 58 B2 31 33 29 3A 48 B2 34 AA 34 AC |3).(X.13):H.4.4.|
00000430: 59 3A 43 54 24 B2 C8 28 4E 24 2C 4E 29 AA C8 28 |Y:CT$..(N$,N)..(|
00000440: 48 24 2C 48 29 3A 8D 35 30 30 30 30 00 82 0C 9C |H$,H):.50000....|
00000450: 27 8B 28 C5 28 43 49 24 29 B1 39 39 29 B0 28 C5 |'.(.(CI$).99).(.|
00000460: 28 43 49 24 29 B3 31 29 B0 28 C5 28 43 49 24 29 |(CI$).1).(.(CI$)|
00000470: B3 B1 B5 28 C5 28 43 49 24 29 29 29 A7 31 30 31 |...(.(CI$))).101|
00000480: 33 30 00 96 0C A6 27 52 53 25 28 58 2C 59 29 B2 |30....'RS%(X,Y).|
00000490: C5 28 43 49 24 29 00 AC 0C B0 27 8B 59 B3 33 A7 |.(CI$)....'.Y.3.|
000004A0: 59 B2 59 AA 31 3A 89 31 30 31 33 30 00 C7 0C BA |Y.Y.1:.10130....|
000004B0: 27 8B 58 B3 31 33 A7 59 B2 31 3A 58 B2 58 AA 31 |'.X.13.Y.1:X.X.1|
000004C0: 3A 89 31 30 31 33 30 00 D1 0C 94 2A 89 31 30 30 |:.10130....*.100|
000004D0: 30 00 EF 0C F8 2A 99 22 93 22 3B 22 12 2A 22 AA |0....*.".";".*".|
000004E0: 46 32 24 AA 22 2A 92 22 3A 8D 31 30 30 34 30 00 |F2$."*.":.10040.|
000004F0: 05 0D 5C 2B 54 31 24 B2 20 20 22 1D 1D 1D 1D 1D |..\+T1$. ".....|
00000500: 20 20 20 31 22 00 1F 0D 66 2B 54 58 24 B2 20 20 | 1"...f+TX$. |
00000510: 22 1D 1D 1D 1D 1D 20 20 20 20 20 20 20 58 22 00 |"..... X".|
00000520: 3E 0D 70 2B 54 32 24 B2 20 20 22 1D 1D 1D 1D 1D |>.p+T2$. ".....|
00000530: 20 20 20 20 20 20 20 20 20 20 20 32 20 22 00 46 | 2 ".F|
00000540: 0D C0 2B 58 B2 31 00 6F 0D CA 2B 4E B2 34 AA 58 |..+X.1.o..+N.4.X|
00000550: AA B5 28 28 58 AB 2E 35 29 AD 33 29 AA 28 58 B2 |..((X..5).3).(X.|
00000560: 31 33 29 3A 43 54 24 B2 C8 28 4E 24 2C 4E 29 00 |13):CT$..(N$,N).|
00000570: 97 0D D4 2B 5A B2 BB 28 30 29 AC 28 52 53 25 28 |...+Z..(0).(RS%(|
00000580: 58 2C 31 29 AA 52 53 25 28 58 2C 32 29 AA 52 53 |X,1).RS%(X,2).RS|
00000590: 25 28 58 2C 33 29 29 00 B5 0D DE 2B 50 24 B2 54 |%(X,3))....+P$.T|
000005A0: 31 24 3A 8B 5A B1 52 53 25 28 58 2C 31 29 A7 50 |1$:.Z.RS%(X,1).P|
000005B0: 24 B2 54 58 24 00 D7 0D E8 2B 8B 5A B1 28 52 53 |$.TX$....+.Z.(RS|
000005C0: 25 28 58 2C 31 29 AA 52 53 25 28 58 2C 32 29 29 |%(X,1).RS%(X,2))|
000005D0: A7 50 24 B2 54 32 24 00 F6 0D F2 2B 99 43 54 24 |.P$.T2$....+.CT$|
000005E0: 3B 50 24 3A 8B 58 B3 31 33 A7 58 B2 58 AA 31 3A |;P$:.X.13.X.X.1:|
000005F0: 89 31 31 32 31 30 00 16 0E 24 2C 99 4E 24 AA 22 |.11210...$,.N$."|
00000600: 12 4E 92 3D 4E 59 20 52 5B 4B 4B 45 2F 12 53 92 |.N.=NY R[KKE/.S.|
00000610: 3D 53 4C 55 54 22 00 2B 0E 2E 2C A1 59 24 3A 8B |=SLUT".+..,.Y$:.|
00000620: 59 24 B2 22 22 A7 31 31 33 31 30 00 3D 0E 38 2C |Y$."".11310.=.8,|
00000630: 8B 59 24 B2 22 4E 22 A7 31 31 30 30 30 00 4E 0E |.Y$."N".11000.N.|
00000640: 42 2C 8B 59 24 B2 22 53 22 A7 31 30 30 30 00 59 |B,.Y$."S".1000.Y|
00000650: 0E 4C 2C 89 31 31 33 31 30 00 61 0E 68 42 A2 3A |.L,.11310.a.hB.:|
00000660: 80 00 8A 0E 50 C3 43 49 24 B2 22 22 3A 99 43 54 |....P.CI$."":.CT|
00000670: 24 3B C8 28 53 50 24 2C 4C 4C 25 AA 31 29 3B 3A |$;.(SP$,LL%.1);:|
00000680: 99 43 54 24 3B 3A 4C 25 B2 30 00 9F 0E 51 C3 A1 |.CT$;:L%.0...Q..|
00000690: 43 24 3A 8B 43 24 B2 22 22 A7 35 30 30 31 32 00 |C$:.C$."".50012.|
000006A0: C8 0E 52 C3 43 48 B2 C6 28 43 24 29 3A 8B 43 48 |..R.CH..(C$):.CH|
000006B0: B2 31 33 B0 43 48 B2 31 34 31 A7 43 24 B2 43 52 |.13.CH.141.C$.CR|
000006C0: 24 3A 89 35 30 30 30 37 00 00 0F 53 C3 8B 43 48 |$:.50007...S..CH|
000006D0: B2 34 34 B0 43 48 B2 33 34 B0 43 48 B2 35 38 B0 |.44.CH.34.CH.58.|
000006E0: 43 48 B2 35 39 B0 28 43 48 B3 33 32 B0 43 48 B1 |CH.59.(CH.32.CH.|
000006F0: 39 33 29 AF 43 48 B3 B1 32 30 A7 35 30 30 30 31 |93).CH..20.50001|
00000700: 00 1A 0F 54 C3 8B 43 48 B2 32 30 A7 4C 25 B2 4C |...T..CH.20.L%.L|
00000710: 25 AB 31 3A 89 35 30 30 31 30 00 4A 0F 55 C3 4C |%.1:.50010.J.U.L|
00000720: 25 B2 4C 25 AA 31 3A 99 43 24 3B 3A 8B 4C 25 B1 |%.L%.1:.C$;:.L%.|
00000730: 4C 4C 25 A7 4C 25 B2 4C 25 AB 31 3A 99 C7 28 32 |LL%.L%.L%.1:..(2|
00000740: 30 29 3B 3A 89 35 30 30 30 31 00 60 0F 56 C3 43 |0);:.50001.`.V.C|
00000750: 49 24 B2 43 49 24 AA 43 24 3A 89 35 30 30 30 31 |I$.CI$.C$:.50001|
00000760: 00 74 0F 57 C3 8B C3 28 43 49 24 29 B1 30 A7 35 |.t.W...(CI$).0.5|
00000770: 30 30 30 39 00 87 0F 58 C3 99 22 9D 20 20 22 3B |0009...X..". ";|
00000780: 3A 89 35 30 30 30 30 00 93 0F 59 C3 99 22 20 22 |:.50000...Y.." "|
00000790: 3B 3A 8E 00 A7 0F 5A C3 8B C3 28 43 49 24 29 B3 |;:....Z...(CI$).|
000007A0: 32 A7 35 30 30 30 38 00 D0 0F 5B C3 99 22 9D 20 |2.50008...[..". |
000007B0: 20 9D 9D 22 3B 3A 43 49 24 B2 C8 28 43 49 24 2C | ..";:CI$..(CI$,|
000007C0: C3 28 43 49 24 29 AB 31 29 3A 89 35 30 30 30 31 |.(CI$).1):.50001|
000007D0: 00 E3 0F 5C C3 99 22 12 20 22 3B 22 9D 22 3B 22 |...\..". ";".";"|
000007E0: 92 22 3B 00 F9 0F 5D C3 A1 43 24 3A 8B 43 24 B3 |.";...]..C$:.C$.|
000007F0: B1 22 22 A7 35 30 30 30 32 00 04 10 5E C3 89 35 |."".50002...^..5|
00000800: 30 30 31 32 00 00 00 F0 00 |0012..... |
..F....10:.1000:. COPYRIGHT COMMODORE DA
TA A/S/RS-DATA \ST APS-18/7/82.Z...VD$."
RS-TIPS - PROGRAM":H$.".................
.".....SP$." ":CR$.G
(13):N$."......................".O....RS
%(13,3)...(.F1$."INDTAST FORDELING":F2$.
"UDSKRIV R[KKER "...<.F8$."AFSLUT PROGRA
M":..6....".. ".VD$." .":.:..Z...."..F
1. -".F1$:."..F2. -".F2$.N...."..F8.
-".F8$......C$:.C$."".1050. ...C.E(C$):.
(C.1).(C.8).1050.R.$..C.10000,11000,1050
,1050,1050,1050,1050,17000....'.".";F1$:
.:.....'."* DER SKAL INDTASTES"...$'."
FORDELING FOR HVER".9..'." KAMP P] KUPO
NEN:":.:..V.0'."* S]DANNE FORDELINGER".S
.2'." KAN L[SES I ADSKIL-"...4'." LIGE
BLADE "...5'."** TAST .J. N]R K
LAR".C.6'.Y$:.Y$.."J".10038...7'.".";".*
".F1$."*.":.10040:.10120...8'."KAMP *
ANTAL *"...B'." NR. -1- -X- -2-".5.L'
."RRRRRRRRRRRRRRRRRR".D.V'." 1.":." 2.":
." 3.":."CCCCCCCCCCCCCCCCCC"...`'." 4.":
." 5.":." 6.":."CCCCCCCCCCCCCCCCCC".B.J'
." 7.":." 8.":." 9.":."CCCCCCCCCCCCCCCCC
C"...T'."10.":."11.":."12.":."13.":."EEE
EEEEEEEEEEEEEEE":.....'X.1:Y.1:LL%.2.L..
'N.4.X..((X..5).3).(X.13):H.4.4.Y:CT$.H(
N$,N).H(H$,H):.50000....'.(E(CI$).99).(E
(CI$).1).(E(CI$)...(E(CI$))).10130....'R
S%(X,Y).E(CI$)....'.Y.3.Y.Y.1:.10130.G..
'.X.13.Y.1:X.X.1:.10130.Q..*.1000....*."
.";".*".F2$."*.":.10040...\+T1$. ".....
1"...F+TX$. "..... X".>.P+T2$.
"..... 2 ".F..+X.1.O.J+N.4.X
..((X..5).3).(X.13):CT$.H(N$,N)...T+Z..(
0).(RS%(X,1).RS%(X,2).RS%(X,3))....+P$.T
1$:.Z.RS%(X,1).P$.TX$.W..+.Z.(RS%(X,1).R
S%(X,2)).P$.T2$....+.CT$;P$:.X.13.X.X.1:
.11210...$,.N$.".N.=NY R[KKE/.S.=SLUT".+
..,.Y$:.Y$."".11310.=.8,.Y$."N".11000.N.
B,.Y$."S".1000.Y.L,.11310.A.HB.:....PCCI
$."":.CT$;H(SP$,LL%.1);:.CT$;:L%.0...QC.
C$:.C$."".50012.H.RCCH.F(C$):.CH.13.CH.1
41.C$.CR$:.50007...SC.CH.44.CH.34.CH.58.
CH.59.(CH.32.CH.93).CH..20.50001...TC.CH
.20.L%.L%.1:.50010.J.UCL%.L%.1:.C$;:.L%.
LL%.L%.L%.1:.G(20);:.50001.`.VCCI$.CI$.C
$:.50001.T.WC.C(CI$).0.50009...XC.". ";
:.50000...YC." ";:....ZC.C(CI$).2.50008.
P.[C.". ..";:CI$.H(CI$,C(CI$).1):.50001
...\C.". ";".";".";...]C.C$:.C$.."".5000
2...^C.50012.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL