> 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 8E 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 22 00 B3 |DET TANGENTER"..|
00000090: 08 14 00 58 B2 31 3A 8D 33 30 3A 99 22 93 22 3A |...X.1:.30:.".":|
000000A0: 99 22 4E 59 20 47 45 4E 4F 4D 47 5D 4E 47 22 3A |."NY GENOMG]NG":|
000000B0: 89 32 30 00 EF 08 1E 00 99 46 24 28 58 29 22 3F |.20......F$(X)"?|
000000C0: 22 3A 85 20 41 24 3A 41 24 B2 C7 28 C6 28 C8 28 |":. A$:A$..(.(.(|
000000D0: 41 24 2C 31 29 29 AF 31 32 37 29 3A 8B 41 24 B2 |A$,1)).127):.A$.|
000000E0: 22 4A 22 AF 52 28 58 29 B2 30 A7 20 31 30 30 00 |"J".R(X).0. 100.|
000000F0: 16 09 23 00 8B 20 41 24 B2 22 5F 22 20 A7 20 8D |..#.. A$."_" . .|
00000100: 20 32 31 30 3A 89 33 30 3A 8F 20 2A 20 55 54 42 | 210:.30:. * UTB|
00000110: 59 47 47 4E 41 44 00 2F 09 28 00 8B 20 41 24 B2 |YGGNAD./.(.. A$.|
00000120: 22 4E 22 AF 20 4C 28 58 29 B2 30 A7 31 30 30 00 |"N". L(X).0.100.|
00000130: 52 09 32 00 8B 20 41 24 B2 22 4A 22 AF 52 28 58 |R.2.. A$."J".R(X|
00000140: 29 B3 30 20 A7 20 41 B2 AB 52 28 58 29 3A 89 31 |).0 . A..R(X):.1|
00000150: 31 30 00 74 09 3C 00 8B 41 24 B2 22 4E 22 AF 4C |10.t.<..A$."N".L|
00000160: 28 58 29 B3 30 20 A7 20 41 B2 AB 4C 28 58 29 3A |(X).0 . A..L(X):|
00000170: 89 31 31 30 00 8C 09 46 00 8B 41 24 B2 22 4A 22 |.110...F..A$."J"|
00000180: A7 20 58 B2 52 28 58 29 3A 89 33 30 00 A4 09 50 |. X.R(X):.30...P|
00000190: 00 8B 41 24 B2 22 4E 22 A7 20 58 B2 4C 28 58 29 |..A$."N". X.L(X)|
000001A0: 3A 89 33 30 00 BB 09 64 00 48 31 B2 44 AA 31 3A |:.30...d.H1.D.1:|
000001B0: 48 32 B2 30 3A 8D 31 34 30 3A 8E 00 EB 09 6E 00 |H2.0:.140:....n.|
000001C0: 99 22 5B 52 20 44 45 54 20 22 4E 24 28 41 29 22 |."[R DET "N$(A)"|
000001D0: 3F 22 3A 85 42 24 3A 42 24 B2 C7 28 C6 28 C8 28 |?":.B$:B$..(.(.(|
000001E0: 42 24 2C 31 29 29 AF 31 32 37 29 00 1C 0A 78 00 |B$,1)).127)...x.|
000001F0: 8B 42 24 B2 22 4A 22 A7 99 22 44 45 54 20 54 5B |.B$."J".."DET T[|
00000200: 4E 4B 54 45 20 4A 41 47 20 4E 4F 47 21 22 3A 81 |NKTE JAG NOG!":.|
00000210: 50 41 B2 31 A4 33 30 30 3A 82 3A 8E 00 34 0A 82 |PA.1.300:.:..4..|
00000220: 00 48 31 B2 46 AA 31 3A 48 32 B2 AB 41 3A 8D 31 |.H1.F.1:H2..A:.1|
00000230: 34 30 3A 8E 00 68 0A 8C 00 99 22 4A 41 47 20 4B |40:..h...."JAG K|
00000240: 5B 4E 4E 45 52 20 49 4E 54 45 20 54 49 4C 4C 20 |[NNER INTE TILL |
00000250: 53 41 4B 45 4E 2E 20 56 41 44 20 5B 52 20 44 45 |SAKEN. VAD [R DE|
00000260: 54 3F 22 3A 85 20 42 24 00 A3 0A 96 00 99 22 48 |T?":. B$......"H|
00000270: 55 52 20 4C 59 44 45 52 20 46 52 5D 47 41 4E 20 |UR LYDER FR]GAN |
00000280: 46 5C 52 20 41 54 54 20 42 45 53 54 5B 4D 4D 41 |F\R ATT BEST[MMA|
00000290: 20 53 41 4B 45 4E 3F 22 3A 85 20 43 24 3A 4E B2 | SAKEN?":. C$:N.|
000002A0: 4E AA 31 00 D6 0A A0 00 4E 24 28 4E 29 B2 42 24 |N.1.....N$(N).B$|
000002B0: 3A 46 B2 46 AA 31 3A 46 24 28 46 29 B2 43 24 3A |:F.F.1:F$(F).C$:|
000002C0: 44 B2 44 AA 31 3A 8B 41 24 B2 22 4A 22 A7 20 52 |D.D.1:.A$."J". R|
000002D0: 28 58 29 B2 48 31 00 FA 0A AA 00 52 28 44 29 B2 |(X).H1.....R(D).|
000002E0: AB 4E 3A 4C 28 44 29 B2 48 32 3A 8B 41 24 B2 22 |.N:L(D).H2:.A$."|
000002F0: 4E 22 A7 4C 28 58 29 B2 48 31 00 2F 0B B4 00 99 |N".L(X).H1./....|
00000300: 22 56 41 44 20 5B 52 20 53 56 41 52 45 54 20 50 |"VAD [R SVARET P|
00000310: 41 20 22 43 24 3B 3A 85 44 24 3A 44 24 B2 C7 28 |A "C$;:.D$:D$..(|
00000320: C6 28 C8 28 43 24 2C 31 29 29 AF 31 32 37 29 00 |.(.(C$,1)).127).|
00000330: 4B 0B BE 00 8B 44 24 B2 22 4E 22 A7 4C 28 44 29 |K....D$."N".L(D)|
00000340: B2 AB 4E 3A 52 28 44 29 B2 48 32 00 51 0B C8 00 |..N:R(D).H2.Q...|
00000350: 8E 00 7E 0B C9 00 8F 20 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 2A 2A 2A 2A 2A 00 AB |**************..|
00000380: 0B CA 00 8F 20 2A 20 55 54 42 59 47 47 4E 41 44 |.... * UTBYGGNAD|
00000390: 20 41 56 20 4C 5B 52 41 4B 54 49 47 20 41 56 3A | AV L[RAKTIG AV:|
000003A0: 20 43 4F 4D 50 55 54 45 52 20 2A 00 D8 0B CB 00 | COMPUTER *.....|
000003B0: 8F 20 2A 20 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 2D 2D 2D 2D 2D 20 2A 00 05 0C CC 00 8F 20 2A |------ *...... *|
000003E0: 20 20 20 20 20 4C 4F 41 44 2F 53 41 56 45 20 54 | LOAD/SAVE T|
000003F0: 49 4C 4C 20 42 41 4E 44 2F 44 49 53 4B 20 20 20 |ILL BAND/DISK |
00000400: 20 20 20 20 2A 00 32 0C CD 00 8F 20 2A 20 20 20 | *.2.... * |
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 20 20 20 20 | |
00000430: 20 2A 00 5F 0C CE 00 8F 20 2A 20 42 41 53 49 43 | *._.... * BASIC|
00000440: 20 41 56 20 4A 41 43 4F 42 20 48 45 49 42 45 52 | AV JACOB HEIBER|
00000450: 47 20 28 43 29 43 4F 4D 50 55 54 45 52 20 2A 00 |G (C)COMPUTER *.|
00000460: 8C 0C CF 00 8F 20 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 2A 2A 2A 2A 2A 00 CB 0C D2 |************....|
00000490: 00 99 C7 28 31 34 37 29 22 4C 4F 41 44 2F 53 41 |...(147)"LOAD/SA|
000004A0: 56 45 20 44 45 4C 45 4E 20 41 56 20 4C 5B 52 41 |VE DELEN AV L[RA|
000004B0: 4B 54 49 47 20 20 20 41 56 3A 20 4A 41 43 4F 42 |KTIG AV: JACOB|
000004C0: 20 48 45 49 42 45 52 47 22 3A 99 00 ED 0C DC 00 | HEIBERG":......|
000004D0: 85 22 28 4C 29 4F 41 44 2F 28 53 29 41 56 45 20 |."(L)OAD/(S)AVE |
000004E0: 20 20 3A 20 20 53 9D 9D 9D 22 3B 41 24 00 14 0D | : S...";A$...|
000004F0: E6 00 85 22 11 28 42 29 41 91 9D 2E 11 4E 44 2F |...".(B)A....ND/|
00000500: 28 44 29 49 53 4B 20 20 20 3A 20 20 44 9D 9D 9D |(D)ISK : D...|
00000510: 22 3B 42 24 00 37 0D F0 00 85 22 11 4E 41 4D 4E |";B$.7....".NAMN|
00000520: 20 50 41 91 9D 2E 11 20 44 41 54 41 46 49 4C 20 | PA.... DATAFIL |
00000530: 3A 22 3B 50 52 47 24 00 43 0D F5 00 99 C7 28 31 |:";PRG$.C.....(1|
00000540: 34 37 29 00 49 0D FA 00 3A 00 64 0D 04 01 3A 20 |47).I...:.d...: |
00000550: 44 56 B2 38 3A 8B 20 42 24 B2 22 42 22 20 A7 20 |DV.8:. B$."B" . |
00000560: 44 56 B2 31 00 7C 0D 09 01 3A 20 8B 20 44 56 B2 |DV.1.|...: . DV.|
00000570: 38 20 A7 20 9F 31 35 2C 38 2C 31 35 00 9D 0D 0E |8 . .15,8,15....|
00000580: 01 3A 20 8B 20 41 24 B2 22 4C 22 20 A7 20 8D 20 |.: . A$."L" . . |
00000590: 34 32 30 3A 20 8F 20 2A 20 4C 4F 41 44 00 BE 0D |420: . * LOAD...|
000005A0: 18 01 3A 20 8B 20 41 24 B2 22 53 22 20 A7 20 8D |..: . A$."S" . .|
000005B0: 20 33 33 30 3A 20 8F 20 2A 20 53 41 56 45 00 CA | 330: . * SAVE..|
000005C0: 0D 1D 01 99 C7 28 31 34 37 29 00 F2 0D 22 01 3A |.....(147)...".:|
000005D0: 20 8B 20 44 56 B2 38 20 A7 20 99 22 44 49 53 4B | . DV.8 . ."DISK|
000005E0: 20 53 54 41 54 55 53 3A 22 3B 51 2C 57 24 3A A0 | STATUS:";Q,W$:.|
000005F0: 31 35 00 0B 0E 2C 01 3A 20 A1 20 41 24 3A 8B 20 |15...,.: . A$:. |
00000600: 41 24 B2 22 22 20 A7 20 33 30 30 00 11 0E 36 01 |A$."" . 300...6.|
00000610: 8E 00 25 0E 40 01 8F 20 20 2A 2A 20 53 41 56 45 |..%.@.. ** SAVE|
00000620: 20 44 41 54 41 00 46 0E 4A 01 3A 20 9F 20 33 2C | DATA.F.J.: . 3,|
00000630: 44 56 2C 33 2C 22 40 30 3A 22 AA 50 52 47 24 AA |DV,3,"@0:".PRG$.|
00000640: 22 2C 53 2C 57 22 00 6F 0E 4F 01 3A 20 8B 20 44 |",S,W".o.O.: . D|
00000650: 56 B2 38 20 A7 20 84 31 35 2C 51 2C 57 24 2C 45 |V.8 . .15,Q,W$,E|
00000660: 2C 52 3A 8B 20 51 B3 B1 30 20 A7 20 33 39 30 00 |,R:. Q..0 . 390.|
00000670: 7C 0E 54 01 3A 20 5A 24 B2 22 2C 22 00 A5 0E 5A ||.T.: Z$.","...Z|
00000680: 01 3A 20 98 33 2C 46 3B 5A 24 3B 44 3B 5A 24 3B |.: .3,F;Z$;D;Z$;|
00000690: 58 3B 5A 24 3B 48 31 3B 5A 24 3B 48 32 3B 5A 24 |X;Z$;H1;Z$;H2;Z$|
000006A0: 3B 41 3B 5A 24 00 B5 0E 5E 01 3A 20 81 20 47 B2 |;A;Z$...^.: . G.|
000006B0: 31 20 A4 20 46 00 E1 0E 68 01 3A 20 20 20 99 C7 |1 . F...h.: ..|
000006C0: 28 31 39 29 22 53 41 56 45 20 44 41 54 41 20 4E |(19)"SAVE DATA N|
000006D0: 52 3A 22 3B 47 3B A3 32 30 29 22 41 46 20 22 3B |R:";G;.20)"AF ";|
000006E0: 46 00 0E 0F 72 01 3A 20 20 20 98 33 2C 46 24 28 |F...r.: .3,F$(|
000006F0: 47 29 3B 5A 24 3B 52 28 47 29 3B 5A 24 3B 4C 28 |G);Z$;R(G);Z$;L(|
00000700: 47 29 3B 5A 24 3B 4E 24 28 47 29 3B 5A 24 00 17 |G);Z$;N$(G);Z$..|
00000710: 0F 7C 01 3A 20 82 47 00 20 0F 86 01 3A 20 A0 33 |.|.: .G. ...: .3|
00000720: 00 28 0F 90 01 3A 20 8E 00 3B 0F 9A 01 8F 20 2A |.(...: ..;.... *|
00000730: 2A 20 4C 4F 41 44 20 44 41 54 41 00 55 0F A4 01 |* LOAD DATA.U...|
00000740: 3A 20 9F 33 2C 44 56 2C 33 2C 50 52 47 24 AA 22 |: .3,DV,3,PRG$."|
00000750: 2C 53 2C 52 22 00 7D 0F AE 01 3A 20 8B 20 44 56 |,S,R".}...: . DV|
00000760: B2 38 20 A7 20 84 31 35 2C 51 2C 57 24 2C 45 2C |.8 . .15,Q,W$,E,|
00000770: 52 3A 8B 51 B3 B1 30 20 A7 20 34 39 30 00 94 0F |R:.Q..0 . 490...|
00000780: B8 01 3A 20 84 33 2C 46 2C 44 2C 58 2C 48 31 2C |..: .3,F,D,X,H1,|
00000790: 48 32 2C 41 00 A3 0F C2 01 3A 20 81 47 B2 31 20 |H2,A.....: .G.1 |
000007A0: A4 20 46 00 D2 0F CC 01 3A 20 20 99 20 C7 28 31 |. F.....: . .(1|
000007B0: 39 29 22 4C 4F 41 44 20 41 56 20 44 41 54 41 20 |9)"LOAD AV DATA |
000007C0: 4E 52 3A 22 3B 47 3B A3 32 30 29 22 41 46 20 22 |NR:";G;.20)"AF "|
000007D0: 3B 46 00 F2 0F D6 01 3A 20 20 84 33 2C 46 24 28 |;F.....: .3,F$(|
000007E0: 47 29 2C 52 28 47 29 2C 4C 28 47 29 2C 4E 24 28 |G),R(G),L(G),N$(|
000007F0: 47 29 00 FB 0F E0 01 3A 20 82 47 00 04 10 EA 01 |G).....: .G.....|
00000800: 3A 20 A0 33 00 0C 10 F4 01 3A 20 8E 00 00 00 |: .3.....: .... |
..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.R.2.. A$."J".R(X
).0 . A..R(X):.110.T.<..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:.14
0:....N.."[R DET "N$(A)"?":.B$:B$.G(F(H(
B$,1)).127)...X..B$."J".."DET T[NKTE JAG
NOG!":.PA.1.300:.:..4...H1.F.1:H2..A:.1
40:..H...."JAG K[NNER INTE TILL SAKEN. V
AD [R DET?":. B$......"HUR LYDER FR]GAN
F\R ATT BEST[MMA SAKEN?":. C$:N.N.1.V. .
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./...."VAD [R SVARET PA "C$;:.D$:D$.G(
F(H(C$,1)).127).K....D$."N".L(D)..N:R(D)
.H2.Q.H...~.I.. ************************
**************...J.. * UTBYGGNAD AV L[RA
KTIG AV: COMPUTER *.X.K.. * ------------
---------------------- *...L.. * LOA
D/SAVE TILL BAND/DISK *.2.M.. *
*._.N..
* BASIC AV JACOB HEIBERG (C)COMPUTER *.
..O.. **********************************
****.K.R..G(147)"LOAD/SAVE DELEN AV L[RA
KTIG AV: JACOB HEIBERG":......."(L)OAD
/(S)AVE : S...";A$......".(B)A....ND/
(D)ISK : D...";B$.7....".NAMN PA....
DATAFIL :";PRG$.C....G(147).I...:.D...:
DV.8:. B$."B" . DV.1.|...: . DV.8 . .15,
8,15.....: . A$."L" . . 420: . * LOAD...
..: . A$."S" . . 330: . * SAVE.J....G(14
7)...".: . DV.8 . ."DISK STATUS:";Q,W$:
15...,.: . A$:. A$."" . 300...6...%.@..
** SAVE DATA.F.J.: . 3,DV,3,"@0:".PRG$.
",S,W".O.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.(...: ..;.... *
* LOAD DATA.U...: .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.R.L.
: . G(19)"LOAD AV DATA NR:";G;.20)"AF "
;F...V.: .3,F$(G),R(G),L(G),N$(G).....:
.G.....: 3.....: ....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL