24 lines
765 B
QBasic
24 lines
765 B
QBasic
|
10 REM Invoice with PRINT USING formatting
|
||
|
|
20 PRINT "================================"
|
||
|
|
30 PRINT " INVOICE"
|
||
|
|
40 PRINT "================================"
|
||
|
|
50 PRINT ""
|
||
|
|
60 DATA "Widget A",12,4.99
|
||
|
|
70 DATA "Widget B",5,12.50
|
||
|
|
80 DATA "Gizmo C",3,29.99
|
||
|
|
90 DATA "Part D",100,0.75
|
||
|
|
100 DATA "END",0,0
|
||
|
|
110 TOTAL = 0
|
||
|
|
120 PRINT "Item Qty Price Amount"
|
||
|
|
130 PRINT "------------- --- ------- ---------"
|
||
|
|
140 READ ITEM$, QTY%, PRICE
|
||
|
|
150 IF ITEM$ = "END" THEN 190
|
||
|
|
160 AMT = QTY% * PRICE
|
||
|
|
170 TOTAL = TOTAL + AMT
|
||
|
|
180 PRINT USING "\ \### $$#,###.## $$#,###.##"; ITEM$; QTY%; PRICE; AMT
|
||
|
|
185 GOTO 140
|
||
|
|
190 PRINT " ---------"
|
||
|
|
200 PRINT USING " Total: $$#,###.##"; TOTAL
|
||
|
|
210 PRINT ""
|
||
|
|
220 PRINT "Invoice OK"
|