_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

ZEICHENPROGRAMM 

FILE INFORMATION

FILENAME(S): ZEICHENPROGRAMM 

FILE TYPE(S): PRG

FILE SIZE: 3.2K

FIRST SEEN: 2025-10-20 14:32:02

APPEARS ON: 1 disk(s)

FILE HASH

8cb598aab1d7810100bfbdbc2fca318fb8cee1046ebfae77195baaa583f10a3e

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
STONYSOFT 128 PD ZEICHENPROGRAMM  PRG Treasure Chest - Klaus Der Suhler 28 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 17 08 64 00 8F 20  5A 45 49 43 48 45 4E 50  |....d.. ZEICHENP|
00000010: 52 4F 47 52 41 4D 4D 00  2F 08 6E 00 8F 20 46 55  |ROGRAMM./.n.. FU|
00000020: 4E 4B 54 49 4F 4E 20 59  20 3D 20 46 28 58 29 00  |NKTION Y = F(X).|
00000030: 5E 08 78 00 8F 20 42 45  49 20 41 4C 4C 45 4E 20  |^.x.. BEI ALLEN |
00000040: 49 4E 50 55 54 2D 41 4E  57 45 49 53 55 4E 47 45  |INPUT-ANWEISUNGE|
00000050: 4E 20 4B 4F 45 4E 4E 45  4E 20 41 55 43 48 00 89  |N KOENNEN AUCH..|
00000060: 08 82 00 8F 20 20 20 20  4D 41 54 48 45 4D 41 54  |....    MATHEMAT|
00000070: 49 53 43 48 45 20 41 55  53 44 52 55 45 43 4B 45  |ISCHE AUSDRUECKE|
00000080: 20 57 49 45 20 5A 2E 42  2E 00 B6 08 8C 00 8F 20  | WIE Z.B....... |
00000090: 20 20 20 58 2A 53 49 4E  28 58 29 20 4F 44 45 52  |   X*SIN(X) ODER|
000000A0: 20 FF 2F 32 20 45 49 4E  47 45 47 45 42 45 4E 20  | ./2 EINGEGEBEN |
000000B0: 57 45 52 44 45 4E 00 D4  08 96 00 8F 20 46 4F 52  |WERDEN...... FOR|
000000C0: 54 53 45 54 5A 55 4E 47  3A 20 43 20 44 52 55 45  |TSETZUNG: C DRUE|
000000D0: 43 4B 45 4E 00 DE 08 C8  00 99 20 22 93 22 00 1B  |CKEN...... "."..|
000000E0: 09 D2 00 99 20 22 57 45  52 44 45 4E 20 45 52 4B  |.... "WERDEN ERK|
000000F0: 4C 41 45 52 55 4E 47 45  4E 20 5A 55 4D 20 50 52  |LAERUNGEN ZUM PR|
00000100: 4F 47 52 41 4D 4D 20 20  20 20 20 20 20 20 47 45  |OGRAMM        GE|
00000110: 57 55 45 4E 53 43 48 54  20 3F 22 00 21 09 DC 00  |WUENSCHT ?".!...|
00000120: 99 00 42 09 E6 00 99 20  22 4A 41 3A 20 20 20 20  |..B.... "JA:    |
00000130: 20 54 41 53 54 45 20 4A  20 44 52 55 45 43 4B 45  | TASTE J DRUECKE|
00000140: 4E 22 00 63 09 F0 00 99  20 22 4E 45 49 4E 3A 20  |N".c.... "NEIN: |
00000150: 20 20 54 41 53 54 45 20  4E 20 44 52 55 45 43 4B  |  TASTE N DRUECK|
00000160: 45 4E 22 00 8C 09 FA 00  A1 20 52 24 20 3A 20 8B  |EN"...... R$ : .|
00000170: 20 52 24 20 B3 B1 20 22  4A 22 20 AF 20 52 24 20  | R$ .. "J" . R$ |
00000180: B3 B1 20 22 4E 22 20 A7  20 32 35 30 00 A2 09 04  |.. "N" . 250....|
00000190: 01 8B 20 52 24 20 B2 20  22 4E 22 20 A7 20 31 30  |.. R$ . "N" . 10|
000001A0: 36 30 00 AC 09 2C 01 99  20 22 93 22 00 D8 09 36  |60...,.. "."...6|
000001B0: 01 99 20 22 44 41 53 20  50 52 4F 47 52 41 4D 4D  |.. "DAS PROGRAMM|
000001C0: 20 5A 45 49 43 48 4E 45  54 20 45 49 4E 45 20 46  | ZEICHNET EINE F|
000001D0: 55 4E 4B 54 49 4F 4E 22  00 04 0A 40 01 99 20 22  |UNKTION"...@.. "|
000001E0: 59 20 3D 20 46 28 58 29  20 5A 57 49 53 43 48 45  |Y = F(X) ZWISCHE|
000001F0: 4E 20 47 52 45 4E 5A 45  4E 20 58 31 20 55 4E 44  |N GRENZEN X1 UND|
00000200: 20 58 32 22 00 0E 0A 4A  01 99 20 3A 20 99 00 51  | X2"...J.. : ..Q|
00000210: 0A 54 01 99 20 22 41 4D  20 41 4E 46 41 4E 47 20  |.T.. "AM ANFANG |
00000220: 57 45 52 44 45 4E 20 44  49 45 20 46 55 4E 4B 54  |WERDEN DIE FUNKT|
00000230: 49 4F 4E 20 55 4E 44 20  44 49 45 20 20 20 47 52  |ION UND DIE   GR|
00000240: 45 4E 5A 45 4E 20 45 49  4E 47 45 47 45 42 45 4E  |ENZEN EINGEGEBEN|
00000250: 22 00 57 0A 5E 01 99 00  83 0A 68 01 99 20 22 45  |".W.^.....h.. "E|
00000260: 53 20 4B 4F 45 4E 4E 45  4E 20 4E 49 43 48 54 20  |S KOENNEN NICHT |
00000270: 4E 55 52 20 5A 41 48 4C  45 4E 20 53 4F 4E 44 45  |NUR ZAHLEN SONDE|
00000280: 52 4E 22 00 B2 0A 72 01  99 20 22 41 55 43 48 20  |RN"...r.. "AUCH |
00000290: 4D 41 54 48 45 4D 41 54  49 53 43 48 45 20 41 55  |MATHEMATISCHE AU|
000002A0: 53 44 52 55 45 43 4B 45  20 57 49 45 20 5A 2E 42  |SDRUECKE WIE Z.B|
000002B0: 2E 22 00 DE 0A 7C 01 99  20 22 58 2A 53 49 4E 28  |."...|.. "X*SIN(|
000002C0: 58 29 20 4F 44 45 52 20  FF 2F 32 20 45 49 4E 47  |X) ODER ./2 EING|
000002D0: 45 47 45 42 45 4E 20 57  45 52 44 45 4E 22 00 E4  |EGEBEN WERDEN"..|
000002E0: 0A 86 01 99 00 29 0B 90  01 99 20 22 44 49 45 53  |.....).... "DIES|
000002F0: 45 20 45 49 4E 47 41 42  45 4E 20 4D 55 45 53 53  |E EINGABEN MUESS|
00000300: 45 4E 20 4D 49 54 20 27  52 45 54 55 52 4E 27 20  |EN MIT 'RETURN' |
00000310: 20 20 20 20 41 42 47 45  53 43 48 4C 4F 53 53 45  |    ABGESCHLOSSE|
00000320: 4E 20 57 45 52 44 45 4E  22 00 2F 0B 9A 01 99 00  |N WERDEN"./.....|
00000330: 5D 0B A4 01 99 20 22 45  53 20 57 45 52 44 45 4E  |].... "ES WERDEN|
00000340: 20 44 49 45 20 41 43 48  53 45 4E 20 44 45 53 20  | DIE ACHSEN DES |
00000350: 4B 4F 4F 52 44 49 4E 41  54 45 4E 2D 22 00 99 0B  |KOORDINATEN-"...|
00000360: AE 01 99 20 22 53 59 53  54 45 4D 53 20 47 45 5A  |... "SYSTEMS GEZ|
00000370: 45 49 43 48 4E 45 54 2C  20 44 49 45 20 49 4D 20  |EICHNET, DIE IM |
00000380: 42 45 52 45 49 43 48 20  44 45 52 20 20 4B 55 52  |BEREICH DER  KUR|
00000390: 56 45 20 4C 49 45 47 45  4E 00 A3 0B B8 01 99 20  |VE LIEGEN...... |
000003A0: 3A 20 99 00 E4 0B C2 01  99 20 22 42 45 49 20 50  |: ....... "BEI P|
000003B0: 52 4F 47 52 41 4D 4D 53  54 4F 50 3A 20 5A 55 52  |ROGRAMMSTOP: ZUR|
000003C0: 20 46 4F 52 54 53 45 54  5A 55 4E 47 20 44 49 45  | FORTSETZUNG DIE|
000003D0: 20 20 20 54 41 53 54 45  20 43 20 44 52 55 45 43  |   TASTE C DRUEC|
000003E0: 4B 45 4E 22 00 01 0C CC  01 A1 20 52 24 20 3A 20  |KEN"...... R$ : |
000003F0: 8B 20 52 24 20 B3 B1 20  22 43 22 20 A7 20 34 36  |. R$ .. "C" . 46|
00000400: 30 00 0B 0C D6 01 99 20  22 93 22 00 33 0C E0 01  |0...... ".".3...|
00000410: 99 20 22 42 45 49 53 50  49 45 4C 20 46 55 45 52  |. "BEISPIEL FUER|
00000420: 20 44 49 45 20 44 41 54  45 4E 45 49 4E 47 41 42  | DIE DATENEINGAB|
00000430: 45 3A 22 00 4D 0C EA 01  99 20 22 11 11 59 28 58  |E:".M.... "..Y(X|
00000440: 29 20 3D 20 58 2F 28 31  2B 58 2A 58 29 00 5E 0C  |) = X/(1+X*X).^.|
00000450: F4 01 99 20 22 11 58 31  20 3D 20 2D 35 22 00 6F  |... ".X1 = -5".o|
00000460: 0C FE 01 99 20 22 11 58  32 20 3D 20 31 30 22 00  |.... ".X2 = 10".|
00000470: AD 0C 08 02 99 20 22 11  11 11 11 11 53 4F 4C 4C  |..... ".....SOLL|
00000480: 45 4E 20 44 49 45 20 45  52 4B 4C 41 45 52 55 4E  |EN DIE ERKLAERUN|
00000490: 47 45 4E 20 57 49 45 44  45 52 48 4F 4C 54 20 20  |GEN WIEDERHOLT  |
000004A0: 20 20 20 20 57 45 52 44  45 4E 20 3F 22 00 CE 0C  |    WERDEN ?"...|
000004B0: 12 02 99 20 22 11 54 41  53 54 45 20 4A 20 42 5A  |... ".TASTE J BZ|
000004C0: 57 2E 20 4E 20 44 52 55  45 43 4B 45 4E 22 00 F7  |W. N DRUECKEN"..|
000004D0: 0C 1C 02 A1 20 52 24 20  3A 20 8B 20 52 24 20 B3  |.... R$ : . R$ .|
000004E0: B1 20 22 4A 22 20 AF 20  52 24 20 B3 B1 20 22 4E  |. "J" . R$ .. "N|
000004F0: 22 20 A7 20 35 34 30 00  0C 0D 26 02 8B 20 52 24  |" . 540...&.. R$|
00000500: 20 B2 20 22 4A 22 20 A7  20 33 30 30 00 2B 0D 24  | . "J" . 300.+.$|
00000510: 04 99 20 22 93 11 45 49  4E 47 41 42 45 20 44 45  |.. "..EINGABE DE|
00000520: 52 20 46 55 4E 4B 54 49  4F 4E 22 00 40 0D 2E 04  |R FUNKTION".@...|
00000530: 85 20 22 11 59 28 58 29  20 3D 20 22 3B 20 41 24  |. ".Y(X) = "; A$|
00000540: 00 65 0D 38 04 99 20 22  11 11 45 49 4E 47 41 42  |.e.8.. "..EINGAB|
00000550: 45 20 44 45 52 20 55 4E  54 45 52 45 4E 20 47 52  |E DER UNTEREN GR|
00000560: 45 4E 5A 45 22 00 78 0D  42 04 85 20 22 11 58 31  |ENZE".x.B.. ".X1|
00000570: 20 3D 20 22 3B 20 42 24  00 9C 0D 4C 04 99 20 22  | = "; B$...L.. "|
00000580: 11 11 45 49 4E 47 41 42  45 20 44 45 52 20 4F 42  |..EINGABE DER OB|
00000590: 45 52 45 4E 20 47 52 45  4E 5A 45 22 00 AF 0D 56  |EREN GRENZE"...V|
000005A0: 04 85 20 22 11 58 32 20  3D 20 22 3B 20 43 24 00  |.. ".X2 = "; C$.|
000005B0: B9 0D 60 04 99 20 22 93  22 00 D9 0D 6A 04 99 20  |..`.. "."...j.. |
000005C0: 31 32 33 30 3B 20 22 44  45 46 20 46 4E 59 28 58  |1230; "DEF FNY(X|
000005D0: 29 20 3D 20 22 3B 20 41  24 00 F1 0D 74 04 99 20  |) = "; A$...t.. |
000005E0: 31 32 34 30 3B 20 22 58  31 20 3D 20 22 3B 20 42  |1240; "X1 = "; B|
000005F0: 24 00 09 0E 7E 04 99 20  31 32 35 30 3B 20 22 58  |$...~.. 1250; "X|
00000600: 32 20 3D 20 22 3B 20 43  24 00 1A 0E 88 04 99 20  |2 = "; C$...... |
00000610: 22 52 55 4E 20 31 32 33  30 22 00 28 0E 92 04 97  |"RUN 1230".(....|
00000620: 20 36 32 33 2C 20 31 39  00 38 0E 9C 04 81 20 49  | 623, 19.8.... I|
00000630: 20 B2 20 31 20 A4 20 35  00 49 0E A6 04 3A 97 20  | . 1 . 5.I...:. |
00000640: 36 32 33 AA 49 2C 20 31  33 00 4F 0E B0 04 82 00  |623.I, 13.O.....|
00000650: 5C 0E BA 04 97 20 31 35  38 2C 20 36 00 62 0E C4  |\.... 158, 6.b..|
00000660: 04 80 00 78 0E EC 04 99  20 22 11 42 49 54 54 45  |...x.... ".BITTE|
00000670: 20 57 41 52 54 45 4E 22  00 8C 0E F6 04 44 58 20  | WARTEN".....DX |
00000680: B2 20 28 58 32 AB 58 31  29 AD 37 35 00 BF 0E 00  |. (X2.X1).75....|
00000690: 05 58 30 20 B2 20 31 45  33 30 20 3A 20 59 30 20  |.X0 . 1E30 : Y0 |
000006A0: B2 20 31 45 33 30 20 3A  20 59 31 20 B2 20 31 45  |. 1E30 : Y1 . 1E|
000006B0: 33 30 20 3A 20 59 32 20  B2 20 AB 31 45 33 30 00  |30 : Y2 . .1E30.|
000006C0: D1 0E 0A 05 4E 20 B2 20  30 20 3A 20 4B 20 B2 20  |....N . 0 : K . |
000006D0: 30 00 EF 0E 14 05 81 20  49 20 B2 20 58 31 20 A4  |0...... I . X1 .|
000006E0: 20 58 32 AA 30 2E 31 AC  44 58 20 A9 20 44 58 00  | X2.0.1.DX . DX.|
000006F0: FE 0E 1E 05 3A 5A 20 B2  20 A5 59 28 49 29 00 15  |....:Z . .Y(I)..|
00000700: 0F 28 05 3A 8B 20 5A 20  B1 20 59 32 20 A7 20 59  |.(.:. Z . Y2 . Y|
00000710: 32 20 B2 20 5A 00 2C 0F  32 05 3A 8B 20 5A 20 B3  |2 . Z.,.2.:. Z .|
00000720: 20 59 31 20 A7 20 59 31  20 B2 20 5A 00 3B 0F 3C  | Y1 . Y1 . Z.;.<|
00000730: 05 3A 4E 20 B2 20 4E AA  30 2E 35 00 61 0F 46 05  |.:N . N.0.5.a.F.|
00000740: 3A 8B 20 B6 28 49 29 20  B3 20 58 30 20 A7 20 58  |:. .(I) . X0 . X|
00000750: 30 20 B2 20 B6 28 49 29  20 3A 20 4E 58 20 B2 20  |0 . .(I) : NX . |
00000760: 4E 00 7E 0F 50 05 3A 8B  20 B6 28 5A 29 20 B3 20  |N.~.P.:. .(Z) . |
00000770: 59 30 20 A7 20 59 30 20  B2 20 B6 28 5A 29 00 84  |Y0 . Y0 . .(Z)..|
00000780: 0F 5A 05 82 00 9A 0F 64  05 44 59 20 B2 20 28 59  |.Z.....d.DY . (Y|
00000790: 32 AB 59 31 29 AD 32 32  2E 35 00 A4 0F 6E 05 99  |2.Y1).22.5...n..|
000007A0: 20 22 93 22 00 B9 0F 78  05 8B 20 58 30 20 B1 20  | "."...x.. X0 . |
000007B0: 44 58 20 A7 20 31 35 30  30 00 C7 0F 82 05 4E 20  |DX . 1500.....N |
000007C0: B2 20 B5 28 4E 58 29 00  DC 0F 8C 05 8B 20 4E 20  |. .(NX)...... N |
000007D0: B3 B1 20 4E 58 20 A7 20  31 34 37 30 00 ED 0F 96  |.. NX . 1470....|
000007E0: 05 81 20 49 20 B2 20 31  20 A4 20 32 33 00 FC 0F  |.. I . 1 . 23...|
000007F0: A0 05 3A 99 A3 4E 29 3B  20 22 C8 22 00 02 10 AA  |..:..N); "."....|
00000800: 05 82 00 0D 10 B4 05 89  20 31 35 30 30 00 1E 10  |........ 1500...|
00000810: BE 05 81 20 49 20 B2 20  31 20 A4 20 32 33 00 2F  |... I . 1 . 23./|
00000820: 10 C8 05 3A 99 A3 4E AA  31 29 3B 20 22 C7 22 00  |...:..N.1); ".".|
00000830: 35 10 D2 05 82 00 43 10  DC 05 4D 20 B2 20 59 32  |5.....C...M . Y2|
00000840: AD 44 59 00 59 10 E6 05  8B 20 59 30 20 B3 B2 20  |.DY.Y.... Y0 .. |
00000850: 44 59 20 A7 20 31 35 34  30 00 74 10 F0 05 8B 20  |DY . 1540.t.... |
00000860: B4 28 59 32 29 20 B2 20  B4 28 59 31 29 20 A7 20  |.(Y2) . .(Y1) . |
00000870: 31 36 33 30 00 8D 10 FA  05 4D 20 B2 20 B6 28 59  |1630.....M . .(Y|
00000880: 32 AD 28 59 32 AB 59 31  29 29 AC 32 33 00 9B 10  |2.(Y2.Y1)).23...|
00000890: 04 06 4D 31 20 B2 20 B5  28 4D 29 00 A5 10 0E 06  |..M1 . .(M).....|
000008A0: 99 20 22 13 22 00 B6 10  18 06 81 20 49 20 B2 20  |. "."...... I . |
000008B0: 31 20 A4 20 4D 31 00 BD  10 22 06 3A 99 00 C3 10  |1 . M1...".:....|
000008C0: 2C 06 82 00 DB 10 36 06  8B 20 4D AB 4D 31 20 B3  |,.....6.. M.M1 .|
000008D0: 20 30 2E 35 20 A7 20 31  36 32 30 00 0C 11 40 06  | 0.5 . 1620...@.|
000008E0: 99 20 22 1D C6 C6 C6 C6  C6 C6 C6 C6 C6 C6 C6 C6  |. ".............|
000008F0: C6 C6 C6 C6 C6 C6 C6 C6  C6 C6 C6 C6 C6 C6 C6 C6  |................|
00000900: C6 C6 C6 C6 C6 C6 C6 C6  C6 C6 13 22 00 17 11 4A  |..........."...J|
00000910: 06 89 20 31 36 33 30 00  48 11 54 06 99 20 22 1D  |.. 1630.H.T.. ".|
00000920: C4 C4 C4 C4 C4 C4 C4 C4  C4 C4 C4 C4 C4 C4 C4 C4  |................|
00000930: C4 C4 C4 C4 C4 C4 C4 C4  C4 C4 C4 C4 C4 C4 C4 C4  |................|
00000940: C4 C4 C4 C4 C4 C4 13 22  00 66 11 5E 06 81 20 49  |.......".f.^.. I|
00000950: 20 B2 20 58 31 20 A4 20  58 32 AA 30 2E 31 AC 44  | . X1 . X2.0.1.D|
00000960: 58 20 A9 20 44 58 00 76  11 68 06 3A 46 31 20 B2  |X . DX.v.h.:F1 .|
00000970: 20 A5 59 28 49 29 00 89  11 72 06 3A 46 32 20 B2  | .Y(I)...r.:F2 .|
00000980: 20 A5 59 28 49 AA 44 58  29 00 9B 11 7C 06 3A 5A  | .Y(I.DX)...|.:Z|
00000990: 31 20 B2 20 4D AB 46 31  AD 44 59 00 AD 11 86 06  |1 . M.F1.DY.....|
000009A0: 3A 5A 32 20 B2 20 4D AB  46 32 AD 44 59 00 BD 11  |:Z2 . M.F2.DY...|
000009B0: 90 06 3A 44 31 20 B2 20  B5 28 5A 31 29 00 CD 11  |..:D1 . .(Z1)...|
000009C0: 9A 06 3A 44 32 20 B2 20  B5 28 5A 32 29 00 D8 11  |..:D2 . .(Z2)...|
000009D0: A4 06 3A 99 20 22 13 22  00 E5 11 AE 06 3A 4B 20  |..:. ".".....:K |
000009E0: B2 20 4B AA 31 00 FA 11  B8 06 3A 8B 20 44 31 20  |. K.1.....:. D1 |
000009F0: B2 20 30 20 A7 20 31 37  36 30 00 0C 12 C2 06 3A  |. 0 . 1760.....:|
00000A00: 81 20 4A 20 B2 20 31 20  A4 20 44 31 00 14 12 CC  |. J . 1 . D1....|
00000A10: 06 3A 20 99 00 1D 12 D6  06 3A 82 20 4A 00 34 12  |.: ......:. J.4.|
00000A20: E0 06 3A 8B 20 44 31 20  B3 B1 20 44 32 20 A7 20  |..:. D1 .. D2 . |
00000A30: 31 38 34 30 00 5C 12 EA  06 3A 8B 20 5A 31 AB 44  |1840.\...:. Z1.D|
00000A40: 31 20 B3 20 30 2E 35 20  AF 20 5A 32 AB 44 32 20  |1 . 0.5 . Z2.D2 |
00000A50: B3 20 30 2E 35 20 A7 20  31 38 33 30 00 86 12 F4  |. 0.5 . 1830....|
00000A60: 06 3A 8B 20 5A 31 AB 44  31 20 B1 B2 20 30 2E 35  |.:. Z1.D1 .. 0.5|
00000A70: 20 AF 20 5A 32 AB 44 32  20 B1 B2 20 30 2E 35 20  | . Z2.D2 .. 0.5 |
00000A80: A7 20 31 38 32 30 00 AF  12 FE 06 3A 8B 20 5A 31  |. 1820.....:. Z1|
00000A90: AB 44 31 20 B1 B2 20 30  2E 35 20 AF 20 5A 32 AB  |.D1 .. 0.5 . Z2.|
00000AA0: 44 32 20 B3 20 30 2E 35  20 A7 20 31 38 31 30 00  |D2 . 0.5 . 1810.|
00000AB0: C7 12 08 07 3A 99 A3 4B  29 3B 20 22 BF 22 20 3A  |....:..K); "." :|
00000AC0: 20 89 20 31 39 35 30 00  E1 12 12 07 3A 99 A3 4B  | . 1950.....:..K|
00000AD0: 29 3B 20 22 12 BF 92 22  20 3A 20 89 20 31 39 35  |); "..." : . 195|
00000AE0: 30 00 F9 12 1C 07 3A 99  A3 4B 29 3B 20 22 A2 22  |0.....:..K); "."|
00000AF0: 20 3A 20 89 20 31 39 35  30 00 13 13 26 07 3A 99  | : . 1950...&.:.|
00000B00: A3 4B 29 3B 20 22 12 A2  92 22 20 3A 20 89 20 31  |.K); "..." : . 1|
00000B10: 39 35 30 00 2D 13 30 07  3A 8B 20 5A 31 AB 44 31  |950.-.0.:. Z1.D1|
00000B20: 20 B3 20 30 2E 35 20 A7  20 31 38 36 30 00 45 13  | . 0.5 . 1860.E.|
00000B30: 3A 07 3A 99 A3 4B 29 3B  20 22 BB 22 20 3A 20 89  |:.:..K); "." : .|
00000B40: 20 31 38 37 30 00 54 13  44 07 3A 99 A3 4B 29 3B  | 1870.T.D.:..K);|
00000B50: 20 22 BE 22 00 5F 13 4E  07 3A 99 20 22 13 22 00  | "."._.N.:. ".".|
00000B60: 74 13 58 07 3A 8B 20 44  32 20 B2 20 30 20 A7 20  |t.X.:. D2 . 0 . |
00000B70: 31 39 32 30 00 86 13 62  07 3A 81 20 4A 20 B2 20  |1920...b.:. J . |
00000B80: 31 20 A4 20 44 32 00 8E  13 6C 07 3A 20 99 00 97  |1 . D2...l.: ...|
00000B90: 13 76 07 3A 82 20 4A 00  B1 13 80 07 3A 8B 20 5A  |.v.:. J.....:. Z|
00000BA0: 32 AB 44 32 20 B3 20 30  2E 35 20 A7 20 31 39 34  |2.D2 . 0.5 . 194|
00000BB0: 30 00 C9 13 8A 07 3A 99  A3 4B 29 3B 20 22 AC 22  |0.....:..K); "."|
00000BC0: 20 3A 20 89 20 31 39 35  30 00 D8 13 94 07 3A 99  | : . 1950.....:.|
00000BD0: A3 4B 29 3B 20 22 BC 22  00 E6 13 9E 07 3A 49 20  |.K); ".".....:I |
00000BE0: B2 20 49 AA 44 58 00 EE  13 A8 07 82 20 49 00 0C  |. I.DX...... I..|
00000BF0: 14 B2 07 A1 20 52 24 20  3A 20 8B 20 52 24 20 B3  |.... R$ : . R$ .|
00000C00: B1 20 22 43 22 20 A7 20  31 39 37 30 00 16 14 BC  |. "C" . 1970....|
00000C10: 07 99 20 22 13 22 00 27  14 C6 07 81 20 49 20 B2  |.. ".".'.... I .|
00000C20: 20 31 20 A4 20 32 31 00  2E 14 D0 07 3A 99 00 34  | 1 . 21.....:..4|
00000C30: 14 DA 07 82 00 56 14 E4  07 99 20 22 58 31 20 3D  |.....V.... "X1 =|
00000C40: 22 3B 20 58 31 3B 20 A6  35 29 3B 20 22 58 32 20  |"; X1; .5); "X2 |
00000C50: 3D 22 3B 20 58 32 00 78  14 EE 07 99 20 22 59 31  |="; X2.x.... "Y1|
00000C60: 20 3D 22 3B 20 59 31 3B  20 A6 35 29 3B 20 22 59  | ="; Y1; .5); "Y|
00000C70: 32 20 3D 22 3B 20 59 32  00 96 14 F8 07 A1 20 52  |2 ="; Y2...... R|
00000C80: 24 20 3A 20 8B 20 52 24  20 B3 B1 20 22 43 22 20  |$ : . R$ .. "C" |
00000C90: A7 20 32 30 34 30 00 9C  14 02 08 80 00 00 00 45  |. 2040.........E|
00000CA0: AD                                                |.               |
....D.. ZEICHENPROGRAMM./.N.. FUNKTION Y
 = F(X).^.X.. BEI ALLEN INPUT-ANWEISUNGE
N KOENNEN AUCH......    MATHEMATISCHE AU
SDRUECKE WIE Z.B.......    X*SIN(X) ODER
 ./2 EINGEGEBEN WERDEN.T.... FORTSETZUNG
: C DRUECKEN...H.. "."...R.. "WERDEN ERK
LAERUNGEN ZUM PROGRAMM        GEWUENSCHT
 ?".!.....B.... "JA:     TASTE J DRUECKE
N".C.... "NEIN:   TASTE N DRUECKEN".....
. R$ : . R$ .. "J" . R$ .. "N" . 250....
.. R$ . "N" . 1060...,.. ".".X.6.. "DAS 
PROGRAMM ZEICHNET EINE FUNKTION"...@.. "
Y = F(X) ZWISCHEN GRENZEN X1 UND X2"...J
.. : ..Q.T.. "AM ANFANG WERDEN DIE FUNKT
ION UND DIE   GRENZEN EINGEGEBEN".W.^...
..H.. "ES KOENNEN NICHT NUR ZAHLEN SONDE
RN"...R.. "AUCH MATHEMATISCHE AUSDRUECKE
 WIE Z.B."...|.. "X*SIN(X) ODER ./2 EING
EGEBEN WERDEN".......).... "DIESE EINGAB
EN MUESSEN MIT 'RETURN'     ABGESCHLOSSE
N WERDEN"./.....].... "ES WERDEN DIE ACH
SEN DES KOORDINATEN-"...... "SYSTEMS GEZ
EICHNET, DIE IM BEREICH DER  KURVE LIEGE
N...... : ....B.. "BEI PROGRAMMSTOP: ZUR
 FORTSETZUNG DIE   TASTE C DRUECKEN"...L
.. R$ : . R$ .. "C" . 460...V.. ".".3...
. "BEISPIEL FUER DIE DATENEINGABE:".M...
. "..Y(X) = X/(1+X*X).^.... ".X1 = -5".O
.... ".X2 = 10"...... ".....SOLLEN DIE E
RKLAERUNGEN WIEDERHOLT      WERDEN ?".N.
... ".TASTE J BZW. N DRUECKEN"...... R$ 
: . R$ .. "J" . R$ .. "N" . 540...&.. R$
 . "J" . 300.+.$.. "..EINGABE DER FUNKTI
ON".@.... ".Y(X) = "; A$.E.8.. "..EINGAB
E DER UNTEREN GRENZE".X.B.. ".X1 = "; B$
...L.. "..EINGABE DER OBEREN GRENZE"...V
.. ".X2 = "; C$...`.. ".".Y.J.. 1230; "D
EF FNY(X) = "; A$...T.. 1240; "X1 = "; B
$...~.. 1250; "X2 = "; C$...... "RUN 123
0".(.... 623, 19.8.... I . 1 . 5.I...:. 
623.I, 13.O.....\.... 158, 6.B.D...X....
 ".BITTE WARTEN".....DX . (X2.X1).75....
