> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..!.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 00 41 08 6E 00 8F 20 2A 2A 20 20 20 20 20 20 |*.A.n.. ** |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000040: 2A 00 61 08 78 00 8F 20 2A 2A 20 20 46 55 4E 4B |*.a.x.. ** FUNK|
00000050: 54 49 4F 4E 45 4E 50 4C 4F 54 54 45 52 20 20 2A |TIONENPLOTTER *|
00000060: 2A 00 81 08 82 00 8F 20 2A 2A 20 20 20 20 20 20 |*...... ** |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000080: 2A 00 A1 08 8C 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********|
00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000A0: 2A 00 A7 08 96 00 8F 00 AD 08 A0 00 8F 00 C5 08 |*...............|
000000B0: AA 00 8F 20 44 45 46 20 46 4E 20 2D 20 52 4F 55 |... DEF FN - ROU|
000000C0: 54 49 4E 45 3A 00 DD 08 B4 00 8F 20 2A 2A 2A 2A |TINE:...... ****|
000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E3 08 |*************...|
000000E0: BE 00 8F 00 FB 08 C8 00 8C 3A 86 20 41 24 28 32 |.........:. A$(2|
000000F0: 35 29 3A 99 20 C7 28 31 34 37 29 00 31 09 D2 00 |5):. .(147).1...|
00000100: 99 20 22 47 45 42 45 4E 20 53 49 45 20 45 49 4E |. "GEBEN SIE EIN|
00000110: 45 20 42 45 4C 49 45 42 49 47 45 20 46 55 4E 4B |E BELIEBIGE FUNK|
00000120: 54 49 4F 4E 20 45 49 4E 20 3A 22 3A 99 3A 99 3A |TION EIN :":.:.:|
00000130: 99 00 4E 09 DC 00 8D 20 35 30 30 20 3A 20 8F 20 |..N.... 500 : . |
00000140: 45 49 4E 47 41 42 45 52 4F 55 54 49 4E 45 00 69 |EINGABEROUTINE.i|
00000150: 09 E6 00 41 44 B2 32 36 38 34 AB 31 3A 8F 20 50 |...AD.2684.1:. P|
00000160: 4F 4B 45 2D 53 54 41 52 54 00 95 09 F0 00 81 20 |OKE-START...... |
00000170: 58 B2 31 20 A4 20 32 35 3A 87 20 41 24 28 58 29 |X.1 . 25:. A$(X)|
00000180: 3A 82 20 58 3A 8F 20 44 41 54 45 4E 20 45 49 4E |:. X:. DATEN EIN|
00000190: 4C 45 53 45 4E 00 AC 09 FA 00 81 58 B2 31 A4 C3 |LESEN......X.1..|
000001A0: 28 41 24 29 3A 41 44 B2 41 44 AA 31 00 DD 09 04 |(A$):AD.AD.1....|
000001B0: 01 51 B2 58 3A 81 59 B2 31 A4 32 35 3A 42 24 B2 |.Q.X:.Y.1.25:B$.|
000001C0: 41 24 28 59 29 3A 81 5A B2 31 A4 C3 28 42 24 29 |A$(Y):.Z.1..(B$)|
000001D0: 3A 43 24 B2 CA 28 41 24 2C 58 2C 31 29 00 F9 09 |:C$..(A$,X,1)...|
000001E0: 0E 01 8B 43 24 B2 22 20 22 A7 41 44 B2 41 44 AB |...C$." ".AD.AD.|
000001F0: 31 3A 82 58 3A 89 33 31 30 00 2C 0A 18 01 8B 43 |1:.X:.310.,....C|
00000200: 24 B2 CA 28 42 24 2C 5A 2C 31 29 A7 58 B2 58 AA |$..(B$,Z,1).X.X.|
00000210: 31 3A 82 5A 3A 97 41 44 2C 59 AA 31 36 39 3A 58 |1:.Z:.AD,Y.169:X|
00000220: B2 58 AB 31 3A 82 58 3A 89 33 31 30 00 37 0A 22 |.X.1:.X:.310.7."|
00000230: 01 58 B2 51 3A 82 59 00 48 0A 2C 01 97 41 44 2C |.X.Q:.Y.H.,..AD,|
00000240: C6 28 43 24 29 3A 82 58 00 5F 0A 36 01 97 41 44 |.(C$):.X._.6..AD|
00000250: AA 31 2C 35 38 3A 97 41 44 AA 32 2C 31 34 33 00 |.1,58:.AD.2,143.|
00000260: 71 0A 54 01 8F 20 46 52 45 49 48 41 4C 54 45 52 |q.T.. FREIHALTER|
00000270: 3A 00 BF 0A 5E 01 96 A5 46 28 58 29 B2 30 30 30 |:...^...F(X).000|
00000280: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
00000290: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
000002A0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
000002B0: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 00 |000000000000000.|
000002C0: D4 0A 90 01 8F 20 32 35 20 46 55 4E 4B 54 49 4F |..... 25 FUNKTIO|
000002D0: 4E 45 4E 3A 00 19 0B 9A 01 83 20 2B 2C 2D 2C 2A |NEN:...... +,-,*|
000002E0: 2C 2F 2C 5E 2C 41 4E 44 2C 4F 52 2C 3C 2C 3D 2C |,/,^,AND,OR,<,=,|
000002F0: 3E 2C 53 47 4E 2C 49 4E 54 2C 41 42 53 2C 55 53 |>,SGN,INT,ABS,US|
00000300: 52 2C 46 52 45 2C 50 4F 53 2C 53 51 52 2C 52 4E |R,FRE,POS,SQR,RN|
00000310: 44 2C 4C 4F 47 2C 45 58 50 00 34 0B A4 01 83 20 |D,LOG,EXP.4.... |
00000320: 43 4F 53 2C 53 49 4E 2C 54 41 4E 2C 41 54 4E 2C |COS,SIN,TAN,ATN,|
00000330: 50 45 45 4B 00 49 0B AE 01 89 20 36 30 30 20 3A |PEEK.I.... 600 :|
00000340: 20 8F 20 57 45 49 54 45 52 00 7D 0B F4 01 85 20 | . WEITER.}.... |
00000350: 22 46 28 58 29 3D 22 3B 41 24 20 3A 20 8E 20 3A |"F(X)=";A$ : . :|
00000360: 20 8F 20 45 49 4E 47 41 42 45 52 4F 55 54 49 4E | . EINGABEROUTIN|
00000370: 45 28 5A 55 4D 20 41 55 53 42 41 55 29 00 83 0B |E(ZUM AUSBAU)...|
00000380: 1C 02 8F 00 9F 0B 26 02 8F 20 20 20 20 20 20 2A |......&.. *|
00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000003A0: C0 0B 30 02 8F 20 2A 2A 2A 2A 20 47 52 41 50 48 |..0.. **** GRAPH|
000003B0: 49 4B 2D 52 4F 55 54 49 4E 45 4E 20 2A 2A 2A 2A |IK-ROUTINEN ****|
000003C0: 00 DC 0B 3A 02 8F 20 20 20 20 20 20 2A 2A 2A 2A |...:.. ****|
000003D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E2 0B 44 |************...D|
000003E0: 02 8F 00 10 0C 58 02 49 4E B2 35 31 32 30 30 20 |.....X.IN.51200 |
000003F0: 3A 20 4F 46 B2 35 31 32 30 33 20 3A 8F 20 49 4E |: OF.51203 :. IN|
00000400: 49 54 20 20 2F 47 52 41 50 48 49 4B 20 4F 46 46 |IT /GRAPHIK OFF|
00000410: 00 3C 0C 62 02 47 43 B2 35 31 32 30 36 20 3A 20 |.<.b.GC.51206 : |
00000420: 53 43 B2 35 31 32 30 39 20 3A 8F 20 47 43 4C 45 |SC.51209 :. GCLE|
00000430: 41 52 2F 53 45 54 20 43 4F 4C 4F 52 00 63 0C 6C |AR/SET COLOR.c.l|
00000440: 02 50 43 B2 35 31 32 31 32 20 3A 20 50 4C B2 35 |.PC.51212 : PL.5|
00000450: 31 32 31 35 20 3A 8F 20 50 43 4F 4C 4F 52 2F 50 |1215 :. PCOLOR/P|
00000460: 4C 4F 54 00 8E 0C 76 02 55 50 B2 35 31 32 31 38 |LOT...v.UP.51218|
00000470: 20 3A 20 53 4C B2 35 31 32 32 31 20 3A 8F 20 55 | : SL.51221 :. U|
00000480: 4E 50 4C 4F 54 2F 53 45 54 20 4C 49 4E 45 00 B6 |NPLOT/SET LINE..|
00000490: 0C 80 02 43 4C B2 35 31 32 32 34 20 3A 20 47 4C |...CL.51224 : GL|
000004A0: B2 35 31 32 32 37 20 3A 8F 20 43 4C 49 4E 45 20 |.51227 :. CLINE |
000004B0: 2F 47 4C 4F 41 44 00 E1 0C 8A 02 47 53 B2 35 31 |/GLOAD.....GS.51|
000004C0: 32 33 30 20 3A 20 48 43 B2 35 31 32 33 33 20 3A |230 : HC.51233 :|
000004D0: 8F 20 47 53 41 56 45 20 2F 48 41 52 44 43 4F 50 |. GSAVE /HARDCOP|
000004E0: 59 00 FA 0C 8F 02 97 20 32 2C 30 20 3A 20 8F 20 |Y...... 2,0 : . |
000004F0: 4C 4F 45 53 43 48 46 4C 41 47 00 00 0D 94 02 8F |LOESCHFLAG......|
00000500: 00 1A 0D 9E 02 8F 20 20 20 20 20 20 20 2A 2A 2A |...... ***|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 39 0D A8 02 8F |**********.9....|
00000520: 20 20 2A 2A 2A 2A 20 48 41 55 50 54 50 52 4F 47 | **** HAUPTPROG|
00000530: 52 41 4D 4D 20 2A 2A 2A 2A 00 53 0D B2 02 8F 20 |RAMM ****.S.... |
00000540: 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | **********|
00000550: 2A 2A 2A 00 59 0D BC 02 8F 00 90 0D C6 02 99 20 |***.Y.......... |
00000560: 3A 20 99 20 22 47 45 42 45 4E 20 53 49 45 20 44 |: . "GEBEN SIE D|
00000570: 49 45 20 46 4F 4C 47 45 4E 44 45 4E 20 50 41 52 |IE FOLGENDEN PAR|
00000580: 41 4D 45 54 45 52 20 45 49 4E 3A 22 20 3A 20 99 |AMETER EIN:" : .|
00000590: 00 AF 0D D0 02 85 20 22 46 31 20 28 58 2D 5A 45 |...... "F1 (X-ZE|
000005A0: 52 52 46 41 4B 54 4F 52 29 20 20 22 3B 46 31 00 |RRFAKTOR) ";F1.|
000005B0: CE 0D DA 02 85 20 22 46 32 20 28 59 2D 5A 45 52 |..... "F2 (Y-ZER|
000005C0: 52 46 41 4B 54 4F 52 29 20 20 22 3B 46 32 00 EC |RFAKTOR) ";F2..|
000005D0: 0D E4 02 85 20 22 41 20 20 28 58 2D 56 45 52 53 |.... "A (X-VERS|
000005E0: 43 48 49 45 42 55 4E 47 29 22 3B 41 00 0A 0E EE |CHIEBUNG)";A....|
000005F0: 02 85 20 22 42 20 20 28 59 2D 56 45 52 53 43 48 |.. "B (Y-VERSCH|
00000600: 49 45 42 55 4E 47 29 22 3B 42 00 34 0E E8 03 9E |IEBUNG)";B.4....|
00000610: 20 49 4E 20 3A 20 9E 20 53 43 2C 31 36 AC 31 AA | IN : . SC,16.1.|
00000620: 35 20 3A 20 8F 20 49 4E 49 54 49 41 4C 49 53 49 |5 : . INITIALISI|
00000630: 45 52 45 4E 00 5D 0E ED 03 8B 20 C2 28 32 29 B2 |EREN.].... .(2).|
00000640: 30 20 A7 20 9E 20 47 43 20 3A 20 8F 20 47 52 41 |0 . . GC : . GRA|
00000650: 50 48 49 4B 20 4C 4F 45 53 43 48 45 4E 00 76 0E |PHIK LOESCHEN.v.|
00000660: EF 03 97 20 32 2C 30 20 3A 20 8F 20 4C 4F 45 53 |... 2,0 : . LOES|
00000670: 43 48 46 4C 41 47 00 7C 0E F2 03 8F 00 93 0E FC |CHFLAG.|........|
00000680: 03 8F 20 41 43 48 53 45 4E 20 5A 45 49 43 48 4E |.. ACHSEN ZEICHN|
00000690: 45 4E 3A 00 AA 0E 06 04 8F 20 2A 2A 2A 2A 2A 2A |EN:...... ******|
000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DA 0E 10 04 8B |**********......|
000006B0: 20 41 B1 B2 30 20 AF 20 41 B3 33 32 30 20 A7 20 | A..0 . A.320 . |
000006C0: 9E 20 53 4C 2C 41 2C 30 2C 41 2C 31 39 39 20 3A |. SL,A,0,A,199 :|
000006D0: 20 8F 20 58 2D 41 43 48 53 45 00 0A 0F 1A 04 8B | . X-ACHSE......|
000006E0: 20 42 B1 B2 30 20 AF 20 42 B3 32 30 30 20 A7 20 | B..0 . B.200 . |
000006F0: 9E 20 53 4C 2C 30 2C 42 2C 33 31 39 2C 42 20 3A |. SL,0,B,319,B :|
00000700: 20 8F 20 59 2D 41 43 48 53 45 00 10 0F 24 04 8F | . Y-ACHSE...$..|
00000710: 00 26 0F 2E 04 8F 20 5A 45 49 43 48 45 4E 52 4F |.&.... ZEICHENRO|
00000720: 55 54 49 4E 45 3A 00 3C 0F 38 04 8F 20 2A 2A 2A |UTINE:.<.8.. ***|
00000730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5C 0F BA |************.\..|
00000740: 04 46 4C 25 20 B2 20 31 20 3A 20 8F 20 41 55 53 |.FL% . 1 : . AUS|
00000750: 53 45 52 48 41 4C 42 2D 46 4C 41 47 00 6C 0F C4 |SERHALB-FLAG.l..|
00000760: 04 81 20 58 B2 31 20 A4 20 33 31 39 00 85 0F CE |.. X.1 . 319....|
00000770: 04 59 B2 AB 46 32 AC A5 46 28 28 58 AB 41 29 AD |.Y..F2..F((X.A).|
00000780: 46 31 29 AA 42 00 AA 0F D8 04 8B 20 59 B3 30 20 |F1).B...... Y.0 |
00000790: B0 20 59 B1 31 39 39 20 A7 20 46 4C 25 B2 31 3A |. Y.199 . FL%.1:|
000007A0: 82 20 58 3A 89 20 31 32 38 30 00 C7 0F E2 04 8B |. X:. 1280......|
000007B0: 20 46 4C 25 B2 30 20 A7 20 9E 20 53 4C 2C 58 31 | FL%.0 . . SL,X1|
000007C0: 2C 59 31 2C 58 2C 59 00 D1 0F EC 04 46 4C 25 B2 |,Y1,X,Y.....FL%.|
000007D0: 30 00 FC 0F F6 04 58 31 B2 58 3A 59 31 B2 59 3A |0.....X1.X:Y1.Y:|
000007E0: 82 20 58 20 3A 20 8F 20 4C 45 54 5A 54 45 20 4B |. X : . LETZTE K|
000007F0: 4F 4F 52 44 2E 20 4D 45 52 4B 45 4E 00 32 10 00 |OORD. MERKEN.2..|
00000800: 05 97 20 31 39 38 2C 30 20 3A 20 92 20 31 39 38 |.. 198,0 : . 198|
00000810: 2C 32 35 35 20 3A 20 A1 20 41 24 20 3A 20 9E 20 |,255 : . A$ : . |
00000820: 4F 46 20 3A 20 8F 20 47 52 41 50 48 49 4B 20 41 |OF : . GRAPHIK A|
00000830: 55 53 00 4D 10 0A 05 8F 20 2A 2A 2A 2A 2A 20 20 |US.M.... ***** |
00000840: 4D 45 4E 55 45 3A 20 20 2A 2A 2A 2A 2A 00 69 10 |MENUE: *****.i.|
00000850: 14 05 99 20 22 57 4F 4C 4C 45 4E 20 53 49 45 3A |... "WOLLEN SIE:|
00000860: 22 20 3A 20 99 20 3A 20 99 00 86 10 1E 05 99 20 |" : . : ....... |
00000870: 22 28 31 29 20 41 4E 44 45 52 45 20 50 41 52 41 |"(1) ANDERE PARA|
00000880: 4D 45 54 45 52 22 00 A2 10 28 05 99 20 22 28 32 |METER"...(.. "(2|
00000890: 29 20 41 4E 44 45 52 45 20 46 55 4E 4B 54 49 4F |) ANDERE FUNKTIO|
000008A0: 4E 22 00 C5 10 32 05 99 20 22 28 33 29 20 47 52 |N"...2.. "(3) GR|
000008B0: 41 50 48 49 4B 20 4E 49 43 48 54 20 4C 4F 45 53 |APHIK NICHT LOES|
000008C0: 43 48 45 4E 22 00 E3 10 3C 05 99 20 22 28 34 29 |CHEN"...<.. "(4)|
000008D0: 20 47 52 41 50 48 49 4B 20 53 50 45 49 43 48 45 | GRAPHIK SPEICHE|
000008E0: 52 4E 22 00 FD 10 46 05 99 20 22 28 35 29 20 47 |RN"...F.. "(5) G|
000008F0: 52 41 50 48 49 4B 20 4C 41 44 45 4E 22 00 12 11 |RAPHIK LADEN"...|
00000900: 50 05 99 20 22 28 36 29 20 48 41 52 44 43 4F 50 |P.. "(6) HARDCOP|
00000910: 59 22 00 26 11 6E 05 99 20 22 28 37 29 20 42 45 |Y".&.n.. "(7) BE|
00000920: 45 4E 44 45 4E 22 00 39 11 AA 05 92 20 31 39 38 |ENDEN".9.... 198|
00000930: 2C 31 20 3A 20 A1 20 41 24 00 69 11 B4 05 91 20 |,1 : . A$.i.... |
00000940: C5 28 41 24 29 20 89 20 37 30 30 2C 31 34 38 30 |.(A$) . 700,1480|
00000950: 2C 31 34 39 30 2C 31 35 31 30 2C 31 36 30 30 2C |,1490,1510,1600,|
00000960: 31 36 35 30 2C 31 35 30 30 00 84 11 BE 05 89 20 |1650,1500...... |
00000970: 31 34 35 30 20 3A 20 8F 20 46 45 48 4C 45 49 4E |1450 : . FEHLEIN|
00000980: 47 41 42 45 00 9E 11 C8 05 8A 20 3A 20 8F 20 41 |GABE...... : . A|
00000990: 4E 44 45 52 45 20 46 55 4E 4B 54 49 4F 4E 00 CE |NDERE FUNKTION..|
000009A0: 11 D2 05 97 20 32 2C 31 20 3A 20 99 20 22 4F 4B |.... 2,1 : . "OK|
000009B0: 22 20 3A 20 99 20 3A 20 89 20 31 34 35 30 20 3A |" : . : . 1450 :|
000009C0: 20 8F 20 46 4C 41 47 20 53 45 54 5A 45 4E 00 E0 | . FLAG SETZEN..|
000009D0: 11 DC 05 80 20 3A 20 8F 20 42 45 45 4E 44 45 4E |.... : . BEENDEN|
000009E0: 00 E6 11 E6 05 8F 00 FF 11 F0 05 8F 20 47 52 41 |............ GRA|
000009F0: 50 48 49 4B 20 53 50 45 49 43 48 45 52 4E 3A 00 |PHIK SPEICHERN:.|
00000A00: 05 12 FA 05 8F 00 20 12 04 06 85 20 22 46 49 4C |...... .... "FIL|
00000A10: 45 4E 41 4D 45 2C 47 41 22 3B 46 49 24 2C 47 41 |ENAME,GA";FI$,GA|
00000A20: 00 3E 12 0E 06 9E 20 47 53 2C 46 49 24 2C 47 41 |.>.... GS,FI$,GA|
00000A30: 20 3A 20 8F 20 53 50 45 49 43 48 45 52 4E 00 52 | : . SPEICHERN.R|
00000A40: 12 18 06 99 20 22 4F 4B 22 20 3A 20 89 20 31 34 |.... "OK" : . 14|
00000A50: 35 30 00 58 12 22 06 8F 00 6D 12 2C 06 8F 20 47 |50.X."...m.,.. G|
00000A60: 52 41 50 48 49 4B 20 4C 41 44 45 4E 3A 00 73 12 |RAPHIK LADEN:.s.|
00000A70: 36 06 8F 00 8E 12 40 06 85 20 22 46 49 4C 45 4E |6.....@.. "FILEN|
00000A80: 41 4D 45 2C 47 41 22 3B 46 49 24 2C 47 41 00 A8 |AME,GA";FI$,GA..|
00000A90: 12 4A 06 9E 20 47 4C 2C 46 49 24 2C 47 41 20 3A |.J.. GL,FI$,GA :|
00000AA0: 20 8F 20 4C 41 44 45 4E 00 C8 12 54 06 9E 20 49 | . LADEN...T.. I|
00000AB0: 4E 20 3A 20 9E 20 53 43 2C 31 36 AC 31 2C 35 20 |N : . SC,16.1,5 |
00000AC0: 3A 20 89 20 31 32 38 30 00 CE 12 5E 06 8F 00 DE |: . 1280...^....|
00000AD0: 12 68 06 8F 20 48 41 52 44 43 4F 50 59 3A 00 E4 |.h.. HARDCOPY:..|
00000AE0: 12 6D 06 8F 00 15 13 72 06 99 20 22 44 52 55 43 |.m.....r.. "DRUC|
00000AF0: 4B 45 52 20 46 45 52 54 49 47 20 4D 41 43 48 45 |KER FERTIG MACHE|
00000B00: 4E 20 55 4E 44 20 54 41 53 54 45 20 44 52 55 45 |N UND TASTE DRUE|
00000B10: 43 4B 45 4E 22 00 3B 13 7C 06 9F 20 31 2C 34 20 |CKEN".;.|.. 1,4 |
00000B20: 3A 20 9E 20 48 43 2C 31 20 3A 20 A0 20 31 20 3A |: . HC,1 : . 1 :|
00000B30: 20 8F 20 48 41 52 44 43 4F 50 59 00 4F 13 86 06 | . HARDCOPY.O...|
00000B40: 99 20 22 4F 4B 22 20 3A 20 89 20 31 34 35 30 00 |. "OK" : . 1450.|
00000B50: 00 00 |.. |
..!.D.. *************************.A.N..
** **.A.X.. ** FUNK
TIONENPLOTTER **...... **
**...... ************************
*......... ...E.... DEF FN - ROUTINE:...
... *****************.........H..:. A$(2
5):. G(147).1.R.. "GEBEN SIE EINE BELIEB
IGE FUNKTION EIN :":.:.:..N.... 500 : .
EINGABEROUTINE.I...AD.2684.1:. POKE-STAR
T...... X.1 . 25:. A$(X):. X:. DATEN EIN
LESEN......X.1.C(A$):AD.AD.1.....Q.X:.Y.
1.25:B$.A$(Y):.Z.1.C(B$):C$.J(A$,X,1)...
...C$." ".AD.AD.1:.X:.310.,....C$.J(B$,Z
,1).X.X.1:.Z:.AD,Y.169:X.X.1:.X:.310.7."
.X.Q:.Y.H.,..AD,F(C$):.X._.6..AD.1,58:.A
D.2,143.Q.T.. FREIHALTER:...^...F(X).000
0000000000000000000000000000000000000000
00000000000000000000000.T.... 25 FUNKTIO
NEN:...... +,-,*,/,^,AND,OR,<,=,>,SGN,IN
T,ABS,USR,FRE,POS,SQR,RND,LOG,EXP.4....
COS,SIN,TAN,ATN,PEEK.I.... 600 : . WEITE
R.}.... "F(X)=";A$ : . : . EINGABEROUTIN
E(ZUM AUSBAU).........&.. *********
*******...0.. **** GRAPHIK-ROUTINEN ****
...:.. ****************...D.....X.I
N.51200 : OF.51203 :. INIT /GRAPHIK OFF
.<.B.GC.51206 : SC.51209 :. GCLEAR/SET C
OLOR.C.L.PC.51212 : PL.51215 :. PCOLOR/P
LOT...V.UP.51218 : SL.51221 :. UNPLOT/SE
T LINE.....CL.51224 : GL.51227 :. CLINE
/GLOAD.....GS.51230 : HC.51233 :. GSAVE
/HARDCOPY...... 2,0 : . LOESCHFLAG......
...... *************.9.... **** H
AUPTPROGRAMM ****.S.... **********
***.Y.......F.. : . "GEBEN SIE DIE FOLGE
NDEN PARAMETER EIN:" : ....P.. "F1 (X-ZE
RRFAKTOR) ";F1.N.Z.. "F2 (Y-ZERRFAKTOR)
";F2...... "A (X-VERSCHIEBUNG)";A....
.. "B (Y-VERSCHIEBUNG)";B.4.... IN : .
SC,16.1.5 : . INITIALISIEREN.].... B(2).
0 . . GC : . GRAPHIK LOESCHEN.V.... 2,0
: . LOESCHFLAG.|.......... ACHSEN ZEICHN
EN:...... ****************.Z.... A..0 .
A.320 . . SL,A,0,A,199 : . X-ACHSE......
B..0 . B.200 . . SL,0,B,319,B : . Y-ACH
SE...$...&.... ZEICHENROUTINE:.<.8.. ***
************.\...FL% . 1 : . AUSSERHALB-
FLAG.L.D.. X.1 . 319...N.Y..F2..F((X.A).
F1).B...X.. Y.0 . Y.199 . FL%.1:. X:. 12
80.G.... FL%.0 . . SL,X1,Y1,X,Y.Q...FL%.
0.....X1.X:Y1.Y:. X : . LETZTE KOORD. ME
RKEN.2.... 198,0 : . 198,255 : . A$ : .
OF : . GRAPHIK AUS.M.... ***** MENUE:
*****.I.... "WOLLEN SIE:" : . : .......
"(1) ANDERE PARAMETER"...(.. "(2) ANDERE
FUNKTION".E.2.. "(3) GRAPHIK NICHT LOES
CHEN"...<.. "(4) GRAPHIK SPEICHERN"...F.
. "(5) GRAPHIK LADEN"...P.. "(6) HARDCOP
Y".&.N.. "(7) BEENDEN".9.... 198,1 : . A
$.I.... E(A$) . 700,1480,1490,1510,1600,
1650,1500...... 1450 : . FEHLEINGABE...H
.. : . ANDERE FUNKTION.N.R.. 2,1 : . "OK
" : . : . 1450 : . FLAG SETZEN...... : .
BEENDEN............ GRAPHIK SPEICHERN:.
...... .... "FILENAME,GA";FI$,GA.>.... G
S,FI$,GA : . SPEICHERN.R.... "OK" : . 14
50.X."...M.,.. GRAPHIK LADEN:.S.6.....@.
. "FILENAME,GA";FI$,GA...J.. GL,FI$,GA :
. LADEN.H.T.. IN : . SC,16.1,5 : . 1280
.N.^.....H.. HARDCOPY:...M.....R.. "DRUC
KER FERTIG MACHEN UND TASTE DRUECKEN".;.
|.. 1,4 : . HC,1 : 1 : . HARDCOPY.O...
. "OK" : . 1450...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL