> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 48 08 05 00 41 24 B2 22 50 22 3A 42 24 B2 |..H...A$."P":B$.|
00000010: 22 50 22 3A 43 24 B2 22 50 22 3A 44 24 B2 22 50 |"P":C$."P":D$."P|
00000020: 22 3A 44 B2 31 3A 46 B2 31 3A 48 32 B2 31 3A 48 |":D.1:F.1:H2.1:H|
00000030: 31 B2 31 3A 50 52 47 24 B2 22 4F 4B 22 3A 5A 24 |1.1:PRG$."OK":Z$|
00000040: B2 22 2C 22 3A 47 B2 31 00 8B 08 0A 00 5A B2 32 |.",":G.1.....Z.2|
00000050: 32 30 30 3A 20 86 20 46 24 28 5A 29 2C 52 28 5A |200: . F$(Z),R(Z|
00000060: 29 2C 4C 28 5A 29 2C 4E 24 28 5A 29 3A 44 B2 31 |),L(Z),N$(Z):D.1|
00000070: 3A 46 B2 31 3A 46 24 28 31 29 B2 22 48 41 52 20 |:F.1:F$(1)."HAR |
00000080: 44 45 54 20 54 41 53 54 45 52 22 00 B1 08 14 00 |DET TASTER".....|
00000090: 58 B2 31 3A 8D 33 30 3A 99 22 93 22 3A 99 22 4E |X.1:.30:.".":."N|
000000A0: 59 20 47 45 4E 4E 45 4D 47 41 4E 47 22 3A 89 32 |Y GENNEMGANG":.2|
000000B0: 30 00 EA 08 1E 00 99 46 24 28 58 29 3A 85 20 41 |0......F$(X):. A|
000000C0: 24 3A 41 24 B2 C7 28 C6 28 C8 28 41 24 2C 31 29 |$:A$..(.(.(A$,1)|
000000D0: 29 AF 31 32 37 29 3A 8B 41 24 B2 22 4A 22 AF 52 |).127):.A$."J".R|
000000E0: 28 58 29 B2 30 A7 20 31 30 30 00 11 09 23 00 8B |(X).0. 100...#..|
000000F0: 20 41 24 B2 22 5F 22 20 A7 20 8D 20 32 31 30 3A | A$."_" . . 210:|
00000100: 89 33 30 3A 8F 20 2A 20 55 44 42 59 47 4E 49 4E |.30:. * UDBYGNIN|
00000110: 47 00 2A 09 28 00 8B 20 41 24 B2 22 4E 22 AF 20 |G.*.(.. A$."N". |
00000120: 4C 28 58 29 B2 30 A7 31 30 30 00 4D 09 32 00 8B |L(X).0.100.M.2..|
00000130: 20 41 24 B2 22 4A 22 AF 52 28 58 29 B3 30 20 A7 | A$."J".R(X).0 .|
00000140: 20 41 B2 AB 52 28 58 29 3A 89 31 31 30 00 6F 09 | A..R(X):.110.o.|
00000150: 3C 00 8B 41 24 B2 22 4E 22 AF 4C 28 58 29 B3 30 |<..A$."N".L(X).0|
00000160: 20 A7 20 41 B2 AB 4C 28 58 29 3A 89 31 31 30 00 | . A..L(X):.110.|
00000170: 87 09 46 00 8B 41 24 B2 22 4A 22 A7 20 58 B2 52 |..F..A$."J". X.R|
00000180: 28 58 29 3A 89 33 30 00 9F 09 50 00 8B 41 24 B2 |(X):.30...P..A$.|
00000190: 22 4E 22 A7 20 58 B2 4C 28 58 29 3A 89 33 30 00 |"N". X.L(X):.30.|
000001A0: B6 09 64 00 48 31 B2 44 AA 31 3A 48 32 B2 30 3A |..d.H1.D.1:H2.0:|
000001B0: 8D 31 34 30 3A 8E 00 E3 09 6E 00 99 22 45 52 20 |.140:....n.."ER |
000001C0: 44 45 54 20 22 4E 24 28 41 29 3A 85 42 24 3A 42 |DET "N$(A):.B$:B|
000001D0: 24 B2 C7 28 C6 28 C8 28 42 24 2C 31 29 29 AF 31 |$..(.(.(B$,1)).1|
000001E0: 32 37 29 00 15 0A 78 00 8B 42 24 B2 22 4A 22 A7 |27)...x..B$."J".|
000001F0: 99 22 44 45 54 20 54 41 45 4E 4B 54 45 20 4A 45 |."DET TAENKTE JE|
00000200: 47 20 4E 4F 4B 21 22 3A 81 50 41 B2 31 A4 33 30 |G NOK!":.PA.1.30|
00000210: 30 3A 82 3A 8E 00 2D 0A 82 00 48 31 B2 46 AA 31 |0:.:..-...H1.F.1|
00000220: 3A 48 32 B2 AB 41 3A 8D 31 34 30 3A 8E 00 62 0A |:H2..A:.140:..b.|
00000230: 8C 00 99 22 4A 45 47 20 4B 45 4E 44 45 52 20 49 |..."JEG KENDER I|
00000240: 4B 4B 45 20 47 45 4E 53 54 41 4E 44 45 4E 2E 20 |KKE GENSTANDEN. |
00000250: 48 56 41 44 20 45 52 20 44 45 54 3F 22 3A 85 20 |HVAD ER DET?":. |
00000260: 42 24 00 AB 0A 96 00 99 22 48 56 4F 52 44 41 4E |B$......"HVORDAN|
00000270: 20 4C 59 44 45 52 20 53 50 5C 52 47 53 4D 41 41 | LYDER SP\RGSMAA|
00000280: 4C 45 54 20 46 4F 52 20 41 54 20 42 45 53 54 45 |LET FOR AT BESTE|
00000290: 4D 4D 45 20 47 45 4E 53 54 41 4E 44 45 4E 3F 22 |MME GENSTANDEN?"|
000002A0: 3A 85 20 43 24 3A 4E B2 4E AA 31 00 DE 0A A0 00 |:. C$:N.N.1.....|
000002B0: 4E 24 28 4E 29 B2 42 24 3A 46 B2 46 AA 31 3A 46 |N$(N).B$:F.F.1:F|
000002C0: 24 28 46 29 B2 43 24 3A 44 B2 44 AA 31 3A 8B 41 |$(F).C$:D.D.1:.A|
000002D0: 24 B2 22 4A 22 A7 20 52 28 58 29 B2 48 31 00 02 |$."J". R(X).H1..|
000002E0: 0B AA 00 52 28 44 29 B2 AB 4E 3A 4C 28 44 29 B2 |...R(D)..N:L(D).|
000002F0: 48 32 3A 8B 41 24 B2 22 4E 22 A7 4C 28 58 29 B2 |H2:.A$."N".L(X).|
00000300: 48 31 00 39 0B B4 00 99 22 48 56 41 44 20 45 52 |H1.9...."HVAD ER|
00000310: 20 53 56 41 52 45 54 20 50 41 41 20 22 43 24 3B | SVARET PAA "C$;|
00000320: 3A 85 44 24 3A 44 24 B2 C7 28 C6 28 C8 28 43 24 |:.D$:D$..(.(.(C$|
00000330: 2C 31 29 29 AF 31 32 37 29 00 55 0B BE 00 8B 44 |,1)).127).U....D|
00000340: 24 B2 22 4E 22 A7 4C 28 44 29 B2 AB 4E 3A 52 28 |$."N".L(D)..N:R(|
00000350: 44 29 B2 48 32 00 5B 0B C8 00 8E 00 88 0B C9 00 |D).H2.[.........|
00000360: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000380: 2A 2A 2A 2A 2A 2A 2A 2A 00 B5 0B CA 00 8F 20 2A |********...... *|
00000390: 20 55 44 42 59 47 4E 49 4E 47 20 41 46 20 4C 41 | UDBYGNING AF LA|
000003A0: 45 52 45 4E 45 4D 20 41 46 3A 20 43 4F 4D 50 55 |ERENEM AF: COMPU|
000003B0: 54 45 52 20 2A 00 E2 0B CB 00 8F 20 2A 20 2D 2D |TER *...... * --|
000003C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000003D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000003E0: 20 2A 00 0F 0C CC 00 8F 20 2A 20 20 20 20 20 4C | *...... * L|
000003F0: 4F 41 44 2F 53 41 56 45 20 54 49 4C 20 42 41 41 |OAD/SAVE TIL BAA|
00000400: 4E 44 2F 44 49 53 4B 20 20 20 20 20 20 20 2A 00 |ND/DISK *.|
00000410: 3C 0C CD 00 8F 20 2A 20 20 20 20 20 20 20 20 20 |<.... * |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430: 20 20 20 20 20 20 20 20 20 20 20 2A 00 69 0C CE | *.i..|
00000440: 00 8F 20 2A 20 42 41 53 49 43 20 41 46 20 4A 41 |.. * BASIC AF JA|
00000450: 43 4F 42 20 48 45 49 42 45 52 47 20 28 43 29 43 |COB HEIBERG (C)C|
00000460: 4F 4D 50 55 54 45 52 20 2A 00 96 0C CF 00 8F 20 |OMPUTER *...... |
00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000490: 2A 2A 2A 2A 2A 2A 00 D5 0C D2 00 99 C7 28 31 34 |******.......(14|
000004A0: 37 29 22 4C 4F 41 44 2F 53 41 56 45 20 44 45 4C |7)"LOAD/SAVE DEL|
000004B0: 45 4E 20 41 46 20 4C 41 45 52 45 4E 45 4D 20 20 |EN AF LAERENEM |
000004C0: 20 41 46 3A 20 4A 41 43 4F 42 20 48 45 49 42 45 | AF: JACOB HEIBE|
000004D0: 52 47 22 3A 99 00 F7 0C DC 00 85 22 28 4C 29 4F |RG":......."(L)O|
000004E0: 41 44 2F 28 53 29 41 56 45 20 20 20 3A 20 20 53 |AD/(S)AVE : S|
000004F0: 9D 9D 9D 22 3B 41 24 00 1E 0D E6 00 85 22 11 28 |...";A$......".(|
00000500: 42 29 41 91 9D 2E 11 4E 44 2F 28 44 29 49 53 4B |B)A....ND/(D)ISK|
00000510: 20 20 20 3A 20 20 44 9D 9D 9D 22 3B 42 24 00 41 | : D...";B$.A|
00000520: 0D F0 00 85 22 11 4E 41 56 4E 20 50 41 91 9D 2E |....".NAVN PA...|
00000530: 11 20 44 41 54 41 46 49 4C 20 3A 22 3B 50 52 47 |. DATAFIL :";PRG|
00000540: 24 00 4D 0D F5 00 99 C7 28 31 34 37 29 00 53 0D |$.M.....(147).S.|
00000550: FA 00 3A 00 6E 0D 04 01 3A 20 44 56 B2 38 3A 8B |..:.n...: DV.8:.|
00000560: 20 42 24 B2 22 42 22 20 A7 20 44 56 B2 31 00 86 | B$."B" . DV.1..|
00000570: 0D 09 01 3A 20 8B 20 44 56 B2 38 20 A7 20 9F 31 |...: . DV.8 . .1|
00000580: 35 2C 38 2C 31 35 00 A7 0D 0E 01 3A 20 8B 20 41 |5,8,15.....: . A|
00000590: 24 B2 22 4C 22 20 A7 20 8D 20 34 32 30 3A 20 8F |$."L" . . 420: .|
000005A0: 20 2A 20 4C 4F 41 44 00 C8 0D 18 01 3A 20 8B 20 | * LOAD.....: . |
000005B0: 41 24 B2 22 53 22 20 A7 20 8D 20 33 33 30 3A 20 |A$."S" . . 330: |
000005C0: 8F 20 2A 20 53 41 56 45 00 D4 0D 1D 01 99 C7 28 |. * SAVE.......(|
000005D0: 31 34 37 29 00 FC 0D 22 01 3A 20 8B 20 44 56 B2 |147)...".: . DV.|
000005E0: 38 20 A7 20 99 22 44 49 53 4B 20 53 54 41 54 55 |8 . ."DISK STATU|
000005F0: 53 3A 22 3B 51 2C 57 24 3A A0 31 35 00 15 0E 2C |S:";Q,W$:.15...,|
00000600: 01 3A 20 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 |.: . A$:. A$."" |
00000610: A7 20 33 30 30 00 1B 0E 36 01 8E 00 2F 0E 40 01 |. 300...6.../.@.|
00000620: 8F 20 20 2A 2A 20 53 41 56 45 20 44 41 54 41 00 |. ** SAVE DATA.|
00000630: 50 0E 4A 01 3A 20 9F 20 33 2C 44 56 2C 33 2C 22 |P.J.: . 3,DV,3,"|
00000640: 40 30 3A 22 AA 50 52 47 24 AA 22 2C 53 2C 57 22 |@0:".PRG$.",S,W"|
00000650: 00 79 0E 4F 01 3A 20 8B 20 44 56 B2 38 20 A7 20 |.y.O.: . DV.8 . |
00000660: 84 31 35 2C 51 2C 57 24 2C 45 2C 52 3A 8B 20 51 |.15,Q,W$,E,R:. Q|
00000670: B3 B1 30 20 A7 20 33 39 30 00 86 0E 54 01 3A 20 |..0 . 390...T.: |
00000680: 5A 24 B2 22 2C 22 00 AF 0E 5A 01 3A 20 98 33 2C |Z$.","...Z.: .3,|
00000690: 46 3B 5A 24 3B 44 3B 5A 24 3B 58 3B 5A 24 3B 48 |F;Z$;D;Z$;X;Z$;H|
000006A0: 31 3B 5A 24 3B 48 32 3B 5A 24 3B 41 3B 5A 24 00 |1;Z$;H2;Z$;A;Z$.|
000006B0: BF 0E 5E 01 3A 20 81 20 47 B2 31 20 A4 20 46 00 |..^.: . G.1 . F.|
000006C0: EB 0E 68 01 3A 20 20 20 99 C7 28 31 39 29 22 53 |..h.: ..(19)"S|
000006D0: 41 56 45 20 44 41 54 41 20 4E 52 3A 22 3B 47 3B |AVE DATA NR:";G;|
000006E0: A3 32 30 29 22 41 46 20 22 3B 46 00 18 0F 72 01 |.20)"AF ";F...r.|
000006F0: 3A 20 20 20 98 33 2C 46 24 28 47 29 3B 5A 24 3B |: .3,F$(G);Z$;|
00000700: 52 28 47 29 3B 5A 24 3B 4C 28 47 29 3B 5A 24 3B |R(G);Z$;L(G);Z$;|
00000710: 4E 24 28 47 29 3B 5A 24 00 21 0F 7C 01 3A 20 82 |N$(G);Z$.!.|.: .|
00000720: 47 00 2A 0F 86 01 3A 20 A0 33 00 32 0F 90 01 3A |G.*...: .3.2...:|
00000730: 20 8E 00 45 0F 9A 01 8F 20 2A 2A 20 4C 4F 41 44 | ..E.... ** LOAD|
00000740: 20 44 41 54 41 00 5F 0F A4 01 3A 20 9F 33 2C 44 | DATA._...: .3,D|
00000750: 56 2C 33 2C 50 52 47 24 AA 22 2C 53 2C 52 22 00 |V,3,PRG$.",S,R".|
00000760: 87 0F AE 01 3A 20 8B 20 44 56 B2 38 20 A7 20 84 |....: . DV.8 . .|
00000770: 31 35 2C 51 2C 57 24 2C 45 2C 52 3A 8B 51 B3 B1 |15,Q,W$,E,R:.Q..|
00000780: 30 20 A7 20 34 39 30 00 9E 0F B8 01 3A 20 84 33 |0 . 490.....: .3|
00000790: 2C 46 2C 44 2C 58 2C 48 31 2C 48 32 2C 41 00 AD |,F,D,X,H1,H2,A..|
000007A0: 0F C2 01 3A 20 81 47 B2 31 20 A4 20 46 00 DC 0F |...: .G.1 . F...|
000007B0: CC 01 3A 20 20 99 20 C7 28 31 39 29 22 4C 4F 41 |..: . .(19)"LOA|
000007C0: 44 20 41 46 20 44 41 54 41 20 4E 52 3A 22 3B 47 |D AF DATA NR:";G|
000007D0: 3B A3 32 30 29 22 41 46 20 22 3B 46 00 FC 0F D6 |;.20)"AF ";F....|
000007E0: 01 3A 20 20 84 33 2C 46 24 28 47 29 2C 52 28 47 |.: .3,F$(G),R(G|
000007F0: 29 2C 4C 28 47 29 2C 4E 24 28 47 29 00 05 10 E0 |),L(G),N$(G)....|
00000800: 01 3A 20 82 46 00 0E 10 EA 01 3A 20 A0 33 00 16 |.: .F.....: .3..|
00000810: 10 F4 01 3A 20 8E 00 00 00 FF 22 |...: ....." |
..H...A$."P":B$."P":C$."P":D$."P":D.1:F.
1:H2.1:H1.1:PRG$."OK":Z$.",":G.1.....Z.2
200: . F$(Z),R(Z),L(Z),N$(Z):D.1:F.1:F$(
1)."HAR DET TASTER".....X.1:.30:.".":."N
Y GENNEMGANG":.20......F$(X):. A$:A$.G(F
(H(A$,1)).127):.A$."J".R(X).0. 100...#..
A$."_" . . 210:.30:. * UDBYGNING.*.(..
A$."N". L(X).0.100.M.2.. A$."J".R(X).0 .
A..R(X):.110.O.<..A$."N".L(X).0 . A..L(
X):.110...F..A$."J". X.R(X):.30...P..A$.
"N". X.L(X):.30...D.H1.D.1:H2.0:.140:...
.N.."ER DET "N$(A):.B$:B$.G(F(H(B$,1)).1
27)...X..B$."J".."DET TAENKTE JEG NOK!":
.PA.1.300:.:..-...H1.F.1:H2..A:.140:..B.
..."JEG KENDER IKKE GENSTANDEN. HVAD ER
DET?":. B$......"HVORDAN LYDER SP\RGSMAA
LET FOR AT BESTEMME GENSTANDEN?":. C$:N.
N.1... .N$(N).B$:F.F.1:F$(F).C$:D.D.1:.A
$."J". R(X).H1.....R(D)..N:L(D).H2:.A$."
N".L(X).H1.9...."HVAD ER SVARET PAA "C$;
:.D$:D$.G(F(H(C$,1)).127).U....D$."N".L(
D)..N:R(D).H2.[.H.....I.. **************
************************...J.. * UDBYGNI
NG AF LAERENEM AF: COMPUTER *...K.. * --
-------------------------------- *...L..
* LOAD/SAVE TIL BAAND/DISK *.
<.M.. *
*.I.N.. * BASIC AF JACOB HEIBERG (C)C
OMPUTER *...O.. ************************
**************.U.R..G(147)"LOAD/SAVE DEL
EN AF LAERENEM AF: JACOB HEIBERG":....
..."(L)OAD/(S)AVE : S...";A$......".(
B)A....ND/(D)ISK : D...";B$.A....".NA
VN PA.... DATAFIL :";PRG$.M....G(147).S.
..:.N...: DV.8:. B$."B" . DV.1.....: . D
V.8 . .15,8,15.....: . A$."L" . . 420: .
* LOAD.H...: . A$."S" . . 330: . * SAVE
.T....G(147)...".: . DV.8 . ."DISK STATU
S:";Q,W$: 15...,.: . A$:. A$."" . 300...
6.../.@.. ** SAVE DATA.P.J.: . 3,DV,3,"
@0:".PRG$.",S,W".Y.O.: . DV.8 . .15,Q,W$
,E,R:. Q..0 . 390...T.: Z$.","...Z.: .3,
F;Z$;D;Z$;X;Z$;H1;Z$;H2;Z$;A;Z$...^.: .
G.1 . F...H.: .G(19)"SAVE DATA NR:";G;
.20)"AF ";F...R.: .3,F$(G);Z$;R(G);Z$;
L(G);Z$;N$(G);Z$.!.|.: .G.*...: 3.2...:
..E.... ** LOAD DATA._...: .3,DV,3,PRG$
.",S,R".....: . DV.8 . .15,Q,W$,E,R:.Q..
0 . 490.....: .3,F,D,X,H1,H2,A...B.: .G.
1 . F...L.: . G(19)"LOAD AF DATA NR:";G
;.20)"AF ";F...V.: .3,F$(G),R(G),L(G),N
$(G).....: .F.....: 3.....: ....."
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL