> 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 8F 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 4E 47 45 4E 54 45 52 3F 22 00 |DET TANGENTER?".|
00000090: B4 08 14 00 58 B2 31 3A 8D 33 30 3A 99 22 93 22 |....X.1:.30:."."|
000000A0: 3A 99 22 4E 59 20 47 45 4E 4F 4D 47 5D 4E 47 22 |:."NY GENOMG]NG"|
000000B0: 3A 89 32 30 00 ED 08 1E 00 99 46 24 28 58 29 3A |:.20......F$(X):|
000000C0: 85 20 41 24 3A 41 24 B2 C7 28 C6 28 C8 28 41 24 |. A$:A$..(.(.(A$|
000000D0: 2C 31 29 29 AF 31 32 37 29 3A 8B 41 24 B2 22 4A |,1)).127):.A$."J|
000000E0: 22 AF 52 28 58 29 B2 30 A7 20 31 30 30 00 14 09 |".R(X).0. 100...|
000000F0: 23 00 8B 20 41 24 B2 22 5F 22 20 A7 20 8D 20 32 |#.. A$."_" . . 2|
00000100: 31 30 3A 89 33 30 3A 8F 20 2A 20 55 54 42 59 47 |10:.30:. * UTBYG|
00000110: 47 4E 41 44 00 2D 09 28 00 8B 20 41 24 B2 22 4E |GNAD.-.(.. A$."N|
00000120: 22 AF 20 4C 28 58 29 B2 30 A7 31 30 30 00 50 09 |". L(X).0.100.P.|
00000130: 32 00 8B 20 41 24 B2 22 4A 22 AF 52 28 58 29 B3 |2.. A$."J".R(X).|
00000140: 30 20 A7 20 41 B2 AB 52 28 58 29 3A 89 31 31 30 |0 . A..R(X):.110|
00000150: 00 72 09 3C 00 8B 41 24 B2 22 4E 22 AF 4C 28 58 |.r.<..A$."N".L(X|
00000160: 29 B3 30 20 A7 20 41 B2 AB 4C 28 58 29 3A 89 31 |).0 . A..L(X):.1|
00000170: 31 30 00 8A 09 46 00 8B 41 24 B2 22 4A 22 A7 20 |10...F..A$."J". |
00000180: 58 B2 52 28 58 29 3A 89 33 30 00 A2 09 50 00 8B |X.R(X):.30...P..|
00000190: 41 24 B2 22 4E 22 A7 20 58 B2 4C 28 58 29 3A 89 |A$."N". X.L(X):.|
000001A0: 33 30 00 B9 09 64 00 48 31 B2 44 AA 31 3A 48 32 |30...d.H1.D.1:H2|
000001B0: B2 30 3A 8D 31 34 30 3A 8E 00 E6 09 6E 00 99 22 |.0:.140:....n.."|
000001C0: 5B 52 20 44 45 54 20 22 4E 24 28 41 29 3A 85 42 |[R DET "N$(A):.B|
000001D0: 24 3A 42 24 B2 C7 28 C6 28 C8 28 42 24 2C 31 29 |$:B$..(.(.(B$,1)|
000001E0: 29 AF 31 32 37 29 00 17 0A 78 00 8B 42 24 B2 22 |).127)...x..B$."|
000001F0: 4A 22 A7 99 22 44 45 54 20 54 5B 4E 4B 54 45 20 |J".."DET T[NKTE |
00000200: 4A 41 47 20 4E 4F 47 21 22 3A 81 50 41 B2 31 A4 |JAG NOG!":.PA.1.|
00000210: 33 30 30 3A 82 3A 8E 00 2F 0A 82 00 48 31 B2 46 |300:.:../...H1.F|
00000220: AA 31 3A 48 32 B2 AB 41 3A 8D 31 34 30 3A 8E 00 |.1:H2..A:.140:..|
00000230: 63 0A 8C 00 99 22 4A 41 47 20 4B 5B 4E 4E 45 52 |c...."JAG K[NNER|
00000240: 20 49 4E 54 45 20 54 49 4C 4C 20 53 41 4B 45 4E | INTE TILL SAKEN|
00000250: 2E 20 56 41 44 20 5B 52 20 44 45 54 3F 22 3A 85 |. VAD [R DET?":.|
00000260: 20 42 24 00 9E 0A 96 00 99 22 48 55 52 20 4C 59 | B$......"HUR LY|
00000270: 44 45 52 20 46 52 5D 47 41 4E 20 46 5C 52 20 41 |DER FR]GAN F\R A|
00000280: 54 54 20 42 45 53 54 5B 4D 4D 41 20 53 41 4B 45 |TT BEST[MMA SAKE|
00000290: 4E 3F 22 3A 85 20 43 24 3A 4E B2 4E AA 31 00 D1 |N?":. C$:N.N.1..|
000002A0: 0A A0 00 4E 24 28 4E 29 B2 42 24 3A 46 B2 46 AA |...N$(N).B$:F.F.|
000002B0: 31 3A 46 24 28 46 29 B2 43 24 3A 44 B2 44 AA 31 |1:F$(F).C$:D.D.1|
000002C0: 3A 8B 41 24 B2 22 4A 22 A7 20 52 28 58 29 B2 48 |:.A$."J". R(X).H|
000002D0: 31 00 F5 0A AA 00 52 28 44 29 B2 AB 4E 3A 4C 28 |1.....R(D)..N:L(|
000002E0: 44 29 B2 48 32 3A 8B 41 24 B2 22 4E 22 A7 4C 28 |D).H2:.A$."N".L(|
000002F0: 58 29 B2 48 31 00 2A 0B B4 00 99 22 56 41 44 20 |X).H1.*...."VAD |
00000300: 5B 52 20 53 56 41 52 45 54 20 50 41 20 22 43 24 |[R SVARET PA "C$|
00000310: 3B 3A 85 44 24 3A 44 24 B2 C7 28 C6 28 C8 28 43 |;:.D$:D$..(.(.(C|
00000320: 24 2C 31 29 29 AF 31 32 37 29 00 46 0B BE 00 8B |$,1)).127).F....|
00000330: 44 24 B2 22 4E 22 A7 4C 28 44 29 B2 AB 4E 3A 52 |D$."N".L(D)..N:R|
00000340: 28 44 29 B2 48 32 00 4C 0B C8 00 8E 00 79 0B C9 |(D).H2.L.....y..|
00000350: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A6 0B CA 00 8F 20 |*********...... |
00000380: 2A 20 55 54 42 59 47 47 4E 41 44 20 41 56 20 4C |* UTBYGGNAD AV L|
00000390: 5B 52 41 4B 54 49 47 20 41 56 3A 20 43 4F 4D 50 |[RAKTIG AV: COMP|
000003A0: 55 54 45 52 20 2A 00 D3 0B CB 00 8F 20 2A 20 2D |UTER *...... * -|
000003B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000003C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000003D0: 2D 20 2A 00 00 0C CC 00 8F 20 2A 20 20 20 20 20 |- *...... * |
000003E0: 4C 4F 41 44 2F 53 41 56 45 20 54 49 4C 4C 20 42 |LOAD/SAVE TILL B|
000003F0: 41 4E 44 2F 44 49 53 4B 20 20 20 20 20 20 20 2A |AND/DISK *|
00000400: 00 2D 0C CD 00 8F 20 2A 20 20 20 20 20 20 20 20 |.-.... * |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 5A 0C | *.Z.|
00000430: CE 00 8F 20 2A 20 42 41 53 49 43 20 41 56 20 4A |... * BASIC AV J|
00000440: 41 43 4F 42 20 48 45 49 42 45 52 47 20 28 43 29 |ACOB HEIBERG (C)|
00000450: 43 4F 4D 50 55 54 45 52 20 2A 00 87 0C CF 00 8F |COMPUTER *......|
00000460: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
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 00 C6 0C D2 00 99 C7 28 31 |*******.......(1|
00000490: 34 37 29 22 4C 4F 41 44 2F 53 41 56 45 20 44 45 |47)"LOAD/SAVE DE|
000004A0: 4C 45 4E 20 41 56 20 4C 5B 52 41 4B 54 49 47 20 |LEN AV L[RAKTIG |
000004B0: 20 20 41 56 3A 20 4A 41 43 4F 42 20 48 45 49 42 | AV: JACOB HEIB|
000004C0: 45 52 47 22 3A 99 00 E8 0C DC 00 85 22 28 4C 29 |ERG":......."(L)|
000004D0: 4F 41 44 2F 28 53 29 41 56 45 20 20 20 3A 20 20 |OAD/(S)AVE : |
000004E0: 53 9D 9D 9D 22 3B 41 24 00 0F 0D E6 00 85 22 11 |S...";A$......".|
000004F0: 28 42 29 41 91 9D 2E 11 4E 44 2F 28 44 29 49 53 |(B)A....ND/(D)IS|
00000500: 4B 20 20 20 3A 20 20 44 9D 9D 9D 22 3B 42 24 00 |K : D...";B$.|
00000510: 32 0D F0 00 85 22 11 4E 41 4D 4E 20 50 41 91 9D |2....".NAMN PA..|
00000520: 2E 11 20 44 41 54 41 46 49 4C 20 3A 22 3B 50 52 |.. DATAFIL :";PR|
00000530: 47 24 00 3E 0D F5 00 99 C7 28 31 34 37 29 00 44 |G$.>.....(147).D|
00000540: 0D FA 00 3A 00 5F 0D 04 01 3A 20 44 56 B2 38 3A |...:._...: DV.8:|
00000550: 8B 20 42 24 B2 22 42 22 20 A7 20 44 56 B2 31 00 |. B$."B" . DV.1.|
00000560: 77 0D 09 01 3A 20 8B 20 44 56 B2 38 20 A7 20 9F |w...: . DV.8 . .|
00000570: 31 35 2C 38 2C 31 35 00 98 0D 0E 01 3A 20 8B 20 |15,8,15.....: . |
00000580: 41 24 B2 22 4C 22 20 A7 20 8D 20 34 32 30 3A 20 |A$."L" . . 420: |
00000590: 8F 20 2A 20 4C 4F 41 44 00 B9 0D 18 01 3A 20 8B |. * LOAD.....: .|
000005A0: 20 41 24 B2 22 53 22 20 A7 20 8D 20 33 33 30 3A | A$."S" . . 330:|
000005B0: 20 8F 20 2A 20 53 41 56 45 00 C5 0D 1D 01 99 C7 | . * SAVE.......|
000005C0: 28 31 34 37 29 00 ED 0D 22 01 3A 20 8B 20 44 56 |(147)...".: . DV|
000005D0: B2 38 20 A7 20 99 22 44 49 53 4B 20 53 54 41 54 |.8 . ."DISK STAT|
000005E0: 55 53 3A 22 3B 51 2C 57 24 3A A0 31 35 00 06 0E |US:";Q,W$:.15...|
000005F0: 2C 01 3A 20 A1 20 41 24 3A 8B 20 41 24 B2 22 22 |,.: . A$:. A$.""|
00000600: 20 A7 20 33 30 30 00 0C 0E 36 01 8E 00 20 0E 40 | . 300...6... .@|
00000610: 01 8F 20 20 2A 2A 20 53 41 56 45 20 44 41 54 41 |.. ** SAVE DATA|
00000620: 00 41 0E 4A 01 3A 20 9F 20 33 2C 44 56 2C 33 2C |.A.J.: . 3,DV,3,|
00000630: 22 40 30 3A 22 AA 50 52 47 24 AA 22 2C 53 2C 57 |"@0:".PRG$.",S,W|
00000640: 22 00 6A 0E 4F 01 3A 20 8B 20 44 56 B2 38 20 A7 |".j.O.: . DV.8 .|
00000650: 20 84 31 35 2C 51 2C 57 24 2C 45 2C 52 3A 8B 20 | .15,Q,W$,E,R:. |
00000660: 51 B3 B1 30 20 A7 20 33 39 30 00 77 0E 54 01 3A |Q..0 . 390.w.T.:|
00000670: 20 5A 24 B2 22 2C 22 00 A0 0E 5A 01 3A 20 98 33 | Z$.","...Z.: .3|
00000680: 2C 46 3B 5A 24 3B 44 3B 5A 24 3B 58 3B 5A 24 3B |,F;Z$;D;Z$;X;Z$;|
00000690: 48 31 3B 5A 24 3B 48 32 3B 5A 24 3B 41 3B 5A 24 |H1;Z$;H2;Z$;A;Z$|
000006A0: 00 B0 0E 5E 01 3A 20 81 20 47 B2 31 20 A4 20 46 |...^.: . G.1 . F|
000006B0: 00 DC 0E 68 01 3A 20 20 20 99 C7 28 31 39 29 22 |...h.: ..(19)"|
000006C0: 53 41 56 45 20 44 41 54 41 20 4E 52 3A 22 3B 47 |SAVE DATA NR:";G|
000006D0: 3B A3 32 30 29 22 41 46 20 22 3B 46 00 09 0F 72 |;.20)"AF ";F...r|
000006E0: 01 3A 20 20 20 98 33 2C 46 24 28 47 29 3B 5A 24 |.: .3,F$(G);Z$|
000006F0: 3B 52 28 47 29 3B 5A 24 3B 4C 28 47 29 3B 5A 24 |;R(G);Z$;L(G);Z$|
00000700: 3B 4E 24 28 47 29 3B 5A 24 00 12 0F 7C 01 3A 20 |;N$(G);Z$...|.: |
00000710: 82 47 00 1B 0F 86 01 3A 20 A0 33 00 23 0F 90 01 |.G.....: .3.#...|
00000720: 3A 20 8E 00 36 0F 9A 01 8F 20 2A 2A 20 4C 4F 41 |: ..6.... ** LOA|
00000730: 44 20 44 41 54 41 00 50 0F A4 01 3A 20 9F 33 2C |D DATA.P...: .3,|
00000740: 44 56 2C 33 2C 50 52 47 24 AA 22 2C 53 2C 52 22 |DV,3,PRG$.",S,R"|
00000750: 00 78 0F AE 01 3A 20 8B 20 44 56 B2 38 20 A7 20 |.x...: . DV.8 . |
00000760: 84 31 35 2C 51 2C 57 24 2C 45 2C 52 3A 8B 51 B3 |.15,Q,W$,E,R:.Q.|
00000770: B1 30 20 A7 20 34 39 30 00 8F 0F B8 01 3A 20 84 |.0 . 490.....: .|
00000780: 33 2C 46 2C 44 2C 58 2C 48 31 2C 48 32 2C 41 00 |3,F,D,X,H1,H2,A.|
00000790: 9E 0F C2 01 3A 20 81 47 B2 31 20 A4 20 46 00 CD |....: .G.1 . F..|
000007A0: 0F CC 01 3A 20 20 99 20 C7 28 31 39 29 22 4C 4F |...: . .(19)"LO|
000007B0: 41 44 20 41 56 20 44 41 54 41 20 4E 52 3A 22 3B |AD AV DATA NR:";|
000007C0: 47 3B A3 32 30 29 22 41 46 20 22 3B 46 00 ED 0F |G;.20)"AF ";F...|
000007D0: D6 01 3A 20 20 84 33 2C 46 24 28 47 29 2C 52 28 |..: .3,F$(G),R(|
000007E0: 47 29 2C 4C 28 47 29 2C 4E 24 28 47 29 00 F6 0F |G),L(G),N$(G)...|
000007F0: E0 01 3A 20 82 46 00 FF 0F EA 01 3A 20 A0 33 00 |..: .F.....: .3.|
00000800: 07 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 TANGENTER?".....X.1:.30:."."
:."NY GENOMG]NG":.20......F$(X):. A$:A$.
G(F(H(A$,1)).127):.A$."J".R(X).0. 100...
#.. A$."_" . . 210:.30:. * UTBYGGNAD.-.(
.. A$."N". L(X).0.100.P.2.. A$."J".R(X).
0 . A..R(X):.110.R.<..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.."[R DET "N$(A):.B$:B$.G(F(H(B$,1)
).127)...X..B$."J".."DET T[NKTE JAG NOG!
":.PA.1.300:.:../...H1.F.1:H2..A:.140:..
C...."JAG K[NNER INTE TILL SAKEN. VAD [R
DET?":. B$......"HUR LYDER FR]GAN F\R A
TT BEST[MMA SAKEN?":. C$:N.N.1.Q. .N$(N)
.B$:F.F.1:F$(F).C$:D.D.1:.A$."J". R(X).H
1.....R(D)..N:L(D).H2:.A$."N".L(X).H1.*.
..."VAD [R SVARET PA "C$;:.D$:D$.G(F(H(C
$,1)).127).F....D$."N".L(D)..N:R(D).H2.L
.H...Y.I.. *****************************
*********...J.. * UTBYGGNAD AV L[RAKTIG
AV: COMPUTER *.S.K.. * -----------------
----------------- *...L.. * LOAD/SAV
E TILL BAND/DISK *.-.M.. *
*.Z.N.. * BA
SIC AV JACOB HEIBERG (C)COMPUTER *...O..
**************************************.
F.R..G(147)"LOAD/SAVE DELEN AV L[RAKTIG
AV: JACOB HEIBERG":......."(L)OAD/(S)A
VE : S...";A$......".(B)A....ND/(D)IS
K : D...";B$.2....".NAMN PA.... DATAF
IL :";PRG$.>....G(147).D...:._...: DV.8:
. B$."B" . DV.1.W...: . DV.8 . .15,8,15.
....: . A$."L" . . 420: . * LOAD.....: .
A$."S" . . 330: . * SAVE.E....G(147)...
".: . DV.8 . ."DISK STATUS:";Q,W$: 15...
,.: . A$:. A$."" . 300...6... .@.. ** S
AVE DATA.A.J.: . 3,DV,3,"@0:".PRG$.",S,W
".J.O.: . DV.8 . .15,Q,W$,E,R:. Q..0 . 3
90.W.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.#...: ..6.... ** LOA
D DATA.P...: .3,DV,3,PRG$.",S,R".X...: .
DV.8 . .15,Q,W$,E,R:.Q..0 . 490.....: .
3,F,D,X,H1,H2,A...B.: .G.1 . F.M.L.: .
G(19)"LOAD AV 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