This program reads a tex file and draws the
first picture in the file onscreen. It also
draws a box around sonic. This program is
an example of how to read a file for data,
and how to apply that data.
start
steps! 0
do
gosub drawtex
line x% y% x% 150 4
line x% 150 270 150 4
line 270 150 270 y% 4
line 270 y% x% y% 4
doevents
loop until rb% = -1
gosub theend

drawtex:
open babe.tex for input
input var1!
input var1$
do
input var1!
if var1! >= .05 and var1! <= .25 then return
input var2!
input var3!
input var4!
input printc%
input printx%
if printx% = 0 then gosub drawline
loop until var1! = .1
return

drawline:
var1! = var1! + x% + 40
var2! = var2! + y%
var3! = var3! + x% + 40
var4! = var4! + y%
line var1! var2! var3! var4! printc%
return

theend:

end
run
