> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 8F 20 2A 20 56 4F 4E 20 43 41 |....... * VON CA|
00000010: 52 53 54 45 4E 20 48 41 4E 53 45 4E 20 2A 00 4C |RSTEN HANSEN *.L|
00000020: 08 14 00 99 22 93 9B 4E 45 55 45 20 5A 45 49 4C |...."..NEUE ZEIL|
00000030: 45 4E 4E 55 4D 4D 45 52 4E 20 55 4E 44 20 53 50 |ENNUMMERN UND SP|
00000040: 52 55 4E 47 42 45 46 45 48 4C 45 22 00 88 08 1E |RUNGBEFEHLE"....|
00000050: 00 99 22 44 49 45 53 45 53 20 50 52 4F 47 52 41 |.."DIESES PROGRA|
00000060: 4D 4D 20 4B 4F 50 49 45 52 54 20 45 49 4E 20 46 |MM KOPIERT EIN F|
00000070: 49 4C 45 20 41 55 46 20 20 20 20 44 45 52 20 44 |ILE AUF DER D|
00000080: 49 53 4B 45 54 54 45 2E 00 D2 08 28 00 99 22 44 |ISKETTE....(.."D|
00000090: 41 53 20 4E 45 55 45 20 46 49 4C 45 20 42 45 4B |AS NEUE FILE BEK|
000000A0: 4F 4D 4D 54 20 4E 45 55 45 20 5A 45 49 4C 45 4E |OMMT NEUE ZEILEN|
000000B0: 2D 20 20 20 20 20 20 4E 55 4D 4D 45 52 4E 2C 20 |- NUMMERN, |
000000C0: 41 55 43 48 20 4E 41 43 48 20 47 4F 54 4F 2C 20 |AUCH NACH GOTO, |
000000D0: 22 3B 00 19 09 2D 00 99 22 47 4F 53 55 42 2C 20 |";...-.."GOSUB, |
000000E0: 54 48 45 4E 2C 20 20 20 52 55 4E 20 55 4E 44 20 |THEN, RUN UND |
000000F0: 4C 49 53 54 20 57 45 52 44 45 4E 20 44 49 45 20 |LIST WERDEN DIE |
00000100: 5A 45 49 4C 45 4E 4E 55 4D 4D 45 52 4E 20 47 45 |ZEILENNUMMERN GE|
00000110: 2D 41 45 4E 44 45 52 54 22 00 58 09 32 00 99 22 |-AENDERT".X.2.."|
00000120: 2D 20 4E 55 52 20 4E 49 43 48 54 20 49 4D 20 54 |- NUR NICHT IM T|
00000130: 45 58 54 20 28 48 4F 43 48 4B 4F 4D 4D 41 4D 4F |EXT (HOCHKOMMAMO|
00000140: 44 55 53 2C 20 20 20 20 54 41 53 54 41 54 55 52 |DUS, TASTATUR|
00000150: 50 55 46 46 45 52 29 2E 00 7C 09 3C 00 48 49 B2 |PUFFER)..|.<.HI.|
00000160: 32 35 36 3A 86 20 5A 28 31 30 30 30 29 3A 8F 20 |256:. Z(1000):. |
00000170: 5A 45 49 4C 45 4E 41 4E 5A 41 48 4C 00 9D 09 46 |ZEILENANZAHL...F|
00000180: 00 85 22 11 44 41 53 20 41 4C 54 45 20 46 49 4C |..".DAS ALTE FIL|
00000190: 45 20 48 45 49 53 53 54 22 3B 46 31 24 00 BD 09 |E HEISST";F1$...|
000001A0: 50 00 85 22 44 41 53 20 4E 45 55 45 20 46 49 4C |P.."DAS NEUE FIL|
000001B0: 45 20 48 45 49 53 53 54 22 3B 46 32 24 00 E9 09 |E HEISST";F2$...|
000001C0: 5A 00 85 22 44 49 45 20 45 52 53 54 45 20 5A 45 |Z.."DIE ERSTE ZE|
000001D0: 49 4C 45 20 49 4D 20 4E 45 55 45 4E 20 50 52 4F |ILE IM NEUEN PRO|
000001E0: 47 52 41 4D 4D 22 3B 45 5A 00 01 0A 64 00 85 22 |GRAMM";EZ...d.."|
000001F0: 5A 45 49 4C 45 4E 41 42 53 54 41 4E 44 22 3B 5A |ZEILENABSTAND";Z|
00000200: 41 00 1B 0A 6E 00 8B 20 46 31 24 B2 22 22 A7 99 |A...n.. F1$.""..|
00000210: 22 91 91 91 91 91 22 3A 89 37 30 00 34 0A 78 00 |".....":.70.4.x.|
00000220: 8B 20 46 32 24 B2 22 22 A7 99 22 91 91 91 91 22 |. F2$."".."...."|
00000230: 3A 89 38 30 00 56 0A 82 00 8B 20 45 5A B3 30 20 |:.80.V.... EZ.0 |
00000240: B0 20 45 5A B1 36 33 39 39 39 20 A7 99 22 91 91 |. EZ.63999 .."..|
00000250: 91 22 3A 89 39 30 00 6D 0A 8C 00 8B 20 5A 41 B3 |.":.90.m.... ZA.|
00000260: 31 20 A7 99 22 91 91 22 3A 89 31 30 30 00 75 0A |1 .."..":.100.u.|
00000270: 96 00 99 3A 99 00 82 0A A0 00 9F 31 35 2C 38 2C |...:.......15,8,|
00000280: 31 35 00 A7 0A AA 00 9F 38 2C 38 2C 38 2C 46 31 |15......8,8,8,F1|
00000290: 24 AA 22 2C 50 2C 52 22 3A 8D 34 38 30 3A A1 23 |$.",P,R":.480:.#|
000002A0: 38 2C 41 24 2C 42 24 00 D5 0A B4 00 4C 49 B2 C6 |8,A$,B$.....LI..|
000002B0: 28 41 24 AA C7 28 30 29 29 AA 48 49 AC C6 28 42 |(A$..(0)).HI..(B|
000002C0: 24 AA C7 28 30 29 29 3A 8B 4C 49 B1 34 30 39 36 |$..(0)):.LI.4096|
000002D0: 30 A7 34 39 30 00 FF 0A BE 00 9F 39 2C 38 2C 39 |0.490......9,8,9|
000002E0: 2C 22 30 3A 22 AA 46 32 24 AA 22 2C 50 2C 57 22 |,"0:".F2$.",P,W"|
000002F0: 3A 8D 34 38 30 3A 98 39 2C 41 24 AA 42 24 3B 00 |:.480:.9,A$.B$;.|
00000300: 34 0B C8 00 8D 35 34 30 3A 5A 28 41 4E 29 B2 C6 |4....540:Z(AN)..|
00000310: 28 4C 4F 24 AA C7 28 30 29 29 AA 48 49 AC C6 28 |(LO$..(0)).HI..(|
00000320: 48 49 24 AA C7 28 30 29 29 3A 8B 41 24 B2 22 22 |HI$..(0)):.A$.""|
00000330: A7 32 34 30 00 52 0B D2 00 99 22 91 5A 45 49 4C |.240.R....".ZEIL|
00000340: 45 22 3B 5A 28 41 4E 29 3B 22 9D 20 49 53 54 20 |E";Z(AN);". IST |
00000350: 44 41 00 79 0B DC 00 8D 35 32 30 3A 41 4E B2 41 |DA.y....520:AN.A|
00000360: 4E AA 31 3A 8B 20 41 4E AC 5A 41 AA 45 5A B3 36 |N.1:. AN.ZA.EZ.6|
00000370: 33 39 39 39 20 A7 32 30 30 00 A7 0B E6 00 99 22 |3999 .200......"|
00000380: 44 49 45 20 5A 45 49 4C 45 4E 4E 55 4D 4D 45 52 |DIE ZEILENNUMMER|
00000390: 4E 20 57 45 52 44 45 4E 20 5A 55 20 47 52 4F 53 |N WERDEN ZU GROS|
000003A0: 53 22 3A 89 34 37 30 00 DC 0B F0 00 41 4E B2 41 |S":.470.....AN.A|
000003B0: 4E AB 31 3A A0 38 3A 99 22 11 22 3A 9F 38 2C 38 |N.1:.8:.".":.8,8|
000003C0: 2C 38 2C 46 31 24 AA 22 2C 50 2C 52 22 3A 8D 34 |,8,F1$.",P,R":.4|
000003D0: 38 30 3A A1 23 38 2C 41 24 2C 41 24 00 F0 0B FA |80:.#8,A$,A$....|
000003E0: 00 8D 35 34 30 3A 8B 41 24 B2 22 22 A7 34 37 30 |..540:.A$."".470|
000003F0: 00 04 0C 04 01 8D 35 36 30 3A 8B 41 24 B2 22 22 |......560:.A$.""|
00000400: A7 34 32 30 00 1C 0C 0E 01 8B 41 B2 33 34 A7 8D |.420......A.34..|
00000410: 36 32 30 3A 8B 41 B2 30 A7 34 32 30 00 31 0C 18 |620:.A.0.420.1..|
00000420: 01 8B 41 B2 31 34 33 A7 8D 36 34 30 3A 89 34 32 |..A.143..640:.42|
00000430: 30 00 64 0C 22 01 8B 41 B3 B1 31 33 37 AF 41 B3 |0.d."..A..137.A.|
00000440: B1 31 33 38 AF 41 B3 B1 31 34 31 AF 41 B3 B1 31 |.138.A..141.A..1|
00000450: 35 35 AF 41 B3 B1 31 36 37 AF 41 B3 B1 32 30 33 |55.A..167.A..203|
00000460: A7 32 36 30 00 9C 0C 2C 01 8B 41 B2 32 30 33 A7 |.260...,..A.203.|
00000470: 43 24 B2 C8 28 43 24 2C C3 28 43 24 29 AB 31 29 |C$..(C$,.(C$).1)|
00000480: AA C7 28 31 33 37 29 3A 8D 35 38 30 3A 8B 41 24 |..(137):.580:.A$|
00000490: B3 B1 C7 28 31 36 34 29 A7 35 30 30 00 C2 0C 36 |...(164).500...6|
000004A0: 01 8B 41 B2 31 36 37 A7 8D 35 38 30 3A 8B 41 24 |..A.167..580:.A$|
000004B0: B1 22 39 22 A7 43 24 B2 43 24 AA 41 24 3A 89 32 |."9".C$.C$.A$:.2|
000004C0: 37 30 00 D2 0C 40 01 8B 41 24 B3 22 3A 22 A7 33 |70...@..A$.":".3|
000004D0: 36 30 00 DB 0C 4A 01 8D 35 38 30 00 F9 0C 54 01 |60...J..580...T.|
000004E0: 8B 41 B2 30 B0 41 B2 35 38 A7 43 24 B2 43 24 AA |.A.0.A.58.C$.C$.|
000004F0: C7 28 41 29 3A 89 34 31 30 00 14 0D 5E 01 8B 41 |.(A):.410...^..A|
00000500: B2 31 37 31 A7 43 24 B2 43 24 AA C7 28 41 29 3A |.171.C$.C$..(A):|
00000510: 89 33 33 30 00 34 0D 68 01 42 24 B2 41 24 3A 8D |.330.4.h.B$.A$:.|
00000520: 36 30 30 3A 8B 41 B1 35 38 AF 41 B3 B1 31 37 31 |600:.A.58.A..171|
00000530: A7 35 30 30 00 55 0D 72 01 43 B2 C5 28 42 24 29 |.500.U.r.C..(B$)|
00000540: 3A 81 42 B2 30 A4 41 4E 3A 8B 20 5A 28 42 29 B2 |:.B.0.AN:. Z(B).|
00000550: 43 A7 34 30 30 00 6C 0D 7C 01 82 3A 8B 5A 28 30 |C.400.l.|..:.Z(0|
00000560: 29 B3 B1 30 AF 43 B2 30 A7 34 31 30 00 75 0D 86 |)..0.C.0.410.u..|
00000570: 01 89 35 30 30 00 A4 0D 90 01 43 24 B2 43 24 AA |..500.....C$.C$.|
00000580: CA 28 C4 28 42 AC 5A 41 AA 45 5A 29 2C 32 29 AA |.(.(B.ZA.EZ),2).|
00000590: C7 28 41 29 3A 8B 41 B2 34 34 B0 41 B2 31 37 31 |.(A):.A.44.A.171|
000005A0: A7 33 33 30 00 B2 0D 9A 01 8B 41 B2 35 38 A7 32 |.330......A.58.2|
000005B0: 36 30 00 D7 0D A4 01 4C 49 B2 4C 49 AA 34 AA C3 |60.....LI.LI.4..|
000005C0: 28 43 24 29 3A 5A B2 4E 52 AC 5A 41 AA 45 5A 3A |(C$):Z.NR.ZA.EZ:|
000005D0: 4E 52 B2 4E 52 AA 31 00 F9 0D AE 01 42 24 B2 C7 |NR.NR.1.....B$..|
000005E0: 28 5A AB B5 28 5A AD 32 35 36 29 AC 32 35 36 29 |(Z..(Z.256).256)|
000005F0: AA C7 28 5A AD 32 35 36 29 00 21 0E B8 01 42 24 |..(Z.256).!...B$|
00000600: B2 C7 28 4C 49 AB B5 28 4C 49 AD 32 35 36 29 AC |..(LI..(LI.256).|
00000610: 32 35 36 29 AA C7 28 4C 49 AD 32 35 36 29 AA 42 |256)..(LI.256).B|
00000620: 24 00 5B 0E C2 01 98 39 2C 42 24 3B 43 24 3B 3A |$.[....9,B$;C$;:|
00000630: 43 24 B2 22 22 3A 99 22 91 5A 45 49 4C 45 22 3B |C$."":.".ZEILE";|
00000640: 5A 3B 22 9D 20 49 53 54 20 47 45 53 50 45 49 43 |Z;". IST GESPEIC|
00000650: 48 45 52 54 20 57 4F 52 44 45 4E 00 64 0E CC 01 |HERT WORDEN.d...|
00000660: 89 32 35 30 00 7B 0E D6 01 98 39 2C C7 28 30 29 |.250.{....9,.(0)|
00000670: AA C7 28 30 29 3B 3A 89 34 39 30 00 99 0E E0 01 |..(0);:.490.....|
00000680: 84 31 35 2C 45 4E 24 2C 45 4D 24 3A 8B 20 C5 28 |.15,EN$,EM$:. .(|
00000690: 45 4E 24 29 B3 32 30 A7 8E 00 C3 0E EA 01 99 22 |EN$).20........"|
000006A0: 44 49 53 4B 20 53 54 41 54 55 53 3A 22 3B 45 4E |DISK STATUS:";EN|
000006B0: 24 22 2C 22 45 4D 24 3A A0 38 3A A0 39 3A A0 31 |$","EM$:.8:.9:.1|
000006C0: 35 3A 80 00 F6 0E F4 01 99 22 46 45 48 4C 45 52 |5:......."FEHLER|
000006D0: 20 49 4E 20 5A 45 49 4C 45 22 3B C6 28 4C 4F 24 | IN ZEILE";.(LO$|
000006E0: AA C7 28 30 29 29 AA 32 35 36 AC C6 28 48 49 24 |..(0)).256..(HI$|
000006F0: AA C7 28 30 29 29 00 24 0F FE 01 99 22 44 45 53 |..(0)).$...."DES|
00000700: 48 41 4C 42 20 49 53 54 20 22 3B 46 32 24 3B 22 |HALB IST ";F2$;"|
00000710: 20 4E 49 43 48 54 20 46 45 52 54 49 47 21 22 3A | NICHT FERTIG!":|
00000720: 89 34 37 30 00 3B 0F 08 02 A1 23 38 2C 41 24 3A |.470.;....#8,A$:|
00000730: 8B 41 24 B3 B1 22 22 A7 35 32 30 00 41 0F 12 02 |.A$.."".520.A...|
00000740: 8E 00 57 0F 1C 02 A1 23 38 2C 41 24 2C 41 24 2C |..W....#8,A$,A$,|
00000750: 4C 4F 24 2C 48 49 24 00 5D 0F 26 02 8E 00 96 0F |LO$,HI$.].&.....|
00000760: 30 02 A1 23 38 2C 41 24 3A 41 B2 C6 28 41 24 AA |0..#8,A$:A..(A$.|
00000770: C7 28 30 29 29 3A 43 24 B2 43 24 AA C7 28 41 29 |.(0)):C$.C$..(A)|
00000780: 3A 8B 41 B3 31 33 37 AF 41 B3 B1 33 34 AF 41 B3 |:.A.137.A..34.A.|
00000790: B1 30 A7 35 36 30 00 9C 0F 3A 02 8E 00 BE 0F 44 |.0.560...:.....D|
000007A0: 02 A1 23 38 2C 41 24 3A 41 B2 C6 28 41 24 AA C7 |..#8,A$:A..(A$..|
000007B0: 28 30 29 29 3A 8B 41 B2 33 32 A7 35 38 30 00 C4 |(0)):.A.32.580..|
000007C0: 0F 4E 02 8E 00 F4 0F 58 02 A1 23 38 2C 41 24 3A |.N.....X..#8,A$:|
000007D0: 42 24 B2 42 24 AA 41 24 3A 41 B2 C6 28 41 24 AA |B$.B$.A$:A..(A$.|
000007E0: C7 28 30 29 29 3A 8B 41 B1 34 37 AF 41 B3 35 38 |.(0)):.A.47.A.58|
000007F0: A7 36 30 30 00 FA 0F 62 02 8E 00 2D 10 6C 02 A1 |.600...b...-.l..|
00000800: 23 38 2C 41 24 3A 41 B2 C6 28 41 24 AA C7 28 30 |#8,A$:A..(A$..(0|
00000810: 29 29 3A 43 24 B2 43 24 AA C7 28 41 29 3A 8B 41 |)):C$.C$..(A):.A|
00000820: B3 B1 33 34 AF 41 B3 B1 30 A7 36 32 30 00 33 10 |..34.A..0.620.3.|
00000830: 76 02 8E 00 60 10 80 02 A1 23 38 2C 41 24 3A 41 |v...`....#8,A$:A|
00000840: B2 C6 28 41 24 AA C7 28 30 29 29 3A 43 24 B2 43 |..(A$..(0)):C$.C|
00000850: 24 AA C7 28 41 29 3A 8B 41 B3 B1 30 A7 36 34 30 |$..(A):.A..0.640|
00000860: 00 66 10 8A 02 8E 00 00 00 |.f....... |
....... * VON CARSTEN HANSEN *.L...."..N
EUE ZEILENNUMMERN UND SPRUNGBEFEHLE"....
.."DIESES PROGRAMM KOPIERT EIN FILE AUF
DER DISKETTE..R.(.."DAS NEUE FILE BEK
OMMT NEUE ZEILEN- NUMMERN, AUCH NAC
H GOTO, ";...-.."GOSUB, THEN, RUN UND
LIST WERDEN DIE ZEILENNUMMERN GE-AENDERT
".X.2.."- NUR NICHT IM TEXT (HOCHKOMMAMO
DUS, TASTATURPUFFER)..|.<.HI.256:. Z(
1000):. ZEILENANZAHL...F..".DAS ALTE FIL
E HEISST";F1$...P.."DAS NEUE FILE HEISST
";F2$...Z.."DIE ERSTE ZEILE IM NEUEN PRO
GRAMM";EZ...D.."ZEILENABSTAND";ZA...N..
F1$.""..".....":.70.4.X.. F2$."".."...."
:.80.V.... EZ.0 . EZ.63999 .."...":.90.M
.... ZA.1 .."..":.100.U....:.... ..15,8,
15......8,8,8,F1$.",P,R":.480:.#8,A$,B$.
U...LI.F(A$.G(0)).HI.F(B$.G(0)):.LI.4096
0.490......9,8,9,"0:".F2$.",P,W":.480:.9
,A$.B$;.4.H..540:Z(AN).F(LO$.G(0)).HI.F(
HI$.G(0)):.A$."".240.R.R..".ZEILE";Z(AN)
;". IST DA.Y....520:AN.AN.1:. AN.ZA.EZ.6
3999 .200......"DIE ZEILENNUMMERN WERDEN
ZU GROSS":.470.....AN.AN.1: 8:.".":.8,8
,8,F1$.",P,R":.480:.#8,A$,A$......540:.A
$."".470......560:.A$."".420......A.34..
620:.A.0.420.1....A.143..640:.420.D."..A
..137.A..138.A..141.A..155.A..167.A..203
.260...,..A.203.C$.H(C$,C(C$).1).G(137):
.580:.A$..G(164).500.B.6..A.167..580:.A$
."9".C$.C$.A$:.270.R.@..A$.":".360...J..
580...T..A.0.A.58.C$.C$.G(A):.410...^..A
.171.C$.C$.G(A):.330.4.H.B$.A$:.600:.A.5
8.A..171.500.U.R.C.E(B$):.B.0.AN:. Z(B).
C.400.L.|..:.Z(0)..0.C.0.410.U....500...
..C$.C$.J(D(B.ZA.EZ),2).G(A):.A.44.A.171
.330......A.58.260.W...LI.LI.4.C(C$):Z.N
R.ZA.EZ:NR.NR.1.....B$.G(Z..(Z.256).256)
.G(Z.256).!...B$.G(LI..(LI.256).256).G(L
I.256).B$.[.B..9,B$;C$;:C$."":.".ZEILE";
Z;". IST GESPEICHERT WORDEN.D.L..250.{.V
..9,G(0).G(0);:.490......15,EN$,EM$:. E(
EN$).20...C...."DISK STATUS:";EN$","EM$:
8: 9: 15:......."FEHLER IN ZEILE";F(LO$
.G(0)).256.F(HI$.G(0)).$...."DESHALB IST
";F2$;" NICHT FERTIG!":.470.;....#8,A$:
.A$.."".520.A.....W....#8,A$,A$,LO$,HI$.
].&.....0..#8,A$:A.F(A$.G(0)):C$.C$.G(A)
:.A.137.A..34.A..0.560...:.....D..#8,A$:
A.F(A$.G(0)):.A.32.580.D.N.....X..#8,A$:
B$.B$.A$:A.F(A$.G(0)):.A.47.A.58.600...B
...-.L..#8,A$:A.F(A$.G(0)):C$.C$.G(A):.A
..34.A..0.620.3.V...`....#8,A$:A.F(A$.G(
0)):C$.C$.G(A):.A..0.640.F.......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL