10 REM ********************************
20 REM * FUNKTIONENHILFE FUER DEN C64 *
30 REM * MICHAEL SUHR                 *
40 REM * 5160 DUEREN WERNERSTR. 10    *
50 REM * TEL: 02421/14666             *
70 REM ********************************
80 :
100 REM ** HILFESTELLUNG ***
110 :
120 DIMF$(90):P$=CHR$(13):S$=CHR$(34)
130 :
140 OPEN 15,8,15,"S:0HILFE":CLOSE15
150 OPEN1,8,1,"0HILFE"
160 F$(1)="[147][193]LLGEMEINE [200]INWEISE!"
170 F$(2)="([214]ERLASSEN MIT '_')"
180 F$(3)="[199]ANZ RATIONALE [198]KT. KOENNEN WIE AUF"
190 F$(4)="DEM [208]APIER GESCHRIEBEN EINGEGEBEN"
200 F$(5)="WERDEN.[194]ITTE KLAMMERN [211]IE BEI GEBROCHEN"
210 F$(6)="RATIONALEN [198]KT. [218]AEHLER UND [206]ENNER EIN."
220 F$(7)="[197]RLAUBT SIND Z.[194]. 1/X ; X/4 ; X[145]1/4,"
230 F$(8)="ALSO [193]USDRUECKE, DIE EINDEUTIGE [218]AEHLER UND [206]ENNER HABEN."
240 F$(9)="[193]CHTEN [211]IE AUF [197]INDEUTIGKEIT! [211]O WIRD"
250 F$(10)="Z.[194]. SIN2X ALS (SIN2)*X INTERPRETIERT!"
260 F$(11)="[193]LSO -> [201]M [218]WEIFELSFALLE EINKLAMMERN!"
270 F$(12)="[214]OM [208]ROGRAMM ERKANNTE [198]UNKTIONEN:"
280 F$(13)="SIN -> SINX ;SIN(X-2); (SIN(X-E))[145]2"
290 F$(14)="COS -> WIE SIN"
300 F$(15)="TAN -> WIE SIN"
310 F$(16)="SGN -> WIE SIN"
320 F$(17)="WARTE"
330 F$(18)="[147]SQR -> SQR(2X) ; [186](SINX) ; [186](2PI-X) ;    AUCH >[211]CHIFT;@< ([186][146])"
340 F$(19)="ABS -> ABS(X-3) ;[221]SINX[221] ; [221]X[221]-[221]TANX[221] ;   AUCH >[211]CHIFT;B< ([221][146])"
350 F$(20)="LN  -> WIE SIN; [204]OGARITHMUS ZUR [194]ASIS E[146]"
360 F$(21)="EXP(X)[146] WIRD NICHT ERKANNT, => E[145]X!"
370 F$(22)="[214]OM [208]ROGRAMM ERKANNTE [218]EICHEN:"
380 F$(23)="[186]    -> WIE SQR"
390 F$(24)="[221]    -> WIE ABS"
400 F$(25)="E    -> [197]ULERISCHE [218]AHL"
410 F$(26)="PI   -> 3.14159...."
420 F$(27)="A..Z -> WERDEN ALS [198]UNKTION BETRACHTET"
430 F$(28)="X    -> [204]AUFVARIABLE"
440 F$(29)="[];()-> [203]LAMMERN, VOM [208]ROGRAMM GLEICHGE-        STELLT!"
450 F$(30)="[193]LLE [218]AHLEN UND [210]ECHENZEICHEN."
460 F$(31)="WARTE"
470 F$(32)="[147][194]EISPIELE:"
480 F$(33)="[198]ALSCH ...............[210]ICHTIG"
490 F$(34)="X9....................9X"
500 F$(35)="[186]SINX.................[186](SINX)
510 F$(36)[178]"X+3/X-4...............[X+3]/[X-4]
520 F$(37)="1/COSX................1/(COSX)"
530 F$(38)="LOGX ([218]EHNERLOG.).....LNX/(LN10)"
540 F$(39)="E+[186]2 ('X' FEHLT!).....E+[186](2X)"
550 F$(40)="(2-X)LNX..............(2-X)*LNX"
560 F$(41)="[145]3[186]X...................X[145]1/3"
570 F$(42)="WARTE"
580 F$(43)="[147][196]AS [199]LEICHHEITSZEICHEN '=' WIRD NICHT"
590 F$(44)="AKZEPTIERT. [213]M [199]LEICHUNGEN ZU LOESEN"
600 F$(45)="GEBEN [211]IE ANSTELLE DES [199]LEICHHEITS-"
610 F$(46)="ZEICHEN EIN [205]INUSZEICHEN '-' EIN."
620 F$(47)="[193]N DEN [211]TELLEN AN DENEN DIESE [198]UNKTION"
630 F$(48)="IHRE [206]ULLSTELLEN HAT, IST DIE [199]LEICHUNG"
640 F$(49)="ERFUELLT!"
650 F$(50)="WARTE"
660 F$(51)="[147][194]ESONDERHEITEN DES [208]ROGRAMMS:"
670 F$(52)="[196]IE [210]ECHENGENAUIGKEIT BETRAEGT 4 [206]ACH-"
680 F$(53)="KOMMASTELLEN (GERUNDET), BEI [193]USGABEN"
690 F$(54)="WIE [186]2; 2PI/2;... ALLERDINGS NUR 3!"
700 F$(55)="[193]UFLOESUNG:"
710 F$(56)="[196]EF'LUECKEN:   41/100"
720 F$(57)="[206]ULLSTELLEN:   41/100"
730 F$(58)="[197]XTREMWERTE:   21/100"
740 F$(59)="[193]USSCHLUESSE:"
750 F$(60)="[194]ETRAGSFUNKTIONEN KOENNEN NUR GEZEICHNETWERDEN."
760 F$(61)="[198]UNKTIONEN WIE [186](X[145]2) ODER (X[145]3)[145]1/3,"
770 F$(62)="ALSO ALLE [208]OTENZFUNKTIONEN, DIE LETZT-"
780 F$(63)="ENDLICH 'X' ALLEINE DARSTELLEN, WERDEN"
790 F$(64)="FEHLERHAFT BERECHNET."
800 F$(65)="WARTE"
810 F$(66)="[147][194]ESONDERHEITEN ZUR [194]ERECHNUNG DER [196]EF'-"
820 F$(67)="LUECKEN:"
830 F$(68)="[215]ENN [211]IE TANX ALS [198]KT. EINGABEN UND DIE"
840 F$(69)="[205]ELDUNG '[208]RUEFE [206]ENNER...' ERSCHEINT,"
850 F$(70)="LIEGT DAS AN DER [212]ATSACHE, DASS DAS"
860 F$(71)="[208]ROGRAMM TANX ALS SINX/COSX ANSIEHT."
870 F$(72)="WARTE"
880 F$(73)="[147][194]ESONDERHEITEN ZUR [194]ERECHNUNG DER [206]ULL-"
890 F$(74)="STELLEN:"
900 F$(75)="[196]AS [208]ROGRAMM ZERLEGT DIE [198]KT. IN EIN-"
910 F$(76)="ZELNE [212]ERME UND PRUEFT DIESE GESONDERT"
920 F$(77)="AUF [206]ULLSTELLEN. [196]ESHALB WIRD DAS"
930 F$(78)="[201]NTERVALL OEFTERS DURCHLAUFEN ([205]IN.=2)."
940 F$(79)="WARTE"
950 F$(80)="[147][194]ESONDERHEITEN ZUR [194]ERECHNUNG DER [197]X-"
960 F$(81)="TREMWERTE:"
970 F$(82)="[196]IESER [212]EIL IST IN JEDER [194]EZIEHUNG"
980 F$(83)="DER [210]ECHENZEITAUFWENDIGSTE."
990 F$(84)="[196]AS [208]ROGRAMM ERRECHNET DIE [211]TEIGUNG DER"
1000 F$(85)="[198]KT. IN JEDEM ZU PRUEFENDEN [208]UNKT UND"
1010 F$(86)="NIMMT DIESEN ALS [198]UNKTIONSWERT FUER DIE"
1020 F$(87)="[206]ULLSTELLENSUCHE. [214]IEL [193]RBEIT..."
1030 GOSUB2380
1040 CLOSE1
1050 :
1060 OPEN15,8,15,"S:1HILFE":CLOSE15
1070 OPEN1,8,1,"1HILFE"
1080 F$(1)="[196]IE [211]UMME DER RUNDEN [203]LAMMERN IST"
1090 F$(2)="UNGERADE. [213]M DEN [213]EBERBLICK ZU BEHALTEN"
1100 F$(3)="EMPFEHLE ICH [201]HNEN, DIE RUNDEN [203]LAMMERN"
1110 F$(4)="NACH INNEN ZU SETZEN, Z.[194].:"
1120 F$(4)="[COS([146]X[145]SIN[X-TAN([146]X-1)[146]])[146]]/[X]"
1130 GOSUB2380
1140 CLOSE1
1150 :
1160 OPEN15,8,15,"S:2HILFE":CLOSE15
1170 OPEN1,8,1,"2HILFE"
1180 F$(1)="[196]IE [211]UMME DER ECKIGEN [203]LAMMERN IST"
1190 F$(2)="UNGERADE. [213]M DEN [213]EBERBLICK ZU BEHALTEN"
1200 F$(3)="EMPFEHLE ICH [201]HNEN,DIE ECKIGEN [203]LAMMERN"
1210 F$(4)="NACH AUSSEN ZU SETZEN, Z.[194].:"
1220 F$(5)="[[146]COS(X[145]SIN[[146]X-TAN(X-1)][146])][146]/[[146]X][146]"
1230 GOSUB2380
1240 CLOSE1
1250 :
1260 OPEN15,8,15,"S:3HILFE":CLOSE15
1270 OPEN1,8,1,"3HILFE"
1280 F$(1)="[196]IESE [198]EHLERMELDUNG ERSCHEINT IMMER"
1290 F$(2)="DANN, WENN NACH EINER [198]UNKTION EIN"
1300 F$(3)="[208]OTENZZEICHEN 'STEHT'. [193]LSO AUCH BEI"
1310 F$(4)="FOLGENDEN [198]UNKTIONEN:"
1320 F$(5)="[186][145]2X; TAN[145]2(X-E);"
1330 GOSUB2380
1340 CLOSE1
1350 :
1360 OPEN15,8,15,"S:4HILFE":CLOSE15
1370 OPEN1,8,1,"4HILFE"
1380 F$(1)="[196]IESE [198]EHLERMELDUNG ERSCHEINT IMMER"
1390 F$(2)="DANN, WENN EIN [218]EICHEN KEINER [193]N-"
1400 F$(3)="WEISUNG ZUGEORDNET WERDEN KANN."
1410 F$(4)="Z.[194].:"
1420 F$(5)="LNL[146]X; TAN(X-K[146]); [221]X-SQC[146]X[221]"
1430 GOSUB2380
1440 CLOSE1
1450 :
1460 OPEN15,8,15,"S:5HILFE":CLOSE15
1470 OPEN1,8,1,"5HILFE"
1480 F$(1)="[194]EACHTEN [211]IE, DASS DAS [208]ROGRAMM NUR"
1490 F$(2)="NATUERLICHE [204]OGARITHMEN, ALSO DIE"
1500 F$(3)="ZUR [194]ASIS E[146] BERECHNEN KANN."
1510 F$(4)="[211]IE KOENNEN SICH ABER JEDEN BELIEBIGEN"
1520 F$(5)="DURCH DIE [196]ARSTELLUNG:"
1530 F$(6)="(LNX)/[LN(BELIEBIGER [194]ASIS)]"
1540 F$(7)="ERRECHNEN LASSEN."
1550 GOSUB2380
1560 CLOSE1
1570 :
1580 OPEN15,8,15,"S:6HILFE":CLOSE15
1590 OPEN1,8,1,"6HILFE"
1600 F$(1)="[194]EACHTEN [211]IE, DASS NUMERISCHE [198]AKTOREN"
1610 F$(2)="VOR DER [214]ARIABLE STEHEN, ODER DASS"
1620 F$(3)="DIE ECKIGEN [203]LAMMERN DURCH EIN [210]ECHEN-"
1630 F$(4)="ZEICHEN GETRENNT SIND."
1640 F$(5)="[218].[194].: X9->9X; [X-1][X+3]->[X-1]*[X+3]"
1650 GOSUB2380
1660 CLOSE1
1670 :
1680 OPEN15,8,15,"S:7HILFE":CLOSE15
1690 OPEN1,8,1,"7HILFE"
1700 F$(1)="[196]AS [208]ROGRAMM VERMISST NACH EINEM 'X'"
1710 F$(2)="DIE [210]ECHENVORSCHRIFT, B.Z.W. KANN SIE"
1720 F$(3)="NICHT SELBER ZUWEISEN."
1730 F$(4)="[218].[194].: X?[146]SINX; X?[146][186]X; 2X?[146][221]SINX[221]"
1740 GOSUB2380
1750 CLOSE1
1760 :
1770 OPEN15,8,15,"S:8HILFE":CLOSE15
1780 OPEN1,8,1,"8HILFE"
1790 F$(1)="[196]AS [208]ROGRAMM VERMISST NACH EINER"
1800 F$(2)="[198]UNKTION DAS [193]RGUMENT ODER KANN ES"
1810 F$(3)="WEGEN FEHLENDER [203]LAMMER NICHT DEUTEN."
1820 F$(4)="Z.[194].: SIN?[146]; X(TAN?[146]); [186]SINX[146]"
1830 GOSUB2380
1840 CLOSE1
1850 :
1860 OPEN15,8,15,"S:9HILFE":CLOSE15
1870 OPEN1,8,1,"9HILFE"
1880 F$(1)="[196]AS [208]ROGRAMM WANDELT DIE [198]UNKTION"
1890 F$(2)="IN EIN FUER DEN [201]NTERPRETER GUELTIGES"
1900 F$(3)="[198]ORMAT. [196]ABEI IST ES MOEGLICH DASS DIE"
1910 F$(4)="ENDGUELTIGE [198]ASSUNG [201]HRER [198]UNKTION ZU"
1920 F$(5)="LANG WIRD. [214]ERSUCHEN [211]IE DIE [198]UNKTION"
1930 F$(6)="ZU KUERZEN!"
1940 GOSUB2380
1950 CLOSE1
1960 :
1970 OPEN15,8,15,"S:10HILFE":CLOSE15
1980 OPEN1,8,1,"10HILFE"
1990 F$(1)="[196]AS [208]ROGRAMM VERMISST NACH EINER"
2000 F$(2)="[203]LAMMER DIE [210]ECHENVORSCHRIFT, B.Z.W."
2010 F$(3)="KANN SIE NICHT SELBER ZUWEISEN."
2020 F$(4)="[218].[194].: (2-X)?[146]LNX; (X-SINX)?[146]E; (E-X)?[146]COSX"
2030 GOSUB2380
2040 CLOSE1
2050 :
2060 OPEN15,8,15,"S:11HILFE":CLOSE15
2070 OPEN1,8,1,"11HILFE"
2080 F$(1)="[196]AS [208]ROGRAMM FAND EINE UNGUELTIGE"
2090 F$(2)="[218]UWEISUNG VON [194]ETRAEGEN, Z.[194].:"
2100 F$(3)="[221][221][146]SIN[221][146]X[221][146]; [221][146]X; [TAN[221][146]X]/[X][221][146]"
2110 GOSUB2380
2120 CLOSE1
2130 :
2140 OPEN15,8,15,"S:12HILFE":CLOSE15
2150 OPEN1,8,1,"12HILFE"
2160 F$(1)="[202]A, TUEN [211]IE DAS DOCH!"
2170 GOSUB2380
2180 CLOSE1
2190 :
2200 OPEN15,8,15,"S:13HILFE":CLOSE15
2210 OPEN1,8,1,"13HILFE"
2220 F$(1)="[197]IN NICHT DEFINIERTER [198]EHLER WURDE GE-"
2230 F$(2)="FUNDEN. [194]EISPIELE:"
2240 F$(3)="X()[146]; [221][221][146]X; X**[146]SINX..."
2250 F$(4)="[197]INS STEHT FEST: [197]S HANDELT SICH UM"
2260 F$(5)="EINEN SEHR GROBEN [198]EHLER!!"
2270 GOSUB2380
2280 CLOSE1
2290 :
2300 OPEN15,8,15,"S:14HILFE":CLOSE15
2310 OPEN1,8,1,"14HILFE"
2320 F$(1)="[203]EIN 'X', KEINE [198]UNKTION..."
2330 GOSUB2380
2340 CLOSE1
2350 :
2360 END
2370 :
2380 REM ** STRINGS SCHREIBEN ***
2390 F=1
2400 PRINT#1,S$+F$(F)+S$:F$(F)=""
2410 F=F+1
2420 IFF$(F)<>""THEN2400
2430 PRINT#1," [197]NDE DER [200]ILFESTELLUNG!"
2440 PRINT#1,"WARTE"
2450 RETURN
2460 :
10000 OPEN15,8,15,"S:HMACHER":CLOSE15:SAVE"HMACHER",8:VERIFY"HMACHER",8