anchor.diff:  	then,
   	3 +fp@, textifaceBase !,
   
  -	0 #, 1 +fp!,
  -	0 #, 2 +fp!,
  -	80 #, 3 +fp!,
  -	25 #, 4 +fp!,
  -	BlackRect
  -
  -	begin,	
  +	cls
  +	banner
  +	begin,	getcmd
  +		try
   	again,
   ;,
   
  
positive.code: 	while,	$FFFF #, p @, !,
  		p @, 2 #, +, p !,
  	repeat,
  	begin, again,
  ;,
  
  :, main
  
negative.code: int, textifaceBase
  include INC.textiface.fs
  
  160 const, /cmdbuf
  create, cmdbuf
  	char S c,,	char Y c,,	char S c,,	char : c,,
  	char p c,,	char r c,,	char g c,,	char . c,,
  160 allot,
  
  int, p
  int, #cmdbuf
  int, psch
  int, pdch
  int, n
  
  
  :, stop
  	$C000 #, p !,
  