Sales Bar Chart

Gallery

Source Code

   5 REM %S%A%L%E%S% %C%H%A%R%T
  10 DIM S(5,2)
 100 FOR J=1 TO 5
 110 FOR K=1 TO 2
 120 LET S(J,K)=INT (RND*11+10)
 130 NEXT K
 140 NEXT J
 200 PRINT "FI%VE YEAR SALES FIG.","FOR NUTS()AND BOLTS()",,,
 250 PRINT "YEAR",,
 300 FOR J=1 TO 5
 305 PRINT 1984+J;" ";
 310 FOR K=1 TO 20
 320 IF S(J,1)>=K AND S(J,2)>=K THEN PRINT "\!!";
 330 IF S(J,1)>=K AND S(J,2)<K THEN PRINT "\..";
 340 IF S(J,2)>=K AND S(J,1)<K THEN PRINT "\~~";
 350 NEXT K
 360 PRINT 
 370 PRINT 
 380 NEXT J
 400 PRINT "    0 2 4 6 8 1 1 1 1 1 2"
 410 PRINT "              0 2 4 6 8 0"
 499 STOP 
 500 SAVE "1003%9"
 510 RUN