10 REM > TextDraw

   20 REM Display text files as a picture

   30 :

   40 INPUT"File: "file$

   50 MODE &80

   60 px%=6:wd%=8:lm%=16:tm%=16

   70 xo%=640-40*px%

   80 yo%=512+35*px%*2

   90 MOVE xo%-wd%,yo%+wd%

  100 DRAW xo%+80*px%+wd%,yo%+wd%:DRAW xo%+80*px%+wd%,yo%-70*px%*2-wd%

  110 DRAW xo%-wd%,yo%-70*px%*2-wd%:DRAW xo%-wd%,yo%+wd%

  120 MOVE xo%,yo%-70*px%*2-wd%*2:DRAW xo%+80*px%+wd%*2,yo%-70*px%*2-wd%*2

  130 DRAW xo%+80*px%+wd%*2,yo%

  140 PRINTTAB(0,31);"File: ";file$;

  150 in%=OPENIN(file$)

  160 row%=0:col%=0

  170 REPEAT

  180   C%=BGET#in%

  190   IF C%=9:col%=col%+(8-(col%MOD8)):IFcol%>79:C%=13

  200   IF C%>32:PLOT 69,xo%+col%*px%+lm%,yo%-row%*px%*2-tm%

  210   IF C%>31:col%=col%+1:IFcol%>79:C%=13

  220   IF C%=13:col%=0:row%=row%+1

  230 UNTIL row%>66 OR EOF#in%

  240 CLOSE#in%:in%=0