> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 05 00 8F 20 43 4F 50 59 52 49 47 48 |..).... COPYRIGH|
00000010: 54 20 42 59 20 43 48 49 50 2C 20 44 49 53 4B 20 |T BY CHIP, DISK |
00000020: 23 20 35 2E 30 30 39 2E 31 00 46 08 0A 00 8F 20 |# 5.009.1.F.... |
00000030: 2A 20 56 4F 4E 20 43 41 52 53 54 45 4E 20 48 41 |* VON CARSTEN HA|
00000040: 4E 53 45 4E 20 2A 00 74 08 14 00 99 22 93 9B 4E |NSEN *.t...."..N|
00000050: 45 55 45 20 5A 45 49 4C 45 4E 4E 55 4D 4D 45 52 |EUE ZEILENNUMMER|
00000060: 4E 20 55 4E 44 20 53 50 52 55 4E 47 42 45 46 45 |N UND SPRUNGBEFE|
00000070: 48 4C 45 22 00 B0 08 1E 00 99 22 44 49 45 53 45 |HLE"......"DIESE|
00000080: 53 20 50 52 4F 47 52 41 4D 4D 20 4B 4F 50 49 45 |S PROGRAMM KOPIE|
00000090: 52 54 20 45 49 4E 20 46 49 4C 45 20 41 55 46 20 |RT EIN FILE AUF |
000000A0: 20 20 20 44 45 52 20 44 49 53 4B 45 54 54 45 2E | DER DISKETTE.|
000000B0: 00 FA 08 28 00 99 22 44 41 53 20 4E 45 55 45 20 |...(.."DAS NEUE |
000000C0: 46 49 4C 45 20 42 45 4B 4F 4D 4D 54 20 4E 45 55 |FILE BEKOMMT NEU|
000000D0: 45 20 5A 45 49 4C 45 4E 2D 20 20 20 20 20 20 4E |E ZEILEN- N|
000000E0: 55 4D 4D 45 52 4E 2C 20 41 55 43 48 20 4E 41 43 |UMMERN, AUCH NAC|
000000F0: 48 20 47 4F 54 4F 2C 20 22 3B 00 41 09 2D 00 99 |H GOTO, ";.A.-..|
00000100: 22 47 4F 53 55 42 2C 20 54 48 45 4E 2C 20 20 20 |"GOSUB, THEN, |
00000110: 52 55 4E 20 55 4E 44 20 4C 49 53 54 20 57 45 52 |RUN UND LIST WER|
00000120: 44 45 4E 20 44 49 45 20 5A 45 49 4C 45 4E 4E 55 |DEN DIE ZEILENNU|
00000130: 4D 4D 45 52 4E 20 47 45 2D 41 45 4E 44 45 52 54 |MMERN GE-AENDERT|
00000140: 22 00 80 09 32 00 99 22 2D 20 4E 55 52 20 4E 49 |"...2.."- NUR NI|
00000150: 43 48 54 20 49 4D 20 54 45 58 54 20 28 48 4F 43 |CHT IM TEXT (HOC|
00000160: 48 4B 4F 4D 4D 41 4D 4F 44 55 53 2C 20 20 20 20 |HKOMMAMODUS, |
00000170: 54 41 53 54 41 54 55 52 50 55 46 46 45 52 29 2E |TASTATURPUFFER).|
00000180: 00 A4 09 3C 00 48 49 B2 32 35 36 3A 86 20 5A 28 |...<.HI.256:. Z(|
00000190: 31 30 30 30 29 3A 8F 20 5A 45 49 4C 45 4E 41 4E |1000):. ZEILENAN|
000001A0: 5A 41 48 4C 00 C5 09 46 00 85 22 11 44 41 53 20 |ZAHL...F..".DAS |
000001B0: 41 4C 54 45 20 46 49 4C 45 20 48 45 49 53 53 54 |ALTE FILE HEISST|
000001C0: 22 3B 46 31 24 00 E5 09 50 00 85 22 44 41 53 20 |";F1$...P.."DAS |
000001D0: 4E 45 55 45 20 46 49 4C 45 20 48 45 49 53 53 54 |NEUE FILE HEISST|
000001E0: 22 3B 46 32 24 00 11 0A 5A 00 85 22 44 49 45 20 |";F2$...Z.."DIE |
000001F0: 45 52 53 54 45 20 5A 45 49 4C 45 20 49 4D 20 4E |ERSTE ZEILE IM N|
00000200: 45 55 45 4E 20 50 52 4F 47 52 41 4D 4D 22 3B 45 |EUEN PROGRAMM";E|
00000210: 5A 00 29 0A 64 00 85 22 5A 45 49 4C 45 4E 41 42 |Z.).d.."ZEILENAB|
00000220: 53 54 41 4E 44 22 3B 5A 41 00 43 0A 6E 00 8B 20 |STAND";ZA.C.n.. |
00000230: 46 31 24 B2 22 22 A7 99 22 91 91 91 91 91 22 3A |F1$.""..".....":|
00000240: 89 37 30 00 5C 0A 78 00 8B 20 46 32 24 B2 22 22 |.70.\.x.. F2$.""|
00000250: A7 99 22 91 91 91 91 22 3A 89 38 30 00 7E 0A 82 |.."....":.80.~..|
00000260: 00 8B 20 45 5A B3 30 20 B0 20 45 5A B1 36 33 39 |.. EZ.0 . EZ.639|
00000270: 39 39 20 A7 99 22 91 91 91 22 3A 89 39 30 00 95 |99 .."...":.90..|
00000280: 0A 8C 00 8B 20 5A 41 B3 31 20 A7 99 22 91 91 22 |.... ZA.1 ..".."|
00000290: 3A 89 31 30 30 00 9D 0A 96 00 99 3A 99 00 AA 0A |:.100......:....|
000002A0: A0 00 9F 31 35 2C 38 2C 31 35 00 CF 0A AA 00 9F |...15,8,15......|
000002B0: 38 2C 38 2C 38 2C 46 31 24 AA 22 2C 50 2C 52 22 |8,8,8,F1$.",P,R"|
000002C0: 3A 8D 34 38 30 3A A1 23 38 2C 41 24 2C 42 24 00 |:.480:.#8,A$,B$.|
000002D0: FD 0A B4 00 4C 49 B2 C6 28 41 24 AA C7 28 30 29 |....LI..(A$..(0)|
000002E0: 29 AA 48 49 AC C6 28 42 24 AA C7 28 30 29 29 3A |).HI..(B$..(0)):|
000002F0: 8B 4C 49 B1 34 30 39 36 30 A7 34 39 30 00 27 0B |.LI.40960.490.'.|
00000300: BE 00 9F 39 2C 38 2C 39 2C 22 30 3A 22 AA 46 32 |...9,8,9,"0:".F2|
00000310: 24 AA 22 2C 50 2C 57 22 3A 8D 34 38 30 3A 98 39 |$.",P,W":.480:.9|
00000320: 2C 41 24 AA 42 24 3B 00 5C 0B C8 00 8D 35 34 30 |,A$.B$;.\....540|
00000330: 3A 5A 28 41 4E 29 B2 C6 28 4C 4F 24 AA C7 28 30 |:Z(AN)..(LO$..(0|
00000340: 29 29 AA 48 49 AC C6 28 48 49 24 AA C7 28 30 29 |)).HI..(HI$..(0)|
00000350: 29 3A 8B 41 24 B2 22 22 A7 32 34 30 00 7A 0B D2 |):.A$."".240.z..|
00000360: 00 99 22 91 5A 45 49 4C 45 22 3B 5A 28 41 4E 29 |..".ZEILE";Z(AN)|
00000370: 3B 22 9D 20 49 53 54 20 44 41 00 A1 0B DC 00 8D |;". IST DA......|
00000380: 35 32 30 3A 41 4E B2 41 4E AA 31 3A 8B 20 41 4E |520:AN.AN.1:. AN|
00000390: AC 5A 41 AA 45 5A B3 36 33 39 39 39 20 A7 32 30 |.ZA.EZ.63999 .20|
000003A0: 30 00 CF 0B E6 00 99 22 44 49 45 20 5A 45 49 4C |0......"DIE ZEIL|
000003B0: 45 4E 4E 55 4D 4D 45 52 4E 20 57 45 52 44 45 4E |ENNUMMERN WERDEN|
000003C0: 20 5A 55 20 47 52 4F 53 53 22 3A 89 34 37 30 00 | ZU GROSS":.470.|
000003D0: 04 0C F0 00 41 4E B2 41 4E AB 31 3A A0 38 3A 99 |....AN.AN.1:.8:.|
000003E0: 22 11 22 3A 9F 38 2C 38 2C 38 2C 46 31 24 AA 22 |".":.8,8,8,F1$."|
000003F0: 2C 50 2C 52 22 3A 8D 34 38 30 3A A1 23 38 2C 41 |,P,R":.480:.#8,A|
00000400: 24 2C 41 24 00 18 0C FA 00 8D 35 34 30 3A 8B 41 |$,A$......540:.A|
00000410: 24 B2 22 22 A7 34 37 30 00 2C 0C 04 01 8D 35 36 |$."".470.,....56|
00000420: 30 3A 8B 41 24 B2 22 22 A7 34 32 30 00 44 0C 0E |0:.A$."".420.D..|
00000430: 01 8B 41 B2 33 34 A7 8D 36 32 30 3A 8B 41 B2 30 |..A.34..620:.A.0|
00000440: A7 34 32 30 00 59 0C 18 01 8B 41 B2 31 34 33 A7 |.420.Y....A.143.|
00000450: 8D 36 34 30 3A 89 34 32 30 00 8C 0C 22 01 8B 41 |.640:.420..."..A|
00000460: B3 B1 31 33 37 AF 41 B3 B1 31 33 38 AF 41 B3 B1 |..137.A..138.A..|
00000470: 31 34 31 AF 41 B3 B1 31 35 35 AF 41 B3 B1 31 36 |141.A..155.A..16|
00000480: 37 AF 41 B3 B1 32 30 33 A7 32 36 30 00 C4 0C 2C |7.A..203.260...,|
00000490: 01 8B 41 B2 32 30 33 A7 43 24 B2 C8 28 43 24 2C |..A.203.C$..(C$,|
000004A0: C3 28 43 24 29 AB 31 29 AA C7 28 31 33 37 29 3A |.(C$).1)..(137):|
000004B0: 8D 35 38 30 3A 8B 41 24 B3 B1 C7 28 31 36 34 29 |.580:.A$...(164)|
000004C0: A7 35 30 30 00 EA 0C 36 01 8B 41 B2 31 36 37 A7 |.500...6..A.167.|
000004D0: 8D 35 38 30 3A 8B 41 24 B1 22 39 22 A7 43 24 B2 |.580:.A$."9".C$.|
000004E0: 43 24 AA 41 24 3A 89 32 37 30 00 FA 0C 40 01 8B |C$.A$:.270...@..|
000004F0: 41 24 B3 22 3A 22 A7 33 36 30 00 03 0D 4A 01 8D |A$.":".360...J..|
00000500: 35 38 30 00 21 0D 54 01 8B 41 B2 30 B0 41 B2 35 |580.!.T..A.0.A.5|
00000510: 38 A7 43 24 B2 43 24 AA C7 28 41 29 3A 89 34 31 |8.C$.C$..(A):.41|
00000520: 30 00 3C 0D 5E 01 8B 41 B2 31 37 31 A7 43 24 B2 |0.<.^..A.171.C$.|
00000530: 43 24 AA C7 28 41 29 3A 89 33 33 30 00 5C 0D 68 |C$..(A):.330.\.h|
00000540: 01 42 24 B2 41 24 3A 8D 36 30 30 3A 8B 41 B1 35 |.B$.A$:.600:.A.5|
00000550: 38 AF 41 B3 B1 31 37 31 A7 35 30 30 00 7D 0D 72 |8.A..171.500.}.r|
00000560: 01 43 B2 C5 28 42 24 29 3A 81 42 B2 30 A4 41 4E |.C..(B$):.B.0.AN|
00000570: 3A 8B 20 5A 28 42 29 B2 43 A7 34 30 30 00 94 0D |:. Z(B).C.400...|
00000580: 7C 01 82 3A 8B 5A 28 30 29 B3 B1 30 AF 43 B2 30 ||..:.Z(0)..0.C.0|
00000590: A7 34 31 30 00 9D 0D 86 01 89 35 30 30 00 CC 0D |.410......500...|
000005A0: 90 01 43 24 B2 43 24 AA CA 28 C4 28 42 AC 5A 41 |..C$.C$..(.(B.ZA|
000005B0: AA 45 5A 29 2C 32 29 AA C7 28 41 29 3A 8B 41 B2 |.EZ),2)..(A):.A.|
000005C0: 34 34 B0 41 B2 31 37 31 A7 33 33 30 00 DA 0D 9A |44.A.171.330....|
000005D0: 01 8B 41 B2 35 38 A7 32 36 30 00 FF 0D A4 01 4C |..A.58.260.....L|
000005E0: 49 B2 4C 49 AA 34 AA C3 28 43 24 29 3A 5A B2 4E |I.LI.4..(C$):Z.N|
000005F0: 52 AC 5A 41 AA 45 5A 3A 4E 52 B2 4E 52 AA 31 00 |R.ZA.EZ:NR.NR.1.|
00000600: 21 0E AE 01 42 24 B2 C7 28 5A AB B5 28 5A AD 32 |!...B$..(Z..(Z.2|
00000610: 35 36 29 AC 32 35 36 29 AA C7 28 5A AD 32 35 36 |56).256)..(Z.256|
00000620: 29 00 49 0E B8 01 42 24 B2 C7 28 4C 49 AB B5 28 |).I...B$..(LI..(|
00000630: 4C 49 AD 32 35 36 29 AC 32 35 36 29 AA C7 28 4C |LI.256).256)..(L|
00000640: 49 AD 32 35 36 29 AA 42 24 00 83 0E C2 01 98 39 |I.256).B$......9|
00000650: 2C 42 24 3B 43 24 3B 3A 43 24 B2 22 22 3A 99 22 |,B$;C$;:C$."":."|
00000660: 91 5A 45 49 4C 45 22 3B 5A 3B 22 9D 20 49 53 54 |.ZEILE";Z;". IST|
00000670: 20 47 45 53 50 45 49 43 48 45 52 54 20 57 4F 52 | GESPEICHERT WOR|
00000680: 44 45 4E 00 8C 0E CC 01 89 32 35 30 00 A3 0E D6 |DEN......250....|
00000690: 01 98 39 2C C7 28 30 29 AA C7 28 30 29 3B 3A 89 |..9,.(0)..(0);:.|
000006A0: 34 39 30 00 C1 0E E0 01 84 31 35 2C 45 4E 24 2C |490......15,EN$,|
000006B0: 45 4D 24 3A 8B 20 C5 28 45 4E 24 29 B3 32 30 A7 |EM$:. .(EN$).20.|
000006C0: 8E 00 EB 0E EA 01 99 22 44 49 53 4B 20 53 54 41 |......."DISK STA|
000006D0: 54 55 53 3A 22 3B 45 4E 24 22 2C 22 45 4D 24 3A |TUS:";EN$","EM$:|
000006E0: A0 38 3A A0 39 3A A0 31 35 3A 80 00 1E 0F F4 01 |.8:.9:.15:......|
000006F0: 99 22 46 45 48 4C 45 52 20 49 4E 20 5A 45 49 4C |."FEHLER IN ZEIL|
00000700: 45 22 3B C6 28 4C 4F 24 AA C7 28 30 29 29 AA 32 |E";.(LO$..(0)).2|
00000710: 35 36 AC C6 28 48 49 24 AA C7 28 30 29 29 00 4C |56..(HI$..(0)).L|
00000720: 0F FE 01 99 22 44 45 53 48 41 4C 42 20 49 53 54 |...."DESHALB IST|
00000730: 20 22 3B 46 32 24 3B 22 20 4E 49 43 48 54 20 46 | ";F2$;" NICHT F|
00000740: 45 52 54 49 47 21 22 3A 89 34 37 30 00 63 0F 08 |ERTIG!":.470.c..|
00000750: 02 A1 23 38 2C 41 24 3A 8B 41 24 B3 B1 22 22 A7 |..#8,A$:.A$.."".|
00000760: 35 32 30 00 69 0F 12 02 8E 00 7F 0F 1C 02 A1 23 |520.i..........#|
00000770: 38 2C 41 24 2C 41 24 2C 4C 4F 24 2C 48 49 24 00 |8,A$,A$,LO$,HI$.|
00000780: 85 0F 26 02 8E 00 BE 0F 30 02 A1 23 38 2C 41 24 |..&.....0..#8,A$|
00000790: 3A 41 B2 C6 28 41 24 AA C7 28 30 29 29 3A 43 24 |:A..(A$..(0)):C$|
000007A0: B2 43 24 AA C7 28 41 29 3A 8B 41 B3 31 33 37 AF |.C$..(A):.A.137.|
000007B0: 41 B3 B1 33 34 AF 41 B3 B1 30 A7 35 36 30 00 C4 |A..34.A..0.560..|
000007C0: 0F 3A 02 8E 00 E6 0F 44 02 A1 23 38 2C 41 24 3A |.:.....D..#8,A$:|
000007D0: 41 B2 C6 28 41 24 AA C7 28 30 29 29 3A 8B 41 B2 |A..(A$..(0)):.A.|
000007E0: 33 32 A7 35 38 30 00 EC 0F 4E 02 8E 00 1C 10 58 |32.580...N.....X|
000007F0: 02 A1 23 38 2C 41 24 3A 42 24 B2 42 24 AA 41 24 |..#8,A$:B$.B$.A$|
00000800: 3A 41 B2 C6 28 41 24 AA C7 28 30 29 29 3A 8B 41 |:A..(A$..(0)):.A|
00000810: B1 34 37 AF 41 B3 35 38 A7 36 30 30 00 22 10 62 |.47.A.58.600.".b|
00000820: 02 8E 00 55 10 6C 02 A1 23 38 2C 41 24 3A 41 B2 |...U.l..#8,A$:A.|
00000830: C6 28 41 24 AA C7 28 30 29 29 3A 43 24 B2 43 24 |.(A$..(0)):C$.C$|
00000840: AA C7 28 41 29 3A 8B 41 B3 B1 33 34 AF 41 B3 B1 |..(A):.A..34.A..|
00000850: 30 A7 36 32 30 00 5B 10 76 02 8E 00 88 10 80 02 |0.620.[.v.......|
00000860: A1 23 38 2C 41 24 3A 41 B2 C6 28 41 24 AA C7 28 |.#8,A$:A..(A$..(|
00000870: 30 29 29 3A 43 24 B2 43 24 AA C7 28 41 29 3A 8B |0)):C$.C$..(A):.|
00000880: 41 B3 B1 30 A7 36 34 30 00 8E 10 8A 02 8E 00 00 |A..0.640........|
00000890: 00 |. |
..).... COPYRIGHT BY CHIP, DISK # 5.009.
1.F.... * VON CARSTEN HANSEN *.T...."..N
EUE ZEILENNUMMERN UND SPRUNGBEFEHLE"....
.."DIESES PROGRAMM KOPIERT EIN FILE AUF
DER DISKETTE....(.."DAS NEUE FILE BEK
OMMT NEUE ZEILEN- NUMMERN, AUCH NAC
H GOTO, ";.A.-.."GOSUB, THEN, RUN UND
LIST WERDEN DIE ZEILENNUMMERN GE-AENDERT
"...2.."- NUR NICHT IM TEXT (HOCHKOMMAMO
DUS, TASTATURPUFFER)....<.HI.256:. Z(
1000):. ZEILENANZAHL.E.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.C.N..
F1$.""..".....":.70.\.X.. F2$."".."...."
:.80.~.... EZ.0 . EZ.63999 .."...":.90..
.... ZA.1 .."..":.100......:.... ..15,8,
15.O....8,8,8,F1$.",P,R":.480:.#8,A$,B$.
....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$;.\.H..540:Z(AN).F(LO$.G(0)).HI.F(
HI$.G(0)):.A$."".240.Z.R..".ZEILE";Z(AN)
;". IST DA......520:AN.AN.1:. AN.ZA.EZ.6
3999 .200.O...."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.D....A.34..
620:.A.0.420.Y....A.143..640:.420..."..A
..137.A..138.A..141.A..155.A..167.A..203
.260.D.,..A.203.C$.H(C$,C(C$).1).G(137):
.580:.A$..G(164).500...6..A.167..580:.A$
."9".C$.C$.A$:.270...@..A$.":".360...J..
580.!.T..A.0.A.58.C$.C$.G(A):.410.<.^..A
.171.C$.C$.G(A):.330.\.H.B$.A$:.600:.A.5
8.A..171.500.}.R.C.E(B$):.B.0.AN:. Z(B).
C.400...|..:.Z(0)..0.C.0.410......500.L.
..C$.C$.J(D(B.ZA.EZ),2).G(A):.A.44.A.171
.330.Z....A.58.260.....LI.LI.4.C(C$):Z.N
R.ZA.EZ:NR.NR.1.!...B$.G(Z..(Z.256).256)
.G(Z.256).I...B$.G(LI..(LI.256).256).G(L
I.256).B$...B..9,B$;C$;:C$."":.".ZEILE";
Z;". IST GESPEICHERT WORDEN...L..250...V
..9,G(0).G(0);:.490.A....15,EN$,EM$:. E(
EN$).20........"DISK STATUS:";EN$","EM$:
8: 9: 15:......."FEHLER IN ZEILE";F(LO$
.G(0)).256.F(HI$.G(0)).L...."DESHALB IST
";F2$;" NICHT FERTIG!":.470.C....#8,A$:
.A$.."".520.I.........#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.:.....D..#8,A$:
A.F(A$.G(0)):.A.32.580...N.....X..#8,A$:
B$.B$.A$:A.F(A$.G(0)):.A.47.A.58.600.".B
...U.L..#8,A$:A.F(A$.G(0)):C$.C$.G(A):.A
..34.A..0.620.[.V........#8,A$:A.F(A$.G(
0)):C$.C$.G(A):.A..0.640.........
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL