10*ROFF
   20MODE0
   30*NET
   40*I AM 3 TEMP
   50*FX 5 4
   60*FX 6 0
   70*PS 7
   80REPEAT
   90C%=GET
  100*VIEW 1
  110*GDUMP 1 0 20
  120UNTIL0