.X0 . 1E30 : Y0 . 1E30 : Y1 . 1E30 : Y2 
. .1E30.Q...N . 0 : K . 0...... I . X1 .
 X2.0.1.DX . DX.....:Z . .Y(I)...(.:. Z 
. Y2 . Y2 . Z.,.2.:. Z . Y1 . Y1 . Z.;.<
.:N . N.0.5.A.F.:. .(I) . X0 . X0 . .(I)
 : NX . N.~.P.:. .(Z) . Y0 . Y0 . .(Z)..
.Z.....D.DY . (Y2.Y1).22.5...N.. "."...X
.. X0 . DX . 1500.G...N . .(NX)...... N 
.. NX . 1470...... I . 1 . 23... .:..N);
 "H"............ 1500...... I . 1 . 23./
.H.:..N.1); "G".5.R...C...M . Y2.DY.Y...
. Y0 .. DY . 1540.T.... .(Y2) . .(Y1) . 
1630.....M . .(Y2.(Y2.Y1)).23.....M1 . .
(M)...... "."...... I . 1 . M1...".:..C.
,.....6.. M.M1 . 0.5 . 1620...@.. ".FFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF."...J
.. 1630.H.T.. ".DDDDDDDDDDDDDDDDDDDDDDDD
DDDDDDDDDDDDDD.".F.^.. I . X1 . X2.0.1.D
X . DX.V.H.:F1 . .Y(I)...R.:F2 . .Y(I.DX
)...|.:Z1 . M.F1.DY.....:Z2 . M.F2.DY...
..:D1 . .(Z1).M...:D2 . .(Z2).X...:. "."
.....:K . K.1.....:. D1 . 0 . 1760...B.:
. J . 1 . D1...L.: ....V.:. J.4...:. D1 
.. D2 . 1840.\...:. Z1.D1 . 0.5 . Z2.D2 
. 0.5 . 1830.....:. Z1.D1 .. 0.5 . Z2.D2
 .. 0.5 . 1820.....:. Z1.D1 .. 0.5 . Z2.
D2 . 0.5 . 1810.G...:..K); "." : . 1950.
....:..K); "..." : . 1950.....:..K); "."
 : . 1950...&.:..K); "..." : . 1950.-.0.
:. Z1.D1 . 0.5 . 1860.E.:.:..K); "." : .
 1870.T.D.:..K); "."._.N.:. ".".T.X.:. D
2 . 0 . 1920...B.:. J . 1 . D2...L.: ...
.V.:. J.....:. Z2.D2 . 0.5 . 1940.I...:.
.K); "." : . 1950.X...:..K); ".".....:I 
. I.DX...... I...... R$ : . R$ .. "C" . 
1970...... ".".'.F.. I . 1 . 21...P.:..4
.Z...V.... "X1 ="; X1; .5); "X2 ="; X2.X
.... "Y1 ="; Y1; .5); "Y2 ="; Y2...... R
$ : . R$ .. "C" . 2040.........E.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL