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
9508  DIM X$[37],Y$[37],Z[6]
9510  Z[1]=1
9512  Z[2]=11
9514  Z[3]=14
9516  Z[4]=15
9518  Z[5]=16
9520  Z[6]=20
9526  X$="J"'1'2'3'4'5'6'7'8'9"T"'11'12"WXY"'16'17'18"]"'20'21'22'23"X"'25'26'27'28'29'30'31" !'#$"
9528  Y$="%&'()*+,-./0123456789:;<=>?@ABCDEFGHI"
9532  Z0=INT(((X MIN 73) MAX 0)+.5)+1
9533  IF Z0=25 OR Z0=35 THEN 9541
9534  Z1=INT(((Y MIN 26) MAX 0)+.5)+1
9536  FOR Z2=1 TO 6
9538  IF Z[Z2]#Z0 THEN 9544
9539  Z2=0
9540  IF Z1#1 THEN 9556
9541  Z=1
9542  RETURN 
9544  NEXT Z2
9556  IF Z0 <= 37 THEN 9562
9558  PRINT "~";'17;Y$[Z0-37,Z0-37];
9560  GOTO 9563
9562  PRINT "~";'17;X$[Z0,Z0];
9563  X$="@"'1'2'3'4'5'6'7'8'9"J"'11'12"MNO"'16'17'18"S"'20'21'22'23"X"'25'26
9564  IF Z2#0 THEN 9566
9565  X$="X@ABCDEFGHIJKLMNOPQRSTUVWXY"
9566  PRINT X$[Z1,Z1];
9567  Z=0
9568  RETURN 
9570  REM
9580  REM
9600  REM *****  EMPTY BASIC BUFFER  *****
9610  REM
9620  REM
9630  PRINT "~";'17'13;
9640  RETURN 
9650  END 
