ugBASIC forum

Code: Select all

REM ****************************
REM A PROGRAM TO GRAPH INVENTORY
REM BY JJARRELL
REM ****************************
CLS
PRINT "INVENTORY GRAPH"
PRINT "---------------"
REM LOOP TO READ IN DATA UNTIL THE END IS REACHED
WHILE NOT READ END
	READ item$,qty
	PRINT item$,qty,
	REM LOOP TO DRAW HORIZONTAL BAR
	FOR i=1 TO qty
		PRINT "O";
	NEXT
	PRINT
	REM KEEP A RUNNING TOTAL
	total=total+qty
WEND
PRINT "---------------"
PRINT "TOTAL:",total
PRINT
WAIT KEY RELEASE
END
DATA "SWORDS",10
DATA "BOWS",5
DATA "ARROWS",15
DATA "DAGGERS",8
DATA "SPEARS",6