8999  REM HAZEL, HP 36786B, 6/74, 2 PROGS: HAZEL,FAZEL
9000  REM *****  CLEAR SCREEN  *****
9010  REM
9020  REM
9030  PRINT "~";'28;
9040  RETURN 
9050  REM
9060  REM
9100  REM *****  CLEAR BOLDFACE  *****
9110  REM
9120  REM
9130  PRINT "~";'29;
9140  RETURN 
9150  REM
9160  REM
9200  REM *****  HOME CURSOR  *****
9210  REM
9220  REM
9230  PRINT "~";'18;
9240  RETURN 
9250  REM
9260  REM
9300  REM *****  LIGHT FACE  *****
9310  REM
9320  REM
9330  PRINT "~";'25;
9340  RETURN 
9350  REM
9360  REM
9400  REM *****  BOLD FACE  *****
9410  REM
9420  REM
9430  PRINT "~";'31;
9440  RETURN 
9450  REM
9460  REM
9500  REM *****  ADDRESS CURSOR  *****
9502  REM
9504  REM
9505  FILES $CHARS
9507  DIM D$[5]
9508  DIM X$[64],Y$[37]
9510  IF LEN(D$)=5 THEN 9522
9512  READ #1,1
9513  READ #1;X$
9517  Y$[1,27]=X$[38,64]
9518  READ #1;Y$[28,37]
9519  D$="DUMMY"
9522  Z0=INT(((X MIN 73) MAX 0)+.5)+1
9524  Z1=INT(((Y MIN 26) MAX 0)+.5)+1
9546  IF Z0 <= 37 THEN 9552
9548  PRINT "~";'17;Y$[Z0-37,Z0-37];X$[Z1,Z1];
9550  GOTO 9554
9552  PRINT "~";'17;X$[Z0,Z0];X$[Z1,Z1];
9554  Z=0
9556  RETURN 
9558  REM
9560  REM
9600  REM *****  EMPTY BASIC BUFFER  *****
9610  REM
9620  REM
9630  PRINT "~";'17'13;
9640  RETURN 
9650  END 
