Source Code
1 REM INVOICE
2 PRINT "ENTER COMPANY NAME"
3 INPUT N$
4 PRINT N$
5 LPRINT N$
6 PRINT "ENTER ADDRESS"
7 INPUT L$
8 PRINT L$
9 LPRINT L$
10 PRINT "ENTER CITY STATE ZIP"
11 INPUT Z$
12 PRINT Z$
13 LPRINT Z$
14 LPRINT TAB 10;"%I%N%V%O%I%C%E"
15 PRINT
16 PRINT "TO:"
17 INPUT Y$
18 PRINT Y$
20 LPRINT Y$
21 PRINT "ADDRESS"
22 INPUT X$
23 PRINT X$
24 LPRINT X$
25 PRINT "ENTER CITY STATE ZIP"
26 INPUT W$
27 PRINT W$
28 LPRINT W$
29 PRINT
30 PRINT "ENTER ITEM SOLD"
31 INPUT V$
32 PRINT V$
33 LPRINT V$
40 PRINT "QUANTITY SOLD: ";
50 INPUT Q
60 PRINT Q
65 LPRINT Q
70 PRINT "UNIT PRICE: $";
80 INPUT P
90 PRINT P
100 LPRINT P
110 PRINT "SALES TAX PERCENT: ";
120 INPUT S
130 PRINT S
135 LPRINT S
140 PRINT "SHIPPING CHARGES: $";
150 INPUT H
160 PRINT H
165 LPRINT H
170 LET S=S*.01
180 LET C=Q*P
190 LET T=C*S
200 LET F=C+T+H
210 LET A=INT (100*C+.5)/100
220 LET B=INT (100*T+.5)/100
230 LET D=INT (100*F+.5)/100
240 CLS
250 PRINT "TOTAL PRICE = $";A
255 LPRINT "TOTAL PRICE = $";A
260 PRINT "SALES TAX = $";B
265 LPRINT "SALES TAX = $";B
270 PRINT "SHIPPING CHARGES = $";H
275 LPRINT "SHIPPING CHARGES = $";H
280 PRINT
290 PRINT "INVOICE TOTAL = $";D
295 LPRINT "INVOICE TOTAL = $";D
300 IF INKEY$="" THEN GOTO 300
310 CLS
320 GOTO 30
400 SAVE "1015%0"
500 RUN
