calculator.label:
PRINT cls$
PRINT line$
PRINT tab(12);"M I N I C A L C  -  Taschenrechnerprogramm f}r JOYCE PCW"
PRINT line$
PRINT
calc.help:
PRINT TAB(25);"B E D I E N U N G S A N L E I T U N G"
PRINT TAB(25);STRING$(37,"=") : PRINT
PRINT "Das Programm MINICALC ist vergleichbar mit einem einfachen Taschenrechner."
PRINT : PRINT "Es stehen Ihnen folgende Optionen zur Verfuegung:" : PRINT
PRINT TAB(15);"< H > ... HELP : ruft den Text auf, den Sie momentan lesen."
PRINT TAB(15);"< M > ... MENU : beendet MINICALC und geht zur}ck zum MENU."
PRINT TAB(15);"< W > ... WURZEL : berechnet die Quadratwurzel der vorangegangenen Zahl."
PRINT TAB(15);"< % > ... PROZENT : berechnet x Prozent der vorangegangenen Zahl, wobei"\
    : PRINT TAB(25);"der Wert fuer x nach % eingegeben wird."
PRINT TAB(15);"< + > ... PLUS : addiert 2 Zahlen"
PRINT TAB(15);"< - > ... MINUS: subtrahiert 2 Zahlen"
PRINT TAB(15);"< : > ... DIVIDIERT die vorangegangene Zahl durch die folgende."
PRINT TAB(15);"< * > ... MULTIPLIZIERT 2 Zahlen."
PRINT TAB(15);"<   > ... wird ab der 2.Rechnung eine >0< fuer die 1.Zahl eingegeben," \
    : PRINT TAB(25);"so wird das Ergebnis der "
PRINT TAB(25);"vorangegangenen Rechnung als 1.Zahl weiterverrechnet."
PRINT TAB(15);"< ^ > ... EXPONENT : die folgende Zahl ist der Exponent der 1.Zahl."
CALL weiter.zum.menu:
PRINT cls$
REM Rechenteil MINICALC
durchgang=0
calc.onwork:
PRINT in$;"1.ZAHL       :     ";ni$;:INPUT "     ";line z1s$
IF z1s$="m" or z1s$="M" then goto calc.exit:
IF z1s$="h" or z1s$="H" then goto calc.help:
IF z1s$="" THEN z1=s ELSE z1=VAL(z1s$)
c380: PRINT in$;"+ - : * ^ W % H M  ";ni$;:INPUT "     ";o$
 IF o$="+" THEN GOTO c500:
 IF o$="-" THEN GOTO c500:
 IF o$=":" THEN GOTO c500:
 IF o$="*" THEN GOTO c500:
 IF o$="^" THEN GOTO c500:
 IF o$="%" THEN GOTO c500:
 IF o$="h" OR o$="H" THEN GOTO calc.help:
 IF o$="m" OR o$="M" THEN GOTO calc.exit:
 IF o$="W" OR o$="w" THEN GOTO c670:
 PRINT : PRINT bel$;uzu$
 PRINT : GOTO c380:
c500: PRINT in$;"2.ZAHL       :     ";ni$;:INPUT "     ";z2
 PRINT :
 IF o$="%" THEN GOTO c660:
 PRINT TAB(25);z1;o$;z2;" = ";
 IF o$="+" THEN GOTO c610:
 IF o$="-" THEN GOTO c620:
 IF o$=":" THEN GOTO c630:
 IF o$="*" THEN GOTO c640:
 IF o$="^" THEN GOTO c650:
 IF o$="w" THEN GOTO c670:
 IF o$="W" THEN GOTO c670:
c610: s=z1+z2 : GOTO c680:
c620: s=z1-z2 : GOTO c680:
c630: s=z1/z2 : GOTO c680:
c640: s=z1*z2 : GOTO c680:
c650: s=z1^z2 : GOTO c680:
c660: s=(z1/100)*z2 : PRINT TAB(25);z2;" % von ";z1;" = "; : GOTO c680:
c670: PRINT TAB(25);"Quadratwurzel aus";z1;" = ";: s=SQR(z1) : GOTO c680:
c680: if INT%(s)=s then print using "###,###,###,###,###";s ELSE \
      PRINT USING "###,###,###,###,###,.########";s
 PRINT
 durchgang=durchgang+1
 PRINT STRING$(90,CHR$(154)):PRINT
 GOTO calc.onwork:
calc.exit:
goto menu:
,.########";s
 PRINT
 durchgang=durchgang+1
 PRINT STRING$(90,CHR$(154)):PRINT