> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4D 08 01 00 8F 20 20 20 20 2A 20 2A 20 2A |..M.... * * *|
00000010: 20 20 44 4F 42 42 45 4C 54 20 49 4E 44 45 58 2D | DOBBELT INDEX-|
00000020: 55 44 53 4B 52 49 46 54 20 20 20 39 2F 39 2D 31 |UDSKRIFT 9/9-1|
00000030: 39 38 34 20 20 20 42 4A 41 52 4E 45 20 56 2E 20 |984 BJARNE V. |
00000040: 4A 45 4E 53 45 4E 20 20 2A 20 2A 20 2A 00 86 08 |JENSEN * * *...|
00000050: 0A 00 99 22 93 9E 22 3A 9F 31 2C 34 3A 98 31 2C |..."..":.1,4:.1,|
00000060: C7 28 31 35 29 3B 3A A0 31 20 20 20 20 20 20 20 |.(15);:.1 |
00000070: 20 20 20 20 3A 8F 20 20 20 52 45 53 45 54 20 50 | :. RESET P|
00000080: 52 49 4E 54 45 52 00 C4 08 14 00 97 37 38 38 2C |RINTER......788,|
00000090: 35 32 3A 97 37 39 32 2C 31 39 33 3A 97 34 36 2C |52:.792,193:.46,|
000000A0: C2 28 34 36 29 AA 32 30 3A 9C 20 20 20 20 20 20 |.(46).20:. |
000000B0: 20 20 3A 8F 20 20 20 46 4C 59 54 20 50 4F 49 4E | :. FLYT POIN|
000000C0: 54 45 52 45 00 FE 08 1E 00 99 C7 28 31 34 29 3B |TERE.......(14);|
000000D0: C7 28 38 29 3A 97 35 33 32 38 30 2C 39 3A 97 35 |.(8):.53280,9:.5|
000000E0: 33 32 38 31 2C 39 20 20 20 20 20 20 20 20 3A 8F |3281,9 :.|
000000F0: 20 20 20 53 4B 5B 52 4D 46 41 52 56 45 52 00 23 | SK[RMFARVER.#|
00000100: 09 28 00 99 A3 39 29 22 11 11 11 11 11 C4 CF C2 |.(...9)"........|
00000110: C2 C5 CC D4 20 C9 CE C4 C5 D8 2D D5 C4 D3 CB D2 |.... .....-.....|
00000120: C9 C6 D4 00 50 09 32 00 99 A3 31 39 29 22 11 11 |....P.2...19)"..|
00000130: 11 11 41 46 22 3A 99 A3 31 32 29 22 11 11 11 11 |..AF":..12)"....|
00000140: C2 4A 41 52 4E 45 20 D6 2E 20 CA 45 4E 53 45 4E |.JARNE .. .ENSEN|
00000150: 00 65 09 3C 00 81 49 B2 31 A4 33 30 30 30 3A 82 |.e.<..I.1.3000:.|
00000160: 3A 99 22 93 22 00 75 09 64 00 86 4E 41 24 28 31 |:.".".u.d..NA$(1|
00000170: 35 30 2C 32 29 00 91 09 6E 00 49 53 B2 32 35 36 |50,2)...n.IS.256|
00000180: AC 28 C2 28 34 36 29 AB 31 39 29 3A 97 49 53 2C |.(.(46).19):.IS,|
00000190: 30 00 B6 09 78 00 43 4C 24 B2 22 93 11 11 11 11 |0...x.CL$.".....|
000001A0: 11 11 11 11 11 11 11 11 22 3A 4D 24 B2 22 20 20 |........":M$." |
000001B0: 20 20 20 20 20 22 00 F6 09 82 00 99 43 4C 24 3B | "......CL$;|
000001C0: 22 20 20 20 20 D6 49 4C 20 44 55 20 48 41 56 45 |" .IL DU HAVE|
000001D0: 20 53 54 41 52 54 2D 50 41 50 49 52 22 3B 3A 8D | START-PAPIR";:.|
000001E0: 39 30 30 20 20 20 20 3A 8F 20 20 20 53 54 41 52 |900 :. STAR|
000001F0: 54 50 41 50 49 52 00 0E 0A 8C 00 44 4E B2 31 3A |TPAPIR.....DN.1:|
00000200: 99 43 4C 24 3B 3A 8B 41 B3 31 A7 31 36 30 00 27 |.CL$;:.A.1.160.'|
00000210: 0A 96 00 9F 31 2C 34 3A 81 49 B2 31 A4 34 31 3A |....1,4:.I.1.41:|
00000220: 98 31 3A 82 3A A0 31 00 4D 0A A0 00 99 A3 36 29 |.1:.:.1.M.....6)|
00000230: 22 C5 52 20 44 49 53 4B 20 4E 52 2E 22 3B 44 4E |".R DISK NR.";DN|
00000240: 3B 22 4B 4C 41 52 22 3B 3A 8D 39 30 30 00 65 0A |;"KLAR";:.900.e.|
00000250: AA 00 99 43 4C 24 3B 3A 8B 41 B3 31 AF 44 4E B2 |...CL$;:.A.1.DN.|
00000260: 31 A7 35 38 30 00 7C 0A AF 00 8B 41 B3 31 A7 41 |1.580.|....A.1.A|
00000270: 4C 28 32 29 B2 AB 31 3A 89 35 30 30 00 C3 0A B4 |L(2)..1:.500....|
00000280: 00 99 22 13 95 50 CF 34 34 2C 38 3A 47 CF 33 30 |.."..P.44,8:G.30|
00000290: 30 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |0" |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002B0: 20 3A 8F 20 20 20 44 59 4E 41 4D 49 53 4B 20 4B | :. DYNAMISK K|
000002C0: 45 59 2D 00 04 0B BE 00 97 36 33 31 2C 31 39 3A |EY-......631,19:|
000002D0: 97 36 33 32 2C 31 33 3A 97 31 39 38 2C 32 20 20 |.632,13:.198,2 |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002F0: 20 20 20 3A 8F 20 20 20 4B 45 59 42 4F 41 52 44 | :. KEYBOARD|
00000300: 2D 52 55 4E 00 41 0B C8 00 9F 31 35 2C 38 2C 31 |-RUN.A....15,8,1|
00000310: 35 2C 22 49 22 3A 97 34 34 2C C2 28 34 36 29 AB |5,"I":.44,.(46).|
00000320: 31 39 3A 93 22 24 22 2C 38 20 20 20 20 20 20 20 |19:."$",8 |
00000330: 20 3A 8F 20 20 20 46 4C 59 54 20 42 41 53 49 43 | :. FLYT BASIC|
00000340: 2D 00 82 0B 2C 01 49 41 B2 49 53 3A 54 4C B2 30 |-...,.IA.IS:TL.0|
00000350: 3A 99 22 93 9E 22 3A 84 31 35 2C 45 4E 2C 45 4D |:."..":.15,EN,EM|
00000360: 24 2C 45 54 2C 45 53 20 20 20 20 20 20 20 20 20 |$,ET,ES |
00000370: 20 3A 8F 20 20 20 53 54 41 52 54 50 4F 49 4E 54 | :. STARTPOINT|
00000380: 45 52 00 C6 0B 31 01 A0 31 35 3A 8B 45 4E B2 30 |ER...1..15:.EN.0|
00000390: A7 33 31 30 20 20 20 20 20 20 20 20 20 20 20 20 |.310 |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 3A 8F 20 20 20 44 49 53 4B 2D 46 45 4A | :. DISK-FEJ|
000003C0: 4C 4B 41 4E 41 4C 00 F1 0B 32 01 99 4D 24 3B 22 |LKANAL...2..M$;"|
000003D0: C4 49 53 4B 46 45 4A 4C 20 4E 52 2E 22 3B 45 4E |.ISKFEJL NR.";EN|
000003E0: 3A 99 3A 99 4D 24 3B 45 4D 24 3A 99 3A 89 31 36 |:.:.M$;EM$:.:.16|
000003F0: 30 00 32 0C 36 01 4E 41 24 B2 C4 28 C2 28 49 41 |0.2.6.NA$..(.(IA|
00000400: AA 33 29 AA 32 35 36 AC C2 28 49 41 AA 34 29 29 |.3).256..(IA.4))|
00000410: AA 22 20 22 20 20 20 20 20 20 20 20 20 20 20 20 |." " |
00000420: 20 3A 8F 20 20 20 49 4E 44 4C 5B 53 20 49 4E 44 | :. INDL[S IND|
00000430: 45 58 00 3E 0C 40 01 49 41 B2 49 41 AA 35 00 53 |EX.>.@.IA.IA.5.S|
00000440: 0C 4A 01 4E B2 C2 28 49 41 29 3A 8B 4E B2 30 A7 |.J.N..(IA):.N.0.|
00000450: 33 35 30 00 71 0C 54 01 4E 41 24 B2 4E 41 24 AA |350.q.T.NA$.NA$.|
00000460: C7 28 4E 29 3A 49 41 B2 49 41 AA 31 3A 89 33 33 |.(N):IA.IA.1:.33|
00000470: 30 00 AF 0C 5E 01 4E 41 24 28 54 4C 2C 44 4E 29 |0...^.NA$(TL,DN)|
00000480: B2 C8 28 4E 41 24 2C 32 38 29 3A 99 A3 35 29 4E |..(NA$,28):..5)N|
00000490: 41 24 20 20 20 20 20 20 20 20 20 20 20 20 20 3A |A$ :|
000004A0: 8F 20 20 20 53 4B 5B 52 4D 2D 50 52 49 4E 54 00 |. SK[RM-PRINT.|
000004B0: D1 0C 68 01 8B C2 28 49 41 AA 31 29 B0 C2 28 49 |..h...(IA.1)..(I|
000004C0: 41 AA 32 29 A7 54 4C B2 54 4C AA 31 3A 89 33 31 |A.2).TL.TL.1:.31|
000004D0: 30 00 F4 0C 6D 01 4E 41 24 28 30 2C 44 4E 29 B2 |0...m.NA$(0,DN).|
000004E0: 4E 41 24 28 30 2C 44 4E 29 AA 22 20 22 AA C7 28 |NA$(0,DN)." "..(|
000004F0: 31 34 36 29 00 31 0D 72 01 41 4C 28 44 4E 29 B2 |146).1.r.AL(DN).|
00000500: 54 4C 3A 8B 44 4E B2 31 A7 44 4E B2 32 3A 99 3A |TL:.DN.1.DN.2:.:|
00000510: 99 3A 89 31 36 30 20 20 20 20 20 20 20 20 3A 8F |.:.160 :.|
00000520: 20 20 20 48 45 4E 54 20 44 49 53 4B 20 4E 52 2E | HENT DISK NR.|
00000530: 32 00 4B 0D F4 01 8B 41 4C 28 31 29 B1 B2 41 4C |2.K....AL(1)..AL|
00000540: 28 32 29 A7 48 B2 41 4C 28 31 29 00 93 0D FE 01 |(2).H.AL(1).....|
00000550: 8B 41 4C 28 31 29 B3 41 4C 28 32 29 A7 48 B2 41 |.AL(1).AL(2).H.A|
00000560: 4C 28 32 29 20 20 20 20 20 20 20 20 20 20 20 20 |L(2) |
00000570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000580: 3A 8F 20 20 20 48 3D 41 4E 54 41 4C 20 4C 49 4E |:. H=ANTAL LIN|
00000590: 49 45 52 00 A5 0D 08 02 8B 48 B1 36 34 AB 4C 54 |IER......H.64.LT|
000005A0: A7 8D 37 30 30 00 EC 0D 12 02 9F 31 2C 34 3A 81 |..700......1,4:.|
000005B0: 49 B2 30 A4 48 3A 4E 24 B2 4D 24 AA 4E 41 24 28 |I.0.H:N$.M$.NA$(|
000005C0: 49 2C 31 29 20 20 20 20 20 20 20 20 20 20 20 20 |I,1) |
000005D0: 20 20 20 20 20 20 20 20 3A 8F 20 20 20 50 52 49 | :. PRI|
000005E0: 4E 54 45 52 55 44 53 4B 52 49 46 54 00 0B 0E 1C |NTERUDSKRIFT....|
000005F0: 02 8B 49 B1 41 4C 28 31 29 A7 4E 24 B2 4D 24 AA |..I.AL(1).N$.M$.|
00000600: 4D 24 AA 4D 24 AA 4D 24 AA 4D 24 00 2F 0E 26 02 |M$.M$.M$.M$./.&.|
00000610: 8B 49 B3 B2 41 4C 28 32 29 A7 4E 24 B2 4E 24 AA |.I..AL(2).N$.N$.|
00000620: 4D 24 AA 22 20 22 AA 4E 41 24 28 49 2C 32 29 00 |M$." ".NA$(I,2).|
00000630: 4D 0E 2B 02 8B 49 B2 36 36 A7 81 4E B2 31 A4 36 |M.+..I.66..N.1.6|
00000640: 3A 98 31 3A 4C 54 B2 4C 54 AA 31 3A 82 00 5F 0E |:.1:LT.LT.1:.._.|
00000650: 30 02 98 31 2C 4E 24 3A 82 3A 98 31 3A 98 31 00 |0..1,N$:.:.1:.1.|
00000660: 73 0E 3A 02 98 31 3A A0 31 3A 4C 54 B2 4C 54 AA |s.:..1:.1:LT.LT.|
00000670: 48 AA 34 00 B9 0E 3F 02 8B 4C 54 B1 36 38 A7 4C |H.4...?..LT.68.L|
00000680: 54 B2 4C 54 AB 37 32 3A 89 35 37 35 20 20 20 20 |T.LT.72:.575 |
00000690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006A0: 20 20 20 20 20 3A 8F 20 4A 55 53 54 2E 20 4C 49 | :. JUST. LI|
000006B0: 4E 49 45 54 5B 4C 4C 45 52 00 E7 0E 44 02 99 43 |NIET[LLER...D..C|
000006C0: 4C 24 3B 22 20 20 20 D6 49 4C 20 44 55 20 48 41 |L$;" .IL DU HA|
000006D0: 56 45 20 4E 59 20 53 49 44 45 20 50 41 50 49 52 |VE NY SIDE PAPIR|
000006E0: 22 3B 3A 8D 39 30 30 00 FB 0E 4E 02 99 43 4C 24 |";:.900...N..CL$|
000006F0: 3B 3A 8B 41 B1 31 A7 8D 37 30 30 00 23 0F 58 02 |;:.A.1..700.#.X.|
00000700: 99 22 20 20 20 20 20 D6 49 4C 20 44 55 20 55 44 |." .IL DU UD|
00000710: 53 4B 52 49 56 45 20 4D 45 52 45 20 22 3B 3A 8D |SKRIVE MERE ";:.|
00000720: 39 30 30 00 3C 0F 62 02 99 43 4C 24 3B 3A 8B 41 |900.<.b..CL$;:.A|
00000730: B1 31 A7 44 4E B2 31 3A 89 31 36 30 00 45 0F 6C |.1.DN.1:.160.E.l|
00000740: 02 8D 37 30 30 00 71 0F 76 02 99 43 4C 24 3B 22 |..700.q.v..CL$;"|
00000750: 20 20 20 20 D6 49 4C 20 44 55 20 48 41 56 45 20 | .IL DU HAVE |
00000760: 53 4C 55 54 2D 50 41 50 49 52 22 3B 3A 8D 39 30 |SLUT-PAPIR";:.90|
00000770: 30 00 83 0F 80 02 99 43 4C 24 3A 8B 41 B3 31 A7 |0......CL$:.A.1.|
00000780: 38 30 30 00 B6 0F 8A 02 9F 31 2C 34 3A 81 49 B2 |800......1,4:.I.|
00000790: 31 A4 33 31 3A 98 31 3A 82 3A A0 31 3A 89 38 30 |1.31:.1:.:.1:.80|
000007A0: 30 20 20 20 20 20 20 3A 8F 20 20 20 53 4C 55 54 |0 :. SLUT|
000007B0: 2D 50 41 50 49 52 00 F8 0F BC 02 8B 4C 54 B2 30 |-PAPIR......LT.0|
000007C0: A7 8E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007E0: 20 20 20 20 20 20 3A 8F 20 20 20 4E 59 20 53 49 | :. NY SI|
000007F0: 44 45 20 28 53 55 42 29 00 01 10 C6 02 9F 31 2C |DE (SUB)......1,|
00000800: 34 00 1B 10 D0 02 98 31 3A 4C 54 B2 4C 54 AA 31 |4......1:LT.LT.1|
00000810: 3A 8B 4C 54 B3 37 32 A7 37 32 30 00 29 10 DA 02 |:.LT.72.720.)...|
00000820: 4C 54 B2 30 3A A0 31 3A 8E 00 6A 10 20 03 99 43 |LT.0:.1:..j. ..C|
00000830: 4C 24 A6 31 35 29 22 54 41 4B 20 46 4F 52 20 4E |L$.15)"TAK FOR N|
00000840: 55 2E 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |U." |
00000850: 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 20 20 | :. |
00000860: 41 46 53 4C 55 54 4E 49 4E 47 00 7D 10 2A 03 97 |AFSLUTNING.}.*..|
00000870: 34 36 2C C2 28 34 36 29 AB 32 30 3A 9C 00 99 10 |46,.(46).20:....|
00000880: 34 03 99 C7 28 39 29 3A 97 37 39 32 2C 37 31 3A |4...(9):.792,71:|
00000890: 97 37 38 38 2C 34 39 3A 80 00 DD 10 84 03 99 22 |.788,49:......."|
000008A0: 20 3F 20 20 28 4A 2F 4E 29 22 3A 97 31 39 38 2C | ? (J/N)":.198,|
000008B0: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |0 |
000008C0: 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 20 20 | :. |
000008D0: 4A 41 2F 4E 45 4A 20 20 28 53 55 42 29 00 F0 10 |JA/NEJ (SUB)...|
000008E0: 8E 03 A1 47 24 3A 8B 47 24 B2 22 22 A7 39 31 30 |...G$:.G$."".910|
000008F0: 00 02 11 98 03 8B 47 24 B2 22 4E 22 A7 41 B2 30 |......G$."N".A.0|
00000900: 3A 8E 00 14 11 A2 03 8B 47 24 B2 22 4A 22 A7 41 |:.......G$."J".A|
00000910: B2 32 3A 8E 00 27 11 AC 03 8B C2 28 31 39 37 29 |.2:..'.....(197)|
00000920: B2 36 33 A7 38 30 30 00 30 11 B6 03 89 39 31 30 |.63.800.0....910|
00000930: 00 00 00 |... |
..M.... * * * DOBBELT INDEX-UDSKRIFT
9/9-1984 BJARNE V. JENSEN * * *...
..."..":.1,4:.1,G(15);: 1 :.
RESET PRINTER.D....788,52:.792,193:.46,
B(46).20:. :. FLYT POINTERE....
..G(14);G(8):.53280,9:.53281,9 :.
SK[RMFARVER.#.(...9)".....DOBBELT IND
EX-UDSKRIFT.P.2...19)"....AF":..12)"....
BJARNE V. JENSEN.E.<..I.1.3000:.:.".".U.
D..NA$(150,2)...N.IS.256.(B(46).19):.IS,
0...X.CL$.".............":M$." "..
....CL$;" VIL DU HAVE START-PAPIR";:.
900 :. STARTPAPIR.....DN.1:.CL$;:.A
.1.160.'....1,4:.I.1.41:.1:.: 1.M. ...6)
"ER DISK NR.";DN;"KLAR";:.900.E....CL$;:
.A.1.DN.1.580.|....A.1.AL(2)..1:.500.C..
.."..PO44,8:GO300"
:. DYNAMISK KEY-......631,19:
.632,13:.198,2 :.
KEYBOARD-RUN.A.H..15,8,15,"I":.44,B(46).
19:."$",8 :. FLYT BASIC-...,.IA
.IS:TL.0:."..":.15,EN,EM$,ET,ES
:. STARTPOINTER.F.1. 15:.EN.0.310
:. DISK-FEJ
LKANAL...2..M$;"DISKFEJL NR.";EN:.:.M$;E
M$:.:.160.2.6.NA$.D(B(IA.3).256.B(IA.4))
." " :. INDL[S INDEX.>.@.I
A.IA.5.S.J.N.B(IA):.N.0.350.Q.T.NA$.NA$.
G(N):IA.IA.1:.330...^.NA$(TL,DN).H(NA$,2
8):..5)NA$ :. SK[RM-PRINT.
Q.H..B(IA.1).B(IA.2).TL.TL.1:.310...M.NA
$(0,DN).NA$(0,DN)." ".G(146).1.R.AL(DN).
TL:.DN.1.DN.2:.:.:.160 :. HENT
DISK NR.2.K....AL(1)..AL(2).H.AL(1).....
.AL(1).AL(2).H.AL(2)
:. H=ANTAL LINIER......H.64.LT
..700......1,4:.I.0.H:N$.M$.NA$(I,1)
:. PRINTERUDSKRIFT....
..I.AL(1).N$.M$.M$.M$.M$.M$./.&..I..AL(2
).N$.N$.M$." ".NA$(I,2).M.+..I.66..N.1.6
:.1:LT.LT.1:.._.0..1,N$:.:.1:.1.S.:..1:
1:LT.LT.H.4...?..LT.68.LT.LT.72:.575
:. JUST. LINIET[LLE
R...D..CL$;" VIL DU HAVE NY SIDE PAPIR
";:.900...N..CL$;:.A.1..700.#.X.." V
IL DU UDSKRIVE MERE ";:.900.<.B..CL$;:.A
.1.DN.1:.160.E.L..700.Q.V..CL$;" VIL
DU HAVE SLUT-PAPIR";:.900......CL$:.A.1.
800......1,4:.I.1.31:.1:.: 1:.800 :
. SLUT-PAPIR......LT.0..
:. NY SIDE (SUB)
...F..1,4...P..1:LT.LT.1:.LT.72.720.).Z.
LT.0: 1:..J. ..CL$.15)"TAK FOR NU."
:. AFSLUTNING.}.*..
46,B(46).20:....4..G(9):.792,71:.788,49:
......." ? (J/N)":.198,0
:. JA/NEJ (SUB)......G$:.G
$."".910......G$."N".A.0:.......G$."J".A
.2:..'....B(197).63.800.0....910...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL