00000000: 01 1C 22 1C 64 00 8F 20 2A 2A 52 45 4C 44 41 54 |..".d.. **RELDAT|
00000010: 2A 2A 20 20 48 55 42 45 52 54 20 54 45 49 4E 45 |** HUBERT TEINE|
00000020: 52 54 00 5F 1C C8 00 8F 2A 2A 2A 2A 2A 2A 41 4E |RT._....******AN|
00000030: 4C 45 47 45 4E 2C 53 50 45 49 43 48 45 52 4E 2C |LEGEN,SPEICHERN,|
00000040: 4C 45 53 45 4E 20 42 45 49 20 45 49 4E 45 52 20 |LESEN BEI EINER |
00000050: 52 45 4C 41 54 49 56 45 4E 20 44 41 54 45 49 00 |RELATIVEN DATEI.|
00000060: 8B 1C 2C 01 8F 2A 2A 2A 2A 2A 2A 45 52 47 41 45 |..,..******ERGAE|
00000070: 4E 5A 55 4E 47 53 50 52 4F 47 52 41 4D 4D 20 5A |NZUNGSPROGRAMM Z|
00000080: 55 20 27 47 52 41 50 48 45 52 27 00 A3 1C 90 01 |U 'GRAPHER'.....|
00000090: FE 25 3A 99 C7 28 31 34 37 29 3A 49 B2 30 3A E7 |.%:..(147):I.0:.|
000000A0: 35 2C 38 00 E2 1C F4 01 99 22 20 20 41 4E 4C 45 |5,8......" ANLE|
000000B0: 47 45 4E 20 3D 20 31 22 3A 99 3A 99 3A 99 22 53 |GEN = 1":.:.:."S|
000000C0: 50 45 49 43 48 45 52 4E 20 3D 20 32 22 3A 99 3A |PEICHERN = 2":.:|
000000D0: 99 3A 99 22 20 20 20 20 4C 41 44 45 4E 20 3D 20 |.:." LADEN = |
000000E0: 33 22 00 05 1D 58 02 A1 F9 41 24 3A 8B A8 28 C5 |3"...X...A$:..(.|
000000F0: 28 41 24 29 B1 B2 31 AF C5 28 41 24 29 B3 B2 33 |(A$)..1..(A$)..3|
00000100: 29 A7 36 30 30 00 1F 1D 20 03 91 C5 28 41 24 29 |).600... ...(A$)|
00000110: 89 31 30 30 30 2C 32 30 30 30 2C 33 30 30 30 00 |.1000,2000,3000.|
00000120: 50 1D E8 03 99 C7 28 31 34 37 29 3A 85 22 41 4E |P.....(147):."AN|
00000130: 5A 41 48 4C 20 44 41 54 45 4E 53 41 45 54 5A 45 |ZAHL DATENSAETZE|
00000140: 22 3B 4E 43 3A 8B 4E 43 B2 30 A7 4E 43 B2 33 30 |";NC:.NC.0.NC.30|
00000150: 00 73 1D 10 04 FE 0D 23 31 2C 22 47 52 41 50 48 |.s.....#1,"GRAPH|
00000160: 45 52 2E 42 49 42 22 2C 4C 32 35 34 3A 8D 32 30 |ER.BIB",L254:.20|
00000170: 30 30 30 00 9B 1D 38 04 FE 12 23 31 2C 28 4E 43 |000...8...#1,(NC|
00000180: 29 3A 98 31 2C C7 28 32 35 35 29 3A FE 0F 23 31 |):.1,.(255):..#1|
00000190: 3A 41 B2 44 53 3A 89 20 34 30 30 00 B6 1D CF 07 |:A.DS:. 400.....|
000001A0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 53 50 45 |.************SPE|
000001B0: 49 43 48 45 52 4E 00 DA 1D D0 07 FE 0D 23 31 2C |ICHERN.......#1,|
000001C0: 22 47 52 41 50 48 45 52 2E 42 49 42 22 3A 49 B2 |"GRAPHER.BIB":I.|
000001D0: 32 3A 8C 3A 8D 32 30 30 30 30 00 E4 1D DA 07 99 |2:.:.20000......|
000001E0: 22 93 22 3B 00 12 1E C4 09 87 41 24 3A 87 42 24 |".";......A$:.B$|
000001F0: 3A 42 24 B2 42 24 AA 22 53 49 4E 28 32 35 2A 58 |:B$.B$."SIN(25*X|
00000200: 29 2F 32 35 2B 53 49 4E 28 32 37 2A 58 29 2F 32 |)/25+SIN(27*X)/2|
00000210: 37 22 00 43 1E EC 09 52 45 24 B2 41 24 AA 42 24 |7".C...RE$.A$.B$|
00000220: 3A FE 12 23 31 2C 31 2C 31 3A 98 31 2C 52 45 24 |:..#1,1,1:.1,RE$|
00000230: 3A 99 22 20 31 3A 22 3B 41 24 3B 22 20 20 3A 22 |:." 1:";A$;" :"|
00000240: 3B 42 24 00 5F 1E 28 0A 87 41 24 3A 8B 41 24 B2 |;B$._.(..A$:.A$.|
00000250: 22 32 35 35 22 A7 FE 0F 23 31 3A 89 34 30 30 00 |"255"...#1:.400.|
00000260: 7D 1E 3C 0A 8B C3 28 41 24 29 B3 31 32 A7 41 24 |}.<...(A$).12.A$|
00000270: B2 41 24 AA 22 20 22 3A 89 32 36 32 30 00 9C 1E |.A$." ":.2620...|
00000280: 50 0A 87 42 24 3A 52 45 24 B2 41 24 AA 42 24 3A |P..B$:RE$.A$.B$:|
00000290: 99 3A 99 49 3B 22 3A 22 3B 52 45 24 00 B9 1E 64 |.:.I;":";RE$...d|
000002A0: 0A FE 12 23 31 2C 28 49 29 2C 31 3A 98 31 2C 52 |...#1,(I),1:.1,R|
000002B0: 45 24 3A 8D 32 30 30 30 30 00 C9 1E 78 0A 49 B2 |E$:.20000...x.I.|
000002C0: 49 AA 31 3A 89 32 36 30 30 00 DA 1E B7 0B 8F 2A |I.1:.2600......*|
000002D0: 2A 2A 2A 2A 2A 4C 41 44 45 4E 00 F1 1E B8 0B FE |*****LADEN......|
000002E0: 0D 23 31 2C 22 47 52 41 50 48 45 52 2E 42 49 42 |.#1,"GRAPHER.BIB|
000002F0: 22 00 23 1F C2 0B 99 C7 28 31 34 37 29 3A 85 22 |".#.....(147):."|
00000300: 52 45 43 4F 52 44 4E 52 22 3B 41 3A FE 12 23 31 |RECORDNR";A:..#1|
00000310: 2C 28 41 29 2C 31 3A 41 24 B2 22 22 3A 8D 32 30 |,(A),1:A$."":.20|
00000320: 30 30 30 00 47 1F CC 0B A1 23 31 2C 42 24 3A 8B |000.G....#1,B$:.|
00000330: 42 24 B2 C7 28 31 33 29 B0 42 24 B2 C7 28 32 35 |B$..(13).B$..(25|
00000340: 35 29 A7 33 31 30 30 00 5A 1F D6 0B 41 24 B2 41 |5).3100.Z...A$.A|
00000350: 24 AA 42 24 3A 89 33 30 32 30 00 6E 1F 1C 0C 99 |$.B$:.3020.n....|
00000360: 41 24 3A FE 0F 23 31 3A A1 F9 41 24 3A 8A 00 80 |A$:..#1:..A$:...|
00000370: 1F AC 26 83 52 45 43 48 54 45 43 4B 2E 46 4F 55 |..&.RECHTECK.FOU|
00000380: 00 14 20 B6 26 83 53 49 4E 28 58 29 2B 53 49 4E |.. .&.SIN(X)+SIN|
00000390: 28 33 2A 58 29 2F 33 2B 53 49 4E 28 35 2A 58 29 |(3*X)/3+SIN(5*X)|
000003A0: 2F 35 2B 53 49 4E 28 37 2A 58 29 2F 37 2B 53 49 |/5+SIN(7*X)/7+SI|
000003B0: 4E 28 39 2A 58 29 2F 39 2B 53 49 4E 28 31 31 2A |N(9*X)/9+SIN(11*|
000003C0: 58 29 2F 31 31 2B 53 49 4E 28 31 33 2A 58 29 2F |X)/11+SIN(13*X)/|
000003D0: 31 33 2B 53 49 4E 28 31 35 2A 58 29 2F 31 35 2B |13+SIN(15*X)/15+|
000003E0: 53 49 4E 28 31 37 2A 58 29 2F 31 37 2B 53 49 4E |SIN(17*X)/17+SIN|
000003F0: 28 31 39 2A 58 29 2F 31 39 2B 53 49 4E 28 32 31 |(19*X)/19+SIN(21|
00000400: 2A 58 29 2F 32 31 2B 53 49 4E 28 32 33 2A 58 29 |*X)/21+SIN(23*X)|
00000410: 2F 32 33 2B 00 25 20 C0 26 83 44 52 45 49 45 43 |/23+.% .&.DREIEC|
00000420: 4B 2E 46 4F 55 00 BB 20 D4 26 83 34 2F 50 49 2A |K.FOU.. .&.4/PI*|
00000430: 28 53 49 4E 28 58 29 2D 53 49 4E 28 33 2A 58 29 |(SIN(X)-SIN(3*X)|
00000440: 2F 39 2B 53 49 4E 28 35 2A 58 29 2F 32 35 2D 53 |/9+SIN(5*X)/25-S|
00000450: 49 4E 28 37 2A 58 29 2F 34 39 2B 53 49 4E 28 39 |IN(7*X)/49+SIN(9|
00000460: 2A 58 29 2F 38 31 2D 53 49 4E 28 31 31 2A 58 29 |*X)/81-SIN(11*X)|
00000470: 2F 31 32 31 2B 53 49 4E 28 31 33 2A 58 29 2F 31 |/121+SIN(13*X)/1|
00000480: 36 39 2D 53 49 4E 28 31 35 2A 58 29 2F 32 32 35 |69-SIN(15*X)/225|
00000490: 2B 53 49 4E 28 31 37 2A 58 29 2F 32 38 39 2D 53 |+SIN(17*X)/289-S|
000004A0: 49 4E 28 31 39 2A 58 29 2F 33 36 31 2B 53 49 4E |IN(19*X)/361+SIN|
000004B0: 28 32 31 2A 58 29 2F 34 34 31 29 00 E1 20 10 27 |(21*X)/441).. .'|
000004C0: 83 53 43 48 57 45 42 55 4E 47 2C 43 4F 53 28 58 |.SCHWEBUNG,COS(X|
000004D0: 2F 32 29 2A 53 49 4E 28 58 2F 32 2B 31 30 2A 58 |/2)*SIN(X/2+10*X|
000004E0: 29 00 FD 20 24 27 83 50 2E 48 41 4C 42 4B 52 45 |).. $'.P.HALBKRE|
000004F0: 49 53 2C 53 51 52 28 31 2D 58 5E 32 29 00 1A 21 |IS,SQR(1-X^2)..!|
00000500: 38 27 83 4E 2E 48 41 4C 42 4B 52 45 49 53 2C 2D |8'.N.HALBKREIS,-|
00000510: 53 51 52 28 31 2D 58 5E 32 29 00 2C 21 60 27 83 |SQR(1-X^2).,!`'.|
00000520: 47 45 52 41 44 45 2C 4D 2A 58 2B 42 00 65 21 74 |GERADE,M*X+B.e!t|
00000530: 27 83 44 45 4C 54 41 46 55 4E 4B 54 2E 2C 31 2F |'.DELTAFUNKT.,1/|
00000540: 28 32 2A 53 51 52 28 50 49 29 29 2A 31 2F 53 51 |(2*SQR(PI))*1/SQ|
00000550: 52 28 44 29 2A 45 58 50 28 2D 58 5E 32 2A 30 2E |R(D)*EXP(-X^2*0.|
00000560: 32 35 2F 44 29 00 81 21 88 27 83 4E 45 49 4C 53 |25/D)..!.'.NEILS|
00000570: 50 41 52 41 42 45 4C 2C 58 5E 32 5E 28 31 2F 33 |PARABEL,X^2^(1/3|
00000580: 29 00 99 21 9C 27 83 4C 4F 47 41 52 49 54 48 4D |)..!.'.LOGARITHM|
00000590: 55 53 2C 4C 4F 47 28 58 29 00 B1 21 B0 27 83 45 |US,LOG(X)..!.'.E|
000005A0: 58 50 4F 4E 45 4E 54 49 41 4C 2C 45 58 50 28 58 |XPONENTIAL,EXP(X|
000005B0: 29 00 C4 21 C4 27 83 57 55 52 5A 45 4C 2C 53 51 |)..!.'.WURZEL,SQ|
000005C0: 52 28 58 29 00 E7 21 D8 27 83 4B 55 42 49 53 43 |R(X)..!.'.KUBISC|
000005D0: 48 2E 50 4F 4C 2C 41 2A 58 5E 33 2B 42 2A 58 5E |H.POL,A*X^3+B*X^|
000005E0: 32 2B 43 2A 58 2B 44 00 1C 22 EC 27 83 50 4C 41 |2+C*X+D..".'.PLA|
000005F0: 4E 43 4B 2C 38 2A 50 49 2A 48 30 2A 43 30 2F 28 |NCK,8*PI*H0*C0/(|
00000600: 58 5E 35 2A 28 45 58 50 28 48 30 2A 43 30 2F 28 |X^5*(EXP(H0*C0/(|
00000610: 58 2A 4B 30 2A 54 29 29 2D 31 29 29 00 2E 22 00 |X*K0*T))-1))..".|
00000620: 28 83 4B 45 48 52 57 45 52 54 2C 31 2F 58 00 48 |(.KEHRWERT,1/X.H|
00000630: 22 14 28 83 4F 53 5A 49 4C 4C 41 54 49 4F 4E 2C |".(.OSZILLATION,|
00000640: 53 49 4E 28 31 2F 58 29 00 65 22 28 28 83 48 45 |SIN(1/X).e"((.HE|
00000650: 41 56 49 53 49 44 45 2C 41 42 53 28 58 3D 41 42 |AVISIDE,ABS(X=AB|
00000660: 53 28 58 29 29 00 77 22 3C 28 83 4C 4F 47 49 4B |S(X)).w"<(.LOGIK|
00000670: 31 2C 58 41 4E 44 31 00 8A 22 50 28 83 4C 4F 47 |1,XAND1.."P(.LOG|
00000680: 49 4B 32 2C 58 41 4E 44 2D 31 00 9C 22 64 28 83 |IK2,XAND-1.."d(.|
00000690: 53 49 4E 55 53 2C 53 49 4E 28 58 29 00 A5 22 78 |SINUS,SIN(X).."x|
000006A0: 28 83 32 35 35 00 EB 22 20 4E 8B 44 53 B2 35 30 |(.255.." N.DS.50|
000006B0: A7 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.."-------------|
000006C0: 2D 2D 2D 44 41 54 45 49 20 45 52 57 45 49 54 45 |---DATEI ERWEITE|
000006D0: 52 54 22 3A 99 3A D5 8B 44 53 B1 31 A7 99 44 53 |RT":.:..DS.1..DS|
000006E0: 2C 44 53 24 3A FE 0F 23 31 3A 90 00 F1 22 E8 4E |,DS$:..#1:...".N|
000006F0: 8E 00 00 00 |.... |
..".D.. **RELDAT** HUBERT TEINERT._.H..
******ANLEGEN,SPEICHERN,LESEN BEI EINER
RELATIVEN DATEI...,..******ERGAENZUNGSPR
OGRAMM ZU 'GRAPHER'......%:.G(147):I.0:.
5,8......" ANLEGEN = 1":.:.:."SPEICHERN
= 2":.:.:." LADEN = 3"...X...A$:..(E
(A$)..1.E(A$)..3).600... ..E(A$).1000,20
00,3000.P....G(147):."ANZAHL DATENSAETZE
";NC:.NC.0.NC.30.S.....#1,"GRAPHER.BIB",
L254:.20000...8...#1,(NC):.1,G(255):..#1
:A.DS:. 400...O..************SPEICHERN.Z
.P...#1,"GRAPHER.BIB":I.2:.:.20000...Z..
".";...D..A$:.B$:B$.B$."SIN(25*X)/25+SIN
(27*X)/27".C...RE$.A$.B$:..#1,1,1:.1,RE$
:." 1:";A$;" :";B$._.(..A$:.A$."255"...
#1:.400.}.<..C(A$).12.A$.A$." ":.2620...
P..B$:RE$.A$.B$:.:.I;":";RE$...D...#1,(I
),1:.1,RE$:.20000.I.X.I.I.1:.2600.Z....*
*****LADEN.......#1,"GRAPHER.BIB".#.B..G
(147):."RECORDNR";A:..#1,(A),1:A$."":.20
000.G.L..#1,B$:.B$.G(13).B$.G(255).3100.
Z.V.A$.A$.B$:.3020.N....A$:..#1:..A$:...
..&.RECHTECK.FOU.. .&.SIN(X)+SIN(3*X)/3+
SIN(5*X)/5+SIN(7*X)/7+SIN(9*X)/9+SIN(11*
X)/11+SIN(13*X)/13+SIN(15*X)/15+SIN(17*X
)/17+SIN(19*X)/19+SIN(21*X)/21+SIN(23*X)
/23+.% .&.DREIECK.FOU.. T&.4/PI*(SIN(X)-
SIN(3*X)/9+SIN(5*X)/25-SIN(7*X)/49+SIN(9
*X)/81-SIN(11*X)/121+SIN(13*X)/169-SIN(1
5*X)/225+SIN(17*X)/289-SIN(19*X)/361+SIN
(21*X)/441).. .'.SCHWEBUNG,COS(X/2)*SIN(
X/2+10*X).. $'.P.HALBKREIS,SQR(1-X^2)..!
8'.N.HALBKREIS,-SQR(1-X^2).,!`'.GERADE,M
*X+B.E!T'.DELTAFUNKT.,1/(2*SQR(PI))*1/SQ
R(D)*EXP(-X^2*0.25/D)..!.'.NEILSPARABEL,
X^2^(1/3)..!.'.LOGARITHMUS,LOG(X)..!.'.E
XPONENTIAL,EXP(X).D!D'.WURZEL,SQR(X)..!X
'.KUBISCH.POL,A*X^3+B*X^2+C*X+D..".'.PLA
NCK,8*PI*H0*C0/(X^5*(EXP(H0*C0/(X*K0*T))
-1))..".(.KEHRWERT,1/X.H".(.OSZILLATION,
SIN(1/X).E"((.HEAVISIDE,ABS(X=ABS(X)).W"
<(.LOGIK1,XAND1.."P(.LOGIK2,XAND-1.."D(.
SINUS,SIN(X).."X(.255.." N.DS.50.."-----
-----------DATEI ERWEITERT":.:U.DS.1..DS
,DS$:..#1:...".N....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL