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
