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
