00000000: 01 40 4B 40 01 00 8F 20 2A 2A 2A 2A 2A 2A 20 45 |.@K@... ****** E|
00000010: 52 5A 45 55 47 55 4E 47 20 56 4F 4E 20 44 41 54 |RZEUGUNG VON DAT|
00000020: 41 2D 5A 45 49 4C 45 4E 20 41 55 53 20 53 48 41 |A-ZEILEN AUS SHA|
00000030: 50 45 2D 53 54 52 49 4E 47 53 20 28 48 49 45 52 |PE-STRINGS (HIER|
00000040: 20 41 24 29 20 2A 2A 2A 2A 2A 2A 00 51 40 02 00 | A$) ******.Q@..|
00000050: 8F 00 79 40 03 00 8F 20 2A 2A 2A 2A 2A 2A 20 50 |..y@... ****** P|
00000060: 52 4F 42 45 53 48 41 50 45 20 45 52 5A 45 55 47 |ROBESHAPE ERZEUG|
00000070: 45 4E 20 2A 2A 2A 2A 2A 2A 00 7F 40 04 00 8F 00 |EN ******..@....|
00000080: B4 40 05 00 E7 30 2C 31 3A E7 34 2C 31 3A E7 31 |.@...0,1:.4,1:.1|
00000090: 2C 36 3A DE 31 2C 31 3A E2 31 2C 31 30 2C 31 30 |,6:.1,1:.1,10,10|
000000A0: 2C 31 30 2C 31 30 3A E4 41 24 2C 30 2C 30 2C 32 |,10,10:.A$,0,0,2|
000000B0: 30 2C 32 30 00 BA 40 06 00 90 00 E6 40 07 00 8F |0,20..@.....@...|
000000C0: 20 2A 2A 2A 2A 2A 2A 20 45 52 5A 45 55 47 45 4E | ****** ERZEUGEN|
000000D0: 20 44 45 52 20 44 41 54 41 5A 45 49 4C 45 4E 20 | DER DATAZEILEN |
000000E0: 2A 2A 2A 2A 2A 2A 00 F1 40 08 00 89 36 33 30 30 |******..@...6300|
000000F0: 30 00 2C 41 09 00 8F 20 2A 2A 2A 2A 2A 2A 20 4E |0.,A... ****** N|
00000100: 45 55 45 53 20 50 52 4F 47 52 41 4D 4D 20 5A 55 |EUES PROGRAMM ZU|
00000110: 52 20 4B 4F 4E 54 52 4F 4C 4C 45 20 44 45 52 20 |R KONTROLLE DER |
00000120: 44 41 54 41 53 20 2A 2A 2A 2A 2A 2A 00 4B 41 0A |DATAS ******.KA.|
00000130: 00 E7 30 2C 31 3A E7 34 2C 31 3A E7 31 2C 33 3A |..0,1:.4,1:.1,3:|
00000140: DE 31 2C 31 3A 8D 36 33 30 31 35 00 5B 41 0F 00 |.1,1:.63015.[A..|
00000150: E3 43 24 2C 31 30 30 2C 31 30 30 00 61 41 14 00 |.C$,100,100.aA..|
00000160: 80 00 9E 41 17 F6 8F 20 2A 2A 2A 2A 2A 2A 20 45 |...A... ****** E|
00000170: 53 20 46 4F 4C 47 54 20 44 45 52 20 44 41 54 41 |S FOLGT DER DATA|
00000180: 47 45 4E 45 52 41 54 4F 52 20 42 5A 57 20 44 49 |GENERATOR BZW DI|
00000190: 45 20 44 41 54 41 53 20 2A 2A 2A 2A 2A 2A 00 BA |E DATAS ******..|
000001A0: 41 18 F6 99 C7 28 31 34 37 29 36 33 30 32 30 22 |A....(147)63020"|
000001B0: 44 41 54 41 22 C3 28 41 24 29 00 C6 41 19 F6 49 |DATA".(A$)..A..I|
000001C0: B2 31 3A 4B B2 30 00 CC 41 1A F6 EB 00 E5 41 1B |.1:K.0..A.....A.|
000001D0: F6 3A 5A B2 30 3A 99 36 33 30 32 31 AA 4B 22 44 |.:Z.0:.63021.K"D|
000001E0: 41 54 41 22 3B 00 F6 41 1C F6 3A EB 20 FD 20 49 |ATA";..A..:. . I|
000001F0: B3 C3 28 41 24 29 00 1A 42 1D F6 3A 3A 99 C6 28 |..(A$)..B..::..(|
00000200: CA 28 41 24 2C 49 2C 31 29 29 22 2C 22 3B 3A 49 |.(A$,I,1))",";:I|
00000210: B2 49 AA 31 3A 5A B2 5A AA 31 00 28 42 1E F6 3A |.I.1:Z.Z.1.(B..:|
00000220: 3A 8B 5A B2 31 30 A7 ED 00 2F 42 1F F6 3A EC 00 |:.Z.10.../B..:..|
00000230: 4E 42 20 F6 3A 99 C6 28 CA 28 41 24 2C 49 2C 31 |NB .:..(.(A$,I,1|
00000240: 29 29 3A 49 B2 49 AA 31 3A 4B B2 4B AA 31 00 5E |)):I.I.1:K.K.1.^|
00000250: 42 21 F6 EC 20 FD 20 49 B3 C3 28 41 24 29 00 7D |B!.. . I..(A$).}|
00000260: 42 22 F6 99 36 33 30 32 31 AA 4B 22 44 41 54 41 |B"..63021.K"DATA|
00000270: 22 C6 28 CA 28 41 24 2C 49 2C 31 29 29 00 C1 42 |".(.(A$,I,1))..B|
00000280: 23 F6 99 22 36 33 30 31 35 20 52 45 41 44 41 3A |#.."63015 READA:|
00000290: 46 4F 52 49 3D 31 54 4F 41 3A 52 45 41 44 42 3A |FORI=1TOA:READB:|
000002A0: 42 24 3D 43 48 52 24 28 42 29 3A 43 24 3D 43 24 |B$=CHR$(B):C$=C$|
000002B0: 2B 42 24 3A 4E 45 58 54 49 3A 52 45 54 55 52 4E |+B$:NEXTI:RETURN|
000002C0: 22 00 DA 42 24 F6 99 22 44 45 4C 45 54 45 36 33 |"..B$.."DELETE63|
000002D0: 30 30 30 2D 36 33 30 31 32 22 00 00 00 |000-63012"... |
.@K@... ****** ERZEUGUNG VON DATA-ZEILEN
AUS SHAPE-STRINGS (HIER A$) ******.Q@..
..Y@... ****** PROBESHAPE ERZEUGEN *****
*.@.....@...0,1:.4,1:.1,6:.1,1:.1,10,10
,10,10:.A$,0,0,20,20..@.....@... ******
ERZEUGEN DER DATAZEILEN ******..@...6300
0.,A... ****** NEUES PROGRAMM ZUR KONTRO
LLE DER DATAS ******.KA...0,1:.4,1:.1,3:
.1,1:.63015.[A...C$,100,100.AA.....A...
****** ES FOLGT DER DATAGENERATOR BZW DI
E DATAS ******..A...G(147)63020"DATA"C(A
$).FA..I.1:K.0.LA.....A..:Z.0:.63021.K"D
ATA";..A..:. . I.C(A$)..B..::.F(J(A$,I,1
))",";:I.I.1:Z.Z.1.(B..::.Z.10.../B..:..
NB .:.F(J(A$,I,1)):I.I.1:K.K.1.^B!.. . I
.C(A$).}B"..63021.K"DATA"F(J(A$,I,1)).AB
#.."63015 READA:FORI=1TOA:READB:B$=CHR$(
B):C$=C$+B$:NEXTI:RETURN".ZB$.."DELETE63
000-63012"...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL