00000000: 01 40 20 40 0A 00 8F 20 2A 2A 2A 20 46 55 4E 4B |.@ @... *** FUNK|
00000010: 54 49 4F 4E 53 50 4C 4F 54 54 45 52 20 2A 2A 2A |TIONSPLOTTER ***|
00000020: 00 64 40 14 00 97 30 2C 32 35 35 3A 97 31 2C 30 |.d@...0,255:.1,0|
00000030: 3A 99 C7 28 31 34 32 29 C7 28 31 31 29 3A 58 58 |:..(142).(11):XX|
00000040: B2 30 3A 4F B2 31 3A 8F 20 47 52 41 46 49 4B 2D |.0:O.1:. GRAFIK-|
00000050: 4C 4F 45 53 43 48 45 4E 2D 46 4C 41 47 20 53 45 |LOESCHEN-FLAG SE|
00000060: 54 5A 45 4E 00 8E 40 1E 00 DE 20 30 2C 31 3A 99 |TZEN..@... 0,1:.|
00000070: 22 46 55 4E 4B 54 49 4F 4E 20 3A 20 22 3B 3A 9F |"FUNKTION : ";:.|
00000080: 20 31 2C 30 3A 84 31 2C 46 24 3A A0 20 31 00 A9 | 1,0:.1,F$:. 1..|
00000090: 40 28 00 E8 3A 99 22 59 20 3D 20 22 3B 46 24 3B |@(..:."Y = ";F$;|
000000A0: C7 28 32 37 29 3B 22 51 22 00 F7 40 32 00 99 3A |.(27);"Q"..@2..:|
000000B0: 99 22 52 49 43 48 54 49 47 20 28 4A 2F 4E 29 20 |."RICHTIG (J/N) |
000000C0: 3F 20 22 3B 3A 97 20 32 35 39 39 2C 30 3A EB 3A |? ";:. 2599,0:.:|
000000D0: A1 F9 20 41 24 3A EC 20 FC 20 41 24 B2 22 4A 22 |.. A$:. . A$."J"|
000000E0: 20 B0 20 41 24 B2 22 4E 22 3A 97 20 32 35 39 39 | . A$."N":. 2599|
000000F0: 2C 31 3A 99 20 41 24 00 08 41 3C 00 8B 20 41 24 |,1:. A$..A<.. A$|
00000100: B2 22 4E 22 20 A7 20 8A 00 40 41 46 00 8F 20 2A |."N" . ..@AF.. *|
00000110: 2A 2A 20 46 55 4E 4B 54 49 4F 4E 53 44 45 46 49 |** FUNKTIONSDEFI|
00000120: 4E 49 54 49 4F 4E 20 49 4E 20 5A 45 49 4C 45 20 |NITION IN ZEILE |
00000130: 39 30 20 53 43 48 52 45 49 42 45 4E 20 2A 2A 2A |90 SCHREIBEN ***|
00000140: 00 8F 41 50 00 E8 3A FE 25 3A 99 20 22 39 30 20 |..AP..:.%:. "90 |
00000150: 44 45 46 20 46 4E 41 28 51 29 3D 22 3B 46 24 3A |DEF FNA(Q)=";F$:|
00000160: 99 22 47 4F 54 4F 20 39 30 22 3A 97 20 38 34 32 |."GOTO 90":. 842|
00000170: 2C 31 39 3A 97 20 38 34 33 2C 31 33 3A 97 20 38 |,19:. 843,13:. 8|
00000180: 34 34 2C 31 33 3A 97 20 32 30 38 2C 33 3A 80 00 |44,13:. 208,3:..|
00000190: A7 41 5A 00 96 20 A5 41 28 51 29 B2 BE 28 58 29 |.AZ.. .A(Q)..(X)|
000001A0: AA BE 28 58 AE 32 29 00 D5 41 64 00 8B 20 58 58 |..(X.2)..Ad.. XX|
000001B0: 20 A7 20 FE 26 3A 89 20 31 37 30 3A D5 20 E8 3A | . .&:. 170:. .:|
000001C0: FE 26 3A 99 3A 99 3A 85 22 4D 41 BE 53 54 41 42 |.&:.:.:."MA.STAB|
000001D0: 20 22 3B 53 43 00 F0 41 6E 00 99 3A 99 22 4B 4F | ";SC..An..:."KO|
000001E0: 4F 52 44 49 4E 41 54 45 4E 53 59 53 54 45 4D 22 |ORDINATENSYSTEM"|
000001F0: 00 26 42 78 00 99 3A 99 A6 33 29 22 2A 22 A6 38 |.&Bx..:..3)"*".8|
00000200: 29 22 2A 22 A6 39 29 22 2A 22 A6 31 37 29 22 31 |)"*".9)"*".17)"1|
00000210: 20 20 2A 22 A6 38 29 22 2A 20 20 32 22 A6 36 29 | *".8)"* 2".6)|
00000220: 22 2A 20 20 33 22 00 5D 42 82 00 99 22 2A 2A 2A |"* 3".]B..."***|
00000230: 2A 2A 2A 2A 2A 22 A6 34 29 22 2A 22 A6 39 29 22 |*****".4)"*".9)"|
00000240: 2A 2A 2A 2A 2A 2A 2A 2A 22 A6 31 33 29 22 2A 22 |********".13)"*"|
00000250: A6 38 29 22 2A 22 A6 39 29 22 2A 20 22 00 8C 42 |.8)"*".9)"* "..B|
00000260: 8C 00 99 A6 33 29 22 2A 22 A6 38 29 22 2A 22 A6 |....3)"*".8)"*".|
00000270: 39 29 22 2A 22 A6 32 30 29 22 2A 22 A6 38 29 22 |9)"*".20)"*".8)"|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 2A 22 00 B4 42 96 |********* *"..B.|
00000290: 00 FE 26 3A EB 3A A1 F9 20 41 24 3A 41 25 B2 C5 |..&:.:.. A$:A%..|
000002A0: 28 41 24 29 3A EC 20 FD 20 41 25 B3 31 20 B0 20 |(A$):. . A%.1 . |
000002B0: 41 25 B1 33 00 BA 42 A0 00 3A 00 40 43 AA 00 DE |A%.3..B..:.@C...|
000002C0: 35 2C 31 3A 99 22 59 20 3D 20 22 3B 46 24 3A 99 |5,1:."Y = ";F$:.|
000002D0: 22 4D 41 BE 53 54 41 42 20 3A 22 3B 53 43 3A 99 |"MA.STAB :";SC:.|
000002E0: 22 4B 4F 4F 52 44 49 4E 41 54 45 4E 53 59 53 54 |"KOORDINATENSYST|
000002F0: 45 4D 20 3A 22 3B 41 25 3A DE 20 31 2C 4F 3A 8F |EM :";A%:. 1,O:.|
00000300: 20 49 4E 20 22 4F 22 20 53 54 45 48 54 2C 20 4F | IN "O" STEHT, O|
00000310: 42 20 47 52 41 46 49 4B 20 47 45 4C 4F 45 53 43 |B GRAFIK GELOESC|
00000320: 48 54 20 57 45 52 44 45 4E 20 53 4F 4C 4C 20 28 |HT WERDEN SOLL (|
00000330: 4F 3D 31 3A 4A 41 2C 4F 3D 30 3A 4E 45 49 4E 29 |O=1:JA,O=0:NEIN)|
00000340: 00 8B 43 B4 00 91 20 41 25 20 89 20 33 38 30 2C |..C... A% . 380,|
00000350: 34 30 30 2C 34 32 30 3A 8F 20 52 49 43 48 54 49 |400,420:. RICHTI|
00000360: 47 45 53 20 4B 4F 4F 52 44 49 4E 41 54 45 4E 53 |GES KOORDINATENS|
00000370: 59 53 54 45 4D 20 5A 45 49 43 48 4E 45 4E 20 28 |YSTEM ZEICHNEN (|
00000380: 31 2C 32 20 4F 44 45 52 20 33 29 00 91 43 BE 00 |1,2 ODER 3)..C..|
00000390: 3A 00 97 43 C8 00 3A 00 9F 43 D2 00 5A B2 30 00 |:..C..:..C..Z.0.|
000003A0: A5 43 DC 00 EB 00 B6 43 E6 00 58 B2 28 AB 41 58 |.C.....C..X.(.AX|
000003B0: AA 5A 29 AD 53 43 00 BF 43 F0 00 D7 32 37 30 00 |.Z).SC..C...270.|
000003C0: D0 43 FA 00 59 B2 53 43 AC 28 A5 41 28 58 29 29 |.C..Y.SC.(.A(X))|
000003D0: 00 DE 43 04 01 E5 31 2C 5A 2C 41 59 AB 59 00 E8 |..C...1,Z,AY.Y..|
000003E0: 43 0E 01 5A B2 5A AA 31 00 F4 43 18 01 EC FD 5A |C..Z.Z.1..C....Z|
000003F0: B3 33 32 30 00 08 44 22 01 E7 20 34 2C CD 28 34 |.320..D".. 4,.(4|
00000400: 29 AA 31 20 AF 20 31 35 00 28 44 2C 01 A1 F9 20 |).1 . 15.(D,... |
00000410: 41 24 3A DE 20 30 2C 31 3A E7 20 34 2C CD 28 34 |A$:. 0,1:. 4,.(4|
00000420: 29 AB 31 20 AF 20 31 35 00 59 44 36 01 99 22 57 |).1 . 15.YD6.."W|
00000430: 45 52 54 45 20 53 49 45 48 45 20 38 30 2D 5A 45 |ERTE SIEHE 80-ZE|
00000440: 49 43 48 45 4E 2D 42 49 4C 44 53 43 48 49 52 4D |ICHEN-BILDSCHIRM|
00000450: 20 21 22 3B C7 28 31 33 29 00 DD 44 40 01 99 20 | !";.(13)..D@.. |
00000460: 22 31 2E 20 47 52 41 46 49 4B 20 4E 4F 43 48 4D |"1. GRAFIK NOCHM|
00000470: 41 4C 20 41 4E 5A 45 49 47 45 4E 22 3B C7 28 31 |AL ANZEIGEN";.(1|
00000480: 33 29 3A 99 20 22 32 2E 20 4E 45 55 45 52 20 4D |3):. "2. NEUER M|
00000490: 41 BE 53 54 41 42 22 3B C7 28 31 33 29 3A 99 20 |A.STAB";.(13):. |
000004A0: 22 33 2E 20 4E 45 55 45 20 46 55 4E 4B 54 49 4F |"3. NEUE FUNKTIO|
000004B0: 4E 20 49 4D 20 41 4C 54 45 4E 20 4D 41 BE 53 54 |N IM ALTEN MA.ST|
000004C0: 41 42 22 3B C7 28 31 33 29 3A 99 20 22 34 2E 20 |AB";.(13):. "4. |
000004D0: 50 52 4F 47 52 41 4D 4D 45 4E 44 45 22 00 FD 44 |PROGRAMMENDE"..D|
000004E0: 4A 01 EB 3A A1 F9 20 41 24 3A EC 20 FD 20 41 24 |J..:.. A$:. . A$|
000004F0: B3 22 31 22 20 B0 20 41 24 B1 22 34 22 00 16 45 |."1" . A$."4"..E|
00000500: 54 01 8B 20 41 24 B2 22 31 22 20 A7 20 DE 20 31 |T.. A$."1" . . 1|
00000510: 3A 89 20 32 39 30 00 36 45 5E 01 8B 20 41 24 B2 |:. 290.6E^.. A$.|
00000520: 22 32 22 20 A7 20 4F B2 20 31 3A 58 58 B2 20 30 |"2" . O. 1:XX. 0|
00000530: 3A 89 20 31 30 30 00 55 45 68 01 8B 20 41 24 B2 |:. 100.UEh.. A$.|
00000540: 22 33 22 20 A7 20 4F B2 20 30 3A 58 58 B2 AB 31 |"3" . O. 0:XX..1|
00000550: 3A 89 20 33 30 00 72 45 72 01 99 20 22 4E 45 55 |:. 30.rEr.. "NEU|
00000560: 53 54 41 52 54 20 BD 42 45 52 20 46 36 20 21 22 |START .BER F6 !"|
00000570: 3A 80 00 A2 45 7C 01 41 59 B2 31 30 30 3A 41 58 |:...E|.AY.100:AX|
00000580: B2 31 36 30 3A E5 31 2C 30 2C 41 59 A4 33 32 30 |.160:.1,0,AY.320|
00000590: 2C 41 59 3A E5 31 2C 41 58 2C 30 A4 41 58 2C 32 |,AY:.1,AX,0.AX,2|
000005A0: 30 30 00 AC 45 86 01 89 20 34 33 30 00 DA 45 90 |00..E... 430..E.|
000005B0: 01 41 59 B2 31 39 39 3A 41 58 B2 30 3A E5 31 2C |.AY.199:AX.0:.1,|
000005C0: 41 58 2C 30 A4 41 58 2C 41 59 3A E5 31 2C 41 58 |AX,0.AX,AY:.1,AX|
000005D0: 2C 41 59 A4 33 32 30 2C 41 59 00 E4 45 9A 01 89 |,AY.320,AY..E...|
000005E0: 20 34 33 30 00 13 46 A4 01 41 59 B2 31 30 30 3A | 430..F..AY.100:|
000005F0: 41 58 B2 30 3A E5 31 2C 41 58 2C 30 A4 41 58 2C |AX.0:.1,AX,0.AX,|
00000600: 32 30 30 3A E5 31 2C 41 58 2C 41 59 A4 33 32 30 |200:.1,AX,AY.320|
00000610: 2C 41 59 00 2A 46 AE 01 8D 20 34 35 30 3A 8B 4F |,AY.*F... 450:.O|
00000620: B3 B1 30 A7 20 8D 20 35 34 30 00 34 46 B8 01 89 |..0. . 540.4F...|
00000630: 20 31 39 30 00 43 46 C2 01 57 45 20 B2 33 32 30 | 190.CF..WE .320|
00000640: AD 53 43 00 56 46 CC 01 8B 57 45 20 B1 B2 32 33 |.SC.VF...WE ..23|
00000650: 30 A7 4D B2 35 30 00 71 46 D6 01 8B 57 45 20 B1 |0.M.50.qF...WE .|
00000660: B2 32 30 30 AF 57 45 20 B3 32 33 30 A7 4D B2 32 |.200.WE .230.M.2|
00000670: 35 00 8C 46 E0 01 8B 57 45 20 B1 B2 31 32 30 AF |5..F...WE ..120.|
00000680: 57 45 20 B3 32 30 30 A7 4D B2 32 30 00 A7 46 EA |WE .200.M.20..F.|
00000690: 01 8B 57 45 20 B1 B2 20 36 35 AF 57 45 20 B3 31 |..WE .. 65.WE .1|
000006A0: 32 30 A7 4D B2 31 30 00 C1 46 F4 01 8B 57 45 20 |20.M.10..F...WE |
000006B0: B1 B2 20 32 36 AF 57 45 20 B3 20 36 35 A7 4D B2 |.. 26.WE . 65.M.|
000006C0: 35 00 DB 46 FE 01 8B 57 45 20 B1 B2 20 31 33 AF |5..F...WE .. 13.|
000006D0: 57 45 20 B3 20 32 36 A7 4D B2 32 00 EE 46 08 02 |WE . 26.M.2..F..|
000006E0: 8B 57 45 B3 31 33 A7 4D B2 31 3A 46 B2 31 00 F4 |.WE.13.M.1:F.1..|
000006F0: 46 12 02 8E 00 15 47 1C 02 59 41 B2 41 59 3A 20 |F.....G..YA.AY: |
00000700: 20 20 58 41 B2 41 58 3A 4D 43 B2 30 3A 8B 4D B1 | XA.AX:MC.0:.M.|
00000710: 31 A7 46 B2 31 00 1B 47 26 02 EB 00 26 47 30 02 |1.F.1..G&...&G0.|
00000720: 81 44 B2 31 A4 4D 00 4A 47 3A 02 58 41 B2 58 41 |.D.1.M.JG:.XA.XA|
00000730: AA 53 43 3A 59 41 B2 59 41 AB 53 43 3A 8B 28 58 |.SC:YA.YA.SC:.(X|
00000740: 41 AD 46 29 B1 33 31 32 A7 ED 00 59 47 44 02 82 |A.F).312...YGD..|
00000750: 44 3A 4D 43 B2 4D 43 AA 31 00 70 47 4E 02 8B 28 |D:MC.MC.1.pGN..(|
00000760: 58 41 AD 46 AD 38 29 AB 31 B1 33 39 A7 36 31 30 |XA.F.8).1.39.610|
00000770: 00 AE 47 58 02 E5 31 2C 28 58 41 AD 46 29 2C 41 |..GX..1,(XA.F),A|
00000780: 59 A4 28 58 41 AD 46 29 2C 28 41 59 AB 35 29 3A |Y.(XA.F),(AY.5):|
00000790: E0 31 2C 28 58 41 AD 46 AD 38 AB 31 29 2C 28 41 |.1,(XA.F.8.1),(A|
000007A0: 59 AD 38 29 AB 31 2C C4 28 4D 43 AC 4D 29 00 C2 |Y.8).1,.(MC.M)..|
000007B0: 47 62 02 8B 28 59 41 AD 46 AD 38 29 B3 31 A7 36 |Gb..(YA.F.8).1.6|
000007C0: 33 30 00 FE 47 6C 02 E5 31 2C 41 58 2C 28 59 41 |30..Gl..1,AX,(YA|
000007D0: AD 46 29 A4 28 41 58 AA 35 29 2C 28 59 41 AD 46 |.F).(AX.5),(YA.F|
000007E0: 29 3A E0 31 2C 28 41 58 AD 38 AA 31 29 2C 28 59 |):.1,(AX.8.1),(Y|
000007F0: 41 AD 46 AD 38 29 2C C4 28 4D 43 AC 4D 29 00 04 |A.F.8),.(MC.M)..|
00000800: 48 76 02 EC 00 0A 48 80 02 8E 00 00 00 |Hv....H...... |
.@ @... *** FUNKTIONSPLOTTER ***.D@...0,
255:.1,0:.G(142)G(11):XX.0:O.1:. GRAFIK-
LOESCHEN-FLAG SETZEN..@... 0,1:."FUNKTIO
N : ";:. 1,0:.1,F$: 1..@(..:."Y = ";F$;
G(27);"Q"..@2..:."RICHTIG (J/N) ? ";:. 2
599,0:.:.. A$:. . A$."J" . A$."N":. 2599
,1:. A$..A<.. A$."N" . ..@AF.. *** FUNKT
IONSDEFINITION IN ZEILE 90 SCHREIBEN ***
..AP..:.%:. "90 DEF FNA(Q)=";F$:."GOTO 9
0":. 842,19:. 843,13:. 844,13:. 208,3:..
.AZ.. .A(Q)..(X)..(X.2).UAD.. XX . .&:.
170:U .:.&:.:.:."MA.STAB ";SC..AN..:."KO
ORDINATENSYSTEM".&BX..:..3)"*".8)"*".9)"
*".17)"1 *".8)"* 2".6)"* 3".]B..."***
*****".4)"*".9)"********".13)"*".8)"*".9
)"* "..B....3)"*".8)"*".9)"*".20)"*".8)"
********* *"..B...&:.:.. A$:A%.E(A$):. .
A%.1 . A%.3..B .:.@C...5,1:."Y = ";F$:.
"MA.STAB :";SC:."KOORDINATENSYSTEM :";A%
:. 1,O:. IN "O" STEHT, OB GRAFIK GELOESC
HT WERDEN SOLL (O=1:JA,O=0:NEIN)..C... A
% . 380,400,420:. RICHTIGES KOORDINATENS
YSTEM ZEICHNEN (1,2 ODER 3)..C..:..CH.:.
.CR.Z.0..C.....C..X.(.AX.Z).SC..C..W270.
PC..Y.SC.(.A(X))..C...1,Z,AY.Y..C..Z.Z.1
..C....Z.320..D".. 4,M(4).1 . 15.(D,...
A$:. 0,1:. 4,M(4).1 . 15.YD6.."WERTE SIE
HE 80-ZEICHEN-BILDSCHIRM !";G(13)..D@..
"1. GRAFIK NOCHMAL ANZEIGEN";G(13):. "2.
NEUER MA.STAB";G(13):. "3. NEUE FUNKTIO
N IM ALTEN MA.STAB";G(13):. "4. PROGRAMM
ENDE"..DJ..:.. A$:. . A$."1" . A$."4"..E
T.. A$."1" . . 1:. 290.6E^.. A$."2" . O.
1:XX. 0:. 100.UEH.. A$."3" . O. 0:XX..1
:. 30.RER.. "NEUSTART .BER F6 !":...E|.A
Y.100:AX.160:.1,0,AY.320,AY:.1,AX,0.AX,2
00..E... 430.ZE..AY.199:AX.0:.1,AX,0.AX,
AY:.1,AX,AY.320,AY..E... 430..F..AY.100:
AX.0:.1,AX,0.AX,200:.1,AX,AY.320,AY.*F..
. 450:.O..0. . 540.4F... 190.CFB.WE .320
.SC.VFL..WE ..230.M.50.QFV..WE ..200.WE
.230.M.25..F...WE ..120.WE .200.M.20..F.
..WE .. 65.WE .120.M.10.AF...WE .. 26.WE
. 65.M.5..F...WE .. 13.WE . 26.M.2..F..
.WE.13.M.1:F.1..F.....G..YA.AY: XA.AX:
MC.0:.M.1.F.1..G&...&G0..D.1.M.JG:.XA.XA
.SC:YA.YA.SC:.(XA.F).312...YGD..D:MC.MC.
1.PGN..(XA.F.8).1.39.610..GX..1,(XA.F),A
Y.(XA.F),(AY.5):.1,(XA.F.8.1),(AY.8).1,D
(MC.M).BGB..(YA.F.8).1.630..GL..1,AX,(YA
.F).(AX.5),(YA.F):.1,(AX.8.1),(YA.F.8),D
(MC.M)..HV....H......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL