0 ( Screen Handling Things )
  1 decimal
  2 : str$ base @ 10 base ! swap . base ! ;
  3 : at 27 emit 91 emit 1+ str$ 59 emit 1+ str$ 72 emit ;
  4 : cls 0 0 at 27 emit ." [2J" ;
  5 : graphics 27 emit 91 emit 7 and 48 + emit ." m" ;
  6 
  7 
  8 
  9 
 10 
 11 
 12 
 13 
 14 
 15