Directory of image this file is from
This file as a plain text file
10 REM BAR GRAPH DEMO 20 REM 8-JUN-77 DS 29 DIM A(12) 30 PRINT PNT(27);"H";PNT(27);"J"; \ REM ERASE SCREEN 40 PRINT \ PRINT 60 PRINT ,,"N E T P R O F I T" 70 PRINT \ PRINT 80 PRINT "THOUSANDS" 81 PRINT PNT(27);"F"; \ REM ENTER GRAPHICS MODE 82 FOR K=1 TO 12 83 READ A(K) 84 NEXT K 86 GOSUB 1000 \ REM HORIZONTAL LINE 100 FOR X=550 TO 0 STEP -50 110 PRINT X, 120 FOR K=1 TO 12 130 IF A(K)<X THEN 170 \ REM DISPLAY THIS BAR? 140 REM DISPLAY THE BAR 150 PRINT PNT(97);PNT(97);PNT(97);" "; \ REM 97 IS RECTANGLE 160 GOTO 190 170 REM DISPLAY NO BAR 180 PRINT " "; 190 NEXT K 200 PRINT \ REM END OF LINE 210 NEXT X 220 GOSUB 1000 \ REM HORIZONTAL LINE 230 PRINT ,"JUL AUG SEP OCT NOV DEC "; 231 PRINT "JAN FEB MAR APR MAY JUN" 250 PRINT,, "FISCAL YEAR 1977" 252 PRINT 255 PRINT PNT(27);"G"; \ REM EXIT GRAPHICS MODE 260 STOP 999 REM 1000 REM HORIZONTAL LINE 1010 FOR K=1 TO 62 1020 PRINT "-"; 1025 NEXT K 1030 PRINT 1040 RETURN 2000 REM 2001 DATA 200,150,250,300,300,350,400,500,550,500,400,350 3000 END