Bar Graphics

This program, written for a 2K MicroAce, draws bar charts on a white background with dark defined lines and a graphpaper-like effect behind the bars. It will choose 10 (0 to 10) random numbers to graph, or you can select them. Line 110 & 120 use SHIFT A; Lines 121, 122 & 133 use SHIFT S.

Note: This program won’t fit in 1K unless you delete some lines and improve the IF-THEN sequence efficiency. Any takers?–AZ

   1 DIM U(50)
   2 LET T=0
   3 RANDOMISE
   4 PRINT "DO YOU WANT A RANDOM GRAPH OR"
   5 PRINT
   6 PRINT "DO YOU WANT TO ENTER 10 NUMBERS?"
   7 PRINT
   8 PRINT "SELECT (1 OR 2)"
  10 INPUT Z
  11 IF Z>1 THEN GO TO 19
  15 FOR X=1 TO 10
  16 LET U(X)=RND(10)
  17 NEXT X
  18 GO TO 60
  19 CLS
  20 PRINT " THIS PROGRAM WILL PRINT A GRAPH"
  21 PRINT "OF 10 NUMBERS FROM 0 TO 10"
  23 PRINT
  25 PRINT "ENTER"
  30 FOR X=1 TO 10
  40 PRINT "NUMBER ";X;
  45 INPUT U(X)
  46 PRINT "?"; U(X)
  50 NEXT X
  60 CLS
  65 FOR X=1 TO 32
  68 PRINT CHR$(128);
  70 NEXT X
  72 PRINT
  75 LET X=11
  80 FOR W=1 TO 10
  90 LET X=X-1
  91 PRINT CHR$(128);
  92 PRINT CHR$(X+28+128);CHR$(2);
 105 LET T=T+1
 107 IF T>1 THEN PRINT CHR$(128);CHR$(128); CHR$(2);
 109 FOR Y=1 TO 10
 110 IF U(Y)>X THEN PRINT "▒▒";
 120 IF U(Y)=X THEN PRINT "▒▒";
 121 IF Y=10 AND T=1 AND U(Y)<X THEN PRINT "▞▞";
 122 IF Y=10 AND T=1 AND U(Y)<X THEN GO TO 140
 125 IF T=1 AND U(Y)<X THEN PRINT "▞▞▞";
 126 IF T=1 AND U(Y)<X THEN GO TO 140
 130 IF U(Y)<X THEN PRINT CHR$(128);CHR$(128);
 133 IF Y<10 AND T=1 THEN PRINT "▞";
 134 IF Y<10 AND T>1 THEN PRINT CHR$(128);
 140 NEXT Y
 150 PRINT
 155 IF T<2 THEN GO TO 98
 156 LET T=0
 160 NEXT W
 163 PRINT CHR$(128);CHR$(128);CHR$(133);
 165 FOR X=1 TO 29
 166 PRINT CHR$(3);
 167 NEXT X
 168 PRINT CHR$(128);CHR$(128);
 170 FOR X=1 TO 10
 175 IF X=10 THEN PRINT CHR$(128);CHR$(U(X)+128+28);CHR$(128)
 179 IF X=10 THEN GO TO 190
 180 PRINT CHR$(128);
 181 PRINT CHR$(U(X)+128+28);CHR$(128)
 190 NEXT X
 191 STOP
SYNTACTIC SUM=21956