Appears on
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.
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