Invoice

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Invoice

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 

People

No people associated with this content.

Scroll to Top