home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 05 / einsteig / gwbsp1.bas next >
BASIC Source File  |  1990-02-15  |  5KB  |  147 lines
  1. 10 REM ***************gw-basic version**********************
  2. 20 REM KALKULATION DER SELBSTKOSTEN
  3. 30 REM PROGRAMMIERER:   XYZ
  4. 40 REM DATUM:           1.1.1990
  5. 50 REM VARIABLEN:       FM   = FERTIGUNGSMATERIAL
  6. 60 REM                  MGPR = MATERIALGEMEINKOSTEN IN %
  7. 70 REM                  MGDM = MATERIALGEMEINKOSTEN IN DM
  8. 80 REM                  FL   = FERTIGUNGSLÖHNE
  9. 90 REM                  FPR  = FERTIGUNGSGEMEINKOSTEN IN %
  10. 100 REM                 FDM  = FERTIGUNGSGEMEINKOSTEN IN DM
  11. 110 REM                 H    = HERSTELLKOSTEN
  12. 120 REM                 VWPR = VERWALTUNGSGEMEINKOSTEN IN %
  13. 130 REM                 VWDM = VERWALTUNGSGEMEINKOSTEN IN DM
  14. 140 REM                 VPR  = VERTRIEBSGEMEINKOSTEN IN %
  15. 150 REM                 VDM  = VERTRIEBSGEMEINKOSTEN IN DM
  16. 160 REM                 S  = SELBSTKOSTEN
  17. 170 REM **************MASKENAUFBAU**************************
  18. 180 CLS : KEY OFF
  19. 190 LOCATE 2, 5: PRINT STRING$(1, 201);
  20.     PRINT STRING$(70, 205); STRING$(1, 187)
  21. 200 LOCATE 3, 5: PRINT STRING$(1, 186):
  22.     LOCATE 3, 76: PRINT STRING$(1, 186)
  23. 210 LOCATE 4, 5: PRINT STRING$(1, 186):
  24.     LOCATE 4, 76: PRINT STRING$(1, 186)
  25. 220 LOCATE 5, 5: PRINT STRING$(1, 186):
  26.     LOCATE 5, 76: PRINT STRING$(1, 186)
  27. 230 LOCATE 6, 5: PRINT STRING$(1, 186):
  28.     LOCATE 6, 76: PRINT STRING$(1, 186)
  29. 240 LOCATE 7, 5: PRINT STRING$(1, 186):
  30.     LOCATE 7, 76: PRINT STRING$(1, 186)
  31. 250 LOCATE 8, 5: PRINT STRING$(1, 186):
  32.     LOCATE 8, 76: PRINT STRING$(1, 186)
  33. 260 LOCATE 9, 5: PRINT STRING$(1, 186):
  34.     LOCATE 9, 76: PRINT STRING$(1, 186)
  35. 270 LOCATE 10, 5: PRINT STRING$(1, 186):
  36.     LOCATE 10, 76: PRINT STRING$(1, 186)
  37. 280 LOCATE 11, 5: PRINT STRING$(1, 186):
  38.     LOCATE 11, 76: PRINT STRING$(1, 186)
  39. 290 LOCATE 12, 5: PRINT STRING$(1, 186):
  40.     LOCATE 12, 76: PRINT STRING$(1, 186)
  41. 300 LOCATE 13, 5: PRINT STRING$(1, 186):
  42.     LOCATE 13, 76: PRINT STRING$(1, 186)
  43. 310 LOCATE 14, 5: PRINT STRING$(1, 186):
  44.     LOCATE 14, 76: PRINT STRING$(1, 186)
  45. 320 LOCATE 15, 5: PRINT STRING$(1, 186):
  46.     LOCATE 15, 76: PRINT STRING$(1, 186)
  47. 330 LOCATE 16, 5: PRINT STRING$(1, 186):
  48.     LOCATE 16, 76: PRINT STRING$(1, 186)
  49. 340 LOCATE 17, 5: PRINT STRING$(1, 186):
  50.     LOCATE 17, 76: PRINT STRING$(1, 186)
  51. 350 LOCATE 18, 5: PRINT STRING$(1, 186):
  52.     LOCATE 18, 76: PRINT STRING$(1, 186)
  53. 360 LOCATE 19, 5: PRINT STRING$(1, 186):
  54.     LOCATE 19, 76: PRINT STRING$(1, 186)
  55. 370 LOCATE 20, 5: PRINT STRING$(1, 186):
  56.     LOCATE 20, 76: PRINT STRING$(1, 186)
  57. 380 LOCATE 21, 5: PRINT STRING$(1, 186):
  58.     LOCATE 21, 76: PRINT STRING$(1, 186)
  59. 390 LOCATE 22, 5: PRINT STRING$(1, 186):
  60.     LOCATE 22, 76: PRINT STRING$(1, 186)
  61. 400 LOCATE 23, 5: PRINT STRING$(1, 200);
  62.     PRINT STRING$(70, 205); STRING$(1, 188)
  63. 410 REM ********EINGABE************************************
  64. 420 COLOR 0, 7
  65. 430 LOCATE 1, 25: PRINT "KALKULATION DER SELBSTKOSTEN"
  66. 440 COLOR 7, 0
  67. 450 LOCATE 4, 20:
  68.     PRINT "Bitte geben Sie mit Dezimalpunkt ein :"
  69. 460 PRINT
  70. 470 LOCATE 8, 10:
  71.     INPUT "FERTIGUNGSMATERIAL IN DM (max. 99999 DM) : ", FM
  72. 480 PRINT
  73. 490 LOCATE , 10:
  74.     INPUT "FERTIGUNGSLÖHNE IN DM (max. 99999 DM)....: ", FL
  75. 500 PRINT
  76. 510 LOCATE , 10:
  77.     INPUT "MATERIALGEMEINKOSTEN IN % (max. 99 %)...: ", MGPR
  78. 520 PRINT
  79. 530 LOCATE , 10:
  80.     INPUT "FERTIGUNGSGEMEINKOSTEN IN % (max. 99 %)..: ", FPR
  81. 540 PRINT
  82. 550 LOCATE , 10:
  83.     INPUT "VERWALTUNGSGEMEINKOSTEN IN % (max. 99 %): ", VWPR
  84. 560 PRINT
  85. 570 LOCATE , 10:
  86.     INPUT "VERTRIEBSGEMEINKOSTEN IN % (max. 99 %)...: ", VPR
  87. 580 PRINT
  88. 590 PRINT
  89. 600 LOCATE , 20: PRINT "Weiter mit einer beliebigen Taste"
  90. 610 WARTEN$ = INPUT$(1)
  91. 620 CLS
  92. 630 REM  **********VERARBEITUNG*****************************
  93. 640 LET MGDM = FM * MGPR / 100
  94. 650 FDM = FL * FPR / 100
  95. 660 H = FM + FL + MGDM + FDM
  96. 670 VWDM = H * VWPR / 100
  97. 680 VDM = H * VPR / 100
  98. 690 S = H + VWDM + VDM
  99. 700 REM *************AUSGABE********************************
  100. 710 PRINT
  101. 720 DATUM$ = MID$(DATE$, 4, 3) + MID$(DATE$, 1, 3) +
  102.              MID$(DATE$, 7, 4)
  103. 730 PRINT "KALKULATION DER SELBSTKOSTEN VOM "; DATUM$
  104. 740 PRINT
  105. 750 PRINT "FERTIGUNGSMATERIAL";
  106. 760 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; FM:
  107.     COLOR 7, 0
  108. 770 PRINT "+  ";
  109. 780 PRINT USING "###.##"; MGPR;
  110. 790 PRINT " % MATERIALGEMEINKOSTEN";
  111. 800 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; MGDM:
  112.     COLOR 7, 0
  113. 810 PRINT "FERTIGUNGSLÖHNE";
  114. 820 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; FL:
  115.     COLOR 7, 0
  116. 830 PRINT "+  ";
  117. 840 PRINT USING "###.##"; FPR;
  118. 850 PRINT " % FERTIGUNGSGEMEINKOSTEN";
  119. 860 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; FDM:
  120.     COLOR 7, 0
  121. 870 PRINT "------------------------------------------------"
  122. 880 PRINT "HERSTELLUNGSKOSTEN";
  123. 890 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; H:
  124.     COLOR 7, 0
  125. 900 PRINT "+  ";
  126. 910 PRINT USING "###.##"; VWPR;
  127. 920 PRINT " % VERWALTUNGSGEMEINKOSTEN";
  128. 930 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; VWDM:
  129.     COLOR 7, 0
  130. 940 PRINT "+  ";
  131. 950 PRINT USING "###.##"; VPR;
  132. 960 PRINT " % VERTRIEBSGEMEINKOSTEN";
  133. 970 COLOR 15, 0: PRINT TAB(40); USING "######.## DM"; VDM:
  134.     COLOR 7, 0
  135. 980 PRINT "------------------------------------------------"
  136. 990 COLOR 31, 0
  137. 1000 PRINT "SELBSTKOSTEN";
  138. 1010 PRINT TAB(39); USING "#######.## DM"; S
  139. 1020 COLOR 7, 0
  140. 1030 PRINT TAB(40); "============"
  141. 1040 LOCATE 20, 20:
  142.      PRINT "Weiter mit einer beliebigen Taste"
  143. 1050 WARTEN$ = INPUT$(1)
  144. 1060 CLS
  145. 1070 KEY ON
  146. 1080 END
  147.