10CLS
20PRINT" A simple graph routine"
30PRINT" Written by A.Mycock"
40PRINT''" And here it goes......";
50PROCdisplay:END
60DEFPROCdisplay
70FOR display=1 TO 1
80VDU150:LET graphic$=CHR$(252)
90FOR length=0 TO 11
100IF length=0 THEN GOTO 140
110FOR pause=1 TO 600
120NEXT pause
130PRINT graphic$;
140NEXT length
150NEXT display
160PRINT''" You can use this simple ro
utine":PRINT" in many programs to produc
e simple":PRINT" bar charts etc etc"