00000000: 01 04 2E 04 01 00 99 22 93 44 49 45 53 45 53 20 |.......".DIESES |
00000010: 50 52 4F 47 52 41 4D 4D 20 53 54 45 4C 4C 54 20 |PROGRAMM STELLT |
00000020: 44 49 45 20 42 41 4D 20 45 49 4E 45 52 22 00 57 |DIE BAM EINER".W|
00000030: 04 02 00 99 22 56 43 2D 31 35 34 31 20 2D 20 44 |...."VC-1541 - D|
00000040: 49 53 4B 45 54 54 45 20 47 52 41 50 48 49 53 43 |ISKETTE GRAPHISC|
00000050: 48 20 44 41 52 2E 22 00 85 04 03 00 99 22 11 11 |H DAR."......"..|
00000060: 56 45 52 57 45 4E 44 45 54 45 20 53 45 4B 54 4F |VERWENDETE SEKTO|
00000070: 52 45 4E 20 57 45 52 44 45 4E 20 44 55 52 43 48 |REN WERDEN DURCH|
00000080: 20 45 49 4E 22 00 CC 04 04 00 99 22 49 4E 56 45 | EIN"......"INVE|
00000090: 52 53 45 53 20 4B 52 45 55 5A 20 44 41 52 47 45 |RSES KREUZ DARGE|
000000A0: 53 54 45 4C 4C 54 2C 22 3A 99 22 11 4E 49 43 48 |STELLT,":.".NICH|
000000B0: 54 20 56 4F 52 48 41 4E 44 45 4E 45 20 44 55 52 |T VORHANDENE DUR|
000000C0: 43 48 20 45 49 4E 20 27 A6 27 2E 22 00 F8 04 05 |CH EIN '.'."....|
000000D0: 00 99 22 11 11 4C 45 47 45 4E 20 53 49 45 20 42 |.."..LEGEN SIE B|
000000E0: 49 54 54 45 20 44 49 45 20 44 41 52 5A 55 53 54 |ITTE DIE DARZUST|
000000F0: 45 4C 4C 45 4E 44 45 22 00 26 05 06 00 99 22 44 |ELLENDE".&...."D|
00000100: 49 53 4B 45 54 54 45 20 45 49 4E 20 55 4E 44 20 |ISKETTE EIN UND |
00000110: 44 52 55 45 43 4B 45 4E 20 53 49 45 20 12 53 50 |DRUECKEN SIE .SP|
00000120: 41 43 45 92 2E 22 00 53 05 07 00 99 22 11 11 41 |ACE..".S...."..A|
00000130: 4D 20 45 4E 44 45 2C 20 49 52 47 45 4E 44 45 49 |M ENDE, IRGENDEI|
00000140: 4E 45 20 54 41 53 54 45 20 44 52 55 45 43 4B 45 |NE TASTE DRUECKE|
00000150: 4E 2E 22 00 67 05 08 00 8D 31 30 30 3A 8B 41 24 |N.".g....100:.A$|
00000160: B3 B1 22 20 22 A7 38 00 7B 05 09 00 44 24 B2 22 |.." ".8.{...D$."|
00000170: 30 22 3A 9F 31 35 2C 38 2C 31 35 00 A8 05 0A 00 |0":.15,8,15.....|
00000180: 98 31 35 2C 22 49 22 44 24 3A 4E 55 24 B2 22 A6 |.15,"I"D$:NU$.".|
00000190: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |................|
000001A0: A6 A6 22 3A 5A 34 B2 31 00 B7 05 0B 00 9F 32 2C |..":Z4.1......2,|
000001B0: 38 2C 32 2C 22 23 22 00 DC 05 0C 00 59 24 B2 22 |8,2,"#".....Y$."|
000001C0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000001D0: 11 11 11 11 11 11 11 11 11 11 11 22 00 0F 06 0D |..........."....|
000001E0: 00 58 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.X$."...........|
000001F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000200: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 |..............".|
00000210: 3B 06 0F 00 96 20 A5 53 28 5A 29 20 B2 20 32 AE |;.... .S(Z) . 2.|
00000220: 28 53 AB B5 28 53 AD 38 29 AC 38 29 20 AF 20 28 |(S..(S.8).8) . (|
00000230: 53 42 28 B5 28 53 AD 38 29 29 29 00 53 06 13 00 |SB(.(S.8))).S...|
00000240: 98 31 35 2C 22 55 31 3A 22 3B 32 3B 44 24 3B 31 |.15,"U1:";2;D$;1|
00000250: 38 3B 30 00 65 06 14 00 98 31 35 2C 22 42 2D 50 |8;0.e....15,"B-P|
00000260: 22 3B 32 3B 31 00 6F 06 15 00 99 22 93 22 3B 00 |";2;1.o....".";.|
00000270: 81 06 16 00 59 B2 32 33 3A 58 B2 31 3A 8D 32 30 |....Y.23:X.1:.20|
00000280: 30 00 A5 06 19 00 81 49 B2 30 A4 32 30 3A 99 3A |0......I.0.20:.:|
00000290: 99 22 91 91 22 C9 28 C4 28 49 29 AA 22 20 22 2C |."..".(.(I)." ",|
000002A0: 33 29 3B 3A 82 00 B0 06 1E 00 A1 23 32 2C 41 24 |3);:.......#2,A$|
000002B0: 00 BB 06 1F 00 A1 23 32 2C 41 24 00 C6 06 20 00 |......#2,A$... .|
000002C0: A1 23 32 2C 41 24 00 CF 06 23 00 54 53 B2 30 00 |.#2,A$...#.TS.0.|
000002D0: DB 06 28 00 81 54 B2 31 A4 33 35 00 FB 06 32 00 |..(..T.1.35...2.|
000002E0: A1 23 32 2C 53 43 24 3A 53 43 B2 C6 28 C9 28 C7 |.#2,SC$:SC..(.(.|
000002F0: 28 30 29 AA 53 43 24 2C 31 29 29 00 08 07 33 00 |(0).SC$,1))...3.|
00000300: 54 53 B2 54 53 AA 53 43 00 22 07 34 00 A1 23 32 |TS.TS.SC.".4..#2|
00000310: 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 24 B2 C7 28 |,A$:.A$."".A$..(|
00000320: 30 29 00 32 07 35 00 53 42 28 30 29 B2 C6 28 41 |0).2.5.SB(0)..(A|
00000330: 24 29 00 4C 07 36 00 A1 23 32 2C 41 24 3A 8B 41 |$).L.6..#2,A$:.A|
00000340: 24 B2 22 22 A7 41 24 B2 C7 28 30 29 00 5C 07 37 |$."".A$..(0).\.7|
00000350: 00 53 42 28 31 29 B2 C6 28 41 24 29 00 76 07 38 |.SB(1)..(A$).v.8|
00000360: 00 A1 23 32 2C 41 24 3A 8B 41 24 B2 22 22 A7 41 |..#2,A$:.A$."".A|
00000370: 24 B2 C7 28 30 29 00 86 07 39 00 53 42 28 32 29 |$..(0)...9.SB(2)|
00000380: B2 C6 28 41 24 29 00 9A 07 3C 00 59 B2 32 34 3A |..(A$)...<.Y.24:|
00000390: 58 B2 54 AA 33 3A 8D 32 30 30 00 C3 07 41 00 99 |X.T.3:.200...A..|
000003A0: C8 28 C9 28 C4 28 54 29 2C 32 29 2C 31 29 22 11 |.(.(.(T),2),1)".|
000003B0: 9D 22 C9 28 C4 28 54 29 2C 31 29 3B 22 9D 91 91 |.".(.(T),1);"...|
000003C0: 91 22 3B 00 F1 07 44 00 8F 20 20 50 52 49 4E 54 |.";...D.. PRINT|
000003D0: 54 22 20 20 20 22 53 43 22 20 20 22 53 42 28 30 |T" "SC" "SB(0|
000003E0: 29 22 20 22 53 42 28 31 29 22 20 22 53 42 28 32 |)" "SB(1)" "SB(2|
000003F0: 29 00 02 08 45 00 8F 20 20 4E 45 58 54 54 3A 45 |)...E.. NEXTT:E|
00000400: 4E 44 00 0E 08 46 00 81 53 B2 30 A4 32 30 00 1B |ND...F..S.0.20..|
00000410: 08 47 00 8B 54 B3 31 38 A7 37 36 00 3D 08 48 00 |.G..T.18.76.=.H.|
00000420: 8B 54 B1 33 30 AF 53 B1 31 36 A7 3A 99 CA 28 4E |.T.30.S.16.:..(N|
00000430: 55 24 2C 5A 34 2C 31 29 3B 3A 89 39 30 00 5F 08 |U$,Z4,1);:.90._.|
00000440: 49 00 8B 54 B1 32 34 AF 53 B1 31 37 A7 3A 99 CA |I..T.24.S.17.:..|
00000450: 28 4E 55 24 2C 5A 34 2C 31 29 3B 3A 89 39 30 00 |(NU$,Z4,1);:.90.|
00000460: 88 08 4B 00 8B 54 B1 31 37 AF 53 B1 31 38 A7 99 |..K..T.17.S.18..|
00000470: CA 28 4E 55 24 2C 5A 34 2C 31 29 3B 3A 5A 34 B2 |.(NU$,Z4,1);:Z4.|
00000480: 5A 34 AA 31 3A 89 39 30 00 92 08 4C 00 99 22 12 |Z4.1:.90...L..".|
00000490: 22 3B 00 AC 08 50 00 8B 20 A5 53 28 53 29 B2 30 |";...P.. .S(S).0|
000004A0: 20 A7 20 99 22 DB 22 3B 3A 89 39 30 00 CB 08 55 | . .".";:.90...U|
000004B0: 00 99 22 92 DB 22 3B 3A 8F 52 49 47 48 54 24 28 |.."..";:.RIGHT$(|
000004C0: 53 54 52 24 28 53 29 2C 31 29 3B 00 D7 08 5A 00 |STR$(S),1);...Z.|
000004D0: 99 22 91 9D 92 22 3B 00 E0 08 5B 00 82 53 2C 54 |."...";...[..S,T|
000004E0: 00 EA 08 5F 00 99 22 13 22 3B 00 FE 08 60 00 98 |..._..".";...`..|
000004F0: 31 35 2C 22 42 2D 50 22 3B 32 3B 31 34 34 00 22 |15,"B-P";2;144."|
00000500: 09 61 00 4E 24 B2 22 22 3A 81 49 B2 31 A4 32 30 |.a.N$."":.I.1.20|
00000510: 3A A1 23 32 2C 41 24 3A 4E 24 B2 4E 24 AA 41 24 |:.#2,A$:N$.N$.A$|
00000520: 3A 82 00 40 09 62 00 99 22 20 20 22 4E 24 22 20 |:..@.b.." "N$" |
00000530: 22 54 53 22 42 4C 4F 43 4B 53 20 46 52 45 45 22 |"TS"BLOCKS FREE"|
00000540: 00 56 09 63 00 98 31 35 2C 22 49 22 AA 44 24 3A |.V.c..15,"I".D$:|
00000550: 8D 31 30 30 3A 90 00 6A 09 64 00 A1 41 24 3A 8B |.100:..j.d..A$:.|
00000560: 41 24 B3 B1 22 22 A7 31 30 30 00 7C 09 6E 00 A1 |A$.."".100.|.n..|
00000570: 41 24 3A 8B 41 24 B3 B1 22 22 A7 8E 00 86 09 78 |A$:.A$.."".....x|
00000580: 00 89 20 31 31 30 00 9E 09 C8 00 99 C8 28 59 24 |.. 110.......(Y$|
00000590: 2C 59 29 C8 28 58 24 2C 58 29 22 9D 22 3B 00 A4 |,Y).(X$,X)".";..|
000005A0: 09 D2 00 8E 00 00 00 |....... |
.......".DIESES PROGRAMM STELLT DIE BAM
EINER".W...."VC-1541 - DISKETTE GRAPHISC
H DAR."......"..VERWENDETE SEKTOREN WERD
EN DURCH EIN".L...."INVERSES KREUZ DARGE
STELLT,":.".NICHT VORHANDENE DURCH EIN '
.'."......"..LEGEN SIE BITTE DIE DARZUST
ELLENDE".&...."DISKETTE EIN UND DRUECKEN
SIE .SPACE..".S...."..AM ENDE, IRGENDEI
NE TASTE DRUECKEN.".G....100:.A$.." ".8.
{...D$."0":.15,8,15......15,"I"D$:NU$.".
..................":Z4.1......2,8,2,"#".
....Y$."..........................."....
.X$."...................................
......".;.... .S(Z) . 2.(S..(S.8).8) . (
SB(.(S.8))).S....15,"U1:";2;D$;18;0.E...
.15,"B-P";2;1.O....".";.....Y.23:X.1:.20
0......I.0.20:.:.".."I(D(I)." ",3);:....
...#2,A$......#2,A$.F. ..#2,A$.O.#.TS.0.
..(..T.1.35...2..#2,SC$:SC.F(I(G(0).SC$,
1))...3.TS.TS.SC.".4..#2,A$:.A$."".A$.G(
0).2.5.SB(0).F(A$).L.6..#2,A$:.A$."".A$.
G(0).\.7.SB(1).F(A$).V.8..#2,A$:.A$."".A
$.G(0)...9.SB(2).F(A$)...<.Y.24:X.T.3:.2
00.C.A..H(I(D(T),2),1)".."I(D(T),1);"...
.";...D.. PRINTT" "SC" "SB(0)" "SB(1
)" "SB(2)...E.. NEXTT:END...F..S.0.20..
.G..T.18.76.=.H..T.30.S.16.:.J(NU$,Z4,1)
;:.90._.I..T.24.S.17.:.J(NU$,Z4,1);:.90.
..K..T.17.S.18..J(NU$,Z4,1);:Z4.Z4.1:.90
...L..".";...P.. .S(S).0 . .".";:.90.K.U
.."..";:.RIGHT$(STR$(S),1);.W.Z.."...";.
..[..S,T..._..".";...`..15,"B-P";2;144."
.A.N$."":.I.1.20:.#2,A$:N$.N$.A$:..@.B..
" "N$" "TS"BLOCKS FREE".V.C..15,"I".D$:
.100:..J.D..A$:.A$.."".100.|.N..A$:.A$..
"".....X.. 110...H..H(Y$,Y)H(X$,X)".";..
.R.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL