Salesman Commission

Gallery

Source Code

   5 REM *SALESMAN COMMISSION*
  10 PRINT "SALESMAN COMMISSION"
  11 LPRINT "%S%A%L%E%S%M%A%N% %C%O%M%M%I%S%S%I%O%N"
  20 FOR L=1 TO 19
  30 PRINT "*";
  40 NEXT L
  50 PRINT 
 100 PRINT "PERIOD ENDING DATE: ";
 110 INPUT D$
 120 PRINT D$
 121 LPRINT D$
 200 PRINT "SALESMAN NAME: ";
 210 INPUT N$
 220 PRINT N$
 221 LPRINT N$
 300 PRINT "COMMISSION PERCENT:  ";
 310 INPUT P
 320 PRINT P
 321 LPRINT P
 330 LET K=P*.01
 400 PRINT "GROSS SALES: ";
 410 INPUT Q
 412 LPRINT Q
 420 PRINT "$ ";Q
 430 LET T=K*Q
 450 PRINT 
 500 PRINT "COMMISSION: $ ";T
 501 LPRINT T
 510 PRINT 
 520 PRINT 
 530 PRINT "FOR MORE,PRESS ANY KEY"
 600 IF INKEY$="" THEN GOTO 600
 610 CLS 
 620 GOTO 10
 625 CLEAR 
 630 SAVE "1001%4"
 700 RUN