williams-et-al-1983-apple-ii-computer-graphics

120 APPLE II COMPUTER GRAPHICS1 REM BAR CHART DEMO2 REM3 REM ******************4 REM * INITIALIZATION *5 REM ******************6 REM7 REM DETERMINE VERT/HORIZ CHART8 REM9 TEXT : HOME1 PRINT "PRESS FOR A VERTICAL CHART"11 PRINT "PRESS 1 FOR A HORIZONTAL CHART"12 GET H$13 IF H$ < > "1" AND H$ < > "W' GOTO 914 H% = VAL (H$)15 REM16 REM READ NUMB BAR, WIDTH BAR,17 REM AND WIDTH SPACE18 REM19 READ NB% ,WB%, WS%2 REM21 REM CHECK TOTAL WIDTH22 REM23 IF NB% * (WB% + WS%) < 4 GOTO 3224 PRINT CHR$ (7) ; "CHART TOO WIDE"25 PRINT "CONTINUE? (Y/N) ": GET R$26 IF R$ = "N" GOTO 6727 IF R$ = "Y" GOTO 3228 GOTO 2429 REM3 REM READ DATA & FIND MAXIMUM31 REM32 DIM BAR(NB%) , LBL$(NB%)33 FOR I = 1 TO NB%34 READ BAR(I),LBL$(I)35 IF MAX < BAR(I) THEN MAX BAR(I)36 NEXT I37 REM38 REM ESTABLISH SCALE39 REM4 SCL = 39 I MAX41 REM42 REM **************43 REM * DRAW CHART *44 REM **************45 REM46 GR470 FOR I = 1 TO NB%