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