home *** CD-ROM | disk | FTP | other *** search
/ M.u.C.S. Disc 2000 / MUCS2000.iso / sigisoft / bk_reche / rech127.lst < prev    next >
File List  |  1987-04-21  |  79KB  |  3,055 lines
  1. ON ERROR GOSUB fehler
  2. IF XBIOS(4)=0
  3.   ALERT 3,"(c) 1990 by Siegfried Hübner|         Public Domain Version|>>>>> Bitte auf mittlere <<<<<|~~~~~ Auflösung umschalten ~~~~~",1,">> OK <<",d%
  4.   END
  5. ENDIF
  6. HIDEM
  7. VOID XBIOS(33,4)
  8. @zusamm
  9. PROCEDURE korbi
  10.   PRINT AT(10,8);"Anzahl der Registertonnen"
  11.   PRINT AT(10,10);"Anzahl der Kubikmeter"
  12.   PRINT AT(10,12);"Anzahl der Kubikdezimeter"
  13.   PRINT AT(10,14);"Anzahl der Kubikzentimeter"
  14.   PRINT AT(10,16);"Anzahl der Kubikmillimeter"
  15. RETURN
  16. PROCEDURE andreas
  17.   PRINT AT(10,8);"Anzahl der Gramm"
  18.   PRINT AT(10,10);"Anzahl der Pfund"
  19.   PRINT AT(10,12);"Anzahl der Unze"
  20.   PRINT AT(10,14);"Anzahl der Karat"
  21. RETURN
  22. PROCEDURE ggw
  23.   PRINT AT(10,8);"Anzahl der Tonnen"
  24.   PRINT AT(10,10);"Anzahl der Dezitonnen"
  25.   PRINT AT(10,12);"Anzahl der Zentner"
  26.   PRINT AT(10,14);"Anzahl der Kilogramm"
  27.   PRINT AT(10,16);"Anzahl der Pfund"
  28.   PRINT AT(10,18);"Anzahl der Gramm"
  29. RETURN
  30. PROCEDURE ling
  31.   PRINT AT(10,8);"Anzahl der Kilometer"
  32.   PRINT AT(10,10);"Anzahl der Meter"
  33.   PRINT AT(10,12);"Anzahl der Dezimeter"
  34.   PRINT AT(10,14);"Anzahl der Zentimeter"
  35.   PRINT AT(10,16);"Anzahl der Millimeter"
  36. RETURN
  37. PROCEDURE engli
  38.   PRINT AT(10,8);"Anzahl der Yards"
  39.   PRINT AT(10,10);"Anzahl der Fu₧"
  40.   PRINT AT(10,12);"Anzahl der Zoll (inches)"
  41.   PRINT AT(10,14);"Anzahl der Zentimeter"
  42. RETURN
  43. PROCEDURE zeiti
  44.   PRINT AT(10,8);"Anzahl der Tage"
  45.   PRINT AT(10,10);"Anzahl der Stunden"
  46.   PRINT AT(10,12);"Anzahl der Minuten"
  47.   PRINT AT(10,14);"Anzahl der Sekunden"
  48. RETURN
  49. PROCEDURE zaelmi
  50.   PRINT AT(10,8);"Anzahl der Gros"
  51.   PRINT AT(10,10);"Anzahl der Schocks"
  52.   PRINT AT(10,12);"Anzahl der Dutzend"
  53.   PRINT AT(10,14);"Anzahl der Stück"
  54. RETURN
  55. PROCEDURE qua
  56.   PRINT AT(10,8);"Anzahl der Long tons"
  57.   PRINT AT(10,10);"Anzahl der Hundredweights"
  58.   PRINT AT(10,12);"Anzahl der Quaters"
  59.   PRINT AT(10,14);"Anzahl der Pounds"
  60.   PRINT AT(10,16);"Anzahl der Ounces"
  61.   PRINT AT(10,18);"Anzahl der Kilogramm"
  62. RETURN
  63. PROCEDURE kergi(b1,b2)
  64.   PRINT AT(b1,b2);
  65.   PRINT USING "###############.###",m
  66. RETURN
  67. PROCEDURE voc
  68.   GOSUB ergi(41,14)
  69.   GOSUB com
  70. RETURN
  71. PROCEDURE kok
  72.   GOSUB ergi(41,12)
  73.   GOSUB com
  74. RETURN
  75. PROCEDURE wandel
  76.   LET m=VAL(m$)
  77.   GOSUB com
  78. RETURN
  79. PROCEDURE som
  80.   PRINT USING "###############.###",m
  81.   GOSUB com
  82. RETURN
  83. PROCEDURE sam
  84.   PRINT USING "###############.###",er
  85.   GOSUB com
  86. RETURN
  87. PROCEDURE ergebnis
  88.   PRINT AT(41,10);
  89.   PRINT USING "###############.###",z2
  90. RETURN
  91. PROCEDURE turbo
  92.   GOSUB 2zahl
  93.   GOSUB ergebnis
  94. RETURN
  95. PROCEDURE ergi(a1,a2)
  96.   PRINT AT(a1,a2);
  97.   PRINT USING "###############.###",er
  98. RETURN
  99. PROCEDURE zusamm
  100.   GOSUB titel
  101.   GOSUB auswahl
  102.   GOSUB taste
  103.   GOSUB wahl
  104. RETURN
  105. PROCEDURE com
  106.   GOSUB weiter
  107.   GOSUB zusamm
  108. RETURN
  109. PROCEDURE zom
  110.   GOSUB ergi(41,14)
  111.   GOSUB com
  112. RETURN
  113. PROCEDURE titel
  114.   CLS
  115.   PRINT AT(3,1);"------- ╜ 1990 by Siegfried Hübner, Obere Vorstadt 21, 8812 Windsbach ------"
  116.   GOSUB rev_on
  117.   PRINT AT(3,2);STRING$(7,42);" Wirtschaftsrechnen für Bürokaufleute ";STRING$(6,42);" PD-Version  0.127 ";STRING$(6,42)
  118.   GOSUB rev_of
  119. RETURN
  120. PROCEDURE auswahl
  121.   PRINT AT(5,4);"G = Grundrechenarten"
  122.   PRINT AT(5,6);"Z = Zeiteinheiten"
  123.   PRINT AT(5,8);"M = Zählma₧e"
  124.   PRINT AT(5,10);"E = Englische Längenma₧e"
  125.   PRINT AT(5,12);"N = Englische Gewichtseinheiten"
  126.   PRINT AT(5,14);"L = Längenma₧e"
  127.   PRINT AT(5,16);"W = Gewichte"
  128.   PRINT AT(5,18);"K = Körperma₧e"
  129.   PRINT AT(5,20);"B = Mathematische Befehle"
  130.   PRINT AT(5,22);"D = Datenumwandlungen"
  131.   IF XBIOS(4)=2
  132.     LINE 320,50,320,350
  133.   ELSE
  134.     LINE 320,20,320,180
  135.   ENDIF
  136.   PRINT AT(45,4);"S = Zinsrechnung"
  137.   PRINT AT(45,6);"R = Dreisatz"
  138.   PRINT AT(45,8);"A = Lagerkennzahlen"
  139.   PRINT AT(45,10);"X = Buchführung"
  140.   PRINT AT(45,12);"C = Währungs - rechnen"
  141.   PRINT AT(45,14);"P = Prozentrechnung"
  142.   PRINT AT(45,16);"H = Diskontrechnung"
  143.   PRINT AT(45,18);"F = Kalkulation"
  144.   PRINT AT(45,20);"I = Sonstige Formeln"
  145.   PRINT AT(45,22);"Q = Programmende"
  146. RETURN
  147. PROCEDURE taste
  148.   GOSUB rev_on
  149.   PRINT AT(3,24);STRING$(14,62);" Bitte geben Sie die gewünschte Taste ein ";
  150.   GOSUB rev_of
  151.   PRINT " ";
  152.   FORM INPUT 1,e$
  153.   e$=UPPER$(e$)
  154. RETURN
  155. PROCEDURE wahl
  156.   IF e$="I"
  157.     GOSUB sonstige_formeln
  158.   ENDIF
  159.   IF e$="G"
  160.     GOSUB grundrechenarten
  161.   ENDIF
  162.   IF e$="H"
  163.     GOSUB diskontrechnung
  164.   ENDIF
  165.   IF e$="R"
  166.     GOSUB dreisatz
  167.   ENDIF
  168.   IF e$="X"
  169.     GOSUB buchfuhrung
  170.   ENDIF
  171.   IF e$="F"
  172.     GOSUB kalkulation
  173.   ENDIF
  174.   IF e$="C"
  175.     GOSUB wahrung
  176.   ENDIF
  177.   IF e$="A"
  178.     GOSUB lagerkennzahlen
  179.   ENDIF
  180.   IF e$="Z"
  181.     GOSUB zeiteinheiten
  182.   ENDIF
  183.   IF e$="P"
  184.     GOSUB prozentrechnung
  185.   ENDIF
  186.   IF e$="S"
  187.     GOSUB zinsrechnung
  188.   ENDIF
  189.   IF e$="M"
  190.     GOSUB zaelmasse
  191.   ENDIF
  192.   IF e$="Q"
  193.     CLS
  194.     GOSUB rev_on
  195.     PRINT AT(1,1);" ---------------------- B e n u t z e r h i n w e i s e ----------------------- "
  196.     GOSUB rev_of
  197.     PRINT AT(10,3);"Jeder der dieses Programm benützt, der sollte mir ein kleines"
  198.     PRINT AT(22,4);"Anerkennungshonorar zukommen lassen."
  199.     PRINT AT(5,6);"Sollte diese Bitte zu wenig Beachtung bei Ihnen finden, so werden keine"
  200.     PRINT AT(4,7);"weiteren Public Domain Programme mehr für den Atari ST von mir erscheinen."
  201.     PRINT AT(5,8);">>>>>>>>>>>>>>>> und das wollt Ihr doch nicht oder ??? <<<<<<<<<<<<<<<<"
  202.     PRINT AT(15,9);"Also denkt auch einmal an die armen Programmierer."
  203.     PRINT AT(19,10);"******************************************"
  204.     PRINT AT(19,11);"* ------- Also alle Mitgemacht. -------- *"
  205.     PRINT AT(19,12);"******************************************"
  206.     PRINT AT(19,13);"*   10-20 DM Schein einsenden an den     *"
  207.     PRINT AT(19,14);"* armen Programmierer dieses Programmes  *"
  208.     PRINT AT(19,15);"******************************************"
  209.     PRINT AT(19,16);"* Programmautor        Siegfried Hübner  *"
  210.     PRINT AT(19,17);"*                      Obere Vorstadt 21 *"
  211.     PRINT AT(19,18);"*                      8812 Windsbach    *"
  212.     PRINT AT(19,19);"******************************************"
  213.     PRINT AT(1,20);"Bitte gebt auch an welchen Computer Ihr benützt, und mit welcher Version dieses"
  214.     PRINT AT(1,21);"Programmes Ihr arbeitet. Sollte jemand noch interesante Rechenformeln haben, so"
  215.     PRINT AT(3,22);"kann er mir diese gerne zusenden. Bei gefallen werden ich Ihre Rechenformeln "
  216.     PRINT AT(12,23);"gerne in meinen Rechenprogramm einbauen. (Falls gewünscht.)"
  217.     PRINT CHR$(27)+"p";
  218.     PRINT AT(12,24);" >>>>>>>>>>>>>>> Bitte eine Taste drücken <<<<<<<<<<<<<<<< "
  219.     PRINT CHR$(27)+"q";
  220.     REPEAT
  221.     UNTIL MOUSEK>1 OR INKEY$>CHR$(0)
  222.     ALERT 3,"(C) 1990 by Siegfried Hübner|         Public Domain Version|    Wollen Sie dieses Programm|         wirklich verlassen ?",2,"Ja|Nein",d%
  223.     IF d%=1
  224.       END
  225.     ENDIF
  226.   ENDIF
  227.   IF e$="D"
  228.     GOSUB datenumwandlungen
  229.   ENDIF
  230.   IF e$="E"
  231.     GOSUB englische_laengenmasse
  232.   ENDIF
  233.   IF e$="W"
  234.     GOSUB gewichte
  235.   ENDIF
  236.   IF e$="N"
  237.     GOSUB englische_gewichtseinheiten
  238.   ENDIF
  239.   IF e$="B"
  240.     GOSUB mathematische_operationen
  241.   ENDIF
  242.   IF e$="L"
  243.     GOSUB laengenmasse
  244.   ENDIF
  245.   IF e$="K"
  246.     GOSUB koerpermasse
  247.   ENDIF
  248.   RUN
  249. RETURN
  250. PROCEDURE rev_on
  251.   PRINT CHR$(27)+"p";
  252. RETURN
  253. PROCEDURE rev_of
  254.   PRINT CHR$(27)+"q";
  255. RETURN
  256. PROCEDURE 1zahl
  257.   GOSUB rev_on
  258.   PRINT AT(5,20);" Bitte geben Sie die 1 Zahl ein ";
  259.   GOSUB rev_of
  260.   PRINT " ";
  261.   FORM INPUT 11,er$
  262.   LET er=VAL(er$)
  263. RETURN
  264. PROCEDURE 2zahl
  265.   PRINT AT(10,8);"Die erste Zahl lautet"
  266.   GOSUB ergi(41,8)
  267.   PRINT AT(10,10);"Bitte geben Sie die 2 Zahl ein ";
  268.   FORM INPUT 11,z2$
  269.   LET z2=VAL(z2$)
  270. RETURN
  271. PROCEDURE weiter
  272.   PRINT AT(10,23);"Wollen Sie mit der Zahl ";er;" Weiterrechnen (J/N) ";
  273.   FORM INPUT 1,a$
  274.   a$=UPPER$(a$)
  275.   IF a$="N"
  276.     er=0
  277.   ENDIF
  278. RETURN
  279. PROCEDURE grundrechenarten
  280.   e:
  281.   GOSUB titel
  282.   PRINT AT(3,4);STRING$(14,45);" G  r  u  n  d  r  e  c  h  e  n  a  r  t  e  n ";STRING$(14,45)
  283.   PRINT AT(6,6);"+ = Addition"
  284.   PRINT AT(6,7);"- = Subtraktion"
  285.   PRINT AT(6,8);"* = Multiplikation"
  286.   PRINT AT(6,9);": = Division"
  287.   PRINT AT(6,11);"A = DM + Prozent"
  288.   PRINT AT(6,12);"M = DM - Prozent"
  289.   PRINT AT(6,14);"P = Prozent von DM(100) "
  290.   PRINT AT(6,15);"D = DM sind % Wieviel DM sind 100%"
  291.   PRINT AT(6,16);"W = DM = 100 % wieviel % sind DM"
  292.   IF er=0
  293.     GOSUB 1zahl
  294.     IF er=0
  295.       GOTO e
  296.     ENDIF
  297.   ELSE
  298.     PRINT AT(6,20);"Die erste Zahl ist ";er
  299.   ENDIF
  300.   s:
  301.   GOSUB taste
  302.   IF e$="A"
  303.     GOSUB ppprozent
  304.   ENDIF
  305.   IF e$="M"
  306.     GOSUB mprozent
  307.   ENDIF
  308.   IF e$="W"
  309.     GOSUB wprozend
  310.   ENDIF
  311.   IF e$="D"
  312.     GOSUB prozdem
  313.   ENDIF
  314.   IF e$="P"
  315.     GOSUB pprozent
  316.   ENDIF
  317.   IF e$="+"
  318.     GOSUB addition
  319.   ENDIF
  320.   IF e$="-"
  321.     GOSUB subtraktion
  322.   ENDIF
  323.   IF e$="*"
  324.     GOSUB multiplikation
  325.   ENDIF
  326.   IF e$=":"
  327.     GOSUB division
  328.   ELSE
  329.     GOTO s
  330.   ENDIF
  331. RETURN
  332. PROCEDURE addition
  333.   GOSUB titel
  334.   PRINT AT(3,4);STRING$(26,45)+" A  d  d  i  t  i  o  n "+STRING$(26,45)
  335.   GOSUB turbo
  336.   LET er=er+z2
  337.   PRINT AT(10,12);STRING$(50,45)
  338.   PRINT AT(10,14);"Ergebnis der Addition"
  339.   GOSUB zom
  340. RETURN
  341. PROCEDURE subtraktion
  342.   GOSUB titel
  343.   PRINT AT(3,4);STRING$(21,45)+" S  u  b  t  r  a  k  t  i  o  n "+STRING$(22,45)
  344.   GOSUB turbo
  345.   LET er=er-z2
  346.   PRINT AT(10,12);STRING$(50,45)
  347.   PRINT AT(10,14);"Ergebnis der Subtraktion"
  348.   GOSUB zom
  349. RETURN
  350. PROCEDURE multiplikation
  351.   GOSUB titel
  352.   PRINT AT(3,4);STRING$(17,45)+" M  u  l  t  i  p  l  i  k  a  t  i  o  n "+STRING$(17,45)
  353.   GOSUB turbo
  354.   LET er=er*z2
  355.   PRINT AT(10,12);STRING$(50,45)
  356.   PRINT AT(10,14);"Ergebnis der Multiplikation"
  357.   GOSUB zom
  358. RETURN
  359. PROCEDURE division
  360.   GOSUB titel
  361.   PRINT AT(3,4);STRING$(26,45)+" D  i  v  i  s  i  o  n "+STRING$(26,45)
  362.   GOSUB turbo
  363.   LET er=er/z2
  364.   PRINT AT(10,12);STRING$(50,45)
  365.   PRINT AT(10,14);"Ergebnis der Division"
  366.   GOSUB zom
  367. RETURN
  368. PROCEDURE pprozent
  369.   GOSUB titel
  370.   PRINT AT(3,4);STRING$(28,45)+" P  r  o  z  e  n  t "+STRING$(27,45)
  371.   PRINT AT(10,8);"Prozent"
  372.   GOSUB ergi(41,8)
  373.   PRINT AT(10,10);"100 % = DM"
  374.   GOSUB zza2
  375.   PRINT AT(10,12);STRING$(50,45)
  376.   PRINT AT(10,14);er;" %";" von ";z2;" DM =";
  377.   LET er=z2/100*er
  378.   GOSUB zom
  379. RETURN
  380. PROCEDURE prozdem
  381.   GOSUB titel
  382.   PRINT AT(3,4);STRING$(29,45)+" DM sind Prozent "+STRING$(30,45)
  383.   PRINT AT(10,8);"D-Mark"
  384.   GOSUB ergi(41,8)
  385.   PRINT AT(10,10);"sind wieviel %"
  386.   GOSUB zza2
  387.   PRINT AT(10,12);STRING$(50,45)
  388.   PRINT AT(10,14);"100 % = DM";
  389.   LET er=er/z2*100
  390.   GOSUB zom
  391. RETURN
  392. PROCEDURE wprozend
  393.   GOSUB titel
  394.   PRINT AT(3,4);STRING$(29,45)+" DM sind Prozent "+STRING$(30,45)
  395.   PRINT AT(10,8);"D-Mark"
  396.   GOSUB ergi(41,8)
  397.   PRINT AT(10,10);"gesuchte % eingeben"
  398.   GOSUB zza2
  399.   PRINT AT(10,12);STRING$(50,45)
  400.   PRINT AT(10,14);z2;"  % von ";er;" DM ="
  401.   LET er=er/100*z2
  402.   GOSUB zom
  403. RETURN
  404. PROCEDURE ppprozent
  405.   GOSUB titel
  406.   PRINT AT(3,4);STRING$(31,45)+" DM + Prozent "+STRING$(31,45)
  407.   PRINT AT(10,8);"D-Mark"
  408.   GOSUB ergi(41,8)
  409.   PRINT AT(10,10);"+ %"
  410.   GOSUB zza2
  411.   PRINT AT(10,12);STRING$(50,45)
  412.   PRINT AT(10,14);"Ergebnis in DM ="
  413.   LET er=(er/100)*z2+er
  414.   GOSUB zom
  415. RETURN
  416. PROCEDURE mprozent
  417.   GOSUB titel
  418.   PRINT AT(3,4);STRING$(31,45)+" DM - Prozent "+STRING$(31,45)
  419.   PRINT AT(10,8);"D-Mark"
  420.   GOSUB ergi(41,8)
  421.   PRINT AT(10,10);"- %"
  422.   GOSUB zza2
  423.   PRINT AT(10,12);STRING$(50,45)
  424.   PRINT AT(10,14);"Ergebnis in DM ="
  425.   LET er=(er/100)*z2-er
  426.   LET er=ABS(er)
  427.   GOSUB zom
  428. RETURN
  429. PROCEDURE wahrung
  430.   GOSUB titel
  431.   PRINT AT(3,4);STRING$(16,45);" W  ä  h  r  u  n  g  s  r  e  c  h  n  e  n ";STRING$(15,45)
  432.   PRINT AT(6,6);"D = Wieviel DM sind (Währung)    Kurs (100)"
  433.   PRINT AT(6,8);"A = Wieviel (Währung) sind DM         (100)"
  434.   PRINT AT(6,10);"L = Wieviel DM sind (Währung)  Kurs  (1000)"
  435.   PRINT AT(6,12);"I = Wieviel (Währung) sind DM        (1000)"
  436.   PRINT AT(6,14);"$ = Wieviel DM sind (Währung)  Kurs     (1)"
  437.   PRINT AT(6,16);"M = Wieviel (Währung) sind DM           (1)"
  438.   PRINT AT(6,18);"P = Paritätskurs                      (100)"
  439.   GOSUB taste
  440.   IF e$="D"
  441.     GOSUB dm
  442.   ENDIF
  443.   IF e$="A"
  444.     GOSUB 100
  445.   ENDIF
  446.   IF e$="L"
  447.     GOSUB lire
  448.   ENDIF
  449.   IF e$="P"
  450.     GOSUB paritaetskurs
  451.   ENDIF
  452.   IF e$="I"
  453.     GOSUB 1000
  454.   ENDIF
  455.   IF e$="M"
  456.     GOSUB dollar
  457.   ENDIF
  458.   IF e$="$"
  459.     GOSUB do
  460.   ENDIF
  461.   RUN
  462. RETURN
  463. PROCEDURE 100
  464.   GOSUB titel
  465.   PRINT AT(3,4);STRING$(19,45)+" Wieviel (Währung) sind DM Kurs (100)"+STRING$(20,45)
  466.   PRINT AT(10,8);"DM Betrag der Währung"
  467.   GOSUB zza1
  468.   PRINT AT(10,10);"Kurs der Währung in DM"
  469.   GOSUB zza2
  470.   LET er=100*z1/z2
  471.   PRINT AT(10,12);STRING$(50,45)
  472.   PRINT AT(10,14);"Ergebnis  ="
  473.   GOSUB voc
  474. RETURN
  475. PROCEDURE dm
  476.   GOSUB titel
  477.   PRINT AT(3,4);STRING$(20,45)+" Wieviel DM sind Währung Kurs (100) "+STRING$(20,45)
  478.   PRINT AT(10,8);"Kurs in DM "
  479.   GOSUB zza1
  480.   PRINT AT(10,10);"ausländischen Betrag"
  481.   GOSUB zza2
  482.   LET er=z1*z2/100
  483.   PRINT AT(10,12);STRING$(50,45)
  484.   PRINT AT(10,14);"Ergebnis in DM ="
  485.   GOSUB zom
  486. RETURN
  487. PROCEDURE lire
  488.   GOSUB titel
  489.   PRINT AT(3,4);STRING$(19,45)+" Wieviel Währung sind DM Kurs (1000) "+STRING$(20,45)
  490.   PRINT AT(10,8);"DM Betrag der Währung"
  491.   GOSUB zza1
  492.   PRINT AT(10,10);"Kurs der Währung in DM"
  493.   GOSUB zza2
  494.   LET er=1000*z1/z2
  495.   PRINT AT(10,12);STRING$(50,45)
  496.   PRINT AT(10,14);"Ergebnis ="
  497.   GOSUB zom
  498. RETURN
  499. PROCEDURE 1000
  500.   GOSUB titel
  501.   PRINT AT(3,4);STRING$(19,45)+" Wieviel DM sind Währung Kurs (1000) "+STRING$(20,45)
  502.   PRINT AT(10,8);"Kurs in DM "
  503.   GOSUB zza1
  504.   PRINT AT(10,10);"ausländischen Betrag"
  505.   GOSUB zza2
  506.   LET er=z1*z2/1000
  507.   PRINT AT(10,12);STRING$(50,45)
  508.   PRINT AT(10,14);"Ergebnis in DM ="
  509.   GOSUB zom
  510. RETURN
  511. PROCEDURE dollar
  512.   GOSUB titel
  513.   PRINT AT(3,4);STRING$(21,45)+" Wieviel Währung sind DM Kurs (1) "+STRING$(21,45)
  514.   PRINT AT(10,8);"DM Betrag der Währung"
  515.   GOSUB zza1
  516.   PRINT AT(10,10);"Kurs der Währung in DM"
  517.   GOSUB zza2
  518.   LET er=1*z1/z2
  519.   PRINT AT(10,12);STRING$(50,45)
  520.   PRINT AT(10,14);"Ergebnis ="
  521.   GOSUB zom
  522. RETURN
  523. PROCEDURE do
  524.   GOSUB titel
  525.   PRINT AT(3,4);STRING$(21,45)+" Wieviel DM sind Währung Kurs (1) "+STRING$(21,45)
  526.   PRINT AT(10,8);"Kurs in DM "
  527.   GOSUB zza1
  528.   PRINT AT(10,10);"ausländischen Betrag"
  529.   GOSUB zza2
  530.   LET er=z1*z2/1
  531.   PRINT AT(10,12);STRING$(50,45)
  532.   PRINT AT(10,14);"Ergebnis in DM ="
  533.   GOSUB zom
  534. RETURN
  535. PROCEDURE paritaetskurs
  536.   GOSUB titel
  537.   PRINT AT(3,4);STRING$(31,45)+" Paritätskurs "+STRING$(31,45)
  538.   PRINT AT(10,10);"Kurs im Inland"
  539.   GOSUB zza2
  540.   PRINT AT(10,12);STRING$(50,45)
  541.   PRINT AT(10,14);"Ergebnis ="
  542.   LET er=10000/z2
  543.   GOSUB zom
  544. RETURN
  545. PROCEDURE mikado
  546.   IF er=0
  547.     GOSUB 1zahl
  548.   ELSE
  549.     PRINT AT(5,20);" Die erste Zahl ist ";er
  550.   ENDIF
  551.   GOSUB taste
  552. RETURN
  553. PROCEDURE zeiteinheiten
  554.   GOSUB titel
  555.   PRINT AT(3,4);STRING$(19,45);" Z  e  i  t  e  i  n  h  e  i t  e  n ";STRING$(19,45)
  556.   PRINT AT(6,6);"T = Tag"
  557.   PRINT AT(6,8);"H = Stunden"
  558.   PRINT AT(6,10);"M = Minuten"
  559.   PRINT AT(6,12);"S = Sekunden"
  560.   GOSUB mikado
  561.   IF e$="T"
  562.     GOSUB tag
  563.   ENDIF
  564.   IF e$="H"
  565.     GOSUB stunden
  566.   ENDIF
  567.   IF e$="M"
  568.     GOSUB minuten
  569.   ENDIF
  570.   IF e$="S"
  571.     GOSUB sekunden
  572.   ENDIF
  573.   RUN
  574. RETURN
  575. PROCEDURE tag
  576.   GOSUB titel
  577.   PRINT AT(3,4);STRING$(33,45);" T  A  G  E ";STRING$(31,45);""
  578.   GOSUB zeiti
  579.   GOSUB ergi(41,8)
  580.   LET m=er*24
  581.   GOSUB kergi(41,10)
  582.   LET m=er*1440
  583.   GOSUB kergi(41,12)
  584.   LET m=er*86400
  585.   PRINT AT(41,14);
  586.   GOSUB som
  587. RETURN
  588. PROCEDURE stunden
  589.   GOSUB titel
  590.   PRINT AT(3,4);STRING$(27,45);" S  T  U  N  D  E  N ";STRING$(28,45)
  591.   GOSUB zeiti
  592.   LET m=er/24
  593.   GOSUB kergi(41,8)
  594.   GOSUB ergi(41,10)
  595.   LET m=er*60
  596.   GOSUB kergi(41,12)
  597.   LET m=er*3600
  598.   PRINT AT(41,14);
  599.   GOSUB som
  600. RETURN
  601. PROCEDURE minuten
  602.   GOSUB titel
  603.   PRINT AT(3,4);STRING$(27,45);" M  I  N  U  T  E  N ";STRING$(28,45)
  604.   GOSUB zeiti
  605.   LET m=er/1440
  606.   GOSUB kergi(41,8)
  607.   LET m=er/60
  608.   GOSUB kergi(41,10)
  609.   GOSUB ergi(41,12)
  610.   LET m=er*60
  611.   PRINT AT(41,14);
  612.   GOSUB som
  613. RETURN
  614. PROCEDURE sekunden
  615.   GOSUB titel
  616.   PRINT AT(3,4);STRING$(26,45);" S  E  K  U  N  D  E  N ";STRING$(26,45)
  617.   GOSUB zeiti
  618.   LET m=er/86400
  619.   GOSUB kergi(41,8)
  620.   LET m=er/3600
  621.   GOSUB kergi(41,10)
  622.   LET m=er/60
  623.   GOSUB kergi(41,12)
  624.   PRINT AT(41,14);
  625.   GOSUB sam
  626. RETURN
  627. PROCEDURE zaelmasse
  628.   GOSUB titel
  629.   PRINT AT(3,4);STRING$(26,45);" Z  ä  h  l  m  a  ₧  e ";STRING$(26,45)
  630.   PRINT AT(6,6);"G = Gros"
  631.   PRINT AT(6,8);"D = Dutzend"
  632.   PRINT AT(6,10);"S = Stück"
  633.   PRINT AT(6,12);"K = Schock"
  634.   GOSUB mikado
  635.   IF e$="G"
  636.     GOSUB gross
  637.   ENDIF
  638.   IF e$="D"
  639.     GOSUB dutzend
  640.   ENDIF
  641.   IF e$="S"
  642.     GOSUB stueck
  643.   ENDIF
  644.   IF e$="K"
  645.     GOSUB schock
  646.   ENDIF
  647.   RUN
  648. RETURN
  649. PROCEDURE gross
  650.   GOSUB titel
  651.   PRINT AT(3,4);STRING$(32,45);" G  R  O  S ";STRING$(32,45)
  652.   GOSUB zaelmi
  653.   GOSUB ergi(41,8)
  654.   LET m=er*2.4
  655.   GOSUB kergi(41,10)
  656.   LET m=er*12
  657.   GOSUB kergi(41,12)
  658.   LET m=er*144
  659.   PRINT AT(41,14);
  660.   GOSUB som
  661. RETURN
  662. PROCEDURE dutzend
  663.   GOSUB titel
  664.   PRINT AT(3,4);STRING$(29,45);" D  U  Z  E  N  D ";STRING$(29,45)
  665.   GOSUB zaelmi
  666.   LET m=er/12
  667.   GOSUB kergi(41,8)
  668.   LET m=er*0.2
  669.   GOSUB kergi(41,10)
  670.   GOSUB ergi(41,12)
  671.   LET m=er*12
  672.   PRINT AT(41,14);
  673.   GOSUB som
  674. RETURN
  675. PROCEDURE stueck
  676.   GOSUB titel
  677.   PRINT AT(3,4);STRING$(31,45);" S  T  ü  C  K ";STRING$(30,45)
  678.   GOSUB zaelmi
  679.   LET m=er/144
  680.   GOSUB kergi(41,8)
  681.   LET m=er/60
  682.   GOSUB kergi(41,10)
  683.   LET m=er/12
  684.   GOSUB kergi(41,12)
  685.   PRINT AT(41,14);
  686.   GOSUB sam
  687. RETURN
  688. PROCEDURE schock
  689.   GOSUB titel
  690.   PRINT AT(3,4);STRING$(29,45);" S  C  H  O  C  K ";STRING$(29,45)
  691.   GOSUB zaelmi
  692.   LET m=er/2.4
  693.   GOSUB kergi(41,8)
  694.   GOSUB ergi(41,10)
  695.   LET m=er*5
  696.   GOSUB kergi(41,12)
  697.   LET m=er*60
  698.   PRINT AT(41,14);
  699.   GOSUB som
  700. RETURN
  701. PROCEDURE englische_laengenmasse
  702.   GOSUB titel
  703.   PRINT AT(3,4);STRING$(26,45);" Englische - Längenma₧e ";STRING$(26,45)
  704.   PRINT AT(6,6);"Y = Yards"
  705.   PRINT AT(6,8);"Z = Zoll (inches)"
  706.   PRINT AT(6,10);"F = Fu₧"
  707.   PRINT AT(6,12);"C = Zentimeter"
  708.   GOSUB mikado
  709.   IF e$="Y"
  710.     GOSUB yards
  711.   ENDIF
  712.   IF e$="Z"
  713.     GOSUB zoll
  714.   ENDIF
  715.   IF e$="F"
  716.     GOSUB fuss
  717.   ENDIF
  718.   IF e$="C"
  719.     GOSUB zentimeter
  720.   ENDIF
  721.   RUN
  722. RETURN
  723. PROCEDURE yards
  724.   GOSUB titel
  725.   PRINT AT(3,4);STRING$(31,45);" Y  A  R  D  S ";STRING$(30,45)
  726.   GOSUB engli
  727.   GOSUB ergi(41,8)
  728.   LET m=er*3
  729.   GOSUB kergi(41,10)
  730.   LET m=er*36
  731.   GOSUB kergi(41,12)
  732.   LET m=er*91.44
  733.   PRINT AT(41,14);
  734.   GOSUB som
  735. RETURN
  736. PROCEDURE fuss
  737.   GOSUB titel
  738.   PRINT AT(3,4);STRING$(34,45);" F  U  ₧ ";STRING$(33,45)
  739.   GOSUB engli
  740.   LET m=er/3
  741.   GOSUB kergi(41,8)
  742.   GOSUB ergi(41,10)
  743.   LET m=er*12
  744.   GOSUB kergi(41,12)
  745.   LET m=er*30.48
  746.   PRINT AT(41,14);
  747.   GOSUB som
  748. RETURN
  749. PROCEDURE zoll
  750.   GOSUB titel
  751.   PRINT AT(3,4);STRING$(32,45);" Z  O  L  L ";STRING$(32,45)
  752.   GOSUB engli
  753.   LET m=er/36
  754.   GOSUB kergi(41,8)
  755.   LET m=er/12
  756.   GOSUB kergi(41,10)
  757.   GOSUB ergi(41,12)
  758.   LET m=er*2.54
  759.   PRINT AT(41,14);
  760.   GOSUB som
  761. RETURN
  762. PROCEDURE zentimeter
  763.   GOSUB titel
  764.   PRINT AT(3,4);STRING$(24,45);" Z  E  N  T  I  M  E  T  E  R ";STRING$(22,45)
  765.   GOSUB engli
  766.   LET m=er/91.44
  767.   GOSUB kergi(41,8)
  768.   LET m=er/30.48
  769.   GOSUB kergi(41,10)
  770.   LET m=er/2.54
  771.   GOSUB kergi(41,12)
  772.   PRINT AT(41,14);
  773.   GOSUB sam
  774. RETURN
  775. PROCEDURE englische_gewichtseinheiten
  776.   GOSUB titel
  777.   PRINT AT(3,4);STRING$(11,45);" E N G L I S C H E - G E W I C H T S E I N H E I T E N ";STRING$(10,45)
  778.   PRINT AT(6,6);"L = Long ton"
  779.   PRINT AT(6,8);"H = Hundredweight"
  780.   PRINT AT(6,10);"Q = Quarter"
  781.   PRINT AT(6,12);"P = Pounds"
  782.   PRINT AT(6,14);"O = Ounces"
  783.   PRINT AT(6,16);"K = Kilogramm"
  784.   GOSUB mikado
  785.   IF e$="L"
  786.     GOSUB long_ton
  787.   ENDIF
  788.   IF e$="Q"
  789.     GOSUB quarter
  790.   ENDIF
  791.   IF e$="H"
  792.     GOSUB hundredweight
  793.   ENDIF
  794.   IF e$="P"
  795.     GOSUB pounds
  796.   ENDIF
  797.   IF e$="K"
  798.     GOSUB killogramm
  799.   ENDIF
  800.   IF e$="O"
  801.     GOSUB ounces
  802.   ENDIF
  803.   RUN
  804. RETURN
  805. PROCEDURE long_ton
  806.   GOSUB titel
  807.   PRINT AT(3,4);STRING$(26,45);" L  O  N  G  -  T  O  N ";STRING$(26,45)
  808.   GOSUB qua
  809.   GOSUB ergi(41,8)
  810.   LET m=er*20
  811.   GOSUB kergi(41,10)
  812.   LET m=er*80
  813.   GOSUB kergi(41,12)
  814.   LET m=er*2240
  815.   GOSUB kergi(41,14)
  816.   LET m=er*35840
  817.   GOSUB kergi(41,16)
  818.   LET m=er*1016
  819.   PRINT AT(41,18);
  820.   GOSUB som
  821. RETURN
  822. PROCEDURE hundredweight
  823.   GOSUB titel
  824.   PRINT AT(3,4);STRING$(18,45);" H  U  N  D  E  D  W  E  I  G  H  T  S ";STRING$(19,45)
  825.   GOSUB qua
  826.   LET m=er/20
  827.   GOSUB kergi(41,8)
  828.   GOSUB ergi(41,10)
  829.   LET m=er*4
  830.   GOSUB kergi(41,12)
  831.   LET m=er*112
  832.   GOSUB kergi(41,14)
  833.   LET m=er*1792
  834.   GOSUB kergi(41,16)
  835.   LET m=er*50.8
  836.   PRINT AT(41,18);
  837.   GOSUB som
  838. RETURN
  839. PROCEDURE quarter
  840.   GOSUB titel
  841.   PRINT AT(3,4);STRING$(26,45);" Q  U  A  R  T  E  R  S ";STRING$(26,45)
  842.   GOSUB qua
  843.   LET m=er/80
  844.   GOSUB kergi(41,8)
  845.   LET m=er/4
  846.   GOSUB kergi(41,10)
  847.   GOSUB ergi(41,12)
  848.   LET m=er*28
  849.   GOSUB kergi(41,14)
  850.   LET m=er*448
  851.   GOSUB kergi(41,16)
  852.   LET m=er*12.7
  853.   PRINT AT(41,18);
  854.   GOSUB som
  855. RETURN
  856. PROCEDURE pounds
  857.   GOSUB titel
  858.   PRINT AT(3,4);STRING$(29,45);" P  O  U  N  D  S ";STRING$(29,45)
  859.   GOSUB qua
  860.   LET m=er/2240
  861.   GOSUB kergi(41,8)
  862.   LET m=er/112
  863.   GOSUB kergi(41,10)
  864.   LET m=er/28
  865.   GOSUB kergi(41,12)
  866.   GOSUB ergi(41,14)
  867.   LET m=er*16
  868.   GOSUB kergi(41,16)
  869.   LET m=er*0.45357142857
  870.   PRINT AT(41,18);
  871.   GOSUB som
  872. RETURN
  873. PROCEDURE ounces
  874.   GOSUB titel
  875.   PRINT AT(3,4);STRING$(29,45);" O  U  N  C  E  S ";STRING$(29,45)
  876.   GOSUB qua
  877.   LET m=er/35840
  878.   GOSUB kergi(41,8)
  879.   LET m=er/1792
  880.   GOSUB kergi(41,10)
  881.   LET m=er/448
  882.   GOSUB kergi(41,12)
  883.   LET m=er/16
  884.   GOSUB kergi(41,14)
  885.   GOSUB ergi(41,16)
  886.   LET m=er*0.028348214286
  887.   PRINT AT(41,18);
  888.   GOSUB som
  889. RETURN
  890. PROCEDURE killogramm
  891.   GOSUB titel
  892.   PRINT AT(3,4);STRING$(24,45);" K  I  L  O  G  R  A  M  M ";STRING$(25,45)
  893.   GOSUB qua
  894.   LET m=er/1016
  895.   GOSUB kergi(41,8)
  896.   LET m=er/50.8
  897.   GOSUB kergi(41,10)
  898.   LET m=er/12.7
  899.   GOSUB kergi(41,12)
  900.   LET m=er/0.45357142858
  901.   GOSUB kergi(41,14)
  902.   LET m=er/0.028348214286
  903.   GOSUB kergi(41,16)
  904.   PRINT AT(41,18);
  905.   GOSUB sam
  906. RETURN
  907. PROCEDURE laengenmasse
  908.   GOSUB titel
  909.   PRINT AT(3,4);STRING$(23,45);" L  Ä  N  G  E  N  M  A  ₧  E ";STRING$(23,45)
  910.   PRINT AT(6,6);"K = Kilometer "
  911.   PRINT AT(6,8);"M = Meter"
  912.   PRINT AT(6,10);"C = Zentimeter"
  913.   PRINT AT(6,12);"D = Dezimeter"
  914.   PRINT AT(6,14);"I = Milimeter"
  915.   GOSUB mikado
  916.   IF e$="K"
  917.     GOSUB kilo
  918.   ENDIF
  919.   IF e$="M"
  920.     GOSUB meter
  921.   ENDIF
  922.   IF e$="D"
  923.     GOSUB dezimeter
  924.   ENDIF
  925.   IF e$="I"
  926.     GOSUB millimeter
  927.   ENDIF
  928.   IF e$="C"
  929.     GOSUB zenti
  930.   ENDIF
  931.   RUN
  932. RETURN
  933. PROCEDURE kilo
  934.   GOSUB titel
  935.   PRINT AT(3,4);STRING$(24,45);" K  I  L  O  M  E  T  E  R ";STRING$(25,45)
  936.   GOSUB ling
  937.   GOSUB ergi(41,8)
  938.   LET m=er*1000
  939.   GOSUB kergi(41,10)
  940.   LET m=er*10000
  941.   GOSUB kergi(41,12)
  942.   LET m=er*100000
  943.   GOSUB kergi(41,14)
  944.   LET m=er*1000000
  945.   PRINT AT(41,16);
  946.   GOSUB som
  947. RETURN
  948. PROCEDURE meter
  949.   GOSUB titel
  950.   PRINT AT(3,4);STRING$(30,45);" M  E  T  E  R ";STRING$(31,45)
  951.   GOSUB ling
  952.   LET m=er/1000
  953.   GOSUB kergi(41,8)
  954.   GOSUB ergi(41,10)
  955.   LET m=er*10
  956.   GOSUB kergi(41,12)
  957.   LET m=er*100
  958.   GOSUB kergi(41,14)
  959.   LET m=er*1000
  960.   PRINT AT(41,16);
  961.   GOSUB som
  962. RETURN
  963. PROCEDURE dezimeter
  964.   GOSUB titel
  965.   PRINT AT(3,4);STRING$(24,45);" D  E  Z  I  M  E  T  E  R ";STRING$(25,45)
  966.   GOSUB ling
  967.   LET m=er/10000
  968.   GOSUB kergi(41,8)
  969.   LET m=er/10
  970.   GOSUB kergi(41,10)
  971.   GOSUB ergi(41,12)
  972.   LET m=er*10
  973.   GOSUB kergi(41,14)
  974.   LET m=er*100
  975.   PRINT AT(41,16);
  976.   GOSUB som
  977. RETURN
  978. PROCEDURE zenti
  979.   GOSUB titel
  980.   PRINT AT(3,4);STRING$(23,45);" Z  E  N  T  I  M  E  T  E  R ";STRING$(23,45)
  981.   GOSUB ling
  982.   LET m=er/100000
  983.   GOSUB kergi(41,8)
  984.   LET m=er/100
  985.   GOSUB kergi(41,10)
  986.   LET m=er/10
  987.   GOSUB kergi(41,12)
  988.   GOSUB ergi(41,14)
  989.   LET m=er*10
  990.   PRINT AT(41,16);
  991.   GOSUB som
  992. RETURN
  993. PROCEDURE millimeter
  994.   GOSUB titel
  995.   PRINT AT(3,4);STRING$(23,45);" M  I  L  L  I  M  E  T  E  R ";STRING$(23,45)
  996.   GOSUB ling
  997.   LET m=er/1000000
  998.   GOSUB kergi(41,8)
  999.   LET m=er/1000
  1000.   GOSUB kergi(41,10)
  1001.   LET m=er/100
  1002.   GOSUB kergi(41,12)
  1003.   LET m=er/10
  1004.   GOSUB kergi(41,14)
  1005.   PRINT AT(41,16);
  1006.   GOSUB sam
  1007. RETURN
  1008. PROCEDURE gewichte
  1009.   GOSUB titel
  1010.   PRINT AT(3,4);STRING$(26,45);" G  E  W  I  C  H  T  E ";STRING$(26,45)
  1011.   PRINT AT(6,6);"T = Tonnen "
  1012.   PRINT AT(6,8);"D = Dezitonne"
  1013.   PRINT AT(6,10);"Z = Zentner"
  1014.   PRINT AT(6,12);"K = Killogramm"
  1015.   PRINT AT(6,14);"G = Gramm"
  1016.   PRINT AT(6,16);"P = Pfund"
  1017.   GOSUB mikado
  1018.   IF e$="T"
  1019.     GOSUB tonne
  1020.   ENDIF
  1021.   IF e$="D"
  1022.     GOSUB dezitonnen
  1023.   ENDIF
  1024.   IF e$="K"
  1025.     GOSUB ki
  1026.   ENDIF
  1027.   IF e$="G"
  1028.     GOSUB gramm
  1029.   ENDIF
  1030.   IF e$="Z"
  1031.     GOSUB zentner
  1032.   ENDIF
  1033.   IF e$="P"
  1034.     GOSUB pfund
  1035.   ENDIF
  1036.   RUN
  1037. RETURN
  1038. PROCEDURE tonne
  1039.   GOSUB titel
  1040.   PRINT AT(3,4);STRING$(30,45);" T  O  N  N  E ";STRING$(31,45)
  1041.   GOSUB ggw
  1042.   GOSUB ergi(41,8)
  1043.   LET m=er*10
  1044.   GOSUB kergi(41,10)
  1045.   LET m=er*20
  1046.   GOSUB kergi(41,12)
  1047.   LET m=er*1000
  1048.   GOSUB kergi(41,14)
  1049.   LET m=er*2000
  1050.   GOSUB kergi(41,16)
  1051.   LET m=er*1000000
  1052.   PRINT AT(41,18);
  1053.   GOSUB som
  1054. RETURN
  1055. PROCEDURE dezitonnen
  1056.   GOSUB titel
  1057.   PRINT AT(3,4);STRING$(23,45);" D  E  Z  I  T  O  N  N  E  N  ";STRING$(22,45)
  1058.   GOSUB ggw
  1059.   LET m=er/10
  1060.   GOSUB kergi(41,8)
  1061.   GOSUB ergi(41,10)
  1062.   LET m=er*2
  1063.   GOSUB kergi(41,12)
  1064.   LET m=er*100
  1065.   GOSUB kergi(41,14)
  1066.   LET m=er*200
  1067.   GOSUB kergi(41,16)
  1068.   LET m=er*100000
  1069.   PRINT AT(41,18);
  1070.   GOSUB som
  1071. RETURN
  1072. PROCEDURE zentner
  1073.   GOSUB titel
  1074.   PRINT AT(3,4);STRING$(27,45);" Z  E  N  T  N  E  R ";STRING$(28,45)
  1075.   GOSUB ggw
  1076.   LET m=er/20
  1077.   GOSUB kergi(41,8)
  1078.   LET m=er/2
  1079.   GOSUB kergi(41,10)
  1080.   GOSUB ergi(41,12)
  1081.   LET m=er*50
  1082.   GOSUB kergi(41,14)
  1083.   LET m=er*100
  1084.   GOSUB kergi(41,16)
  1085.   LET m=er*50000
  1086.   PRINT AT(41,18);
  1087.   GOSUB som
  1088. RETURN
  1089. PROCEDURE ki
  1090.   GOSUB titel
  1091.   PRINT AT(3,4);STRING$(24,45);" K  I  L  O  G  R  A  M  M ";STRING$(25,45)
  1092.   GOSUB ggw
  1093.   LET m=er/1000
  1094.   GOSUB kergi(41,8)
  1095.   LET m=er/100
  1096.   GOSUB kergi(41,10)
  1097.   LET m=er/50
  1098.   GOSUB kergi(41,12)
  1099.   GOSUB ergi(41,14)
  1100.   LET m=er*2
  1101.   GOSUB kergi(41,16)
  1102.   LET m=er*1000
  1103.   PRINT AT(41,18);
  1104.   GOSUB som
  1105. RETURN
  1106. PROCEDURE pfund
  1107.   GOSUB titel
  1108.   PRINT AT(3,4);STRING$(31,45);" P  F  U  N  D ";STRING$(30,45)
  1109.   GOSUB ggw
  1110.   LET m=er/2000
  1111.   GOSUB kergi(41,8)
  1112.   LET m=er/200
  1113.   GOSUB kergi(41,10)
  1114.   LET m=er/100
  1115.   GOSUB kergi(41,12)
  1116.   LET m=er/2
  1117.   GOSUB kergi(41,14)
  1118.   GOSUB ergi(41,16)
  1119.   LET m=er*500
  1120.   PRINT AT(41,18);
  1121.   GOSUB som
  1122. RETURN
  1123. PROCEDURE gramm
  1124.   GOSUB titel
  1125.   PRINT AT(3,4);STRING$(30,45);" G  R  A  M  M ";STRING$(31,45)
  1126.   GOSUB ggw
  1127.   LET m=er/1000000
  1128.   GOSUB kergi(41,8)
  1129.   LET m=er/100000
  1130.   GOSUB kergi(41,10)
  1131.   LET m=er/50000
  1132.   GOSUB kergi(41,12)
  1133.   LET m=er/1000
  1134.   GOSUB kergi(41,14)
  1135.   LET m=er/500
  1136.   GOSUB kergi(41,16)
  1137.   PRINT AT(41,18);
  1138.   GOSUB sam
  1139. RETURN
  1140. PROCEDURE koerpermasse
  1141.   GOSUB titel
  1142.   PRINT AT(3,4);STRING$(23,45);" K  Ö  R  P  E  R  M  A  ₧  E ";STRING$(23,45)
  1143.   PRINT AT(6,6);"R = Registertonne"
  1144.   PRINT AT(6,8);"M = Kubikmeter         (m■)"
  1145.   PRINT AT(6,10);"D = Kubikdezimeter     (dm■)"
  1146.   PRINT AT(6,12);"C = Kubikzentimeter    (cm■)"
  1147.   PRINT AT(6,14);"I = Kubikmillimeter    (mm■)"
  1148.   GOSUB mikado
  1149.   IF e$="M"
  1150.     GOSUB kubikmeter
  1151.   ENDIF
  1152.   IF e$="D"
  1153.     GOSUB kubikdezimeter
  1154.   ENDIF
  1155.   IF e$="C"
  1156.     GOSUB kubikzentimeter
  1157.   ENDIF
  1158.   IF e$="I"
  1159.     GOSUB kubikmillimeter
  1160.   ENDIF
  1161.   IF e$="R"
  1162.     GOSUB registertonne
  1163.   ENDIF
  1164.   RUN
  1165. RETURN
  1166. PROCEDURE kubikmeter
  1167.   GOSUB titel
  1168.   PRINT AT(3,4);STRING$(23,45);" K  U  B  I  K  M  E  T  E  R ";STRING$(23,45)
  1169.   GOSUB korbi
  1170.   LET m=er/2.83
  1171.   GOSUB kergi(41,8)
  1172.   GOSUB ergi(41,10)
  1173.   LET m=er*1000
  1174.   GOSUB kergi(41,12)
  1175.   LET m=er*1000000
  1176.   GOSUB kergi(41,14)
  1177.   LET m=er*1000000000
  1178.   PRINT AT(41,16);
  1179.   GOSUB som
  1180. RETURN
  1181. PROCEDURE registertonne
  1182.   GOSUB titel
  1183.   PRINT AT(3,4);STRING$(18,45);" R  E  G  I  S  T  E  R  T  O  N  N  E ";STRING$(19,45)
  1184.   GOSUB korbi
  1185.   GOSUB ergi(41,8)
  1186.   m=er*2.83
  1187.   GOSUB kergi(41,10)
  1188.   LET m=er*2830
  1189.   GOSUB kergi(41,12)
  1190.   LET m=er*2830000
  1191.   GOSUB kergi(41,14)
  1192.   LET m=er*2830000000
  1193.   PRINT AT(41,16);
  1194.   GOSUB som
  1195. RETURN
  1196. PROCEDURE kubikdezimeter
  1197.   GOSUB titel
  1198.   PRINT AT(3,4);STRING$(17,45);" K  U  B  I  K  D  E  Z  I  M  E  T  E  R ";STRING$(17,45)
  1199.   GOSUB korbi
  1200.   LET m=er/2830
  1201.   GOSUB kergi(41,8)
  1202.   m=er/1000
  1203.   GOSUB kergi(41,10)
  1204.   GOSUB ergi(41,12)
  1205.   LET m=er*1000
  1206.   GOSUB kergi(41,14)
  1207.   LET m=er*1000000
  1208.   PRINT AT(41,16);
  1209.   GOSUB som
  1210. RETURN
  1211. PROCEDURE kubikzentimeter
  1212.   GOSUB titel
  1213.   PRINT AT(3,4);STRING$(20,45);" K  U  B  I  K  Z  I  M  E  T  E  R ";STRING$(20,45)
  1214.   GOSUB korbi
  1215.   LET m=er/2830000
  1216.   GOSUB kergi(41,8)
  1217.   m=er/1000000
  1218.   GOSUB kergi(41,10)
  1219.   m=er/1000
  1220.   GOSUB kergi(41,12)
  1221.   GOSUB ergi(41,14)
  1222.   LET m=er*1000
  1223.   PRINT AT(41,16);
  1224.   GOSUB som
  1225. RETURN
  1226. PROCEDURE kubikmillimeter
  1227.   GOSUB titel
  1228.   PRINT AT(3,4);STRING$(15,45);" K  U  B  I  K  M  I  L  L  I  M  E  T  E  R ";STRING$(16,45)
  1229.   GOSUB korbi
  1230.   LET m=er/2830000000
  1231.   GOSUB kergi(41,8)
  1232.   m=er/1000000000
  1233.   GOSUB kergi(41,10)
  1234.   m=er/1000000
  1235.   GOSUB kergi(41,12)
  1236.   m=er/1000
  1237.   GOSUB kergi(41,14)
  1238.   PRINT AT(41,16);
  1239.   GOSUB sam
  1240. RETURN
  1241. PROCEDURE mathematische_operationen
  1242.   GOSUB titel
  1243.   PRINT AT(3,4);STRING$(16,45);" M A T H E M A T I S C H E - B E F E H L E ";STRING$(17,45)
  1244.   PRINT AT(6,6);"T = Tangens-Funktiong      (tan)"
  1245.   PRINT AT(6,8);"A = Arcustangens-Funktion  (atn)"
  1246.   PRINT AT(6,10);"C = Cosinus-Funktinon      (cos)"
  1247.   PRINT AT(6,12);"E = Exponential-Funktion    (exp)"
  1248.   PRINT AT(6,14);"L = Logarithmus (natürlich)"
  1249.   PRINT AT(6,16);"D = Logarithmus (dekatisch)"
  1250.   PRINT AT(6,18);"K = Kreiszahl          (pi)"
  1251.   PRINT AT(46,6);"S = Sinus-Funktion    (sin)"
  1252.   PRINT AT(46,8);"W = Wurzel-Funktion   (sqr)"
  1253.   PRINT AT(46,10);"I = Integer-Zufallszahl"
  1254.   PRINT AT(46,12);"Z = Dezimalstellen-Zufallszahl"
  1255.   PRINT AT(46,14);"P = Primzahlen von   1-Zahl"
  1256.   PRINT AT(46,16);"F = Potenzieren "
  1257.   IF XBIOS(4)=2
  1258.     LINE 330,70,330,290
  1259.   ELSE
  1260.     LINE 330,40,330,145
  1261.   ENDIF
  1262.   GOSUB mikado
  1263.   IF e$="C"
  1264.     GOSUB cosinus
  1265.   ENDIF
  1266.   IF e$="P"
  1267.     GOSUB primz_11
  1268.   ENDIF
  1269.   IF e$="F"
  1270.     GOSUB potenzieren
  1271.   ENDIF
  1272.   IF e$="I"
  1273.     GOSUB integerzufall
  1274.   ENDIF
  1275.   IF e$="Z"
  1276.     GOSUB dezizufall
  1277.   ENDIF
  1278.   IF e$="S"
  1279.     GOSUB sinus
  1280.   ENDIF
  1281.   IF e$="W"
  1282.     GOSUB wurzel
  1283.   ENDIF
  1284.   IF e$="D"
  1285.     GOSUB logade
  1286.   ENDIF
  1287.   IF e$="E"
  1288.     GOSUB exponential
  1289.   ENDIF
  1290.   IF e$="L"
  1291.     GOSUB logarithmus
  1292.   ENDIF
  1293.   IF e$="A"
  1294.     GOSUB arcustangens
  1295.   ENDIF
  1296.   IF e$="K"
  1297.     GOSUB kreis
  1298.   ENDIF
  1299.   IF e$="T"
  1300.     GOSUB tangens
  1301.   ENDIF
  1302.   RUN
  1303. RETURN
  1304. PROCEDURE primz_11
  1305.   GOSUB titel
  1306.   PRINT AT(3,4);STRING$(16,45);" P r i m z a h l e n  von 1 bis ";er;" ";STRING$(16,45)
  1307.   PRINT
  1308.   IF er<1 OR er>1000
  1309.     ALERT 3,"Ich kann nur die|Primzahlen von 1-1000|berechnen",1,"Sorry",d%
  1310.     GOTO lemik
  1311.   ENDIF
  1312.   FOR x=2 TO er
  1313.     y=2
  1314.     WHILE y<x/2
  1315.       EXIT IF x MOD y=0
  1316.       INC y
  1317.     WEND
  1318.     IF x MOD y<>0 OR x=2
  1319.       PRINT USING "####",x;
  1320.     ENDIF
  1321.   NEXT x
  1322.   lemik:
  1323.   GOSUB com
  1324. RETURN
  1325. PROCEDURE tangens
  1326.   GOSUB titel
  1327.   PRINT AT(3,4);STRING$(21,45);" T A N G E N S - F U N K T I O N ";STRING$(22,45)
  1328.   PRINT AT(10,8);"Tangens von ";er;"         =  ";
  1329.   LET m=TAN(er)
  1330.   GOSUB sam
  1331. RETURN
  1332. PROCEDURE potenzieren
  1333.   GOSUB titel
  1334.   PRINT AT(3,4);STRING$(26,45);" P o t e n z i e r e n ";STRING$(27,45)
  1335.   GOSUB turbo
  1336.   LET er=er^z2
  1337.   PRINT AT(10,12);STRING$(50,45)
  1338.   PRINT AT(10,14);"Ergebnis der Potenzierung"
  1339.   GOSUB zom
  1340. RETURN
  1341. PROCEDURE kreis
  1342.   GOSUB titel
  1343.   PRINT AT(3,4);STRING$(24,45);" K  R  E  I  S  Z  A  H  L ";STRING$(25,45)
  1344.   PRINT AT(10,8);"Kreiszahl von ";er;"         =  ";
  1345.   LET m=SIN(er)
  1346.   GOSUB som
  1347. RETURN
  1348. PROCEDURE integerzufall
  1349.   GOSUB titel
  1350.   PRINT AT(3,4);STRING$(18,45);" I N T E G E R - Z U F A L L S Z A H L ";STRING$(19,45)
  1351.   PRINT AT(10,8);"Integer-Zufallszahl von ";er;"     =  ";
  1352.   LET m=RANDOM(er)
  1353.   GOSUB som
  1354. RETURN
  1355. PROCEDURE dezizufall
  1356.   GOSUB titel
  1357.   PRINT AT(3,4);STRING$(19,45);" D E Z I M A L - Z U F A L L S Z A H L ";STRING$(18,45)
  1358.   PRINT AT(10,8);"Dezimal-Zufallszahl von ";er;"     =  ";
  1359.   LET m=RND(er)
  1360.   GOSUB som
  1361. RETURN
  1362. PROCEDURE cosinus
  1363.   GOSUB titel
  1364.   PRINT AT(3,4);STRING$(21,45);" C O S I N U S - F U N K T I O N ";STRING$(22,45)
  1365.   PRINT AT(10,8);"Cosinuswert von ";er;"       =  ";
  1366.   LET m=COS(er)
  1367.   GOSUB som
  1368. RETURN
  1369. PROCEDURE wurzel
  1370.   GOSUB titel
  1371.   PRINT AT(3,4);STRING$(29,45);" W  U  R  Z  E  L ";STRING$(29,45)
  1372.   PRINT AT(10,8);"Wurzel      von ";er;"       =  ";
  1373.   LET m=SQR(er)
  1374.   GOSUB som
  1375. RETURN
  1376. PROCEDURE logade
  1377.   GOSUB titel
  1378.   PRINT AT(3,4);STRING$(24,45);" (dekadischer Logarithmus) ";STRING$(25,45)
  1379.   PRINT AT(10,8);"dekadischer Logarithmus von ";er;" = ";
  1380.   LET m=LOG10(er)
  1381.   GOSUB som
  1382. RETURN
  1383. PROCEDURE exponential
  1384.   GOSUB titel
  1385.   PRINT AT(3,4);STRING$(17,45);" E X P O N E N T I A L - F U N K T I O N ";STRING$(18,45)
  1386.   PRINT AT(10,8);"Exponentialfunktion von ";er;" = ";
  1387.   LET m=EXP(er)
  1388.   GOSUB som
  1389. RETURN
  1390. PROCEDURE logarithmus
  1391.   GOSUB titel
  1392.   PRINT AT(3,4);STRING$(24,45);" (natürlicher Logarithmus) ";STRING$(25,45)
  1393.   PRINT AT(10,8);"natürlicher Logarithmus von ";er;" = ";
  1394.   LET m=LOG(er)
  1395.   GOSUB som
  1396. RETURN
  1397. PROCEDURE arcustangens
  1398.   GOSUB titel
  1399.   PRINT AT(3,4);STRING$(17,45);" A R C U S T A N G E N S - F U N K T I O N ";STRING$(16,45)
  1400.   PRINT AT(10,8);"Der Arcustangens von ";er;" = ";
  1401.   LET m=ATN(er)
  1402.   GOSUB som
  1403. RETURN
  1404. PROCEDURE sinus
  1405.   GOSUB titel
  1406.   PRINT AT(3,4);STRING$(17,45);" S  I  N  U  S  -  F  U  N  K  T  I  O  N ";STRING$(17,45)
  1407.   PRINT AT(10,8);"Der Sinuswert von ";er;" = ";
  1408.   LET m=SIN(er)
  1409.   GOSUB som
  1410. RETURN
  1411. PROCEDURE datenumwandlungen
  1412.   GOSUB titel
  1413.   PRINT AT(3,4);STRING$(12,45);" D  A  T  E  N  U  M  W  A  N  D  L  U  N  G  E N  ";STRING$(13,45)
  1414.   PRINT AT(6,6);"B = Binär      -  Umwandlung"
  1415.   PRINT AT(6,8);"H = Hexdezimal -  Umwandlung"
  1416.   PRINT AT(6,10);"O = Oktal      -  Umwandlung"
  1417.   PRINT AT(6,12);"A = ASC II     -  Umwandlung"
  1418.   PRINT AT(6,14);"C = CHR$       - Umwandlung"
  1419.   GOSUB mikado
  1420.   IF e$="B"
  1421.     GOSUB binaer
  1422.   ENDIF
  1423.   IF e$="H"
  1424.     GOSUB hexadezimal
  1425.   ENDIF
  1426.   IF e$="C"
  1427.     GOSUB chr
  1428.   ENDIF
  1429.   IF e$="A"
  1430.     GOSUB ascii
  1431.   ENDIF
  1432.   IF e$="O"
  1433.     GOSUB oktal
  1434.   ENDIF
  1435.   RUN
  1436. RETURN
  1437. PROCEDURE binaer
  1438.   GOSUB titel
  1439.   PRINT AT(3,4);STRING$(14,45);" B  I  N  Ä  R  -  U  M  W  A  N  D  L  U  N  G ";STRING$(14,45)
  1440.   LET m$=STR$(m)
  1441.   LET m$=BIN$(er)
  1442.   PRINT AT(10,8);"  Die  Binärzahl von ";er;" = ";m$
  1443.   GOSUB wandel
  1444. RETURN
  1445. PROCEDURE hexadezimal
  1446.   GOSUB titel
  1447.   PRINT AT(3,4);STRING$(10,45);" H E X A D E Z I M A L  -  U  M  W  A  N  D  L  U  N  G ";STRING$(10,45)
  1448.   LET m$=STR$(m)
  1449.   LET m$=HEX$(er)
  1450.   PRINT AT(10,8);"  Die  Hexadezimalzahl von ";er;" = ";m$
  1451.   GOSUB wandel
  1452. RETURN
  1453. PROCEDURE oktal
  1454.   GOSUB titel
  1455.   PRINT AT(3,4);STRING$(14,45);" O  K  T  A  L  -  U  M  W  A  N  D  L  U  N  G ";STRING$(14,45)
  1456.   LET m$=STR$(m)
  1457.   LET m$=OCT$(er)
  1458.   PRINT AT(10,8);"  Die  Oktalzahl von ";er;" = ";m$
  1459.   GOSUB wandel
  1460. RETURN
  1461. PROCEDURE ascii
  1462.   GOSUB titel
  1463.   PRINT AT(3,4);STRING$(15,45);" A  S  C  II  -  U  M  W  A  N  D  L  U  N  G ";STRING$(15,45)
  1464.   LET m=ASC(er$)
  1465.   LET er$=RIGHT$(er$,1)
  1466.   PRINT AT(10,8);"  Der ASC II  Code von ";er$;" = ";m
  1467.   LET er=VAL(er$)
  1468.   GOSUB com
  1469. RETURN
  1470. PROCEDURE chr
  1471.   GOSUB titel
  1472.   PRINT AT(3,4);STRING$(15,45);" C  H  R  $  -  U  M  W  A  N  D  L  U  N  G ";STRING$(16,45)
  1473.   LET m$=STR$(m)
  1474.   LET m$=CHR$(er)
  1475.   PRINT AT(10,8);"  Der CHR$ Wert von ";er;" = ";m$
  1476.   GOSUB wandel
  1477. RETURN
  1478. PROCEDURE zinsrechnung
  1479.   GOSUB titel
  1480.   PRINT AT(3,4);STRING$(20,45);" Z  i  n  s  r  e  c  h  n  u  n  g ";STRING$(20,45)
  1481.   PRINT AT(6,6);"J = Berechnung der Jahreszinsen"
  1482.   PRINT AT(6,8);"M = Berechnung der Monatszinsen"
  1483.   PRINT AT(6,10);"T = Berechnung der Tageszinsen"
  1484.   PRINT AT(6,12);"B = Berechnung der Tage"
  1485.   PRINT AT(6,14);"K = Berechnung des Kapitals"
  1486.   PRINT AT(6,16);"Z = Zinsfu₧"
  1487.   PRINT AT(6,18);"D = Berechnung der Zinstage"
  1488.   PRINT AT(6,20);"P = Umwandlung Zinsrechnung in Prozentrechnung"
  1489.   GOSUB taste
  1490.   IF e$="P"
  1491.     GOSUB prozent
  1492.   ENDIF
  1493.   IF e$="D"
  1494.     GOSUB zinstage
  1495.   ENDIF
  1496.   IF e$="Z"
  1497.     GOSUB zinsfus
  1498.   ENDIF
  1499.   IF e$="J"
  1500.     GOSUB jahreszinsen
  1501.   ENDIF
  1502.   IF e$="K"
  1503.     GOSUB kapital
  1504.   ENDIF
  1505.   IF e$="B"
  1506.     GOSUB tage
  1507.   ENDIF
  1508.   IF e$="M"
  1509.     GOSUB monatszinsen
  1510.   ENDIF
  1511.   IF e$="T"
  1512.     GOSUB tageszinsen
  1513.   ENDIF
  1514.   RUN
  1515. RETURN
  1516. PROCEDURE jahreszinsen
  1517.   GOSUB titel
  1518.   PRINT AT(3,4);STRING$(20,45);" J  a  h  r  e  s  z  i  n  s  e  n ";STRING$(20,45)
  1519.   PRINT AT(10,8);"Eingabe des Kapitals in DM"
  1520.   GOSUB zza1
  1521.   PRINT AT(10,10);"Eingabe des Zinsfu₧es in %"
  1522.   GOSUB zza2
  1523.   PRINT AT(10,12);"Eingabe der Jahre"
  1524.   GOSUB zza3
  1525.   LET er=z1*z2*z3/100/1
  1526.   PRINT AT(10,14);STRING$(50,45)
  1527.   PRINT AT(10,16);"Ergebnis der Jahreszinsen in DM"
  1528.   @ergi(41,16)
  1529.   GOSUB com
  1530. RETURN
  1531. PROCEDURE monatszinsen
  1532.   GOSUB titel
  1533.   PRINT AT(3,4);STRING$(20,45);" M  o  n  a  t  s  z  i  n  s  e  n ";STRING$(20,45)
  1534.   PRINT AT(10,8);"Eingabe des Kapitals in DM"
  1535.   GOSUB zza1
  1536.   PRINT AT(10,10);"Eingabe des Zinsfu₧es in %"
  1537.   GOSUB zza2
  1538.   PRINT AT(10,12);"Eingabe der Monate"
  1539.   GOSUB zza3
  1540.   LET er=z1*z2*z3/100/12
  1541.   PRINT AT(10,14);STRING$(50,45)
  1542.   PRINT AT(10,16);"Ergebnis der Monatszinsen in DM"
  1543.   @ergi(41,16)
  1544.   GOSUB com
  1545. RETURN
  1546. PROCEDURE tageszinsen
  1547.   GOSUB titel
  1548.   PRINT AT(3,4);STRING$(21,45);" T  a  g  e  s  z  i  n  s  e  n ";STRING$(22,45)
  1549.   PRINT AT(10,8);"Eingabe des Kapitals in DM"
  1550.   GOSUB zza1
  1551.   PRINT AT(10,10);"Eingabe des Zinsfu₧es in %"
  1552.   GOSUB zza2
  1553.   PRINT AT(10,12);"Eingabe der Tage"
  1554.   GOSUB zza3
  1555.   LET er=z1*z2*z3/100/360
  1556.   PRINT AT(10,14);STRING$(50,45)
  1557.   PRINT AT(10,16);"Ergebnis der Tageszinsen in DM"
  1558.   GOSUB ergi(41,16)
  1559.   GOSUB com
  1560. RETURN
  1561. PROCEDURE tage
  1562.   GOSUB titel
  1563.   PRINT AT(3,4);STRING$(32,45);" T  a  g  e ";STRING$(32,45)
  1564.   PRINT AT(10,5);"Monate werden alle mit 30 Tagen berechnet"
  1565.   PRINT AT(10,8);"Eingabe des 1 Tages"
  1566.   GOSUB zza1
  1567.   PRINT AT(10,10);"Eingabe der Monate des 1 Tages"
  1568.   GOSUB zza2
  1569.   PRINT AT(10,12);"Eingabe des 2 Tages"
  1570.   GOSUB zza3
  1571.   PRINT AT(10,14);"Eingabe der Monate des 2 Tages"
  1572.   PRINT AT(41,14);
  1573.   FORM INPUT 11,z4$
  1574.   LET z4=VAL(z4$)
  1575.   PRINT AT(41,14);
  1576.   PRINT USING "###############",z4
  1577.   LET er=(z4*30+z3)-(z2*30+z1)
  1578.   PRINT AT(10,16);STRING$(50,45)
  1579.   PRINT AT(10,18);"Anzahl der Tage"
  1580.   GOSUB ergi(41,18)
  1581.   GOSUB com
  1582. RETURN
  1583. PROCEDURE kapital
  1584.   GOSUB titel
  1585.   PRINT AT(3,4);STRING$(27,45);" K  a  p  i  t  a  l ";STRING$(28,45)
  1586.   PRINT AT(10,8);"Eingabe der Zinsen in DM"
  1587.   GOSUB zza1
  1588.   PRINT AT(10,10);"Eingabe des Zinsfu₧es in %"
  1589.   GOSUB zza2
  1590.   PRINT AT(10,12);"Eingabe der Tage"
  1591.   GOSUB zza3
  1592.   LET er=(z1*100*360)/(z3*z2)
  1593.   PRINT AT(10,14);STRING$(50,45)
  1594.   PRINT AT(10,16);"Ergebnis des Kapitals in DM"
  1595.   GOSUB ergi(41,16)
  1596.   GOSUB com
  1597. RETURN
  1598. PROCEDURE zinsfus
  1599.   GOSUB titel
  1600.   PRINT AT(3,4);STRING$(28,45);" Z  i  n  s  f  u  ₧ ";STRING$(27,45)
  1601.   PRINT AT(10,8);"Eingabe der Zinsen in DM"
  1602.   GOSUB zza1
  1603.   PRINT AT(10,10);"Eingabe des Kapitals in DM"
  1604.   GOSUB zza2
  1605.   PRINT AT(10,12);"Eingabe der Tage"
  1606.   GOSUB zza3
  1607.   LET er=(z1*100*360)/(z2*z3)
  1608.   PRINT AT(10,14);STRING$(50,45)
  1609.   PRINT AT(10,16);"Der Zinsfu₧ in % beträgt"
  1610.   GOSUB ergi(41,16)
  1611.   GOSUB com
  1612. RETURN
  1613. PROCEDURE zinstage
  1614.   GOSUB titel
  1615.   PRINT AT(3,4);STRING$(26,45);" Z  i  n  s  t  a  g  e ";STRING$(26,45)
  1616.   PRINT AT(10,8);"Eingabe des Zinsen in DM"
  1617.   GOSUB zza1
  1618.   PRINT AT(10,10);"Eingabe des Kapitals in DM"
  1619.   GOSUB zza2
  1620.   PRINT AT(10,12);"Eingabe des Zinsfu₧es"
  1621.   GOSUB zza3
  1622.   LET er=INT(z1*100*360)/(z2*z3)
  1623.   PRINT AT(10,14);STRING$(50,45)
  1624.   PRINT AT(10,16);"Anzahl der Zinstage"
  1625.   GOSUB ergi(41,16)
  1626.   GOSUB com
  1627. RETURN
  1628. PROCEDURE prozent
  1629.   GOSUB titel
  1630.   PRINT AT(3,4);STRING$(14,45);" Umwandlung - Zinsrechnung --> Prozentrechnung ";STRING$(15,45)
  1631.   PRINT AT(10,8);"Eingabe der Tage"
  1632.   GOSUB zza1
  1633.   PRINT AT(10,10);"Eingabe des Zinsfu₧es in %"
  1634.   GOSUB zza2
  1635.   LET er=(z1*z2)/100
  1636.   PRINT AT(10,12);STRING$(50,45)
  1637.   PRINT AT(10,14);"Prozentsatz in %"
  1638.   GOSUB ergi(41,14)
  1639.   GOSUB com
  1640. RETURN
  1641. PROCEDURE prozentrechnung
  1642.   GOSUB titel
  1643.   PRINT AT(3,4);STRING$(15,45);" P  r  o  z  e  n  t  r  e  c  h  n  u  n  g ";STRING$(16,45)
  1644.   PRINT AT(6,6);"W = Berechnung des Prozentwertes"
  1645.   PRINT AT(6,8);"S = Berechnung des Prozentsatzes"
  1646.   PRINT AT(6,10);"G = Berechnung des Grundwertes"
  1647.   PRINT AT(6,12);"V = vermehrter Wert"
  1648.   PRINT AT(6,14);"M = verminderter Wert"
  1649.   GOSUB taste
  1650.   IF e$="V"
  1651.     GOSUB vermehrter_wert
  1652.   ENDIF
  1653.   IF e$="M"
  1654.     GOSUB verminderter_wert
  1655.   ENDIF
  1656.   IF e$="S"
  1657.     GOSUB prozentsatz
  1658.   ENDIF
  1659.   IF e$="G"
  1660.     GOSUB grundwert
  1661.   ENDIF
  1662.   IF e$="W"
  1663.     GOSUB prozentwert
  1664.   ENDIF
  1665.   RUN
  1666. RETURN
  1667. PROCEDURE prozentwert
  1668.   GOSUB titel
  1669.   PRINT AT(3,4);STRING$(22,45);" P  r  o  z  e  n  t  w  e  r  t ";STRING$(21,45)
  1670.   PRINT AT(10,8);"Eingabe des Grundwertes"
  1671.   GOSUB zza1
  1672.   PRINT AT(10,10);"Eingabe des Prozentsatzes"
  1673.   GOSUB zza2
  1674.   LET er=z1*z2/100
  1675.   PRINT AT(10,12);STRING$(50,45)
  1676.   PRINT AT(10,14);"Prozentwert ="
  1677.   GOSUB ergi(41,14)
  1678.   GOSUB com
  1679. RETURN
  1680. PROCEDURE vermehrter_wert
  1681.   GOSUB titel
  1682.   PRINT AT(3,4);STRING$(29,45);" vermehrter Wert ";STRING$(30,45)
  1683.   PRINT AT(10,8);"Eingabe des Grundwertes"
  1684.   GOSUB zza1
  1685.   PRINT AT(10,10);"Eingabe des Prozentwertes"
  1686.   GOSUB zza2
  1687.   LET er=z1+z2
  1688.   PRINT AT(10,12);STRING$(50,45)
  1689.   PRINT AT(10,14);"Vermehrter Wert ="
  1690.   GOSUB ergi(41,14)
  1691.   GOSUB com
  1692. RETURN
  1693. PROCEDURE verminderter_wert
  1694.   GOSUB titel
  1695.   PRINT AT(3,4);STRING$(28,45);" verminderter Wert ";STRING$(29,45)
  1696.   PRINT AT(10,8);"Eingabe des Grundwertes"
  1697.   GOSUB zza1
  1698.   PRINT AT(10,10);"Eingabe des Prozentwertes"
  1699.   GOSUB zza2
  1700.   LET er=z1-z2
  1701.   PRINT AT(10,12);STRING$(50,45)
  1702.   PRINT AT(10,14);"Verminderter Wert ="
  1703.   GOSUB ergi(41,14)
  1704.   GOSUB com
  1705. RETURN
  1706. PROCEDURE prozentsatz
  1707.   GOSUB titel
  1708.   PRINT AT(3,4);STRING$(22,45);" P  r  o  z  e  n  t  s  a  t  z ";STRING$(21,45)
  1709.   PRINT AT(10,8);"Eingabe des Prozentwertes"
  1710.   GOSUB zza1
  1711.   PRINT AT(10,10);"Eingabe des Grundwertes"
  1712.   GOSUB zza2
  1713.   LET er=z1/(z2/100)
  1714.   PRINT AT(10,12);STRING$(50,45)
  1715.   PRINT AT(10,14);"Prozentsatz ="
  1716.   GOSUB ergi(41,14)
  1717.   GOSUB com
  1718. RETURN
  1719. PROCEDURE grundwert
  1720.   GOSUB titel
  1721.   PRINT AT(3,4);STRING$(25,45);" G  r  u  n  d  w  e  r  t ";STRING$(24,45)
  1722.   PRINT AT(10,8);"Eingabe des Prozentwertes"
  1723.   GOSUB zza1
  1724.   PRINT AT(10,10);"Eingabe des Prozentsatzes"
  1725.   GOSUB zza2
  1726.   LET er=z1*100/z2
  1727.   PRINT AT(10,12);STRING$(50,45)
  1728.   PRINT AT(10,14);"Grundwert ="
  1729.   GOSUB ergi(41,14)
  1730.   GOSUB com
  1731. RETURN
  1732. PROCEDURE diskontrechnung
  1733.   GOSUB titel
  1734.   PRINT AT(3,4);STRING$(15,45);" D  i  s  k  o  n  t  r  e  c  h  n  u  n  g ";STRING$(16,45)
  1735.   PRINT AT(6,6);"M = Berechnung des Mindestdiskontzahl"
  1736.   PRINT AT(6,8);"D = Berechnung des Diskontes"
  1737.   PRINT AT(6,10);"T = Diskontteiler"
  1738.   GOSUB taste
  1739.   IF e$="T"
  1740.     GOSUB diskontteiler
  1741.   ENDIF
  1742.   IF e$="M"
  1743.     GOSUB mindestdiskont
  1744.   ENDIF
  1745.   IF e$="D"
  1746.     GOSUB diskont
  1747.   ENDIF
  1748.   RUN
  1749. RETURN
  1750. PROCEDURE mindestdiskont
  1751.   GOSUB titel
  1752.   PRINT AT(3,4);STRING$(30,45);" Mindestdiskont ";STRING$(30,45)
  1753.   PRINT AT(10,8);"Eingabe des Mindestdiskontes"
  1754.   GOSUB zza1
  1755.   PRINT AT(10,10);"Eingabe des Diskontsatzes in %"
  1756.   GOSUB zza2
  1757.   LET er=z1*(360/z2)
  1758.   PRINT AT(10,12);STRING$(50,45)
  1759.   PRINT AT(10,14);"Mindestdiskontzahl ="
  1760.   GOSUB ergi(41,14)
  1761.   GOSUB com
  1762. RETURN
  1763. PROCEDURE diskont
  1764.   GOSUB titel
  1765.   PRINT AT(3,4);STRING$(27,45);" D  i  s  k  o  n  t ";STRING$(28,45)
  1766.   PRINT AT(10,8);"Eingabe des Wechselbetrages"
  1767.   GOSUB zza1
  1768.   PRINT AT(10,10);"Eingabe der Diskonttage"
  1769.   GOSUB zza2
  1770.   PRINT AT(10,12);"Eingabe des Diskontteilers"
  1771.   GOSUB zza3
  1772.   LET er=((z1/100)*z2)/z3
  1773.   PRINT AT(10,14);STRING$(50,45)
  1774.   PRINT AT(10,16);"Diskont ="
  1775.   GOSUB ergi(41,16)
  1776.   GOSUB com
  1777. RETURN
  1778. PROCEDURE diskontteiler
  1779.   GOSUB titel
  1780.   PRINT AT(3,4);STRING$(29,45);" Diskont - Teiler ";STRING$(29,45)
  1781.   PRINT AT(10,8);"Eingabe des Wechselbetrages"
  1782.   GOSUB zza1
  1783.   PRINT AT(10,10);"Eingabe der Diskonttage"
  1784.   GOSUB zza2
  1785.   PRINT AT(10,12);"Eingabe des Diskontsatzes"
  1786.   GOSUB zza3
  1787.   LET er=((z1/100)*(z2*z3))/360
  1788.   PRINT AT(10,14);STRING$(50,45)
  1789.   PRINT AT(10,16);"Diskontteiler ="
  1790.   GOSUB ergi(41,16)
  1791.   GOSUB com
  1792. RETURN
  1793. PROCEDURE dreisatz
  1794.   GOSUB titel
  1795.   PRINT AT(3,4);STRING$(25,45);" D  r  e  i  s  a  t  z  ";STRING$(26,45)
  1796.   PRINT AT(6,6);"E = Dreisatz mit geraden   Verhältnis (2 Operationen)"
  1797.   PRINT AT(6,8);"M = Dreisatz mit ungeradem Verhältnis (2 Operationen)"
  1798.   GOSUB taste
  1799.   IF e$="E"
  1800.     GOSUB edreisatz
  1801.   ENDIF
  1802.   IF e$="M"
  1803.     GOSUB udreisatz
  1804.   ENDIF
  1805.   RUN
  1806. RETURN
  1807. PROCEDURE edreisatz
  1808.   GOSUB titel
  1809.   PRINT AT(3,4);STRING$(27,45);" Einfacher - Dreisatz ";STRING$(27,45)
  1810.   PRINT AT(10,8);"Eingabe der Meter"
  1811.   GOSUB zza1
  1812.   PRINT AT(10,10);"Die Meter kosten DM"
  1813.   GOSUB zza2
  1814.   PRINT AT(10,12);"Eingabe der gesuchten Meter"
  1815.   GOSUB zza3
  1816.   LET er=(z2*z3)/z1
  1817.   PRINT AT(10,14);STRING$(50,45)
  1818.   PRINT AT(10,16);"Die Meter kosten  DM"
  1819.   GOSUB ergi(41,16)
  1820.   GOSUB com
  1821. RETURN
  1822. PROCEDURE udreisatz
  1823.   GOSUB titel
  1824.   PRINT AT(3,4);STRING$(27,45);" Ungerader - Dreisatz ";STRING$(27,45)
  1825.   PRINT AT(10,8);"Eingabe der Arbeiter"
  1826.   GOSUB zza1
  1827.   PRINT AT(10,10);"Anzahl der Tage eingeben"
  1828.   GOSUB zza2
  1829.   PRINT AT(10,12);"Eingabe der gesuchten Arbeiter"
  1830.   GOSUB zza3
  1831.   LET er=INT(z2*z1)/z3
  1832.   PRINT AT(10,14);STRING$(50,45)
  1833.   PRINT AT(10,16);"Es werden Tage benötigt"
  1834.   GOSUB ergi(41,16)
  1835.   GOSUB com
  1836. RETURN
  1837. PROCEDURE lagerkennzahlen
  1838.   GOSUB titel
  1839.   PRINT AT(3,4);STRING$(15,45);" L  a  g  e  r  k  e  n  n  z  a  h  l  e  n ";STRING$(16,45)
  1840.   PRINT AT(6,6);"D = Durchschnittlicher Lagerbestand >  2 <"
  1841.   PRINT AT(6,8);"K = Durchschnittlicher Lagerbestand > 13 <"
  1842.   PRINT AT(6,10);"L = Lagerumschlagshäufigkeit"
  1843.   PRINT AT(6,12);"F = Durchschnittliche Lagerdauer"
  1844.   GOSUB taste
  1845.   IF e$="D"
  1846.     GOSUB lagerbestand2
  1847.   ENDIF
  1848.   IF e$="K"
  1849.     GOSUB lagerbestand13
  1850.   ENDIF
  1851.   IF e$="L"
  1852.     GOSUB lagerum
  1853.   ENDIF
  1854.   IF e$="F"
  1855.     GOSUB lagerdauer
  1856.   ENDIF
  1857.   RUN
  1858. RETURN
  1859. PROCEDURE lagerbestand2
  1860.   GOSUB titel
  1861.   PRINT AT(3,4);STRING$(19,45);" Durchschnittlicher Lagerbestand   >2< ";STRING$(18,45)
  1862.   PRINT AT(8,8);"Eingabe des Anfangsbestandes"
  1863.   GOSUB zza1
  1864.   PRINT AT(8,10);"Eingabe des Endbestandes"
  1865.   GOSUB zza2
  1866.   LET er=(z1+z2)/2
  1867.   PRINT AT(41,12);
  1868.   PRINT USING "###############.###",z2
  1869.   PRINT AT(8,12);STRING$(52,45)
  1870.   PRINT AT(8,14);"Durchschnittlicher Lagerbestand"
  1871.   GOSUB ergi(41,14)
  1872.   GOSUB com
  1873. RETURN
  1874. PROCEDURE lagerbestand13
  1875.   GOSUB titel
  1876.   PRINT AT(3,4);STRING$(18,45);" Durchschnittlicher Lagerbestand   >13< ";STRING$(18,45)
  1877.   PRINT AT(8,8);"Eingabe des Anfangsbestandes";
  1878.   GOSUB zza1
  1879.   PRINT AT(8,10);"Eingabe des 1 Monatsbestandes";
  1880.   GOSUB zza2
  1881.   PRINT AT(8,10);"Eingabe des 2 Monatsbestandes ";
  1882.   FORM INPUT 11,z3$
  1883.   LET z3=VAL(z3$)
  1884.   PRINT AT(41,10);
  1885.   PRINT USING "###############.###",z3
  1886.   PRINT AT(8,10);"Eingabe des 3 Monatsbestandes ";
  1887.   FORM INPUT 11,z4$
  1888.   LET z4=VAL(z4$)
  1889.   PRINT AT(41,10);
  1890.   PRINT USING "###############.###",z4
  1891.   PRINT AT(8,10);"Eingabe des 4 Monatsbestandes ";
  1892.   FORM INPUT 11,z5$
  1893.   LET z5=VAL(z5$)
  1894.   PRINT AT(41,10);
  1895.   PRINT USING "###############.###",z5
  1896.   PRINT AT(8,10);"Eingabe des 5 Monatsbestandes ";
  1897.   FORM INPUT 11,z6$
  1898.   LET z6=VAL(z6$)
  1899.   PRINT AT(41,10);
  1900.   PRINT USING "###############.###",z6
  1901.   PRINT AT(8,10);"Eingabe des 6 Monatsbestandes ";
  1902.   FORM INPUT 11,z7$
  1903.   LET z7=VAL(z7$)
  1904.   PRINT AT(41,10);
  1905.   PRINT USING "###############.###",z7
  1906.   PRINT AT(8,10);"Eingabe des 7 Monatsbestandes ";
  1907.   FORM INPUT 11,z8$
  1908.   LET z8=VAL(z8$)
  1909.   PRINT AT(41,10);
  1910.   PRINT USING "###############.###",z8
  1911.   PRINT AT(8,10);"Eingabe des 8 Monatsbestandes ";
  1912.   FORM INPUT 11,z9$
  1913.   LET z9=VAL(z9$)
  1914.   PRINT AT(41,10);
  1915.   PRINT USING "###############.###",z9
  1916.   PRINT AT(8,10);"Eingabe des 9 Monatsbestandes ";
  1917.   FORM INPUT 11,z10$
  1918.   LET z10=VAL(z10$)
  1919.   PRINT AT(41,10);
  1920.   PRINT USING "###############.###",z10
  1921.   PRINT AT(8,10);"Eingabe des 10 Monatsbestandes ";
  1922.   FORM INPUT 11,z11$
  1923.   LET z11=VAL(z11$)
  1924.   PRINT AT(41,10);
  1925.   PRINT USING "###############.###",z11
  1926.   PRINT AT(8,10);"Eingabe des 11 Monatsbestandes ";
  1927.   FORM INPUT 11,z12$
  1928.   LET z12=VAL(z12$)
  1929.   PRINT AT(41,10);
  1930.   PRINT USING "###############.###",z12
  1931.   PRINT AT(8,10);"Eingabe des 12 Monatsbestandes ";
  1932.   FORM INPUT 11,z13$
  1933.   LET z13=VAL(z13$)
  1934.   PRINT AT(41,10);
  1935.   PRINT USING "###############.###",z13
  1936.   LET er=(z1+z2+z3+z4+z5+z6+z7+z8+z9+z10+z11+z12+z13)/13
  1937.   PRINT AT(8,12);STRING$(52,45)
  1938.   PRINT AT(8,14);"Durchschnittlicher Lagerbestand "
  1939.   GOSUB ergi(41,14)
  1940.   GOSUB com
  1941. RETURN
  1942. PROCEDURE lagerum
  1943.   GOSUB titel
  1944.   PRINT AT(3,4);STRING$(25,45);" Lagerumschlagshäufigkeit ";STRING$(25,45)
  1945.   PRINT AT(8,8);"Eingabe des Wareneinsatzes"
  1946.   GOSUB zza1
  1947.   PRINT AT(8,10);"Eingabe des Durchschnitlichen"
  1948.   PRINT AT(8,11);"Lagerbestandes an Ware               ";
  1949.   GOSUB zza2
  1950.   LET er=(z1/z2)
  1951.   PRINT AT(8,13);STRING$(52,45)
  1952.   PRINT AT(8,15);"Lagerumschlagshäufigkeit (Tage) ";
  1953.   GOSUB ergi(41,15)
  1954.   GOSUB com
  1955. RETURN
  1956. PROCEDURE lagerdauer
  1957.   GOSUB titel
  1958.   PRINT AT(3,4);STRING$(23,45);" Durchschnittliche Lagerdauer ";STRING$(23,45)
  1959.   PRINT AT(8,8);"Eingabe des Lager-"
  1960.   PRINT AT(8,9);"umschlagshäufigkeit              ";
  1961.   GOSUB zza1
  1962.   LET er=360/z1
  1963.   PRINT AT(8,11);STRING$(52,45)
  1964.   PRINT AT(8,13);"Durchschnittliche Lagerdauer   ";
  1965.   GOSUB ergi(41,13)
  1966.   GOSUB com
  1967. RETURN
  1968. PROCEDURE buchfuhrung
  1969.   GOSUB titel
  1970.   PRINT AT(3,4);STRING$(21,45);" B  u  c  h  f  ü  h  r  u  n  g ";STRING$(22,45)
  1971.   PRINT AT(6,6);"R = Reinvermögen (Eigenkapital)"
  1972.   PRINT AT(6,8);"V = Vermögen"
  1973.   PRINT AT(6,10);"F = Fremdkapital"
  1974.   PRINT AT(6,12);"E = Einstandspreis"
  1975.   PRINT AT(6,14);"W = Wareneinsatz "
  1976.   PRINT AT(6,16);"G = Warengewinn (Rohgewinn)"
  1977.   PRINT AT(6,18);"Z = Berechnung der Zahlllast"
  1978.   PRINT AT(6,20);"A = Linearer AfA-Betrag in DM"
  1979.   PRINT AT(6,22);"B = Linearer AfA-Satz in %"
  1980.   PRINT AT(43,6);"L = Lohnquote in %"
  1981.   PRINT AT(43,8);"U = Umsatzrentabilität"
  1982.   PRINT AT(43,10);"I = Wirtschaftlichkeit"
  1983.   PRINT AT(43,12);"P = Produktivität"
  1984.   PRINT AT(43,14);"C = Wareneinsatzquote"
  1985.   PRINT AT(43,16);"D = Gesamtkapitalumschlag"
  1986.   PRINT AT(43,18);"H = Rentabilität"
  1987.   PRINT AT(43,20);"S = Steuerme₧betrag"
  1988.   IF XBIOS(4)=2
  1989.     LINE 310,70,310,350
  1990.   ELSE
  1991.     LINE 310,40,310,175
  1992.   ENDIF
  1993.   GOSUB taste
  1994.   IF e$="S"
  1995.     GOSUB steuermesbetrag
  1996.   ENDIF
  1997.   IF e$="H"
  1998.     GOSUB rentabilitaet
  1999.   ENDIF
  2000.   IF e$="P"
  2001.     GOSUB produktivitat
  2002.   ENDIF
  2003.   IF e$="C"
  2004.     GOSUB wareneinsatzquote
  2005.   ENDIF
  2006.   IF e$="D"
  2007.     GOSUB gesamtkapitalumschlag
  2008.   ENDIF
  2009.   IF e$="I"
  2010.     GOSUB wirtschaftlichkeit
  2011.   ENDIF
  2012.   IF e$="U"
  2013.     GOSUB umsatz
  2014.   ENDIF
  2015.   IF e$="L"
  2016.     GOSUB lohnquote
  2017.   ENDIF
  2018.   IF e$="A"
  2019.     GOSUB afa_betrag
  2020.   ENDIF
  2021.   IF e$="B"
  2022.     GOSUB afa_satz
  2023.   ENDIF
  2024.   IF e$="Z"
  2025.     GOSUB zahllast
  2026.   ENDIF
  2027.   IF e$="G"
  2028.     GOSUB warengewinn
  2029.   ENDIF
  2030.   IF e$="W"
  2031.     GOSUB wareneinsatz
  2032.   ENDIF
  2033.   IF e$="E"
  2034.     GOSUB einstandspreis
  2035.   ENDIF
  2036.   IF e$="V"
  2037.     GOSUB vermogen
  2038.   ENDIF
  2039.   IF e$="F"
  2040.     GOSUB fremdkapital
  2041.   ENDIF
  2042.   IF e$="R"
  2043.     GOSUB reinvermogen
  2044.   ENDIF
  2045.   RUN
  2046. RETURN
  2047. PROCEDURE reinvermogen
  2048.   GOSUB titel
  2049.   PRINT AT(3,4);STRING$(23,45);" Reinvermögen (Eigenkapital) ";STRING$(24,45)
  2050.   PRINT AT(8,8);"Eingabe des Vermögens"
  2051.   GOSUB zza1
  2052.   PRINT AT(8,10);"Eingabe der Schulden"
  2053.   GOSUB zza2
  2054.   LET er=z1-z2
  2055.   PRINT AT(8,12);STRING$(52,45)
  2056.   PRINT AT(8,14);"Reinvermögen (Eigenkapital) in DM = ";
  2057.   GOSUB ergi(41,14)
  2058.   GOSUB com
  2059. RETURN
  2060. PROCEDURE steuermesbetrag
  2061.   GOSUB titel
  2062.   PRINT AT(3,4);STRING$(29,45);" Steuerme₧betrag ";STRING$(30,45)
  2063.   PRINT AT(8,8);"Eingabe des Einheitswertes"
  2064.   GOSUB zza1
  2065.   PRINT AT(8,10);"Eingabe der Mwe₧zahl"
  2066.   GOSUB zza2
  2067.   LET er=z1*z2
  2068.   PRINT AT(8,12);STRING$(52,45)
  2069.   PRINT AT(8,14);"Steuerme₧betrag = ";
  2070.   GOSUB ergi(41,14)
  2071.   GOSUB com
  2072. RETURN
  2073. PROCEDURE vermogen
  2074.   GOSUB titel
  2075.   PRINT AT(3,4);STRING$(26,45);" V  e  r  m  ö  g  e  n ";STRING$(26,45)
  2076.   PRINT AT(8,8);"Eingabe des Eigenkapitals"
  2077.   GOSUB zza1
  2078.   PRINT AT(8,10);"Eingabe des Fremdkapitals"
  2079.   GOSUB zza2
  2080.   LET er=z1+z2
  2081.   PRINT AT(8,12);STRING$(52,45)
  2082.   PRINT AT(8,14);"Vermögen (Kapital)  in DM"
  2083.   GOSUB ergi(41,14)
  2084.   GOSUB com
  2085. RETURN
  2086. PROCEDURE rentabilitaet
  2087.   GOSUB titel
  2088.   PRINT AT(3,4);STRING$(31,45);" Rentabilität ";STRING$(31,45)
  2089.   PRINT AT(8,8);"Eingabe des Reingewinns"
  2090.   GOSUB zza1
  2091.   PRINT AT(8,10);"Eingabe des Kapitals"
  2092.   GOSUB zza2
  2093.   LET er=(z1*100)/z2
  2094.   PRINT AT(8,12);STRING$(52,45)
  2095.   PRINT AT(8,14);"Rentabilität"
  2096.   GOSUB ergi(41,14)
  2097.   GOSUB com
  2098. RETURN
  2099. PROCEDURE fremdkapital
  2100.   GOSUB titel
  2101.   PRINT AT(3,4);STRING$(20,45);" F  r  e  m  d  k  a  p  i  t  a  l ";STRING$(20,45)
  2102.   PRINT AT(8,8);"Eingabe des Eigenkapitals"
  2103.   GOSUB zza1
  2104.   PRINT AT(8,10);"Eingabe des Fremdkapitals"
  2105.   GOSUB zza2
  2106.   LET er=z1-z2
  2107.   PRINT AT(8,12);STRING$(52,45)
  2108.   PRINT AT(8,14);"Vermögen (Kapital) in DM         = ";
  2109.   GOSUB ergi(41,14)
  2110.   GOSUB com
  2111. RETURN
  2112. PROCEDURE einstandspreis
  2113.   GOSUB titel
  2114.   PRINT AT(3,4);STRING$(17,45);" E  i  n  s  t  a  n  d  s  p  r  e  i  s ";STRING$(17,45)
  2115.   PRINT AT(8,8);"Einkaufspreis laut Rechnung"
  2116.   GOSUB zza1
  2117.   PRINT AT(8,10);"Eingabe der Nachlässe in DM"
  2118.   GOSUB zza2
  2119.   PRINT AT(8,12);"Eingabe der Bezugskosten in DM    ";
  2120.   GOSUB zza3
  2121.   LET er=z1-z2+z3
  2122.   PRINT AT(8,14);STRING$(52,45)
  2123.   PRINT AT(8,16);"Einstandspreis in DM            = ";
  2124.   GOSUB ergi(41,16)
  2125.   GOSUB com
  2126. RETURN
  2127. PROCEDURE wareneinsatz
  2128.   GOSUB titel
  2129.   PRINT AT(3,4);STRING$(20,45);" W  a  r  e  n  e  i  n  s  a  t  z ";STRING$(20,45)
  2130.   PRINT AT(7,8);"Anfangsbestand der Waren in DM"
  2131.   GOSUB zza1
  2132.   PRINT AT(7,10);"Waren - Einkäufe in DM"
  2133.   GOSUB zza2
  2134.   PRINT AT(7,12);"Schlu₧bestand an Waren lt Inventur ";
  2135.   GOSUB zza3
  2136.   LET er=z1+z2-z3
  2137.   PRINT AT(7,14);STRING$(53,45)
  2138.   PRINT AT(7,16);"Wareneinsatz der Waren in DM     = ";
  2139.   GOSUB ergi(41,16)
  2140.   GOSUB com
  2141. RETURN
  2142. PROCEDURE warengewinn
  2143.   GOSUB titel
  2144.   PRINT AT(3,4);STRING$(21,45);" W  a  r  e  n  g  e  w  i  n  n ";STRING$(22,45)
  2145.   PRINT AT(8,8);"Verkaufserlöse der Waren in DM"
  2146.   GOSUB zza1
  2147.   PRINT AT(8,10);"Wareneinsatz der Waren in DM"
  2148.   GOSUB zza2
  2149.   LET er=z1-z2
  2150.   PRINT AT(8,12);STRING$(52,45)
  2151.   PRINT AT(8,14);"Warengewinn (Rohgewinn) in DM    = ";
  2152.   GOSUB ergi(41,14)
  2153.   GOSUB com
  2154. RETURN
  2155. PROCEDURE zahllast
  2156.   GOSUB titel
  2157.   PRINT AT(3,4);STRING$(26,45);" Z  a  h  l  l  a  s  t ";STRING$(26,45)
  2158.   PRINT AT(8,8);"Eingabe der Umsatzsteuer in DM"
  2159.   GOSUB zza1
  2160.   PRINT AT(8,10);"Eingabe der Vorsteuer   in DM"
  2161.   GOSUB zza2
  2162.   LET er=z1-z2
  2163.   PRINT AT(8,12);STRING$(52,45)
  2164.   PRINT AT(8,14);"Zahllast                in DM     ";
  2165.   GOSUB ergi(41,14)
  2166.   GOSUB com
  2167. RETURN
  2168. PROCEDURE afa_betrag
  2169.   GOSUB titel
  2170.   PRINT AT(3,4);STRING$(17,45);" Abschreibung (linearer AfA Betrag in DM) ";STRING$(17,45)
  2171.   PRINT AT(8,8);"Eingabe des Anschaffungswertes"
  2172.   GOSUB zza1
  2173.   PRINT AT(8,10);"Eingabe der Nutzungsdauer"
  2174.   GOSUB zza2
  2175.   LET er=z1/z2
  2176.   PRINT AT(8,12);STRING$(52,45)
  2177.   PRINT AT(8,14);"linearer AfA-Betrag   in DM       ";
  2178.   GOSUB ergi(41,14)
  2179.   GOSUB com
  2180. RETURN
  2181. PROCEDURE afa_satz
  2182.   GOSUB titel
  2183.   PRINT AT(3,4);STRING$(19,45);" Abschreibung (linearer AfA Satz in %) ";STRING$(18,45)
  2184.   PRINT AT(8,8);"Eingabe der Nutzungsdauer"
  2185.   GOSUB zza1
  2186.   LET er=100/z1
  2187.   PRINT AT(8,10);STRING$(52,45)
  2188.   PRINT AT(8,12);"linearer AfA-Satz   in %        = ";
  2189.   GOSUB kok
  2190. RETURN
  2191. PROCEDURE lohnquote
  2192.   GOSUB titel
  2193.   PRINT AT(3,4);STRING$(20,45);" L  o  h  n  q  u  o  t  e   in  % ";STRING$(21,45)
  2194.   PRINT AT(8,8);"Eingabe der Personalkosten"
  2195.   GOSUB zza1
  2196.   PRINT AT(8,10);"Eingabe der Umsatzerlöse"
  2197.   GOSUB zza2
  2198.   LET er=(z1*100)/z2
  2199.   PRINT AT(8,12);STRING$(52,45)
  2200.   PRINT AT(8,14);"Lohnquote in      %             = ";
  2201.   GOSUB voc
  2202. RETURN
  2203. PROCEDURE umsatz
  2204.   GOSUB titel
  2205.   PRINT AT(3,4);STRING$(28,45);" Umsatzrentabilität ";STRING$(28,45)
  2206.   PRINT AT(8,8);"Eingabe des Betriebsergebnisses"
  2207.   GOSUB zza1
  2208.   PRINT AT(8,10);"Eingabe des Umsatzes"
  2209.   GOSUB zza2
  2210.   LET er=(z1*100)/z2
  2211.   PRINT AT(8,12);STRING$(52,45)
  2212.   PRINT AT(8,14);"Umstazrentabilität              = ";
  2213.   GOSUB voc
  2214. RETURN
  2215. PROCEDURE wirtschaftlichkeit
  2216.   GOSUB titel
  2217.   PRINT AT(3,4);STRING$(28,45);" Wirtschaftlichkeit ";STRING$(28,45)
  2218.   PRINT AT(8,8);"Eingabe der Umsatzerlöse"
  2219.   GOSUB zza1
  2220.   PRINT AT(8,10);"Eingabe der Handlungskosten"
  2221.   GOSUB zza2
  2222.   LET er=z1/z2
  2223.   PRINT AT(8,12);STRING$(52,45)
  2224.   PRINT AT(8,14);"Wirtschaftlichkeit              = ";
  2225.   GOSUB voc
  2226. RETURN
  2227. PROCEDURE produktivitat
  2228.   GOSUB titel
  2229.   PRINT AT(3,4);STRING$(30,45);" Produktivität ";STRING$(31,45)
  2230.   PRINT AT(8,8);"Eingabe des Umsatzes"
  2231.   GOSUB zza1
  2232.   PRINT AT(8,10);"Anzahl der Mitarbeiter"
  2233.   GOSUB zza2
  2234.   LET er=z1/z2
  2235.   PRINT AT(8,12);STRING$(52,45)
  2236.   PRINT AT(8,14);"Produktivität                   = ";
  2237.   GOSUB voc
  2238. RETURN
  2239. PROCEDURE wareneinsatzquote
  2240.   GOSUB titel
  2241.   PRINT AT(3,4);STRING$(28,45);" Wareneinsatzquote ";STRING$(29,45)
  2242.   PRINT AT(8,8);"Eingabe der Wareneinsatzes"
  2243.   GOSUB zza1
  2244.   PRINT AT(8,10);"Eingabe des Umsatzes"
  2245.   GOSUB zza2
  2246.   LET er=(z1*100)/z2
  2247.   PRINT AT(8,12);STRING$(52,45)
  2248.   PRINT AT(8,14);"Wareneinsatzquote               = ";
  2249.   GOSUB voc
  2250. RETURN
  2251. PROCEDURE gesamtkapitalumschlag
  2252.   GOSUB titel
  2253.   PRINT AT(3,4);STRING$(27,45);" Gesamtkapitalumschlag ";STRING$(26,45)
  2254.   PRINT AT(8,8);"Eingabe des Umsatzes"
  2255.   GOSUB zza1
  2256.   PRINT AT(8,10);"Eingabe der Bilanzsumme"
  2257.   GOSUB zza2
  2258.   LET er=z1/z2
  2259.   PRINT AT(8,12);STRING$(52,45)
  2260.   PRINT AT(8,14);"Gesamtkapitalumschlag           = ";
  2261.   GOSUB voc
  2262. RETURN
  2263. PROCEDURE kalkulation
  2264.   GOSUB titel
  2265.   PRINT AT(3,4);STRING$(31,45);" Kalkulation ";STRING$(32,45)
  2266.   PRINT AT(5,6);"S = Gewichtsspesen je kg"
  2267.   PRINT AT(5,8);"W = Wertspesen je DM Einkaufspreis"
  2268.   PRINT AT(5,10);"L = Lagerzinsfu₧"
  2269.   PRINT AT(5,12);"H = Handlungskostenzuschlagsatz"
  2270.   PRINT AT(5,14);"Z = Gewinnzuschlag"
  2271.   PRINT AT(5,15);"E = Einkaufsmultiplikator"
  2272.   PRINT AT(5,18);"N = Kalkulationsfaktor   (KF) II"
  2273.   PRINT AT(5,17);"F = Kalkulationsfaktor   (KF)"
  2274.   PRINT AT(5,20);"L = Kalkulationszuschlag (KZ) II"
  2275.   PRINT AT(5,19);"K = Kalkulationszuschlag (KZ)"
  2276.   PRINT AT(5,22);"J = Handelsspanne       (HSP) II"
  2277.   PRINT AT(5,21);"H = Handelsspanne       (HSP)"
  2278.   IF XBIOS(4)=2
  2279.     LINE 310,70,310,350
  2280.   ELSE
  2281.     LINE 310,40,310,175
  2282.   ENDIF
  2283.   PRINT AT(42,6);"U = Welchen Kalkulationszuschlag"
  2284.   PRINT AT(42,7);"    entspricht folgende Handelsspanne"
  2285.   PRINT AT(42,9);"A = Welcher Handelsspanne entspricht"
  2286.   PRINT AT(42,10);"    folgender Kalkulationszuschlag"
  2287.   PRINT AT(42,12);"M = Materialgemeinkostenzuschlagssatz"
  2288.   PRINT AT(42,14);"B = Fertigungsgemeinkostenzuschlag"
  2289.   PRINT AT(42,16);"V = Verwaltungsgemeinkostenzuschlag"
  2290.   PRINT AT(42,18);"C = Abteilungsstundensatz"
  2291.   PRINT AT(42,19);"D = Abteilungsmengensatz"
  2292.   PRINT AT(42,21);"G = Maschinenstundensatz"
  2293.   PRINT AT(42,22);"I = Materialmengensatz"
  2294.   GOSUB taste
  2295.   IF e$="J"
  2296.     GOSUB handelsspanne2
  2297.   ENDIF
  2298.   IF e$="L"
  2299.     GOSUB kalkulationszuschlag2
  2300.   ENDIF
  2301.   IF e$="N"
  2302.     GOSUB kalkulationsfaktor2
  2303.   ENDIF
  2304.   IF e$="C"
  2305.     GOSUB abteilungsstundensatz
  2306.   ENDIF
  2307.   IF e$="D"
  2308.     GOSUB abteilungsmengensatz
  2309.   ENDIF
  2310.   IF e$="G"
  2311.     GOSUB maschinenstundensatz
  2312.   ENDIF
  2313.   IF e$="I"
  2314.     GOSUB materialmengensatz
  2315.   ENDIF
  2316.   IF e$="M"
  2317.     GOSUB materialgemeinkostenzuschlagssatz
  2318.   ENDIF
  2319.   IF e$="B"
  2320.     GOSUB fertigungsgemeinkostenzuschlag
  2321.   ENDIF
  2322.   IF e$="V"
  2323.     GOSUB verwaltungsgemeinkostenzuschlag
  2324.   ENDIF
  2325.   IF e$="U"
  2326.     GOSUB umrech_kalkulation_handel
  2327.   ENDIF
  2328.   IF e$="A"
  2329.     GOSUB umrech_handel_kalkulation
  2330.   ENDIF
  2331.   IF e$="H"
  2332.     GOSUB handelsspanne
  2333.   ENDIF
  2334.   IF e$="K"
  2335.     GOSUB kalkulationszuschlag
  2336.   ENDIF
  2337.   IF e$="F"
  2338.     GOSUB kalkulationsfaktor
  2339.   ENDIF
  2340.   IF e$="E"
  2341.     GOSUB einkaufsmultiplikator
  2342.   ENDIF
  2343.   IF e$="Z"
  2344.     GOSUB gewinnzuschlag
  2345.   ENDIF
  2346.   IF e$="L"
  2347.     GOSUB lagerzinsfus
  2348.   ENDIF
  2349.   IF e$="H"
  2350.     GOSUB handlungskostenzuschlagsatz
  2351.   ENDIF
  2352.   IF e$="M"
  2353.     GOSUB mittlere_verfallzeit
  2354.   ENDIF
  2355.   IF e$="S"
  2356.     GOSUB gewichtsspesen
  2357.   ENDIF
  2358.   IF e$="W"
  2359.     GOSUB wertspesen
  2360.   ENDIF
  2361.   IF e$="G"
  2362.     GOSUB gewogener_durchschnitt
  2363.   ENDIF
  2364.   RUN
  2365. RETURN
  2366. PROCEDURE gewogener_durchschnitt
  2367.   GOSUB titel
  2368.   PRINT AT(3,4);STRING$(16,45);" Gewogener Durchschnitt (Mischungsrechnung) ";STRING$(16,45)
  2369.   PRINT AT(8,8);"Eingabe des Gesamtpreises"
  2370.   GOSUB zza1
  2371.   PRINT AT(8,10);"Eingabe der Gesamtmenge"
  2372.   GOSUB zza2
  2373.   LET er=z1/z2
  2374.   PRINT AT(8,12);STRING$(52,45)
  2375.   PRINT AT(8,14);"Gewogener Durchschnitt"
  2376.   GOSUB voc
  2377. RETURN
  2378. PROCEDURE mittlere_verfallzeit
  2379.   GOSUB titel
  2380.   PRINT AT(3,4);STRING$(19,45);" Mittlere Verfallzeit (Terminrechnung) ";STRING$(18,45)
  2381.   PRINT AT(8,8);"Summe der Tage"
  2382.   GOSUB zza1
  2383.   PRINT AT(8,10);"Anzahl der Beträge (Raten)"
  2384.   GOSUB zza2
  2385.   LET er=z1/z2
  2386.   PRINT AT(8,12);STRING$(52,45)
  2387.   PRINT AT(8,14);"Mittlere Verfallzeit ="
  2388.   GOSUB voc
  2389. RETURN
  2390. PROCEDURE gewichtsspesen
  2391.   GOSUB titel
  2392.   PRINT AT(3,4);STRING$(20,45);" Gewichtsspesen je kg (Kalkulation) ";STRING$(20,45)
  2393.   PRINT AT(8,8);"Summe der Gewichtsspesen"
  2394.   GOSUB zza1
  2395.   PRINT AT(8,10);"Gesamtbruttogewicht"
  2396.   GOSUB zza2
  2397.   LET er=z1/z2
  2398.   PRINT AT(8,12);STRING$(52,45)
  2399.   PRINT AT(8,14);"Gewichtsspesenanteil je kg ="
  2400.   GOSUB voc
  2401. RETURN
  2402. PROCEDURE wertspesen
  2403.   GOSUB titel
  2404.   PRINT AT(3,4);STRING$(15,45);" Wertspesen je DM Einkaufspreis (Kalkulation) ";STRING$(15,45)
  2405.   PRINT AT(8,8);"Summe der Wertspesen"
  2406.   GOSUB zza1
  2407.   PRINT AT(8,10);"Gesamteinkaufspreis"
  2408.   GOSUB zza2
  2409.   LET er=z1/z2
  2410.   PRINT AT(8,12);STRING$(52,45)
  2411.   PRINT AT(8,14);"Wertspesenanteil in DM"
  2412.   GOSUB voc
  2413. RETURN
  2414. PROCEDURE lagerzinsfus
  2415.   GOSUB titel
  2416.   PRINT AT(3,4);STRING$(23,45);" Lagerzinsfu₧  (Kalkulation) ";STRING$(24,45)
  2417.   PRINT AT(8,8);"Bankzinsfu₧"
  2418.   GOSUB zza1
  2419.   PRINT AT(8,10);"Durchschnittliche Lagerdauer"
  2420.   GOSUB zza2
  2421.   LET er=(z1*z2)/360
  2422.   PRINT AT(8,12);STRING$(52,45)
  2423.   PRINT AT(8,14);"Lagerzinsfu₧ ="
  2424.   GOSUB voc
  2425. RETURN
  2426. PROCEDURE umrech_kalkulation_handel
  2427.   GOSUB titel
  2428.   PRINT AT(3,4);STRING$(12,45);" Umrechnung Handelsspanne --> Kalkulationszuschlag ";STRING$(13,45)
  2429.   PRINT AT(8,10);"Handelsspanne in %"
  2430.   GOSUB zza2
  2431.   LET er=100/(100-z2)
  2432.   PRINT AT(8,12);STRING$(52,45)
  2433.   PRINT AT(8,14);"Kalkulationszuschlag in % ="
  2434.   GOSUB voc
  2435. RETURN
  2436. PROCEDURE umrech_handel_kalkulation
  2437.   GOSUB titel
  2438.   PRINT AT(3,4);STRING$(12,45);" Umrechnung Kalkulationszuschlag --> Handelsspanne ";STRING$(13,45)
  2439.   PRINT AT(8,10);"Kalkulationszuschlag in %"
  2440.   GOSUB zza2
  2441.   LET er=(100+z2)/100
  2442.   PRINT AT(8,12);STRING$(52,45)
  2443.   PRINT AT(8,14);"Handelsspanne in % ="
  2444.   GOSUB voc
  2445. RETURN
  2446. PROCEDURE handlungskostenzuschlagsatz
  2447.   GOSUB titel
  2448.   PRINT AT(3,4);STRING$(17,45);" Handlungskostenzuschlagsatz (Kalkulation) ";STRING$(16,45)
  2449.   PRINT AT(8,8);"Eingabe der Handlungskosten"
  2450.   GOSUB zza1
  2451.   PRINT AT(8,10);"Einstandspreis der v. Waren"
  2452.   GOSUB zza2
  2453.   LET er=(z1*100)/z2
  2454.   PRINT AT(8,12);STRING$(52,45)
  2455.   PRINT AT(8,14);"Handlungskostenzuschlagsatz"
  2456.   GOSUB voc
  2457. RETURN
  2458. PROCEDURE materialgemeinkostenzuschlagssatz
  2459.   GOSUB titel
  2460.   PRINT AT(3,4);STRING$(24,45);" Materialkostenzuschlagssatz ";STRING$(23,45)
  2461.   PRINT AT(8,8);"Materialgemeinkosten"
  2462.   GOSUB zza1
  2463.   PRINT AT(8,10);"Fertigungsmaterial"
  2464.   GOSUB zza2
  2465.   LET er=(z1*100)/z2
  2466.   PRINT AT(8,12);STRING$(52,45)
  2467.   PRINT AT(8,14);"Materialgemeinkostenzuschlagssatz"
  2468.   GOSUB voc
  2469. RETURN
  2470. PROCEDURE fertigungsgemeinkostenzuschlag
  2471.   GOSUB titel
  2472.   PRINT AT(3,4);STRING$(22,45);" Fertigungsgemeinkostenzuschlag ";STRING$(22,45)
  2473.   PRINT AT(8,8);"Fertigungsgemeinkosten"
  2474.   GOSUB zza1
  2475.   PRINT AT(8,10);"Fertigungslöhne"
  2476.   GOSUB zza2
  2477.   LET er=(z1*100)/z2
  2478.   PRINT AT(8,12);STRING$(52,45)
  2479.   PRINT AT(8,14);"Fertigungsgemeinkostenzuschlag"
  2480.   GOSUB voc
  2481. RETURN
  2482. PROCEDURE verwaltungsgemeinkostenzuschlag
  2483.   GOSUB titel
  2484.   PRINT AT(3,4);STRING$(21,45);" Verwaltungsgemeinkostenzuschlag ";STRING$(22,45)
  2485.   PRINT AT(8,8);"Verwaltungsgemeinkosten"
  2486.   GOSUB zza1
  2487.   PRINT AT(8,10);"Herstellkosten"
  2488.   GOSUB zza2
  2489.   LET er=(z1*100)/z2
  2490.   PRINT AT(8,12);STRING$(52,45)
  2491.   PRINT AT(8,14);"Verwaltungsgemeinkostenzuschlag"
  2492.   GOSUB voc
  2493. RETURN
  2494. PROCEDURE gewinnzuschlag
  2495.   GOSUB titel
  2496.   PRINT AT(3,4);STRING$(23,45);" Gewinnzuschlag (Kalkulation) ";STRING$(23,45)
  2497.   PRINT AT(8,8);"Eingabe des Gewinns"
  2498.   GOSUB zza1
  2499.   PRINT AT(8,10);"Selbstkosten der v. Waren"
  2500.   GOSUB zza2
  2501.   LET er=(z1*100)/z2
  2502.   PRINT AT(8,12);STRING$(52,45)
  2503.   PRINT AT(8,14);"Gewinnzuschlag"
  2504.   GOSUB voc
  2505. RETURN
  2506. PROCEDURE einkaufsmultiplikator
  2507.   GOSUB titel
  2508.   PRINT AT(3,4);STRING$(20,45);" Einkaufsmultiplikator (Kalkulation) ";STRING$(19,45)
  2509.   PRINT AT(8,10);"Bareinkaufspreis in %"
  2510.   GOSUB zza2
  2511.   LET er=z2/100
  2512.   PRINT AT(8,12);STRING$(52,45)
  2513.   PRINT AT(8,14);"Einkaufsmultiplikator"
  2514.   GOSUB voc
  2515. RETURN
  2516. PROCEDURE kalkulationsfaktor
  2517.   GOSUB titel
  2518.   PRINT AT(3,4);STRING$(21,45);" Kalkulationsfaktor (Kalkulation) ";STRING$(21,45)
  2519.   PRINT AT(8,8);"Eingabe des Verkaufspreises"
  2520.   GOSUB zza1
  2521.   PRINT AT(8,10);"Eingabe des Einstandspreises"
  2522.   GOSUB zza2
  2523.   LET er=z1/z2
  2524.   PRINT AT(8,12);STRING$(52,45)
  2525.   PRINT AT(8,14);"Kalkulationsfaktor"
  2526.   GOSUB voc
  2527. RETURN
  2528. PROCEDURE kalkulationsfaktor2
  2529.   GOSUB titel
  2530.   PRINT AT(3,4);STRING$(20,45);" Kalkulationsfaktor II (Kalkulation) ";STRING$(19,45)
  2531.   PRINT AT(10,8);"Eingabe der Handelsspanne"
  2532.   GOSUB zza1
  2533.   LET er=100/z1
  2534.   PRINT AT(10,10);STRING$(50,45)
  2535.   PRINT AT(10,12);"Kalkulationsfaktor ="
  2536.   GOSUB ergi(41,12)
  2537.   GOSUB com
  2538. RETURN
  2539. PROCEDURE kalkulationszuschlag
  2540.   GOSUB titel
  2541.   PRINT AT(3,4);STRING$(27,45);" Kalkulationszuschlag ";STRING$(27,45)
  2542.   PRINT AT(8,8);"Eingabe des Verkaufspreises"
  2543.   GOSUB zza1
  2544.   PRINT AT(8,10);"Eingabe des Einstandspreises"
  2545.   GOSUB zza2
  2546.   LET er=((z1-z2)*100)/z2
  2547.   PRINT AT(8,12);STRING$(52,45)
  2548.   PRINT AT(8,14);"Kalkulatioszuschlag"
  2549.   GOSUB voc
  2550. RETURN
  2551. PROCEDURE kalkulationszuschlag2
  2552.   GOSUB titel
  2553.   PRINT AT(3,4);STRING$(25,45);" Kalkulationszuschlag II ";STRING$(26,45)
  2554.   PRINT AT(10,8);"Handelsspanne"
  2555.   GOSUB zza1
  2556.   PRINT AT(10,10);"Kalkulationsfaktor"
  2557.   GOSUB zza2
  2558.   LET er=z1*z2
  2559.   PRINT AT(10,12);STRING$(50,45)
  2560.   PRINT AT(10,14);"Kalkulatioszuschlag = "
  2561.   GOSUB voc
  2562. RETURN
  2563. PROCEDURE handelsspanne
  2564.   GOSUB titel
  2565.   PRINT AT(3,4);STRING$(30,45);" Handelsspanne ";STRING$(31,45)
  2566.   PRINT AT(8,8);"Eingabe des Verkaufspreises"
  2567.   GOSUB zza1
  2568.   PRINT AT(8,10);"Eingabe des Einstandspreises"
  2569.   GOSUB zza2
  2570.   LET er=((z1-z2)*100)/z1
  2571.   PRINT AT(8,12);STRING$(52,45)
  2572.   PRINT AT(8,14);"Handelsspanne"
  2573.   GOSUB voc
  2574. RETURN
  2575. PROCEDURE handelsspanne2
  2576.   GOSUB titel
  2577.   PRINT AT(3,4);STRING$(29,45);" Handelsspanne II ";STRING$(29,45)
  2578.   PRINT AT(8,8);"Eingabe des Kalkulationszuschlags"
  2579.   GOSUB zza1
  2580.   PRINT AT(8,10);"Eingabe des Kalkulationsfaktors"
  2581.   GOSUB zza2
  2582.   LET er=((z1-z2)*100)/z1
  2583.   PRINT AT(8,12);STRING$(52,45)
  2584.   PRINT AT(8,14);"Handelsspanne = "
  2585.   GOSUB voc
  2586. RETURN
  2587. PROCEDURE abteilungsstundensatz
  2588.   GOSUB titel
  2589.   PRINT AT(3,4);STRING$(26,45);" Abteilungsstundensatz ";STRING$(27,45)
  2590.   PRINT AT(8,8);"Eingabe der Fertigungskosten"
  2591.   GOSUB zza1
  2592.   PRINT AT(8,10);"Produktive Abreitsstunden"
  2593.   GOSUB zza2
  2594.   LET er=z1/z2
  2595.   PRINT AT(8,12);STRING$(52,45)
  2596.   PRINT AT(8,14);"Abteilungsstundensatz ="
  2597.   GOSUB voc
  2598. RETURN
  2599. PROCEDURE abteilungsmengensatz
  2600.   GOSUB titel
  2601.   PRINT AT(3,4);STRING$(27,45);" Abteilungsmengensatz ";STRING$(27,45)
  2602.   PRINT AT(8,8);"Eingabe der Fertigungskosten"
  2603.   GOSUB zza1
  2604.   PRINT AT(8,10);"Verarbeitete Menge"
  2605.   GOSUB zza2
  2606.   LET er=z1/z2
  2607.   PRINT AT(8,12);STRING$(52,45)
  2608.   PRINT AT(8,14);"Abteilungsmengensatz"
  2609.   GOSUB voc
  2610. RETURN
  2611. PROCEDURE maschinenstundensatz
  2612.   GOSUB titel
  2613.   PRINT AT(3,4);STRING$(27,45);" Maschinenstundensatz ";STRING$(27,45)
  2614.   PRINT AT(8,7);"Direkt verechenbare"
  2615.   PRINT AT(8,8);"Fertigungsgemeinkosten"
  2616.   GOSUB zza1
  2617.   PRINT AT(8,10);"Maschinenlaufzeit"
  2618.   GOSUB zza2
  2619.   LET er=z1/z2
  2620.   PRINT AT(8,12);STRING$(52,45)
  2621.   PRINT AT(8,14);"Maschinenstundensatz"
  2622.   GOSUB voc
  2623. RETURN
  2624. PROCEDURE materialmengensatz
  2625.   GOSUB titel
  2626.   PRINT AT(3,4);STRING$(28,45);" Materialmengensatz ";STRING$(28,45)
  2627.   PRINT AT(8,8);"Materialgemeinkosten"
  2628.   GOSUB zza1
  2629.   PRINT AT(8,10);"Materialmenge"
  2630.   GOSUB zza2
  2631.   LET er=z1/z2
  2632.   PRINT AT(8,12);STRING$(52,45)
  2633.   PRINT AT(8,14);"Materialmengensatz"
  2634.   GOSUB voc
  2635. RETURN
  2636. PROCEDURE zza1
  2637.   PRINT AT(41,8);
  2638.   FORM INPUT 11,z1$
  2639.   LET z1=VAL(z1$)
  2640.   PRINT AT(41,8);
  2641.   PRINT USING "###############.###",z1
  2642. RETURN
  2643. PROCEDURE sonstige_formeln
  2644.   GOSUB titel
  2645.   PRINT AT(3,4);STRING$(29,45);" Sonstige Formeln ";STRING$(29,45)
  2646.   PRINT AT(8,6);"G = Gewogener Durchschnitt"
  2647.   PRINT AT(8,7);"M = Mittlere Verfallzeit"
  2648.   PRINT AT(8,8);"B = Beschäftigungsgrad"
  2649.   PRINT AT(8,10);"K = Kurswert"
  2650.   PRINT AT(8,11);"S = Stückkurs"
  2651.   PRINT AT(8,12);"P = Prozentkurs"
  2652.   PRINT AT(8,13);"N = Nennwert"
  2653.   PRINT AT(8,14);"Z = Zinsen"
  2654.   PRINT AT(8,15);"A = Bardividende"
  2655.   PRINT AT(8,16);"D = Dividendensatz"
  2656.   PRINT AT(8,17);"C = Beleihungswert"
  2657.   PRINT AT(8,18);"E = Stückzahl"
  2658.   PRINT AT(8,19);"F = Ertragskurs"
  2659.   PRINT AT(8,20);"H = Ausgabepreis"
  2660.   PRINT AT(8,21);"I = Ertrag des Zerfikats"
  2661.   IF XBIOS(4)=2
  2662.     LINE 320,80,320,340
  2663.   ELSE
  2664.     LINE 320,40,320,168
  2665.   ENDIF
  2666.   PRINT AT(45,6);" R = Auswahlmenü 2 "
  2667.   GOSUB taste
  2668.   IF e$="H"
  2669.     GOSUB ausgabebreis
  2670.   ENDIF
  2671.   IF e$="R"
  2672.     GOSUB menu_2
  2673.   ENDIF
  2674.   IF e$="I"
  2675.     GOSUB ertrag_des_zerfikats
  2676.   ENDIF
  2677.   IF e$="F"
  2678.     GOSUB ertragskurs
  2679.   ENDIF
  2680.   IF e$="E"
  2681.     GOSUB stueckzahl
  2682.   ENDIF
  2683.   IF e$="C"
  2684.     GOSUB beleihungswert
  2685.   ENDIF
  2686.   IF e$="K"
  2687.     GOSUB kurswert
  2688.   ENDIF
  2689.   IF e$="S"
  2690.     GOSUB stueckkurs
  2691.   ENDIF
  2692.   IF e$="P"
  2693.     GOSUB prozentkurs
  2694.   ENDIF
  2695.   IF e$="N"
  2696.     GOSUB nennwert
  2697.   ENDIF
  2698.   IF e$="Z"
  2699.     GOSUB azinsen
  2700.   ENDIF
  2701.   IF e$="A"
  2702.     GOSUB bardividente
  2703.   ENDIF
  2704.   IF e$="D"
  2705.     GOSUB dividendensatz
  2706.   ENDIF
  2707.   IF e$="B"
  2708.     GOSUB beschaftigungsgrad
  2709.   ENDIF
  2710.   IF e$="M"
  2711.     GOSUB mittlere_verfallzeit
  2712.   ENDIF
  2713.   IF e$="G"
  2714.     GOSUB gewogener_durchschnitt
  2715.   ENDIF
  2716.   RUN
  2717. RETURN
  2718. PROCEDURE beschaftigungsgrad
  2719.   GOSUB titel
  2720.   PRINT AT(3,4);STRING$(28,45);" Beschäftigungsgrad ";STRING$(28,45)
  2721.   PRINT AT(8,8);"Tatsächliche Erzeugung"
  2722.   GOSUB zza1
  2723.   PRINT AT(8,10);"Kapazität"
  2724.   GOSUB zza2
  2725.   LET er=(z1*100)/z2
  2726.   PRINT AT(8,12);STRING$(52,45)
  2727.   PRINT AT(8,14);"Beschäftigungsgrad"
  2728.   GOSUB voc
  2729. RETURN
  2730. PROCEDURE kurswert
  2731.   GOSUB titel
  2732.   PRINT AT(3,4);STRING$(26,45);" Kurswert (Wertpapiere) ";STRING$(26,45)
  2733.   PRINT AT(8,8);"Nennwert"
  2734.   GOSUB zza1
  2735.   PRINT AT(8,10);"Kurs"
  2736.   GOSUB zza2
  2737.   LET er=(z1*z2)/100
  2738.   PRINT AT(8,12);STRING$(52,45)
  2739.   PRINT AT(8,14);"Kurswert"
  2740.   GOSUB voc
  2741. RETURN
  2742. PROCEDURE ausgabebreis
  2743.   GOSUB titel
  2744.   PRINT AT(3,4);STRING$(24,45);" Ausgabepreis (Wertpapiere) ";STRING$(24,45)
  2745.   PRINT AT(8,8);"Tageswert des Fontvermögens"
  2746.   GOSUB zza1
  2747.   PRINT AT(8,10);"Zahl der umlaufenden Anteile"
  2748.   GOSUB zza2
  2749.   PRINT AT(8,12);"Ausgabekostenaufschlag"
  2750.   GOSUB zza3
  2751.   LET er=(z1/z2)+z3
  2752.   PRINT AT(8,14);STRING$(52,45)
  2753.   PRINT AT(8,16);"Kurswert"
  2754.   GOSUB ergi(41,16)
  2755.   GOSUB com
  2756. RETURN
  2757. PROCEDURE ertrag_des_zerfikats
  2758.   GOSUB titel
  2759.   PRINT AT(3,4);STRING$(20,45);" Ertrag des Zerfikats (Wertpapiere) ";STRING$(20,45)
  2760.   PRINT AT(8,8);"Erträge des Fondsvermögens"
  2761.   GOSUB zza1
  2762.   PRINT AT(8,10);"Verwaltungskosten"
  2763.   GOSUB zza2
  2764.   PRINT AT(8,12);"Zahl der umlaufenden Zerfikate"
  2765.   GOSUB zza3
  2766.   LET er=(z1-z2)/z3
  2767.   PRINT AT(8,14);STRING$(52,45)
  2768.   PRINT AT(8,16);"Ertrag des Zerfikats"
  2769.   GOSUB ergi(41,16)
  2770.   GOSUB com
  2771. RETURN
  2772. PROCEDURE stueckkurs
  2773.   GOSUB titel
  2774.   PRINT AT(3,4);STRING$(25,45);" Stückkurs (Wertpapiere) ";STRING$(26,45)
  2775.   PRINT AT(8,8);"Kurswert"
  2776.   GOSUB zza1
  2777.   PRINT AT(8,10);"Anzahl der Stücke"
  2778.   GOSUB zza2
  2779.   LET er=z1/z2
  2780.   PRINT AT(8,12);STRING$(52,45)
  2781.   PRINT AT(8,14);"Stückkurs"
  2782.   GOSUB voc
  2783. RETURN
  2784. PROCEDURE prozentkurs
  2785.   GOSUB titel
  2786.   PRINT AT(3,4);STRING$(24,45);" Prozentkurs (Wertpapiere) ";STRING$(25,45)
  2787.   PRINT AT(8,8);"Kurswert"
  2788.   GOSUB zza1
  2789.   PRINT AT(8,10);"Nennwert"
  2790.   GOSUB zza2
  2791.   LET er=(z1*100)/z2
  2792.   PRINT AT(8,12);STRING$(52,45)
  2793.   PRINT AT(8,14);"Prozentkurs"
  2794.   GOSUB voc
  2795. RETURN
  2796. PROCEDURE nennwert
  2797.   GOSUB titel
  2798.   PRINT AT(3,4);STRING$(26,45);" Nennwert (Wertpapiere) ";STRING$(26,45)
  2799.   PRINT AT(8,8);"Kurswert"
  2800.   GOSUB zza1
  2801.   PRINT AT(8,10);"Kurs"
  2802.   GOSUB zza2
  2803.   LET er=(z1*100)/z2
  2804.   PRINT AT(8,12);STRING$(52,45)
  2805.   PRINT AT(8,14);"Nennwert"
  2806.   GOSUB voc
  2807. RETURN
  2808. PROCEDURE azinsen
  2809.   GOSUB titel
  2810.   PRINT AT(3,4);STRING$(27,45);" Zinsen (Wertpapiere) ";STRING$(27,45)
  2811.   PRINT AT(8,8);"Nennwert"
  2812.   GOSUB zza1
  2813.   PRINT AT(8,10);"Zinsfu₧"
  2814.   GOSUB zza2
  2815.   LET er=(z1*z2)/100
  2816.   PRINT AT(8,12);STRING$(52,45)
  2817.   PRINT AT(8,14);"Zinsen"
  2818.   GOSUB voc
  2819. RETURN
  2820. PROCEDURE bardividente
  2821.   GOSUB titel
  2822.   PRINT AT(3,4);STRING$(24,45);" Bardividende (Wertpapiere) ";STRING$(24,45)
  2823.   PRINT AT(8,8);"Nennwert"
  2824.   GOSUB zza1
  2825.   PRINT AT(8,10);"Dividendensatz"
  2826.   GOSUB zza2
  2827.   LET er=(z1*z2)/100
  2828.   PRINT AT(8,12);STRING$(52,45)
  2829.   PRINT AT(8,14);"Bardividende"
  2830.   GOSUB voc
  2831. RETURN
  2832. PROCEDURE dividendensatz
  2833.   GOSUB titel
  2834.   PRINT AT(3,4);STRING$(23,45);" Dividendensatz (Wertpapiere) ";STRING$(23,45)
  2835.   PRINT AT(8,8);"Bardividende"
  2836.   GOSUB zza1
  2837.   PRINT AT(8,10);"Nennwert"
  2838.   GOSUB zza2
  2839.   LET er=(z1*100)/z2
  2840.   PRINT AT(8,12);STRING$(52,45)
  2841.   PRINT AT(8,14);"Dividendensatz"
  2842.   GOSUB voc
  2843. RETURN
  2844. PROCEDURE beleihungswert
  2845.   GOSUB titel
  2846.   PRINT AT(3,4);STRING$(23,45);" Beleihungswert (Wertpapiere) ";STRING$(23,45)
  2847.   PRINT AT(8,8);"Beleihungssatz"
  2848.   GOSUB zza1
  2849.   PRINT AT(8,10);"Kurswert"
  2850.   GOSUB zza2
  2851.   LET er=(z1*z2)/100
  2852.   PRINT AT(8,12);STRING$(52,45)
  2853.   PRINT AT(8,14);"Beleihungswert"
  2854.   GOSUB voc
  2855. RETURN
  2856. PROCEDURE stueckzahl
  2857.   GOSUB titel
  2858.   PRINT AT(3,4);STRING$(26,45);" Stückzahl (Wertpapiere) ";STRING$(25,45)
  2859.   PRINT AT(8,8);"Darlehensbetrag"
  2860.   GOSUB zza1
  2861.   PRINT AT(8,10);"Beleihungswert eines Stücks"
  2862.   GOSUB zza2
  2863.   LET er=z1/z2
  2864.   PRINT AT(8,12);STRING$(52,45)
  2865.   PRINT AT(8,14);"Stückzahl"
  2866.   GOSUB voc
  2867. RETURN
  2868. PROCEDURE ertragskurs
  2869.   GOSUB titel
  2870.   PRINT AT(3,4);STRING$(25,45);" Ertragskurs (Wertpapiere) ";STRING$(24,45)
  2871.   PRINT AT(8,8);"Durchschnittsdividente"
  2872.   GOSUB zza1
  2873.   PRINT AT(8,10);"Kapitalisierungszinssatz"
  2874.   GOSUB zza2
  2875.   LET er=(z1/z2)*100
  2876.   PRINT AT(8,12);STRING$(52,45)
  2877.   PRINT AT(8,14);"Ertragskurs"
  2878.   GOSUB voc
  2879. RETURN
  2880. PROCEDURE menu_2
  2881.   GOSUB titel
  2882.   PRINT AT(3,4);STRING$(31,45);" Auswahlmenü 2 ";STRING$(30,45)
  2883.   PRINT AT(8,6);"M = Massenangaben"
  2884.   PRINT AT(8,8);"B = Mathematische Befehle 2"
  2885.   PRINT AT(8,10);"D = Durchschnittsberechnung"
  2886.   GOSUB taste
  2887.   IF e$="M"
  2888.     GOSUB massenangaben
  2889.   ENDIF
  2890.   IF e$="B"
  2891.     GOSUB mathematische_befehle_2
  2892.   ENDIF
  2893.   IF e$="D"
  2894.     GOSUB durchschnittsberechnung
  2895.   ENDIF
  2896.   RUN
  2897. RETURN
  2898. PROCEDURE durchschnittsberechnung
  2899.   GOSUB titel
  2900.   PRINT AT(3,4);STRING$(15,45);" D u r c h s c h n i t s b e r e c h n u n g ";STRING$(16,45)
  2901.   PRINT CHR$(27);"p";
  2902.   PRINT AT(6,6);" Anzahl der Zahlen eingeben ";
  2903.   PRINT CHR$(27)+"q";
  2904.   PRINT " ";
  2905.   FORM INPUT 10,hexe$
  2906.   hexe=VAL(hexe$)
  2907.   FOR debito=1 TO hexe
  2908.     PRINT AT(6,8);"                                                           "
  2909.     PRINT AT(6,8);debito;" Zahl              = ";
  2910.     FORM INPUT 11,sonntag$
  2911.     sonntag=VAL(sonntag$)
  2912.     LET er=er+sonntag
  2913.   NEXT debito
  2914.   PRINT AT(6,10);"----------------------------------------------------------"
  2915.   PRINT AT(6,11);"Summe der Zahlen    = ";er
  2916.   PRINT AT(6,12);"Durchschnitt        = ";er/hexe
  2917.   PRINT AT(6,13);"----------------------------------------------------------"
  2918.   GOSUB com
  2919. RETURN
  2920. PROCEDURE mathematische_befehle_2
  2921.   GOSUB titel
  2922.   PRINT AT(3,4);STRING$(15,45);" M A T H E M A T I S C H E - B E F E H L E  2 ";STRING$(15,45)
  2923.   PRINT AT(6,6);"S = Sekans"
  2924.   PRINT AT(6,8);"K = Kosekans"
  2925.   PRINT AT(6,10);"T = Kotangens"
  2926.   IF XBIOS(4)=2
  2927.     LINE 330,70,330,290
  2928.   ELSE
  2929.     LINE 330,35,330,150
  2930.   ENDIF
  2931.   GOSUB mikado
  2932.   IF e$="T"
  2933.     GOSUB kostangens
  2934.   ENDIF
  2935.   IF e$="S"
  2936.     GOSUB sekans
  2937.   ENDIF
  2938.   IF e$="K"
  2939.     GOSUB kosekans
  2940.   ENDIF
  2941.   RUN
  2942. RETURN
  2943. PROCEDURE sekans
  2944.   GOSUB titel
  2945.   PRINT AT(3,4);STRING$(18,45);" S E K A N S -  F  U  N  K  T  I  O  N ";STRING$(19,45)
  2946.   PRINT AT(10,8);"Der Sekanswert von ";er;" = ";
  2947.   LET m=1/COS(er)
  2948.   GOSUB som
  2949. RETURN
  2950. PROCEDURE kosekans
  2951.   GOSUB titel
  2952.   PRINT AT(3,4);STRING$(16,45);" K O S E K A N S -  F  U  N  K  T  I  O  N ";STRING$(17,45)
  2953.   PRINT AT(10,8);"Der Kosekanswert von ";er;" = ";
  2954.   LET m=1/SIN(er)
  2955.   GOSUB som
  2956. RETURN
  2957. PROCEDURE kostangens
  2958.   GOSUB titel
  2959.   PRINT AT(3,4);STRING$(14,45);" K O S T A N G E N S -  F  U  N  K  T  I  O  N ";STRING$(15,45)
  2960.   PRINT AT(10,8);"Der Kostangenswert von ";er;" = ";
  2961.   LET m=1/TAN(er)
  2962.   GOSUB som
  2963. RETURN
  2964. PROCEDURE massenangaben
  2965.   GOSUB titel
  2966.   PRINT AT(3,4);STRING$(18,45);" M  a  s  s  e  n  a  n  g  a  b  e  n ";STRING$(19,45)
  2967.   PRINT AT(6,6);"G = Gramm"
  2968.   PRINT AT(6,8);"P = Pfund"
  2969.   PRINT AT(6,10);"U = Unze"
  2970.   PRINT AT(6,12);"K = Karat"
  2971.   GOSUB mikado
  2972.   IF e$="G"
  2973.     GOSUB massgram
  2974.   ENDIF
  2975.   IF e$="P"
  2976.     GOSUB masspfund
  2977.   ENDIF
  2978.   IF e$="U"
  2979.     GOSUB massunze
  2980.   ENDIF
  2981.   IF e$="K"
  2982.     GOSUB masskarat
  2983.   ENDIF
  2984.   RUN
  2985. RETURN
  2986. PROCEDURE massgram
  2987.   GOSUB titel
  2988.   PRINT AT(3,4);STRING$(32,45);" G r a m m ";STRING$(33,45);""
  2989.   GOSUB andreas
  2990.   GOSUB ergi(41,8)
  2991.   LET m=er/500
  2992.   GOSUB kergi(41,10)
  2993.   LET m=er/32.25
  2994.   GOSUB kergi(41,12)
  2995.   LET m=er/0.2
  2996.   PRINT AT(41,14);
  2997.   GOSUB som
  2998. RETURN
  2999. PROCEDURE masspfund
  3000.   GOSUB titel
  3001.   PRINT AT(3,4);STRING$(32,45);" P f u n d ";STRING$(33,45);""
  3002.   GOSUB andreas
  3003.   LET m=er*500
  3004.   GOSUB kergi(41,8)
  3005.   GOSUB ergi(41,10)
  3006.   LET m=er/32.25*500
  3007.   GOSUB kergi(41,12)
  3008.   LET m=er/0.2*500
  3009.   PRINT AT(41,14);
  3010.   GOSUB som
  3011. RETURN
  3012. PROCEDURE massunze
  3013.   GOSUB titel
  3014.   PRINT AT(3,4);STRING$(33,45);" U n z e ";STRING$(34,45);""
  3015.   GOSUB andreas
  3016.   LET m=er*500/31.008*2
  3017.   GOSUB kergi(41,8)
  3018.   LET m=er/31.008*2
  3019.   GOSUB kergi(41,10)
  3020.   GOSUB ergi(41,12)
  3021.   LET m=er*500/31.008*2*5
  3022.   PRINT AT(41,14);
  3023.   GOSUB som
  3024. RETURN
  3025. PROCEDURE masskarat
  3026.   GOSUB titel
  3027.   PRINT AT(3,4);STRING$(33,45);" K a r a t ";STRING$(32,45);""
  3028.   GOSUB andreas
  3029.   LET m=er/5
  3030.   GOSUB kergi(41,8)
  3031.   LET m=er/5/500
  3032.   GOSUB kergi(41,10)
  3033.   LET m=er/5/500/2*31.008
  3034.   GOSUB kergi(41,12)
  3035.   PRINT AT(41,14);
  3036.   GOSUB sam
  3037. RETURN
  3038. PROCEDURE zza2
  3039.   PRINT AT(41,10);
  3040.   FORM INPUT 11,z2$
  3041.   LET z2=VAL(z2$)
  3042.   GOSUB ergebnis
  3043. RETURN
  3044. PROCEDURE zza3
  3045.   PRINT AT(41,12);
  3046.   FORM INPUT 11,z3$
  3047.   LET z3=VAL(z3$)
  3048.   PRINT AT(41,12);
  3049.   PRINT USING "###############.###",z3
  3050. RETURN
  3051. PROCEDURE fehler
  3052.   ALERT 3,"Bediener - Fehler|Division durch null|oder anderer Fehler",1,">> OK <<",d%
  3053.   RUN
  3054. RETURN
  3055.