anchor.diff:  
   create, banner$
   	C", STS/K2 V1"
  +
  +create, ErrorMsg
  +	C", Error: "
  +
  +create, rsnTab
  +	C", SZINNFNMEFVV"
   
   :, prompt
   	prompt$ 1 #, +, 1 +fp!,
  
positive.code: int, psch
  int, pdch
  int, n
  
  
  :, stop
  
negative.code: :, run
  	cmdbuf 1 +fp!,
  	n @, 2 +fp!,
  	loadseg
  	4 +fp@,
  	if,	4 +fp@, -100 #, +, rsn !,
  		3 +fp@, 1 +fp!,
  		unloadseg
  		exit,
  	then,
  	3 +fp@, 1 +fp!,
  	unloadseg
  
  	textifaceBase @, 1 +fp!, unloadseg
  
  	cmdbuf 1 +fp!,
  	n @, 2 +fp!,
  	0 #, 3 +fp!,
  	Exec
  	4 +fp@, -100 #, +, rsn !,
  ;,
  
  :, try
  	CR
  	skipws copy2ws run
  	( If we made it this far, a problem happened with loading the application )
  	ErrorMsg 1 #, +, 1 +fp!,
  	ErrorMsg c@, 2 +fp!,
  	PrintStr
  	rsn @, rsn @, +, rsnTab +, 1 #, +, 1 +fp!,
  	2 #, 2 +fp!,
  	PrintStr CR
  ;,
  
  :, banner
  