FUNKTIONSGENIE
FILE INFORMATION
FILENAME(S): FUNKTIONSGENIE
FILE TYPE(S): PRG
FILE SIZE: 5.8K
FIRST SEEN: 2025-10-20 14:37:16
APPEARS ON: 1 disk(s)
FILE HASH
3b2eafbe7acdd45a68d6c07cc37941ed65bf3ec3f2114e1648adc812e2b6dcc9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| COMMODORE DISC15 | FUNKTIONSGENIE | PRG | Treasure Chest - LehrerMIL | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 3C 1C 0A 00 99 22 42 49 54 54 45 20 41 55 |..<...."BITTE AU|
00000010: 46 20 44 49 4E 2D 54 41 53 54 41 54 55 52 20 55 |F DIN-TASTATUR U|
00000020: 4D 53 43 48 41 4C 54 45 4E 21 20 20 20 20 20 20 |MSCHALTEN! |
00000030: 28 12 46 92 45 52 54 49 47 3F 29 22 00 50 1C 14 |(.F.ERTIG?)".P..|
00000040: 00 A1 57 24 3A 8B 57 24 B3 B1 22 46 22 A7 32 30 |..W$:.W$.."F".20|
00000050: 00 95 1C 1E 00 99 22 93 11 20 20 20 43 4F 50 59 |......".. COPY|
00000060: 52 49 47 48 54 20 42 59 20 45 4B 41 52 44 20 47 |RIGHT BY EKARD G|
00000070: 52 4F BE 4D 41 4E 4E 20 20 20 20 20 20 20 20 20 |RO.MANN |
00000080: 20 20 20 20 28 32 35 2E 31 30 2E 31 39 38 37 29 | (25.10.1987)|
00000090: 22 3A FE 0B 36 00 B1 1C 28 00 8F 2A 2A 2A 2A 2A |":..6...(..*****|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000B0: 2A 00 CD 1C 32 00 8F 2A 2A 20 20 46 55 4E 4B 54 |*...2..** FUNKT|
000000C0: 49 4F 4E 53 47 45 4E 49 45 20 20 2A 2A 00 E9 1C |IONSGENIE **...|
000000D0: 3C 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |<..*************|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EF 1C 46 00 8F 00 |*********...F...|
000000F0: 0D 1D 50 00 8F 20 28 43 29 31 30 2F 38 37 20 42 |..P.. (C)10/87 B|
00000100: 59 20 45 2E 47 52 4F 53 53 4D 41 4E 4E 00 26 1D |Y E.GROSSMANN.&.|
00000110: 5A 00 8F 20 42 41 53 49 43 37 2E 30 20 20 20 34 |Z.. BASIC7.0 4|
00000120: 30 5A 2F 44 49 4E 00 2C 1D 64 00 8F 00 48 1D 6E |0Z/DIN.,.d...H.n|
00000130: 00 D7 31 33 32 30 3A 99 C7 28 31 34 29 3B C7 28 |..1320:..(14);.(|
00000140: 31 31 29 3A 89 33 33 30 00 65 1D 78 00 8F 2A 2A |11):.330.e.x..**|
00000150: 2A 2A 2A 48 41 55 50 54 50 52 4F 47 52 41 4D 4D |***HAUPTPROGRAMM|
00000160: 2A 2A 2A 2A 2A 00 92 1D 82 00 D7 31 33 32 30 3A |*****......1320:|
00000170: FE 26 3A DE 30 2C 30 3A 99 22 93 20 20 20 20 20 |.&:.0,0:.". |
00000180: 20 A8 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 | ...............|
00000190: AA 22 00 B0 1D 8C 00 99 22 20 20 20 20 20 20 A1 |."......" .|
000001A0: C6 55 4E 4B 54 49 4F 4E 53 47 45 4E 49 45 A1 22 |.UNKTIONSGENIE."|
000001B0: 00 CE 1D 96 00 99 22 20 20 20 20 20 20 A2 A6 A6 |......" ...|
000001C0: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A4 22 00 FE |............."..|
000001D0: 1D A0 00 99 22 CD 49 54 20 44 49 45 53 45 4D 20 |....".IT DIESEM |
000001E0: D0 52 4F 47 52 41 4D 4D 20 4B BC 4E 4E 45 4E 20 |.ROGRAMM K.NNEN |
000001F0: D3 49 45 20 C6 55 4E 4B 54 49 4F 4E 2D 22 00 2B |.IE .UNKTION-".+|
00000200: 1E AA 00 99 22 45 4E 20 47 52 41 50 48 49 53 43 |...."EN GRAPHISC|
00000210: 48 20 44 41 52 53 54 45 4C 4C 45 4E 20 55 4E 44 |H DARSTELLEN UND|
00000220: 20 42 45 52 45 43 48 4E 45 4E 22 00 59 1E B4 00 | BERECHNEN".Y...|
00000230: 99 22 4C 41 53 53 45 4E 2E 20 C2 45 49 20 46 41 |."LASSEN. .EI FA|
00000240: 4C 53 43 48 45 52 20 4F 44 45 52 20 46 45 48 4C |LSCHER ODER FEHL|
00000250: 45 52 48 41 46 54 45 52 22 00 85 1E BE 00 99 22 |ERHAFTER"......"|
00000260: C5 49 4E 47 41 42 45 20 53 50 52 49 4E 47 54 20 |.INGABE SPRINGT |
00000270: 44 41 53 20 D0 52 4F 47 52 41 4D 4D 20 48 49 45 |DAS .ROGRAMM HIE|
00000280: 52 48 45 52 22 00 B0 1E C8 00 99 22 5A 55 52 BD |RHER"......"ZUR.|
00000290: 43 4B 2E 20 C6 4F 4C 47 45 4E 44 45 20 D2 45 43 |CK. .OLGENDE .EC|
000002A0: 48 45 4E 5A 45 49 43 48 45 4E 20 45 4E 54 2D 22 |HENZEICHEN ENT-"|
000002B0: 00 DD 1E D2 00 99 22 53 50 52 45 43 48 45 4E 20 |......"SPRECHEN |
000002C0: 53 49 43 48 3A 20 2B 3D 2B 20 2D 3D 2D 20 3A 3D |SICH: +=+ -=- :=|
000002D0: 2F 20 2E 3D 2A 20 48 4F 43 48 3D 5E 22 00 0F 1F |/ .=* HOCH=^"...|
000002E0: DC 00 99 C7 28 31 38 35 29 3B 22 3D 53 51 52 28 |....(185);"=SQR(|
000002F0: 29 20 4C 4F 47 3D 4C 4F 47 28 29 20 A1 A1 3D 41 |) LOG=LOG() ..=A|
00000300: 42 53 28 29 20 53 49 4E 3D 53 49 4E 28 29 22 00 |BS() SIN=SIN()".|
00000310: 4F 1F E6 00 99 22 43 4F 53 3D 43 4F 53 28 29 20 |O...."COS=COS() |
00000320: 54 41 4E 3D 54 41 4E 28 29 20 2E 20 D3 49 45 20 |TAN=TAN() . .IE |
00000330: 4B BC 4E 4E 45 4E 20 4A 45 54 5A 54 20 20 57 BB |K.NNEN JETZT W.|
00000340: 48 4C 45 4E 20 5A 57 49 53 43 48 45 4E 3A 22 00 |HLEN ZWISCHEN:".|
00000350: 7B 1F F0 00 99 22 20 12 31 92 20 CB 4F 4F 52 44 |{...." .1. .OORD|
00000360: 49 4E 41 54 45 4E 53 59 53 54 45 4D 20 4E 45 55 |INATENSYSTEM NEU|
00000370: 20 45 52 53 54 45 4C 4C 45 4E 22 00 BF 1F FA 00 | ERSTELLEN".....|
00000380: 99 22 20 12 32 92 20 45 49 4E 45 20 C6 55 4E 4B |." .2. EINE .UNK|
00000390: 54 49 4F 4E 20 44 45 46 49 4E 49 45 52 45 4E 20 |TION DEFINIEREN |
000003A0: 55 4E 44 20 20 20 20 20 20 20 20 20 20 20 20 5A |UND Z|
000003B0: 45 49 43 48 4E 45 4E 20 4C 41 53 53 45 4E 22 00 |EICHNEN LASSEN".|
000003C0: 04 20 04 01 99 22 20 12 33 92 20 45 49 4E 45 20 |. ..." .3. EINE |
000003D0: C6 55 4E 4B 54 49 4F 4E 20 44 45 46 49 4E 49 45 |.UNKTION DEFINIE|
000003E0: 52 45 4E 20 55 4E 44 20 20 20 20 20 20 20 20 20 |REN UND |
000003F0: 20 20 20 42 45 52 45 43 48 4E 45 4E 20 4C 41 53 | BERECHNEN LAS|
00000400: 53 45 4E 22 00 29 20 0E 01 99 22 20 12 34 92 20 |SEN".) ..." .4. |
00000410: CB 4F 4F 52 44 49 4E 41 54 45 4E 53 59 53 54 45 |.OORDINATENSYSTE|
00000420: 4D 20 5A 45 49 47 45 4E 22 00 4A 20 18 01 99 22 |M ZEIGEN".J ..."|
00000430: 20 12 35 92 20 D7 49 4E 4B 45 4C 4D 41 BE 45 20 | .5. .INKELMA.E |
00000440: 55 4D 52 45 43 48 4E 45 4E 22 00 5E 20 22 01 99 |UMRECHNEN".^ "..|
00000450: 22 20 12 36 92 20 D2 45 43 48 4E 45 52 22 00 77 |" .6. .ECHNER".w|
00000460: 20 2C 01 99 22 20 12 37 92 20 D0 52 4F 47 52 41 | ,.." .7. .ROGRA|
00000470: 4D 4D 45 4E 44 45 22 00 92 20 36 01 A1 57 24 3A |MMENDE".. 6..W$:|
00000480: 8B 57 24 B3 22 31 22 B0 57 24 B1 22 37 22 A7 33 |.W$."1".W$."7".3|
00000490: 31 30 00 BE 20 40 01 91 C5 28 57 24 29 8D 33 33 |10.. @...(W$).33|
000004A0: 30 2C 35 35 30 2C 31 36 35 30 2C 31 30 34 30 2C |0,550,1650,1040,|
000004B0: 31 30 38 30 2C 31 33 36 30 2C 31 33 30 30 00 DF |1080,1360,1300..|
000004C0: 20 4A 01 8F 2A 2A 2A 2A 2A 4B 4F 4F 52 44 49 4E | J..*****KOORDIN|
000004D0: 41 54 45 4E 53 59 53 54 45 4D 2A 2A 2A 2A 2A 00 |ATENSYSTEM*****.|
000004E0: E8 20 54 01 DE 31 2C 31 00 F1 20 5E 01 E7 31 2C |. T..1,1.. ^..1,|
000004F0: 32 00 0C 21 68 01 8F 2D 2D 2D 2D 2D 41 43 48 53 |2..!h..-----ACHS|
00000500: 45 4E 4B 52 45 55 5A 2D 2D 2D 2D 2D 00 21 21 72 |ENKREUZ-----.!!r|
00000510: 01 E5 31 2C 31 36 30 2C 30 A4 31 36 30 2C 32 30 |..1,160,0.160,20|
00000520: 30 00 36 21 7C 01 E5 31 2C 30 2C 31 30 30 A4 33 |0.6!|..1,0,100.3|
00000530: 32 30 2C 31 30 30 00 4F 21 86 01 8F 2D 2D 2D 2D |20,100.O!...----|
00000540: 2D 45 49 4E 48 45 49 54 45 4E 2D 2D 2D 2D 2D 00 |-EINHEITEN-----.|
00000550: 59 21 90 01 58 B2 31 36 30 00 69 21 9A 01 81 59 |Y!..X.160.i!...Y|
00000560: B2 30 A4 32 30 30 A9 31 30 00 7C 21 A4 01 E5 31 |.0.200.10.|!...1|
00000570: 2C 58 AB 31 2C 59 A4 58 AA 31 2C 59 00 83 21 AE |,X.1,Y.X.1,Y..!.|
00000580: 01 82 59 00 8D 21 B8 01 59 B2 31 30 30 00 9D 21 |..Y..!..Y.100..!|
00000590: C2 01 81 58 B2 30 A4 33 32 30 A9 31 30 00 B0 21 |...X.0.320.10..!|
000005A0: CC 01 E5 31 2C 58 2C 59 AB 31 A4 58 2C 59 AA 31 |...1,X,Y.1.X,Y.1|
000005B0: 00 B7 21 D6 01 82 58 00 D1 21 E0 01 8F 2D 2D 2D |..!...X..!...---|
000005C0: 2D 2D 42 49 4C 44 50 55 4E 4B 54 45 2D 2D 2D 2D |--BILDPUNKTE----|
000005D0: 2D 00 E1 21 EA 01 81 59 B2 30 A4 32 30 30 A9 31 |-..!...Y.0.200.1|
000005E0: 30 00 F1 21 F4 01 81 58 B2 30 A4 33 32 30 A9 31 |0..!...X.0.320.1|
000005F0: 30 00 02 22 FE 01 8B 58 B2 33 32 30 A7 58 B2 33 |0.."...X.320.X.3|
00000600: 31 39 00 10 22 08 02 E5 31 2C 58 2C 59 3A 82 58 |19.."...1,X,Y:.X|
00000610: 00 17 22 12 02 82 59 00 25 22 1C 02 DE 30 2C 30 |.."...Y.%"...0,0|
00000620: 3A 89 31 32 30 00 46 22 26 02 8F 2A 2A 2A 2A 2A |:.120.F"&..*****|
00000630: 46 55 4E 4B 54 49 4F 4E 53 42 45 4C 45 47 55 4E |FUNKTIONSBELEGUN|
00000640: 47 2A 2A 2A 2A 2A 00 5D 22 30 02 8F 2D 2D 2D 2D |G*****.]"0..----|
00000650: 2D 45 49 4E 47 41 42 45 2D 2D 2D 2D 2D 00 8C 22 |-EINGABE-----.."|
00000660: 3A 02 99 3A 99 3A 99 22 C4 49 45 20 C2 45 52 45 |:..:.:.".IE .ERE|
00000670: 43 48 4E 55 4E 47 53 5A 45 49 54 20 42 45 54 52 |CHNUNGSZEIT BETR|
00000680: BB 47 54 20 4A 45 20 4E 41 43 48 22 00 B2 22 44 |.GT JE NACH".."D|
00000690: 02 99 22 C1 55 46 47 41 42 45 4E 4C BB 4E 47 45 |..".UFGABENL.NGE|
000006A0: 20 43 41 2E 20 33 30 20 D3 45 4B 55 4E 44 45 4E | CA. 30 .EKUNDEN|
000006B0: 2E 22 00 DB 22 4E 02 99 22 C2 49 54 54 45 20 47 |.".."N..".ITTE G|
000006C0: 45 42 45 4E 20 D3 49 45 20 44 49 45 20 5A 55 20 |EBEN .IE DIE ZU |
000006D0: 5A 45 49 43 48 4E 45 4E 44 45 22 00 06 23 58 02 |ZEICHNENDE"..#X.|
000006E0: 99 22 C6 55 4E 4B 54 49 4F 4E 20 49 4E 20 44 45 |.".UNKTION IN DE|
000006F0: 52 20 C6 4F 52 4D 20 59 3D 2E 2E 2E 2E 2E 2E 2E |R .ORM Y=.......|
00000700: 20 45 49 4E 2E 22 00 1B 23 62 02 85 22 C6 55 4E | EIN."..#b..".UN|
00000710: 4B 54 49 4F 4E 22 3B 46 4B 54 24 00 39 23 6C 02 |KTION";FKT$.9#l.|
00000720: 8F 2D 2D 2D 2D 2D 46 45 52 54 49 47 41 55 53 44 |.-----FERTIGAUSD|
00000730: 52 55 43 4B 2D 2D 2D 2D 2D 00 6C 23 76 02 46 4B |RUCK-----.l#v.FK|
00000740: 54 5A 45 49 4C 45 24 B2 22 37 37 30 20 44 45 46 |TZEILE$."770 DEF|
00000750: 20 46 4E 20 59 28 58 29 3D 22 AA C9 28 46 4B 54 | FN Y(X)="..(FKT|
00000760: 24 2C C3 28 46 4B 54 24 29 AB 32 29 00 84 23 80 |$,.(FKT$).2)..#.|
00000770: 02 4E 45 55 53 54 41 52 54 24 B2 22 52 55 4E 20 |.NEUSTART$."RUN |
00000780: 37 37 30 22 00 9F 23 8A 02 8F 2D 2D 2D 2D 2D 32 |770"..#...-----2|
00000790: 4D 41 4C 20 52 45 54 55 52 4E 2D 2D 2D 2D 2D 00 |MAL RETURN-----.|
000007A0: B7 23 94 02 FE 0B 31 2E 35 3A 81 49 B2 31 A4 32 |.#....1.5:.I.1.2|
000007B0: 30 3A A1 41 24 3A 82 00 E3 23 9E 02 99 22 C2 49 |0:.A$:...#...".I|
000007C0: 54 54 45 20 5A 57 45 49 4D 41 4C 20 D2 C5 D4 D5 |TTE ZWEIMAL ....|
000007D0: D2 CE 2D D4 41 53 54 45 20 44 52 BD 43 4B 45 4E |..-.ASTE DR.CKEN|
000007E0: 20 21 22 00 F8 23 A8 02 8B C2 28 32 31 32 29 B3 | !"..#....(212).|
000007F0: B1 38 38 A7 89 36 38 30 00 0C 24 B2 02 8B C2 28 |.88..680..$....(|
00000800: 32 31 32 29 B3 B1 31 A7 89 36 39 30 00 21 24 BC |212)..1..690.!$.|
00000810: 02 8B C2 28 32 31 32 29 B3 B1 38 38 A7 89 37 30 |...(212)..88..70|
00000820: 30 00 35 24 C6 02 8B C2 28 32 31 32 29 B3 B1 31 |0.5$....(212)..1|
00000830: A7 89 37 31 30 00 4A 24 D0 02 8B C2 28 32 31 32 |..710.J$....(212|
00000840: 29 B3 B1 38 38 A7 89 37 32 30 00 64 24 DA 02 8F |)..88..720.d$...|
00000850: 2D 2D 2D 2D 2D 44 45 46 49 4E 49 45 52 45 4E 2D |-----DEFINIEREN-|
00000860: 2D 2D 2D 2D 00 6D 24 E4 02 DE 35 2C 31 00 9A 24 |----.m$...5,1..$|
00000870: EE 02 99 C7 28 31 34 37 29 3A 99 3A 99 3A 99 46 |....(147):.:.:.F|
00000880: 4B 54 5A 45 49 4C 45 24 3A 99 4E 45 55 53 54 41 |KTZEILE$:.NEUSTA|
00000890: 52 54 24 3A 99 C7 28 31 39 29 00 A0 24 F8 02 80 |RT$:..(19)..$...|
000008A0: 00 AF 24 0C 03 DE 30 2C 30 3A D7 31 33 32 30 00 |..$...0,0:.1320.|
000008B0: F2 24 16 03 85 22 D7 49 45 56 49 45 4C 20 C5 49 |.$...".IEVIEL .I|
000008C0: 4E 48 45 49 54 45 4E 20 53 4F 4C 4C 20 45 49 4E |NHEITEN SOLL EIN|
000008D0: 45 20 D8 2D CC BB 4E 47 45 4E 2D 20 20 20 45 49 |E .-..NGEN- EI|
000008E0: 4E 48 45 49 54 20 4C 41 4E 47 20 53 45 49 4E 22 |NHEIT LANG SEIN"|
000008F0: 3B 50 00 35 25 20 03 85 22 D7 49 45 56 49 45 4C |;P.5% ..".IEVIEL|
00000900: 20 C5 49 4E 48 45 49 54 45 4E 20 53 4F 4C 4C 20 | .INHEITEN SOLL |
00000910: 45 49 4E 45 20 D9 2D CC BB 4E 47 45 4E 2D 20 20 |EINE .-..NGEN- |
00000920: 20 45 49 4E 48 45 49 54 20 4C 41 4E 47 20 53 45 | EINHEIT LANG SE|
00000930: 49 4E 22 3B 4F 00 54 25 2A 03 8F 2A 2A 2A 2A 2A |IN";O.T%*..*****|
00000940: 46 55 4E 4B 54 49 4F 4E 53 47 52 41 46 49 4B 2A |FUNKTIONSGRAFIK*|
00000950: 2A 2A 2A 2A 00 75 25 34 03 8F 2D 2D 2D 2D 2D 42 |****.u%4..-----B|
00000960: 45 52 45 43 48 4E 45 4E 2B 50 52 55 45 46 45 4E |ERECHNEN+PRUEFEN|
00000970: 2D 2D 2D 2D 2D 00 AA 25 3E 03 86 59 57 45 52 54 |-----..%>..YWERT|
00000980: 28 33 32 31 29 3A 86 5A 28 33 32 31 29 3A FE 25 |(321):.Z(321):.%|
00000990: 3A 51 B2 30 3A 81 58 B2 AB 31 36 AD 50 A4 31 36 |:Q.0:.X..16.P.16|
000009A0: 2E 31 AD 50 A9 30 2E 31 AD 50 00 D4 25 48 03 D7 |.1.P.0.1.P..%H..|
000009B0: 31 33 32 30 3A 59 57 45 52 54 28 51 29 B2 B5 28 |1320:YWERT(Q)..(|
000009C0: 31 30 30 AB 4F AC 31 30 AC A5 20 59 28 58 29 29 |100.O.10.. Y(X))|
000009D0: AA 30 2E 35 00 F7 25 52 03 8B 59 57 45 52 54 28 |.0.5..%R..YWERT(|
000009E0: 51 29 B1 B2 30 AF 59 57 45 52 54 28 51 29 B3 B2 |Q)..0.YWERT(Q)..|
000009F0: 31 39 39 A7 4C B2 30 00 04 26 5C 03 8B 4C B2 31 |199.L.0..&\..L.1|
00000A00: A7 38 39 30 00 27 26 66 03 8B 59 57 45 52 54 28 |.890.'&f..YWERT(|
00000A10: 51 29 B1 31 39 39 A7 59 57 45 52 54 28 51 29 B2 |Q).199.YWERT(Q).|
00000A20: 31 39 39 3A 4C B2 31 00 46 26 70 03 8B 59 57 45 |199:L.1.F&p..YWE|
00000A30: 52 54 28 51 29 B3 30 A7 59 57 45 52 54 28 51 29 |RT(Q).0.YWERT(Q)|
00000A40: B2 30 3A 4C B2 31 00 53 26 7A 03 51 B2 51 AA 31 |.0:L.1.S&z.Q.Q.1|
00000A50: 3A 82 58 00 63 26 84 03 81 49 B2 33 32 31 A4 30 |:.X.c&...I.321.0|
00000A60: A9 AB 31 00 86 26 8E 03 8B 59 57 45 52 54 28 49 |..1..&...YWERT(I|
00000A70: 29 B1 B2 30 AF 59 57 45 52 54 28 49 29 B3 B2 31 |)..0.YWERT(I)..1|
00000A80: 39 39 A7 4C B2 30 00 93 26 98 03 8B 4C B2 31 A7 |99.L.0..&...L.1.|
00000A90: 39 35 30 00 B6 26 A2 03 8B 59 57 45 52 54 28 49 |950..&...YWERT(I|
00000AA0: 29 B1 31 39 39 A7 59 57 45 52 54 28 49 29 B2 31 |).199.YWERT(I).1|
00000AB0: 39 39 3A 4C B2 31 00 D5 26 AC 03 8B 59 57 45 52 |99:L.1..&...YWER|
00000AC0: 54 28 49 29 B3 30 A7 59 57 45 52 54 28 49 29 B2 |T(I).0.YWERT(I).|
00000AD0: 30 3A 4C B2 31 00 F9 26 B6 03 8B 59 57 45 52 54 |0:L.1..&...YWERT|
00000AE0: 28 49 29 B1 31 39 39 B0 59 57 45 52 54 28 49 29 |(I).199.YWERT(I)|
00000AF0: B3 30 A7 5A 28 49 29 B2 31 00 03 27 C0 03 82 49 |.0.Z(I).1..'...I|
00000B00: 3A FE 26 00 1B 27 CA 03 8F 2D 2D 2D 2D 2D 5A 45 |:.&..'...-----ZE|
00000B10: 49 43 48 4E 45 4E 2D 2D 2D 2D 2D 00 24 27 D4 03 |ICHNEN-----.$'..|
00000B20: DE 31 2C 30 00 35 27 DE 03 53 B2 30 3A 81 49 B2 |.1,0.5'..S.0:.I.|
00000B30: 30 A4 33 32 30 00 45 27 E8 03 8B 5A 28 49 29 B2 |0.320.E'...Z(I).|
00000B40: 31 A7 53 B2 30 00 67 27 F2 03 8B 5A 28 49 29 B2 |1.S.0.g'...Z(I).|
00000B50: 30 AF 53 B2 30 A7 E5 31 2C 49 2C 59 57 45 52 54 |0.S.0..1,I,YWERT|
00000B60: 28 49 29 3A 53 B2 31 00 84 27 FC 03 8B 5A 28 49 |(I):S.1..'...Z(I|
00000B70: 29 B2 30 AF 53 B2 31 A7 E5 A4 49 2C 59 57 45 52 |).0.S.1...I,YWER|
00000B80: 54 28 49 29 00 95 27 06 04 82 49 3A DE 30 2C 31 |T(I)..'...I:.0,1|
00000B90: 3A 89 31 32 30 00 B4 27 10 04 8F 2A 2A 2A 2A 2A |:.120..'...*****|
00000BA0: 53 43 48 41 55 42 49 4C 44 5A 45 49 47 45 52 2A |SCHAUBILDZEIGER*|
00000BB0: 2A 2A 2A 2A 00 F8 27 1A 04 99 3A 99 3A 99 22 DA |****..'...:.:.".|
00000BC0: 55 52 BD 43 4B 20 49 4E 53 20 C8 41 55 50 54 50 |UR.CK INS .AUPTP|
00000BD0: 52 4F 47 52 41 4D 4D 20 4D 49 54 20 D2 C5 D4 D5 |ROGRAMM MIT ....|
00000BE0: D2 CE 2D 20 20 20 20 D4 41 53 54 45 21 28 12 D7 |..- .ASTE!(..|
00000BF0: 92 45 49 54 45 52 29 22 00 15 28 24 04 A1 57 24 |.EITER)"..($..W$|
00000C00: 3A 8B 57 24 B3 B1 22 57 22 A7 89 31 30 36 30 3A |:.W$.."W"..1060:|
00000C10: D5 DE 31 2C 30 00 39 28 2E 04 A1 57 24 3A 8B 57 |..1,0.9(...W$:.W|
00000C20: 24 B3 B1 C7 28 31 33 29 A7 89 31 30 37 30 3A D5 |$...(13)..1070:.|
00000C30: DE 30 2C 30 3A 89 31 32 30 00 56 28 38 04 8F 2A |.0,0:.120.V(8..*|
00000C40: 2A 2A 2A 2A 4D 41 53 53 55 4D 52 45 43 48 4E 45 |****MASSUMRECHNE|
00000C50: 52 2A 2A 2A 2A 2A 00 70 28 42 04 99 3A 99 3A 99 |R*****.p(B..:.:.|
00000C60: 22 D7 4F 4C 4C 45 4E 20 D3 49 45 20 56 4F 4D 22 |".OLLEN .IE VOM"|
00000C70: 00 91 28 4C 04 99 22 20 12 31 92 20 C7 52 41 44 |..(L.." .1. .RAD|
00000C80: 4D 41 BE 20 49 4E 53 20 C2 4F 47 45 4E 4D 41 BE |MA. INS .OGENMA.|
00000C90: 22 00 B2 28 56 04 99 22 20 12 32 92 20 C2 4F 47 |"..(V.." .2. .OG|
00000CA0: 45 4E 4D 41 BE 20 49 4E 53 20 C7 52 41 44 4D 41 |ENMA. INS .RADMA|
00000CB0: BE 22 00 CC 28 60 04 99 22 55 4D 47 45 52 45 43 |."..(`.."UMGEREC|
00000CC0: 48 4E 45 54 20 48 41 42 45 4E 3F 22 00 E8 28 6A |HNET HABEN?"..(j|
00000CD0: 04 A1 57 24 3A 8B 57 24 B3 22 31 22 B0 57 24 B1 |..W$:.W$."1".W$.|
00000CE0: 22 32 22 A7 31 31 33 30 00 FD 28 74 04 91 C5 28 |"2".1130..(t...(|
00000CF0: 57 24 29 89 31 31 35 30 2C 31 32 30 30 00 1C 29 |W$).1150,1200..)|
00000D00: 7E 04 8F 2D 2D 2D 2D 2D 47 52 41 44 4D 2E 2D 3E |~..-----GRADM.->|
00000D10: 42 4F 47 45 4E 4D 2E 2D 2D 2D 2D 2D 00 43 29 88 |BOGENM.-----.C).|
00000D20: 04 85 22 C7 45 42 45 4E 20 D3 49 45 20 44 49 45 |..".EBEN .IE DIE|
00000D30: 20 C7 52 41 44 5A 41 48 4C 20 45 49 4E 22 3B 47 | .RADZAHL EIN";G|
00000D40: 52 41 44 00 5A 29 92 04 42 4F 47 45 4E B2 47 52 |RAD.Z)..BOGEN.GR|
00000D50: 41 44 AD 33 36 30 AC 32 AC FF 00 7A 29 9C 04 99 |AD.360.2...z)...|
00000D60: 47 52 41 44 3B 22 C7 52 41 44 20 45 4E 54 53 50 |GRAD;".RAD ENTSP|
00000D70: 52 45 43 48 45 4E 20 49 4D 22 00 96 29 A6 04 99 |RECHEN IM"..)...|
00000D80: 22 C2 4F 47 45 4E 4D 41 BE 22 3B 42 4F 47 45 4E |".OGENMA.";BOGEN|
00000D90: 3A 89 31 32 35 30 00 B5 29 B0 04 8F 2D 2D 2D 2D |:.1250..)...----|
00000DA0: 2D 42 4F 47 45 4E 4D 2E 2D 3E 47 52 41 44 4D 2E |-BOGENM.->GRADM.|
00000DB0: 2D 2D 2D 2D 2D 00 DC 29 BA 04 85 22 C7 45 42 45 |-----..)...".EBE|
00000DC0: 4E 20 D3 49 45 20 44 41 53 20 C2 4F 47 45 4E 4D |N .IE DAS .OGENM|
00000DD0: 41 BE 20 41 4E 22 3B 42 4F 47 45 4E 00 F5 29 C4 |A. AN";BOGEN..).|
00000DE0: 04 47 52 41 44 B2 42 4F 47 45 4E AD 28 32 AC FF |.GRAD.BOGEN.(2..|
00000DF0: 29 AC 33 36 30 00 1D 2A CE 04 99 42 4F 47 45 4E |).360..*...BOGEN|
00000E00: 3B 22 49 4D 20 C2 4F 47 45 4E 4D 41 BE 20 45 4E |;"IM .OGENMA. EN|
00000E10: 54 53 50 52 45 43 48 45 4E 20 49 4D 22 00 3E 2A |TSPRECHEN IM".>*|
00000E20: D8 04 99 22 C7 52 41 44 4D 41 BE 22 3B 47 52 41 |...".RADMA.";GRA|
00000E30: 44 3B 22 C7 52 41 44 22 3A 89 31 32 35 30 00 7D |D;".RAD":.1250.}|
00000E40: 2A E2 04 99 22 20 12 DA 92 55 52 BD 43 4B 20 20 |*..." ...UR.CK |
00000E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E70: 12 CE 92 4F 43 48 45 49 4E 4D 41 4C 22 00 85 2A |...OCHEINMAL"..*|
00000E80: EC 04 A1 57 24 00 95 2A F6 04 8B 57 24 B2 22 5A |...W$..*...W$."Z|
00000E90: 22 A7 31 32 30 00 A6 2A 00 05 8B 57 24 B2 22 4E |".120..*...W$."N|
00000EA0: 22 A7 31 30 38 30 00 B0 2A 0A 05 89 31 32 36 30 |".1080..*...1260|
00000EB0: 00 CC 2A 14 05 8F 2A 2A 2A 2A 2A 50 52 4F 47 52 |..*...*****PROGR|
00000EC0: 41 4D 4D 45 4E 44 45 2A 2A 2A 2A 2A 00 E6 2A 1E |AMMENDE*****..*.|
00000ED0: 05 9C 3A E8 3A 99 C7 28 31 32 29 3B C7 28 31 34 |..:.:..(12);.(14|
00000EE0: 32 29 3A A2 3A 80 00 FC 2A 28 05 8F 2A 2A 2A 2A |2):.:...*(..****|
00000EF0: 2A 52 45 53 55 4D 45 2A 2A 2A 2A 2A 00 09 2B 32 |*RESUME*****..+2|
00000F00: 05 8B 45 52 B2 33 30 A7 D6 00 23 2B 3C 05 8B 45 |..ER.30...#+<..E|
00000F10: 52 B2 31 34 B0 45 52 B2 31 35 B0 45 52 B2 32 30 |R.14.ER.15.ER.20|
00000F20: A7 D6 82 00 2C 2B 46 05 D6 31 32 30 00 43 2B 50 |....,+F..120.C+P|
00000F30: 05 8F 2A 2A 2A 2A 2A 52 45 43 48 4E 45 52 2A 2A |..*****RECHNER**|
00000F40: 2A 2A 2A 00 71 2B 5A 05 99 3A 99 3A 99 22 C2 49 |***.q+Z..:.:.".I|
00000F50: 54 54 45 20 47 45 42 45 4E 20 D3 49 45 20 44 49 |TTE GEBEN .IE DI|
00000F60: 45 20 5A 55 20 42 45 52 45 43 48 4E 45 4E 44 45 |E ZU BERECHNENDE|
00000F70: 22 00 8D 2B 64 05 85 22 C1 55 46 47 41 42 45 20 |"..+d..".UFGABE |
00000F80: 45 49 4E 22 3B 41 55 46 47 41 42 45 24 00 AD 2B |EIN";AUFGABE$..+|
00000F90: 6E 05 41 55 46 47 41 42 45 24 B2 22 31 35 34 30 |n.AUFGABE$."1540|
00000FA0: 20 41 3D 22 AA 41 55 46 47 41 42 45 24 00 C6 2B | A=".AUFGABE$..+|
00000FB0: 78 05 4E 45 55 53 54 41 52 54 24 B2 22 52 55 4E |x.NEUSTART$."RUN|
00000FC0: 20 31 35 33 30 22 00 E1 2B 82 05 8F 2D 2D 2D 2D | 1530"..+...----|
00000FD0: 2D 32 4D 41 4C 20 52 45 54 55 52 4E 2D 2D 2D 2D |-2MAL RETURN----|
00000FE0: 2D 00 F9 2B 8C 05 FE 0B 31 2E 35 3A 81 49 B2 31 |-..+....1.5:.I.1|
00000FF0: A4 32 30 3A A1 57 24 3A 82 00 25 2C 96 05 99 22 |.20:.W$:..%,..."|
00001000: C2 49 54 54 45 20 5A 57 45 49 4D 41 4C 20 D2 C5 |.ITTE ZWEIMAL ..|
00001010: D4 D5 D2 CE 2D D4 41 53 54 45 20 44 52 BD 43 4B |....-.ASTE DR.CK|
00001020: 45 4E 20 21 22 00 3B 2C A0 05 8B C2 28 32 31 32 |EN !".;,....(212|
00001030: 29 B3 B1 38 38 A7 89 31 34 34 30 00 50 2C AA 05 |)..88..1440.P,..|
00001040: 8B C2 28 32 31 32 29 B3 B1 31 A7 89 31 34 35 30 |..(212)..1..1450|
00001050: 00 66 2C B4 05 8B C2 28 32 31 32 29 B3 B1 38 38 |.f,....(212)..88|
00001060: A7 89 31 34 36 30 00 7B 2C BE 05 8B C2 28 32 31 |..1460.{,....(21|
00001070: 32 29 B3 B1 31 A7 89 31 34 37 30 00 91 2C C8 05 |2)..1..1470..,..|
00001080: 8B C2 28 32 31 32 29 B3 B1 38 38 A7 89 31 34 38 |..(212)..88..148|
00001090: 30 00 B1 2C D2 05 8F 2D 2D 2D 2D 2D 5A 45 49 4C |0..,...-----ZEIL|
000010A0: 45 20 44 45 46 49 4E 49 45 52 45 4E 2D 2D 2D 2D |E DEFINIEREN----|
000010B0: 2D 00 BA 2C DC 05 DE 35 2C 31 00 E6 2C E6 05 99 |-..,...5,1..,...|
000010C0: C7 28 31 34 37 29 3A 99 3A 99 3A 99 41 55 46 47 |.(147):.:.:.AUFG|
000010D0: 41 42 45 24 3A 99 4E 45 55 53 54 41 52 54 24 3A |ABE$:.NEUSTART$:|
000010E0: 99 C7 28 31 39 29 00 EC 2C F0 05 80 00 F6 2C FA |..(19)..,.....,.|
000010F0: 05 D7 31 33 32 30 00 35 2D 0E 06 DE 30 2C 30 3A |..1320.5-...0,0:|
00001100: 99 C7 28 31 33 29 AA 22 91 91 20 20 20 20 20 20 |..(13).".. |
00001110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001130: 20 20 91 22 3B 00 48 2D 18 06 99 22 C5 52 47 45 | .";.H-...".RGE|
00001140: 42 4E 49 53 3A 22 3B 41 00 83 2D 22 06 99 22 20 |BNIS:";A..-".." |
00001150: 12 CE 92 4F 43 48 45 49 4E 4D 41 4C 20 20 20 20 |...OCHEINMAL |
00001160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001170: 20 20 20 20 20 20 20 20 20 20 12 DA 92 55 52 BD | ...UR.|
00001180: 43 4B 22 00 8B 2D 2C 06 A1 57 24 00 9C 2D 36 06 |CK"..-,..W$..-6.|
00001190: 8B 57 24 B2 22 5A 22 A7 89 31 32 30 00 AE 2D 40 |.W$."Z"..120..-@|
000011A0: 06 8B 57 24 B2 22 4E 22 A7 89 31 36 32 30 00 B8 |..W$."N"..1620..|
000011B0: 2D 4A 06 89 31 35 38 30 00 F6 2D 54 06 99 22 91 |-J..1580..-T..".|
000011C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011D0: 22 3B C7 28 31 33 29 3B 22 91 20 20 20 20 20 20 |";.(13);". |
000011E0: 20 20 20 20 20 20 20 20 20 20 22 3B C7 28 31 33 | ";.(13|
000011F0: 29 3B 22 91 91 22 00 0E 2E 5E 06 85 22 C1 55 46 |);".."...^..".UF|
00001200: 47 41 42 45 22 3B 41 55 46 47 41 42 45 24 00 18 |GABE";AUFGABE$..|
00001210: 2E 68 06 89 31 33 39 30 00 39 2E 72 06 8F 2A 2A |.h..1390.9.r..**|
00001220: 2A 2A 2A 46 55 4E 4B 54 49 4F 4E 53 42 45 4C 45 |***FUNKTIONSBELE|
00001230: 47 55 4E 47 2A 2A 2A 2A 2A 00 50 2E 7C 06 8F 2D |GUNG*****.P.|..-|
00001240: 2D 2D 2D 2D 45 49 4E 47 41 42 45 2D 2D 2D 2D 2D |----EINGABE-----|
00001250: 00 7E 2E 86 06 99 3A 99 3A 99 22 C2 49 54 54 45 |.~....:.:.".ITTE|
00001260: 20 47 45 42 45 4E 20 D3 49 45 20 44 49 45 20 5A | GEBEN .IE DIE Z|
00001270: 55 20 42 45 52 45 43 48 4E 45 4E 44 45 22 00 A9 |U BERECHNENDE"..|
00001280: 2E 90 06 99 22 C6 55 4E 4B 54 49 4F 4E 20 49 4E |....".UNKTION IN|
00001290: 20 44 45 52 20 C6 4F 52 4D 20 59 3D 2E 2E 2E 2E | DER .ORM Y=....|
000012A0: 2E 2E 2E 20 45 49 4E 2E 22 00 BE 2E 9A 06 85 22 |... EIN."......"|
000012B0: C6 55 4E 4B 54 49 4F 4E 22 3B 46 4B 54 24 00 DC |.UNKTION";FKT$..|
000012C0: 2E A4 06 8F 2D 2D 2D 2D 2D 46 45 52 54 49 47 41 |....-----FERTIGA|
000012D0: 55 53 44 52 55 43 4B 2D 2D 2D 2D 2D 00 10 2F AE |USDRUCK-----../.|
000012E0: 06 46 4B 54 5A 45 49 4C 45 24 B2 22 31 38 35 30 |.FKTZEILE$."1850|
000012F0: 20 44 45 46 20 46 4E 20 59 28 58 29 3D 22 AA C9 | DEF FN Y(X)="..|
00001300: 28 46 4B 54 24 2C C3 28 46 4B 54 24 29 AB 32 29 |(FKT$,.(FKT$).2)|
00001310: 00 29 2F B8 06 4E 45 55 53 54 41 52 54 24 B2 22 |.)/..NEUSTART$."|
00001320: 52 55 4E 20 31 38 35 30 22 00 44 2F C2 06 8F 2D |RUN 1850".D/...-|
00001330: 2D 2D 2D 2D 32 4D 41 4C 20 52 45 54 55 52 4E 2D |----2MAL RETURN-|
00001340: 2D 2D 2D 2D 00 5C 2F CC 06 FE 0B 31 2E 35 3A 81 |----.\/....1.5:.|
00001350: 49 B2 31 A4 32 30 3A A1 41 24 3A 82 00 88 2F D6 |I.1.20:.A$:.../.|
00001360: 06 99 22 C2 49 54 54 45 20 5A 57 45 49 4D 41 4C |..".ITTE ZWEIMAL|
00001370: 20 D2 C5 D4 D5 D2 CE 2D D4 41 53 54 45 20 44 52 | ......-.ASTE DR|
00001380: BD 43 4B 45 4E 20 21 22 00 9D 2F E0 06 8B C2 28 |.CKEN !"../....(|
00001390: 32 31 32 29 B3 B1 38 38 A7 89 36 38 30 00 B1 2F |212)..88..680../|
000013A0: EA 06 8B C2 28 32 31 32 29 B3 B1 31 A7 89 36 39 |....(212)..1..69|
000013B0: 30 00 C6 2F F4 06 8B C2 28 32 31 32 29 B3 B1 38 |0../....(212)..8|
000013C0: 38 A7 89 37 30 30 00 DA 2F FE 06 8B C2 28 32 31 |8..700../....(21|
000013D0: 32 29 B3 B1 31 A7 89 37 31 30 00 EF 2F 08 07 8B |2)..1..710../...|
000013E0: C2 28 32 31 32 29 B3 B1 38 38 A7 89 37 32 30 00 |.(212)..88..720.|
000013F0: 09 30 12 07 8F 2D 2D 2D 2D 2D 44 45 46 49 4E 49 |.0...-----DEFINI|
00001400: 45 52 45 4E 2D 2D 2D 2D 2D 00 12 30 1C 07 DE 35 |EREN-----..0...5|
00001410: 2C 31 00 3F 30 26 07 99 C7 28 31 34 37 29 3A 99 |,1.?0&...(147):.|
00001420: 3A 99 3A 99 46 4B 54 5A 45 49 4C 45 24 3A 99 4E |:.:.FKTZEILE$:.N|
00001430: 45 55 53 54 41 52 54 24 3A 99 C7 28 31 39 29 00 |EUSTART$:..(19).|
00001440: 45 30 30 07 80 00 54 30 44 07 DE 30 2C 30 3A D7 |E00...T0D..0,0:.|
00001450: 31 33 32 30 00 81 30 4E 07 99 22 C7 45 42 45 4E |1320..0N..".EBEN|
00001460: 20 D3 49 45 20 44 45 4E 20 C2 45 52 45 49 43 48 | .IE DEN .EREICH|
00001470: 20 44 45 52 20 D8 2D D7 45 52 54 45 20 41 4E 2E | DER .-.ERTE AN.|
00001480: 22 00 A0 30 58 07 85 22 4B 4C 45 49 4E 53 54 45 |"..0X.."KLEINSTE|
00001490: 52 20 D8 2D D7 45 52 54 22 3B 4B 4C 45 49 4E 58 |R .-.ERT";KLEINX|
000014A0: 00 BD 30 62 07 85 22 47 52 BC BE 54 45 52 20 D8 |..0b.."GR..TER .|
000014B0: 2D D7 45 52 54 22 3B 47 52 4F 53 53 58 00 E8 30 |-.ERT";GROSSX..0|
000014C0: 6C 07 99 22 C7 45 42 45 4E 20 D3 49 45 20 44 45 |l..".EBEN .IE DE|
000014D0: 4E 20 C2 45 54 52 41 47 20 41 4E 2C 20 55 4D 20 |N .ETRAG AN, UM |
000014E0: 44 45 4E 20 44 45 52 22 00 16 31 76 07 99 22 4B |DEN DER"..1v.."K|
000014F0: 4C 45 49 4E 53 54 45 20 D8 2D D7 45 52 54 20 42 |LEINSTE .-.ERT B|
00001500: 49 53 20 5A 55 4D 20 47 52 BC BE 54 45 4E 20 D8 |IS ZUM GR..TEN .|
00001510: 2D D7 45 52 54 22 00 3D 31 80 07 85 22 49 4D 4D |-.ERT".=1..."IMM|
00001520: 45 52 20 45 52 48 BC 48 54 20 57 45 52 44 45 4E |ER ERH.HT WERDEN|
00001530: 20 53 4F 4C 4C 22 3B 42 45 54 52 41 47 00 7E 31 | SOLL";BETRAG.~1|
00001540: 8A 07 85 22 C1 55 46 20 57 49 45 56 49 45 4C 20 |...".UF WIEVIEL |
00001550: D3 54 45 4C 4C 45 4E 20 53 4F 4C 4C 45 4E 20 44 |.TELLEN SOLLEN D|
00001560: 49 45 20 DA 41 48 4C 45 4E 20 20 20 47 45 52 55 |IE .AHLEN GERU|
00001570: 4E 44 45 54 20 57 45 52 44 45 4E 22 3B 52 00 9E |NDET WERDEN";R..|
00001580: 31 94 07 8F 2A 2A 2A 2A 2A 46 55 4E 4B 54 49 4F |1...*****FUNKTIO|
00001590: 4E 53 52 45 43 48 4E 45 52 2A 2A 2A 2A 2A 00 C3 |NSRECHNER*****..|
000015A0: 31 9E 07 99 22 20 20 20 20 20 D8 2D D7 45 52 54 |1..." .-.ERT|
000015B0: 20 20 20 20 20 20 A1 20 20 20 20 20 D9 2D D7 45 | . .-.E|
000015C0: 52 54 22 00 EE 31 A8 07 99 22 A6 A6 A6 A6 A6 A6 |RT"..1..."......|
000015D0: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 AB A6 A6 A6 A6 |................|
000015E0: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 22 00 06 |............."..|
000015F0: 32 B2 07 5A B2 30 3A 8B 57 24 B2 C7 28 31 33 29 |2..Z.0:.W$..(13)|
00001600: A7 89 32 30 34 30 00 27 32 BC 07 81 4B 4C 45 49 |..2040.'2...KLEI|
00001610: 4E 58 B2 4B 4C 45 49 4E 58 A4 47 52 4F 53 53 58 |NX.KLEINX.GROSSX|
00001620: A9 42 45 54 52 41 47 00 6B 32 C6 07 58 B2 4B 4C |.BETRAG.k2..X.KL|
00001630: 45 49 4E 58 3A 59 57 45 52 54 B2 B5 28 A5 20 59 |EINX:YWERT..(. Y|
00001640: 28 58 29 AC 31 30 AE 52 AA 30 2E 35 29 AD 31 30 |(X).10.R.0.5).10|
00001650: AE 52 3A 58 57 45 52 54 B2 B5 28 58 AC 31 30 AE |.R:XWERT..(X.10.|
00001660: 52 AA 30 2E 35 29 AD 31 30 AE 52 00 90 32 D0 07 |R.0.5).10.R..2..|
00001670: 5A B2 5A AA 31 3A 99 58 57 45 52 54 3A 99 22 91 |Z.Z.1:.XWERT:.".|
00001680: 22 3B A6 31 37 29 3B 22 A1 22 3B 59 57 45 52 54 |";.17);".";YWERT|
00001690: 00 A0 32 DA 07 8B 5A B3 32 31 A7 89 32 30 34 30 |..2...Z.21..2040|
000016A0: 00 D0 32 E4 07 99 22 C6 BD 52 20 44 49 45 20 57 |..2..."..R DIE W|
000016B0: 45 49 54 45 52 45 4E 20 D8 2D D7 45 52 54 45 20 |EITEREN .-.ERTE |
000016C0: D2 C5 D4 D5 D2 CE 20 44 52 BD 43 4B 45 4E 21 22 |...... DR.CKEN!"|
000016D0: 00 EF 32 EE 07 A1 57 24 3A 8B 57 24 B3 B1 C7 28 |..2...W$:.W$...(|
000016E0: 31 33 29 A7 89 32 30 33 30 3A D5 31 39 35 30 00 |13)..2030:.1950.|
000016F0: F5 32 F8 07 82 00 15 33 02 08 99 22 DA 55 52 BD |.2.....3...".UR.|
00001700: 43 4B 20 4D 49 54 20 D2 C5 D4 D5 D2 CE 2D D4 41 |CK MIT ......-.A|
00001710: 53 54 45 21 22 00 34 33 0C 08 A1 57 24 3A 8B 57 |STE!".43...W$:.W|
00001720: 24 B3 B1 C7 28 31 33 29 A7 89 32 30 36 30 3A D5 |$...(13)..2060:.|
00001730: 89 31 32 30 00 00 00 |.120... |
..<...."BITTE AUF DIN-TASTATUR UMSCHALTE
N! (.F.ERTIG?)".P....W$:.W$.."F".20
......".. COPYRIGHT BY EKARD GRO.MANN
(25.10.1987)":..6...(..*****
*****************.M.2..** FUNKTIONSGENI
E **...<..**********************...F...
..P.. (C)10/87 BY E.GROSSMANN.&.Z.. BASI
C7.0 40Z/DIN.,.D...H.N.W1320:.G(14);G(
11):.330.E.X..*****HAUPTPROGRAMM*****...
..W1320:.&:.0,0:.". ...............
."......" .FUNKTIONSGENIE.".N...."
................"... .."MIT DIESEM
PROGRAMM K.NNEN SIE FUNKTION-".+...."EN
GRAPHISCH DARSTELLEN UND BERECHNEN".Y...
."LASSEN. BEI FALSCHER ODER FEHLERHAFTER
"......"EINGABE SPRINGT DAS PROGRAMM HIE
RHER"...H.."ZUR.CK. FOLGENDE RECHENZEICH
EN ENT-"...R.."SPRECHEN SICH: +=+ -=- :=
/ .=* HOCH=^"......G(185);"=SQR() LOG=LO
G() ..=ABS() SIN=SIN()".O...."COS=COS()
TAN=TAN() . SIE K.NNEN JETZT W.HLEN ZWI
SCHEN:".{...." .1. KOORDINATENSYSTEM NEU
ERSTELLEN"......" .2. EINE FUNKTION DEF
INIEREN UND ZEICHNEN LASSEN".
. ..." .3. EINE FUNKTION DEFINIEREN UND
BERECHNEN LASSEN".) ..." .4.
KOORDINATENSYSTEM ZEIGEN".J ..." .5. WIN
KELMA.E UMRECHNEN".^ ".." .6. RECHNER".W
,.." .7. PROGRAMMENDE".. 6..W$:.W$."1".
W$."7".310.. @..E(W$).330,550,1650,1040,
1080,1360,1300.. J..*****KOORDINATENSYST
EM*****.. T..1,1.. ^..1,2..!H..-----ACHS
ENKREUZ-----.!!R..1,160,0.160,200.6!|..1
,0,100.320,100.O!...-----EINHEITEN-----.
Y!..X.160.I!...Y.0.200.10.|!...1,X.1,Y.X
.1,Y..!...Y..!..Y.100..!B..X.0.320.10..!
L..1,X,Y.1.X,Y.1..!V..X.Q!...-----BILDPU
NKTE-----..!...Y.0.200.10..!...X.0.320.1
0.."...X.320.X.319.."...1,X,Y:.X.."...Y.
%"...0,0:.120.F"&..*****FUNKTIONSBELEGUN
G*****.]"0..-----EINGABE-----..":..:.:."
DIE BERECHNUNGSZEIT BETR.GT JE NACH".."D
.."AUFGABENL.NGE CA. 30 SEKUNDEN.".."N..
"BITTE GEBEN SIE DIE ZU ZEICHNENDE"..#X.
."FUNKTION IN DER FORM Y=....... EIN."..
#B.."FUNKTION";FKT$.9#L..-----FERTIGAUSD
RUCK-----.L#V.FKTZEILE$."770 DEF FN Y(X)
=".I(FKT$,C(FKT$).2)..#..NEUSTART$."RUN
770"..#...-----2MAL RETURN-----..#....1.
5:.I.1.20:.A$:...#..."BITTE ZWEIMAL RETU
RN-TASTE DR.CKEN !"..#...B(212)..88..680
..$...B(212)..1..690.!$...B(212)..88..70
0.5$F..B(212)..1..710.J$P..B(212)..88..7
20.D$Z..-----DEFINIEREN-----.M$...5,1..$
...G(147):.:.:.FKTZEILE$:.NEUSTART$:.G(1
9). $.....$...0,0:W1320..$..."WIEVIEL EI
NHEITEN SOLL EINE X-L.NGEN- EINHEIT LA
NG SEIN";P.5% .."WIEVIEL EINHEITEN SOLL
EINE Y-L.NGEN- EINHEIT LANG SEIN";O.T%
*..*****FUNKTIONSGRAFIK*****.U%4..-----B
ERECHNEN+PRUEFEN-----..%>..YWERT(321):.Z
(321):.%:Q.0:.X..16.P.16.1.P.0.1.P.T%H.W
1320:YWERT(Q)..(100.O.10.. Y(X)).0.5..%R
..YWERT(Q)..0.YWERT(Q)..199.L.0..&\..L.1
.890.'&F..YWERT(Q).199.YWERT(Q).199:L.1.
F&P..YWERT(Q).0.YWERT(Q).0:L.1.S&Z.Q.Q.1
:.X.C&...I.321.0..1..&...YWERT(I)..0.YWE
RT(I)..199.L.0..&...L.1.950..&...YWERT(I
).199.YWERT(I).199:L.1.U&...YWERT(I).0.Y
WERT(I).0:L.1..&...YWERT(I).199.YWERT(I)
.0.Z(I).1..'...I:.&..'J..-----ZEICHNEN--
---.$'T..1,0.5'..S.0:.I.0.320.E'...Z(I).
1.S.0.G'...Z(I).0.S.0..1,I,YWERT(I):S.1.
.'...Z(I).0.S.1...I,YWERT(I)..'...I:.0,1
:.120..'...*****SCHAUBILDZEIGER*****..'.
..:.:."ZUR.CK INS HAUPTPROGRAMM MIT RETU
RN- TASTE!(.W.EITER)"..($..W$:.W$.."W
"..1060:U.1,0.9(...W$:.W$..G(13)..1070:U
.0,0:.120.V(8..*****MASSUMRECHNER*****.P
(B..:.:."WOLLEN SIE VOM"..(L.." .1. GRAD
MA. INS BOGENMA."..(V.." .2. BOGENMA. IN
S GRADMA.".L(`.."UMGERECHNET HABEN?"..(J
..W$:.W$."1".W$."2".1130..(T..E(W$).1150
,1200..)~..-----GRADM.->BOGENM.-----.C).
.."GEBEN SIE DIE GRADZAHL EIN";GRAD.Z)..
BOGEN.GRAD.360.2...Z)...GRAD;"GRAD ENTSP
RECHEN IM"..)..."BOGENMA.";BOGEN:.1250..
)...-----BOGENM.->GRADM.-----..)..."GEBE
N SIE DAS BOGENMA. AN";BOGEN..)D.GRAD.BO
GEN.(2..).360..*N..BOGEN;"IM BOGENMA. EN
TSPRECHEN IM".>*X.."GRADMA.";GRAD;"GRAD"
:.1250.}*..." .Z.UR.CK
.N.OCHEINMAL"..*...W$..*
...W$."Z".120..*...W$."N".1080..*...1260
.L*...*****PROGRAMMENDE*****..*...:.:.G(
12);G(142):.:...*(..*****RESUME*****..+2
..ER.30.V.#+<..ER.14.ER.15.ER.20.V..,+F.
V120.C+P..*****RECHNER*****.Q+Z..:.:."BI
TTE GEBEN SIE DIE ZU BERECHNENDE"..+D.."
AUFGABE EIN";AUFGABE$..+N.AUFGABE$."1540
A=".AUFGABE$.F+X.NEUSTART$."RUN 1530"..
+...-----2MAL RETURN-----..+....1.5:.I.1
.20:.W$:..%,..."BITTE ZWEIMAL RETURN-TAS
TE DR.CKEN !".;, ..B(212)..88..1440.P,..
.B(212)..1..1450.F,...B(212)..88..1460.{
,...B(212)..1..1470..,H..B(212)..88..148
0..,R..-----ZEILE DEFINIEREN-----..,...5
,1..,...G(147):.:.:.AUFGABE$:.NEUSTART$:
.G(19)..,.....,..W1320.5-...0,0:.G(13)."
..
.";.H-..."ERGEBNIS:";A..-".." .N.OCHEI
NMAL .Z.UR.
CK"..-,..W$..-6..W$."Z"..120..-@..W$."N"
..1620..-J..1580..-T..".
";G(13);". ";G(13);".."..
.^.."AUFGABE";AUFGABE$...H..1390.9.R..**
***FUNKTIONSBELEGUNG*****.P.|..-----EING
ABE-----.~....:.:."BITTE GEBEN SIE DIE Z
U BERECHNENDE"......"FUNKTION IN DER FOR
M Y=....... EIN."......"FUNKTION";FKT$..
....-----FERTIGAUSDRUCK-----../..FKTZEIL
E$."1850 DEF FN Y(X)=".I(FKT$,C(FKT$).2)
.)/..NEUSTART$."RUN 1850".D/B..-----2MAL
RETURN-----.\/L...1.5:.I.1.20:.A$:.../V
.."BITTE ZWEIMAL RETURN-TASTE DR.CKEN !"
../...B(212)..88..680../...B(212)..1..69
0.F/...B(212)..88..700.Z/...B(212)..1..7
10../...B(212)..88..720..0...-----DEFINI
EREN-----..0...5,1.?0&..G(147):.:.:.FKTZ
EILE$:.NEUSTART$:.G(19).E00...T0D..0,0:W
1320..0N.."GEBEN SIE DEN BEREICH DER X-W
ERTE AN.". 0X.."KLEINSTER X-WERT";KLEINX
..0B.."GR..TER X-WERT";GROSSX..0L.."GEBE
N SIE DEN BETRAG AN, UM DEN DER"..1V.."K
LEINSTE X-WERT BIS ZUM GR..TEN X-WERT".=
1..."IMMER ERH.HT WERDEN SOLL";BETRAG.~1
..."AUF WIEVIEL STELLEN SOLLEN DIE ZAHLE
N GERUNDET WERDEN";R..1...*****FUNKTIO
NSRECHNER*****.C1..." X-WERT .
Y-WERT"..1..."......................
............."..2..Z.0:.W$.G(13)..2040.'
2...KLEINX.KLEINX.GROSSX.BETRAG.K2F.X.KL
EINX:YWERT..(. Y(X).10.R.0.5).10.R:XWERT
..(X.10.R.0.5).10.R..2P.Z.Z.1:.XWERT:.".
";.17);".";YWERT. 2Z..Z.21..2040.P2..."F
.R DIE WEITEREN X-WERTE RETURN DR.CKEN!"
..2...W$:.W$..G(13)..2030:U1950..2.....3
..."ZUR.CK MIT RETURN-TASTE!".43...W$:.W
$..G(13)..2060:U.120...
> CLICK IMAGE PREVIEW FOR FULL MODAL