> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 90 08 01 00 3A 3A 97 37 38 38 2C 35 32 3A |......::.788,52:|
00000010: 97 37 39 32 2C 31 39 33 3A 97 35 33 32 37 32 2C |.792,193:.53272,|
00000020: 32 33 3A 99 22 93 22 3A 97 35 33 32 38 30 2C 30 |23:.".":.53280,0|
00000030: 3A 97 35 33 32 38 31 2C 37 3A 99 22 90 22 3A 99 |:.53281,7:.".":.|
00000040: 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 12 C3 4F 50 59 |"............OPY|
00000050: 20 46 55 45 52 20 52 45 4C 41 54 49 56 45 20 C6 | FUER RELATIVE .|
00000060: 49 4C 45 53 11 11 92 22 3A 99 22 1D 1D 1D 1D 1D |ILES...":.".....|
00000070: 1D 1D 1D 1D 1D 56 4F 4E 20 D7 41 4C 54 45 52 20 |.....VON .ALTER |
00000080: C7 55 45 50 46 45 52 54 11 11 11 22 3A 89 33 32 |.UEPFERT...":.32|
00000090: 00 5F 09 02 00 86 4E 24 28 31 39 29 2C 52 53 28 |._....N$(19),RS(|
000000A0: 31 39 29 2C 42 28 31 39 29 2C 44 24 28 32 30 30 |19),B(19),D$(200|
000000B0: 30 29 2C 52 28 32 30 30 30 29 3A 41 B2 31 3A 97 |0),R(2000):A.1:.|
000000C0: 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 37 |53280,0:.53281,7|
000000D0: 3A 99 22 90 22 3A 3A 3A 9F 31 35 2C 38 2C 31 35 |:.".":::.15,8,15|
000000E0: 3A 98 31 35 2C 22 49 22 3A 8D 35 35 3A 9F 35 2C |:.15,"I":.55:.5,|
000000F0: 38 2C 35 2C 22 23 22 3A 98 31 35 2C 22 55 31 3A |8,5,"#":.15,"U1:|
00000100: 22 35 3B 30 3B 31 38 3B 30 3A 98 31 35 2C 22 42 |"5;0;18;0:.15,"B|
00000110: 2D 50 3A 22 35 3B 31 34 34 3A 48 24 B2 22 22 3A |-P:"5;144:H$."":|
00000120: 81 49 B2 31 34 34 A4 31 36 37 3A A1 23 35 2C 41 |.I.144.167:.#5,A|
00000130: 24 3A 48 24 B2 48 24 AA 41 24 3A 82 3A 99 22 93 |$:H$.H$.A$:.:.".|
00000140: 11 11 11 1D 1D 1D 12 22 48 24 22 92 11 11 11 11 |......."H$".....|
00000150: 22 3A 3A 3A 53 B2 31 3A 50 B2 32 3A 46 B2 31 00 |":::S.1:P.2:F.1.|
00000160: 75 09 03 00 98 31 35 2C 22 55 31 3A 22 35 3B 30 |u....15,"U1:"5;0|
00000170: 3B 31 38 3B 53 00 AE 09 04 00 98 31 35 2C 22 42 |;18;S......15,"B|
00000180: 2D 50 3A 22 35 3B 50 3A A1 23 35 2C 54 24 3A 8B |-P:"5;P:.#5,T$:.|
00000190: C6 28 54 24 AA C7 28 30 29 29 AB 31 32 38 B2 34 |.(T$..(0)).128.4|
000001A0: A7 A1 23 35 2C 41 24 2C 41 24 3A 8D 31 30 00 BF |..#5,A$,A$:.10..|
000001B0: 09 05 00 46 B2 46 AA 31 3A 8B 46 B2 39 A7 38 00 |...F.F.1:.F.9.8.|
000001C0: CD 09 06 00 50 B2 50 AA 33 32 3A 89 34 00 D3 09 |....P.P.32:.4...|
000001D0: 07 00 3A 00 04 0A 08 00 98 31 35 2C 22 42 2D 50 |..:......15,"B-P|
000001E0: 3A 22 35 3B 30 3A A1 23 35 2C 54 31 24 2C 53 24 |:"5;0:.#5,T1$,S$|
000001F0: 3A 8B C6 28 54 31 24 AA C7 28 30 29 29 B3 B1 31 |:..(T1$..(0))..1|
00000200: 38 A7 31 31 00 20 0A 09 00 53 B2 C6 28 53 24 AA |8.11. ...S..(S$.|
00000210: C7 28 30 29 29 3A 50 B2 32 3A 46 B2 31 3A 89 33 |.(0)):P.2:F.1:.3|
00000220: 00 BE 0A 0A 00 3A 3A 4E 24 28 41 29 B2 22 22 3A |.....::N$(A)."":|
00000230: 81 49 B2 33 A4 31 38 3A A1 23 35 2C 41 24 3A 4E |.I.3.18:.#5,A$:N|
00000240: 24 28 41 29 B2 4E 24 28 41 29 AA 41 24 3A 82 3A |$(A).N$(A).A$:.:|
00000250: 3A 3A A1 23 35 2C 41 24 2C 41 24 2C 52 24 2C 41 |::.#5,A$,A$,R$,A|
00000260: 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 2C 41 24 |$,A$,A$,A$,A$,A$|
00000270: 2C 4C 42 24 2C 48 42 24 3A 52 53 28 41 29 B2 C6 |,LB$,HB$:RS(A)..|
00000280: 28 52 24 AA C7 28 30 29 29 3A 4C 42 B2 C6 28 4C |(R$..(0)):LB..(L|
00000290: 42 24 AA C7 28 30 29 29 3A 48 42 B2 C6 28 48 42 |B$..(0)):HB..(HB|
000002A0: 24 AA C7 28 30 29 29 3A 42 28 41 29 B2 4C 42 AA |$..(0)):B(A).LB.|
000002B0: 32 35 36 AC 48 42 3A 41 B2 41 AA 31 3A 8E 00 F1 |256.HB:A.A.1:...|
000002C0: 0A 0B 00 3A 3A 8B 41 B2 31 A7 99 A3 32 29 22 4B |...::.A.1...2)"K|
000002D0: 45 49 4E 20 52 45 4C 20 C6 49 4C 45 20 47 45 46 |EIN REL .ILE GEF|
000002E0: 55 4E 44 45 4E 22 3A A0 35 3A A0 31 35 3A 89 32 |UNDEN":.5:.15:.2|
000002F0: 38 00 8B 0B 0C 00 99 A3 31 29 41 AB 31 22 D2 45 |8.......1)A.1".E|
00000300: 4C 2E 20 C6 49 4C 45 53 20 47 45 46 55 4E 44 45 |L. .ILES GEFUNDE|
00000310: 4E 22 3A 99 3A 99 3A 81 5A B2 31 A4 41 AB 31 3A |N":.:.:.Z.1.A.1:|
00000320: 99 A3 32 29 22 C6 49 4C 45 20 CE 52 2E 20 22 5A |..2)".ILE .R. "Z|
00000330: 22 20 20 20 22 A3 31 38 29 4E 24 28 5A 29 3A 82 |" ".18)N$(Z):.|
00000340: 5A 3A A0 35 3A 3A 3A 99 3A 99 A3 32 29 3B 3A 85 |Z:.5:::.:..2);:.|
00000350: 22 D7 45 4C 43 48 45 20 C6 49 4C 45 20 CE 52 2E |".ELCHE .ILE .R.|
00000360: 20 4B 4F 50 49 45 52 45 4E 20 20 22 3B 45 24 3A | KOPIEREN ";E$:|
00000370: 8B C5 28 45 24 29 B2 30 B0 C5 28 45 24 29 B1 41 |..(E$).0..(E$).A|
00000380: AB 31 A7 99 22 93 22 3A 89 32 38 00 B3 0B 0D 00 |.1..".":.28.....|
00000390: 45 B2 C5 28 45 24 29 3A 3A 3A 46 52 B2 B8 28 30 |E..(E$):::FR..(0|
000003A0: 29 3A 8B 46 52 B3 30 A7 46 52 B2 46 52 AA 36 35 |):.FR.0.FR.FR.65|
000003B0: 35 33 36 00 DC 0B 0E 00 4D 52 B2 B5 28 46 52 AD |536.....MR..(FR.|
000003C0: 52 53 28 45 29 29 3A 3A 3A 99 3A 9F 32 2C 38 2C |RS(E)):::.:.2,8,|
000003D0: 32 2C 4E 24 28 45 29 3A 52 43 B2 30 00 3C 0C 0F |2,N$(E):RC.0.<..|
000003E0: 00 48 52 B2 B5 28 52 43 AD 32 35 36 29 3A 4C 52 |.HR..(RC.256):LR|
000003F0: B2 52 43 AB 48 52 AC 32 35 36 3A 98 31 35 2C 22 |.RC.HR.256:.15,"|
00000400: 50 22 C7 28 32 29 C7 28 4C 52 29 C7 28 48 52 29 |P".(2).(LR).(HR)|
00000410: C7 28 31 29 3A 84 31 35 2C 46 3A 99 A3 32 29 22 |.(1):.15,F:..2)"|
00000420: 4C 45 53 45 4E 20 D2 45 43 4F 52 44 20 22 52 43 |LESEN .ECORD "RC|
00000430: 22 91 22 3A 8B 46 B2 35 30 A7 32 30 00 57 0C 10 |".":.F.50.20.W..|
00000440: 00 8B 46 B1 30 A7 99 22 44 49 53 4B 22 46 3A A0 |..F.0.."DISK"F:.|
00000450: 32 3A A0 31 35 3A 80 00 7B 0C 11 00 A1 23 32 2C |2:.15:..{....#2,|
00000460: 41 24 3A 8B 41 24 B2 C7 28 32 35 35 29 A7 44 24 |A$:.A$..(255).D$|
00000470: 28 52 43 29 B2 22 22 3A 89 31 39 00 CC 0C 12 00 |(RC)."":.19.....|
00000480: 44 24 28 52 43 29 B2 41 24 3A 81 49 B2 32 A4 52 |D$(RC).A$:.I.2.R|
00000490: 53 28 45 29 3A A1 23 32 2C 41 24 3A 44 24 28 52 |S(E):.#2,A$:D$(R|
000004A0: 43 29 B2 44 24 28 52 43 29 AA 41 24 3A 82 49 3A |C).D$(RC).A$:.I:|
000004B0: 52 28 43 29 B2 52 43 3A 43 B2 43 AA 31 3A 8B 43 |R(C).RC:C.C.1:.C|
000004C0: B2 4D 52 A7 4B 50 B2 31 3A 89 33 38 00 DC 0C 13 |.MR.KP.1:.38....|
000004D0: 00 52 43 B2 52 43 AA 31 3A 89 31 35 00 EB 0C 14 |.RC.RC.1:.15....|
000004E0: 00 A0 32 3A 99 3A 99 3A 99 3A 3A 00 58 0D 15 00 |..2:.:.:.::.X...|
000004F0: 99 A3 32 29 22 C5 53 20 53 49 4E 44 20 22 43 22 |..2)".S SIND "C"|
00000500: 20 D2 45 43 4F 52 44 53 20 5A 55 20 4B 4F 50 49 | .ECORDS ZU KOPI|
00000510: 45 52 45 4E 22 3A 99 3A 99 A3 32 29 22 C2 49 54 |EREN":.:..2)".IT|
00000520: 54 45 20 D3 41 56 45 20 C4 49 53 4B 45 54 54 45 |TE .AVE .ISKETTE|
00000530: 20 45 49 4E 4C 45 47 45 4E 20 55 4E 44 22 3A 99 | EINLEGEN UND":.|
00000540: A3 32 29 22 D2 C5 D4 D5 D2 CE 20 44 52 55 45 43 |.2)"...... DRUEC|
00000550: 4B 45 4E 22 3A 99 3A 99 00 6A 0D 16 00 A1 45 24 |KEN":.:..j....E$|
00000560: 3A 8B 45 24 B2 22 22 A7 32 32 00 7C 0D 17 00 8B |:.E$."".22.|....|
00000570: 45 24 B3 B1 C7 28 31 33 29 A7 32 32 00 8D 0D 18 |E$...(13).22....|
00000580: 00 98 31 35 2C 22 49 22 3A 49 44 B2 31 00 B4 0D |..15,"I":ID.1...|
00000590: 19 00 3A 3A 8D 34 33 3A 9F 32 2C 38 2C 32 2C 4E |..::.43:.2,8,2,N|
000005A0: 24 28 45 29 3A 84 31 35 2C 46 3A 8B 46 B2 36 32 |$(E):.15,F:.F.62|
000005B0: A7 89 33 36 00 D4 0D 1A 00 8B 46 B1 30 A7 99 22 |..36......F.0.."|
000005C0: C4 49 53 4B 20 C6 45 48 4C 45 52 20 CE 52 2E 20 |.ISK .EHLER .R. |
000005D0: 22 46 3A 80 00 61 0E 1B 00 99 22 93 11 11 22 3A |"F:..a...."...":|
000005E0: 81 49 B2 30 A4 43 AB 31 3A 48 52 B2 B5 28 52 28 |.I.0.C.1:HR..(R(|
000005F0: 49 29 AD 32 35 36 29 3A 4C 52 B2 52 28 49 29 AB |I).256):LR.R(I).|
00000600: 48 52 AC 32 35 36 3A 99 A3 32 29 22 53 43 48 52 |HR.256:..2)"SCHR|
00000610: 45 49 42 45 4E 20 D2 45 43 4F 52 44 20 22 52 28 |EIBEN .ECORD "R(|
00000620: 49 29 22 91 22 3A 98 31 35 2C 22 50 22 C7 28 32 |I)".":.15,"P".(2|
00000630: 29 C7 28 4C 52 29 C7 28 48 52 29 C7 28 31 29 3A |).(LR).(HR).(1):|
00000640: 98 32 2C 44 24 28 52 28 49 29 29 3B 3A 82 49 3A |.2,D$(R(I));:.I:|
00000650: A0 32 3A 8B 4B 50 B2 31 A7 4B 50 B2 30 3A 89 33 |.2:.KP.1.KP.0:.3|
00000660: 39 00 8C 0E 1C 00 99 3A 99 3A 99 A3 32 29 22 CE |9......:.:..2)".|
00000670: 4F 43 48 20 45 49 4E 20 C6 49 4C 45 20 4B 4F 50 |OCH EIN .ILE KOP|
00000680: 49 45 52 45 4E 20 4A 2F 4E 20 3F 22 00 9E 0E 1D |IEREN J/N ?"....|
00000690: 00 A1 45 24 3A 8B 45 24 B2 22 22 A7 32 39 00 B2 |..E$:.E$."".29..|
000006A0: 0E 1E 00 8B 45 24 B3 B1 22 4A 22 A7 9E 36 34 37 |....E$.."J"..647|
000006B0: 33 38 00 BB 0E 1F 00 9C 3A 89 31 00 FA 0E 20 00 |38......:.1... .|
000006C0: 99 A3 35 29 22 CF 52 49 47 49 4E 41 4C 20 C4 49 |..5)".RIGINAL .I|
000006D0: 53 4B 45 54 54 45 20 45 49 4E 4C 45 47 45 4E 20 |SKETTE EINLEGEN |
000006E0: 55 4E 44 22 3A 99 A3 35 29 22 D2 C5 D4 D5 D2 CE |UND":..5)"......|
000006F0: 20 44 52 55 45 43 4B 45 4E 22 00 0C 0F 21 00 A1 | DRUECKEN"...!..|
00000700: 45 24 3A 8B 45 24 B2 22 22 A7 33 33 00 1E 0F 22 |E$:.E$."".33..."|
00000710: 00 8B 45 24 B3 B1 C7 28 31 33 29 A7 33 33 00 2F |..E$...(13).33./|
00000720: 0F 23 00 99 22 93 11 11 11 22 3A 9C 3A 89 32 00 |.#.."....":.:.2.|
00000730: 1A 10 24 00 3A 3A A0 32 3A 99 22 93 11 11 11 22 |..$.::.2:."...."|
00000740: 3A 99 A3 32 29 22 C6 49 4C 45 20 4E 49 43 48 54 |:..2)".ILE NICHT|
00000750: 20 56 4F 52 48 41 4E 44 45 4E 2E 20 C5 53 20 57 | VORHANDEN. .S W|
00000760: 49 52 44 20 45 49 4E 22 3A 99 A3 32 29 22 4E 45 |IRD EIN":..2)"NE|
00000770: 55 45 53 20 52 45 4C 41 54 49 56 45 53 20 C6 49 |UES RELATIVES .I|
00000780: 4C 45 20 55 4E 54 45 52 20 44 45 4D 22 3A 99 A3 |LE UNTER DEM":..|
00000790: 32 29 22 CE 41 4D 45 4E 20 12 22 4E 24 28 45 29 |2)".AMEN ."N$(E)|
000007A0: 22 92 22 3A 99 A3 32 29 22 41 4E 47 45 4C 45 47 |".":..2)"ANGELEG|
000007B0: 54 2E 22 3A 9F 32 2C 38 2C 32 2C 4E 24 28 45 29 |T.":.2,8,2,N$(E)|
000007C0: AA 22 2C 4C 2C 22 AA C7 28 52 53 28 45 29 29 3A |.",L,"..(RS(E)):|
000007D0: 41 52 B2 B5 28 28 42 28 45 29 AC 32 35 34 29 AD |AR..((B(E).254).|
000007E0: 52 53 28 45 29 29 3A 48 52 B2 B5 28 41 52 AD 32 |RS(E)):HR..(AR.2|
000007F0: 35 36 29 3A 4C 52 B2 41 52 AB 48 52 AC 32 35 36 |56):LR.AR.HR.256|
00000800: 3A 98 31 35 2C 22 50 22 C7 28 32 29 C7 28 4C 52 |:.15,"P".(2).(LR|
00000810: 29 C7 28 48 52 29 C7 28 31 29 00 2F 10 25 00 98 |).(HR).(1)./.%..|
00000820: 32 2C C7 28 32 35 35 29 3A A0 32 3A 89 32 35 00 |2,.(255):.2:.25.|
00000830: 43 10 26 00 3A 3A A0 32 3A 99 22 93 11 11 22 3A |C.&.::.2:."...":|
00000840: 89 32 31 00 90 10 27 00 3A 3A 99 22 93 11 11 22 |.21...'.::."..."|
00000850: 3A 99 A3 32 29 22 C2 49 54 54 45 20 CF 52 49 47 |:..2)".ITTE .RIG|
00000860: 49 4E 41 4C 44 49 53 4B 45 54 54 45 20 45 49 4E |INALDISKETTE EIN|
00000870: 4C 45 47 45 4E 22 3A 99 A3 32 29 22 55 4E 44 20 |LEGEN":..2)"UND |
00000880: D2 C5 D4 D5 D2 CE 20 44 52 55 45 43 4B 45 4E 22 |...... DRUECKEN"|
00000890: 00 A2 10 28 00 A1 45 24 3A 8B 45 24 B2 22 22 A7 |...(..E$:.E$."".|
000008A0: 34 30 00 B4 10 29 00 8B 45 24 B3 B1 C7 28 31 33 |40...)..E$...(13|
000008B0: 29 A7 34 30 00 04 11 2A 00 98 31 35 2C 22 49 22 |).40...*..15,"I"|
000008C0: 3A 49 44 B2 30 3A 8D 34 33 3A 9F 32 2C 38 2C 32 |:ID.0:.43:.2,8,2|
000008D0: 2C 4E 24 28 45 29 3A 52 43 B2 52 43 AA 31 3A 43 |,N$(E):RC.RC.1:C|
000008E0: B2 30 3A 81 49 B2 30 A4 4D 52 AA 31 3A 44 24 28 |.0:.I.0.MR.1:D$(|
000008F0: 49 29 B2 22 22 3A 82 3A 3A 3A 99 22 93 11 11 22 |I)."":.:::."..."|
00000900: 3A 89 31 35 00 59 11 2B 00 3A 3A 9F 35 2C 38 2C |:.15.Y.+.::.5,8,|
00000910: 35 2C 22 23 22 3A 98 31 35 2C 22 55 31 3A 22 35 |5,"#":.15,"U1:"5|
00000920: 3B 30 3B 31 38 3B 30 3A 98 31 35 2C 22 42 2D 50 |;0;18;0:.15,"B-P|
00000930: 3A 22 35 3B 31 36 32 3A A1 23 35 2C 41 24 2C 41 |:"5;162:.#5,A$,A|
00000940: 31 24 3A 49 41 24 B2 41 24 AA 41 31 24 3A A0 35 |1$:IA$.A$.A1$:.5|
00000950: 3A 8B 49 44 B2 30 A7 34 36 00 69 11 2C 00 8B 49 |:.ID.0.46.i.,..I|
00000960: 41 24 B2 44 49 24 A7 34 38 00 76 11 2D 00 99 22 |A$.DI$.48.v.-.."|
00000970: 93 11 11 22 3A 8E 00 87 11 2E 00 8B 49 41 24 B3 |...":.......IA$.|
00000980: B1 44 49 24 A7 34 38 00 94 11 2F 00 99 22 93 11 |.DI$.48.../.."..|
00000990: 11 22 3A 8E 00 A1 11 30 00 8B 49 44 B2 30 A7 35 |.":....0..ID.0.5|
000009A0: 32 00 E4 11 31 00 99 A3 32 29 22 11 11 C2 49 54 |2...1...2)"...IT|
000009B0: 54 45 20 D3 41 56 45 20 C4 49 53 4B 45 54 54 45 |TE .AVE .ISKETTE|
000009C0: 20 45 49 4E 4C 45 47 45 4E 20 55 4E 44 22 3A 99 | EINLEGEN UND":.|
000009D0: A3 32 29 22 D2 C5 D4 D5 D2 CE 20 44 52 55 45 43 |.2)"...... DRUEC|
000009E0: 4B 45 4E 22 00 FA 11 32 00 A1 45 24 3A 8B 45 24 |KEN"...2..E$:.E$|
000009F0: B3 B1 C7 28 31 33 29 A7 35 30 00 02 12 33 00 89 |...(13).50...3..|
00000A00: 34 33 00 49 12 34 00 99 A3 32 29 22 11 11 C2 49 |43.I.4...2)"...I|
00000A10: 54 54 45 20 CF 52 49 47 49 4E 41 4C 20 C4 49 53 |TTE .RIGINAL .IS|
00000A20: 4B 45 54 54 45 20 45 49 4E 4C 45 47 45 4E 20 55 |KETTE EINLEGEN U|
00000A30: 4E 44 22 3A 99 A3 32 29 22 D2 C5 D4 D5 D2 CE 20 |ND":..2)"...... |
00000A40: 44 52 55 45 43 4B 45 4E 22 00 5F 12 35 00 A1 45 |DRUECKEN"._.5..E|
00000A50: 24 3A 8B 45 24 B3 B1 C7 28 31 33 29 A7 35 33 00 |$:.E$...(13).53.|
00000A60: 67 12 36 00 89 34 33 00 B5 12 37 00 3A 3A 9F 35 |g.6..43...7.::.5|
00000A70: 2C 38 2C 35 2C 22 23 22 3A 98 31 35 2C 22 55 31 |,8,5,"#":.15,"U1|
00000A80: 3A 22 35 3B 30 3B 31 38 3B 30 3A 98 31 35 2C 22 |:"5;0;18;0:.15,"|
00000A90: 42 2D 50 3A 22 35 3B 31 36 32 3A A1 23 35 2C 41 |B-P:"5;162:.#5,A|
00000AA0: 24 2C 41 31 24 3A 44 49 24 B2 41 24 AA 41 31 24 |$,A1$:DI$.A$.A1$|
00000AB0: 3A A0 35 3A 8E 00 00 00 C8 B4 FF 50 12 01 00 45 |:.5:.......P...E|
00000AC0: 9F A5 |.. |
......::.788,52:.792,193:.53272,23:.".":
.53280,0:.53281,7:.".":."...........COPY
FUER RELATIVE FILES...":."..........VON
WALTER GUEPFERT...":.32._....N$(19),RS(
19),B(19),D$(2000),R(2000):A.1:.53280,0:
.53281,7:.".":::.15,8,15:.15,"I":.55:.5,
8,5,"#":.15,"U1:"5;0;18;0:.15,"B-P:"5;14
4:H$."":.I.144.167:.#5,A$:H$.H$.A$:.:.".
......."H$".....":::S.1:P.2:F.1.U....15,
"U1:"5;0;18;S......15,"B-P:"5;P:.#5,T$:.
F(T$.G(0)).128.4..#5,A$,A$:.10.....F.F.1
:.F.9.8.M...P.P.32:.4.S...:......15,"B-P
:"5;0:.#5,T1$,S$:.F(T1$.G(0))..18.11. ..
.S.F(S$.G(0)):P.2:F.1:.3.....::N$(A)."":
.I.3.18:.#5,A$:N$(A).N$(A).A$:.:::.#5,A$
,A$,R$,A$,A$,A$,A$,A$,A$,LB$,HB$:RS(A).F
(R$.G(0)):LB.F(LB$.G(0)):HB.F(HB$.G(0)):
B(A).LB.256.HB:A.A.1:......::.A.1...2)"K
EIN REL FILE GEFUNDEN": 5: 15:.28.......
1)A.1"REL. FILES GEFUNDEN":.:.:.Z.1.A.1:
..2)"FILE NR. "Z" ".18)N$(Z):.Z: 5:::.
:..2);:."WELCHE FILE NR. KOPIEREN ";E$:
.E(E$).0.E(E$).A.1..".":.28.....E.E(E$):
::FR..(0):.FR.0.FR.FR.65536.....MR..(FR.
RS(E)):::.:.2,8,2,N$(E):RC.0.<...HR..(RC
.256):LR.RC.HR.256:.15,"P"G(2)G(LR)G(HR)
G(1):.15,F:..2)"LESEN RECORD "RC".":.F.5
0.20.W....F.0.."DISK"F: 2: 15:..{....#2,
A$:.A$.G(255).D$(RC)."":.19.L...D$(RC).A
$:.I.2.RS(E):.#2,A$:D$(RC).D$(RC).A$:.I:
R(C).RC:C.C.1:.C.MR.KP.1:.38.....RC.RC.1
:.15..... 2:.:.:.::.X.....2)"ES SIND "C"
RECORDS ZU KOPIEREN":.:..2)"BITTE SAVE
DISKETTE EINLEGEN UND":..2)"RETURN DRUEC
KEN":.:..J....E$:.E$."".22.|....E$..G(13
).22......15,"I":ID.1.....::.43:.2,8,2,N
$(E):.15,F:.F.62..36.T....F.0.."DISK FEH
LER NR. "F:..A...."...":.I.0.C.1:HR..(R(
I).256):LR.R(I).HR.256:..2)"SCHREIBEN RE
CORD "R(I)".":.15,"P"G(2)G(LR)G(HR)G(1):
.2,D$(R(I));:.I: 2:.KP.1.KP.0:.39......:
.:..2)"NOCH EIN FILE KOPIEREN J/N ?"....
..E$:.E$."".29......E$.."J"..64738......
:.1... ...5)"ORIGINAL DISKETTE EINLEGEN
UND":..5)"RETURN DRUECKEN"...!..E$:.E$."
".33..."..E$..G(13).33./.#.."....":.:.2.
..$.:: 2:."....":..2)"FILE NICHT VORHAND
EN. ES WIRD EIN":..2)"NEUES RELATIVES FI
LE UNTER DEM":..2)"NAMEN ."N$(E)".":..2)
"ANGELEGT.":.2,8,2,N$(E).",L,".G(RS(E)):
AR..((B(E).254).RS(E)):HR..(AR.256):LR.A
R.HR.256:.15,"P"G(2)G(LR)G(HR)G(1)./.%..
2,G(255): 2:.25.C.&.:: 2:."...":.21...'.
::."...":..2)"BITTE ORIGINALDISKETTE EIN
LEGEN":..2)"UND RETURN DRUECKEN"...(..E$
:.E$."".40...)..E$..G(13).40...*..15,"I"
:ID.0:.43:.2,8,2,N$(E):RC.RC.1:C.0:.I.0.
MR.1:D$(I)."":.:::."...":.15.Y.+.::.5,8,
5,"#":.15,"U1:"5;0;18;0:.15,"B-P:"5;162:
.#5,A$,A1$:IA$.A$.A1$: 5:.ID.0.46.I.,..I
A$.DI$.48.V.-.."...":.......IA$..DI$.48.
../.."...":....0..ID.0.52...1...2)"..BIT
TE SAVE DISKETTE EINLEGEN UND":..2)"RETU
RN DRUECKEN"...2..E$:.E$..G(13).50...3..
43.I.4...2)"..BITTE ORIGINAL DISKETTE EI
NLEGEN UND":..2)"RETURN DRUECKEN"._.5..E
$:.E$..G(13).53.G.6..43...7.::.5,8,5,"#"
:.15,"U1:"5;0;18;0:.15,"B-P:"5;162:.#5,A
$,A1$:DI$.A$.A1$: 5:....H..P...E..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL