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 ** STRINGS  ***
110 :
120 DIMF$(62)
130 F$(1)="[197]IN [198]EHLER BEI DEN RUNDEN[146] [203]LAMMERN!"
140 F$(2)="[197]IN [198]EHLER BEI DEN ECKIGEN[146] [203]LAMMERN!"
150 F$(3)="[197]IN [198]EHLER IN DER [208]OTENZSCHREIBWEISE![146]"
160 F$(4)="[201]CH FAND EIN UNUEBERSETZBARES[146] [218]EICHEN!"
170 F$(5)="[218]EHNERLOGARITHMUS[146] MUSS DURCH (LNX/LN10) DARGESTELLT WERDEN!"
180 F$(6)="[198]EHLER DURCH FALSCHE [211]CHREIBWEISE![146]"
190 F$(7)="[210]ECHENVORSCHRIFT[146] NICHT EINDEUTIG!"
200 F$(8)="[197]INE [198]UNKTION BRAUCHT EIN [193]RGUMENT![146]"
210 F$(9)="[196]IE [198]UNKTIONSVORSCHRIFT IST ZU LANG![146]"
220 F$(10)="[210]ECHENVORSCHRIFT[146] NICHT EINDEUTIG!"
230 F$(11)="[197]IN [198]EHLER IN DEN [194]ETRAGSSTRICHEN![146]"
240 F$(12)="[194]ITTE KLAMMERE[146] [218]AEHLER UND [206]ENNER EIN![146]"
250 F$(13)="[211]YNTAXFEHLER[146] ALLGEMEINER [193]RT!"
260 F$(14)="[196]IE [214]ARIABLE 'X'[146] FEHLT!"
270 F$(15)="[197]IN [212]ASTENDRUCK[146] BITTE..."
280 F$(16)="[147][196]EF'LUECKENSUCHE..."
290 F$(17)="[201]CH PRUEFE DEN [206]ENNER..."
300 F$(18)="[201]CH SUCHE [198]UNKTIONSBEDINGTE [204]UECKEN..."
310 F$(19)="[201]CH SUCHE [208]OTENZBEDINGTE [204]UECKEN..."
320 F$(20)="[201]CH KLAERE DIE [194]EREICHE AB..."
330 F$(21)="[201]CH VEREINFACHE DIE [215]ERTE..."
340 F$(22)="[147][206]ULLSTELLENSUCHE..."
350 F$(23)="[147]  [194]ITTE GEBEN [211]IE DIE [198]UNKTION EIN:"+CHR$(141)
360 F$(23)=F$(23)+"([200][146] FUER [200]ILFE)"
370 F$(24)=" [198]UNKTION BERECHNEN?"
380 F$(25)="[211]YNTAX [201]      "
390 F$(26)="[145][211]YNTAX [201][201]     "
400 F$(27)="[145][208]OTENZEN      "
410 F$(28)="[145][205]ALZEICHEN    "
420 F$(29)="[145][203]LAMMERN [201]    "
430 F$(30)="[145][203]LAMMERN [201][201]   "
440 F$(31)="[145][203]LAMMERN [201][201][201]  "
450 F$(32)="[145][204]OG,[204]N,E      "
460 F$(33)="[145][203]LAMMERN [201][214]   "
470 F$(34)="[145][212]OKENS        "
480 F$(35)="[145]'[208][201]'          "
490 F$(36)="[145][194]ETRAEGE      "
500 F$(37)="[145][212]ANGENS       "
510 F$(38)="[145] [193]LLES KLAR? [196]RUCKER EINGESCHALTET?"
520 F$(39)="[147] [194]ITTE HABEN [211]IE 9 [205]INUTEN [199]EDULD..."
530 F$(40)="[147] [215]AS SOLL GESCHEHEN?"
540 F$(41)=" [197]INE NEUE [198]UNKTION  ----[198]1[146]"
550 F$(42)=" [199]RAPHIK ANSEHEN     ----[198]3[146]"
560 F$(43)=" [199]RAPHIK DRUCKEN     ----[198]5[146]"
570 F$(44)=" [198]EHLENDES BERECHNEN ----[198]7[146]"
580 F$(45)=" [206]EUES [201]NTERVALL     ----[198]2[146]"
590 F$(46)=" [208]ROGRAMM VERLASSEN  ----[198]8[146]"
600 F$(47)="[145][193]LLES KLAR!   "
610 F$(48)=" [206]EIN  ([218]URUECK)  --[198]1[146]"
620 F$(49)=" [202]A    ([215]EITER )  --[198]7[146]"
630 F$(50)=" [215]ELCHES [201]NTERVALL?"
640 F$(51)=" [- 4; 4]   ---[198]1[146]"
650 F$(52)=" [- 8; 8]   ---[198]3[146]"
660 F$(53)=" [-16;16]   ---[198]5[146]"
670 F$(54)=" [-32;32]   ---[198]7[146]"
680 F$(55)=" [198]UNKTION ZEICHNEN?"
690 F$(56)=" [196]EF'LUECKEN BERECHNEN?"
700 F$(57)=" [206]ULLSTELLEN BERECHNEN?"
710 F$(58)=" [197]XTREMWERTE BERECHNEN?"
720 F$(59)="[147][197]XTREMWERTSUCHE..."
730 F$(60)=" [201]ST DAS [201]NTERVALL GUT GEWAEHLT?"
740 F$(61)="[201]CH PRUEFE DIE [199]UELTIGKEIT..."
750 F$(62)="[145]                                       [145][145]"
760 OPEN15,8,15,"S:STRINGS":CLOSE15:OPEN1,8,1,"STRINGS"
770 FORF=1TO 62:PRINT#1,CHR$(34)+F$(F)+CHR$(34):NEXT
780 CLOSE1
790 :
800 END
810 :
10000 OPEN15,8,15,"S:SMACHER":CLOSE15:SAVE"SMACHER",8:VERIFY"SMACHER",8