Unit Price

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

Appears on

Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.

Gallery

Unit Price

Source Code

   5 REM **UNIT PRICE**
  10 LET U=0
  20 PRINT "ITEM NAME IS ";
  30 INPUT N$
  40 PRINT N$
  45 PRINT 
  50 PRINT "QUANTITY OF ITEMS =  ";
  60 INPUT Q
  70 PRINT Q
  75 PRINT 
  80 PRINT "TOTAL PRICE PAID FOR  ITEMS = $ ";
  90 INPUT P
 100 PRINT P
 105 PRINT 
 110 LET U=P/Q
 120 PRINT N$;" UNIT PRICE = $ ";U
 200 PRINT 
 210 PRINT 
 220 PRINT "FOR MORE,PRESS ANY KEY"
 230 IF INKEY$="" THEN GOTO 230
 240 CLS 
 250 GOTO 10
 275 CLEAR 
 300 SAVE "1001%3"
 400 RUN 

People

No people associated with this content.

Scroll to Top