10 REM		SCREEN.BAS
20 ESC$	= CHR$(27)
30 DEF FNCURSOR.POS$(X%,Y%)=ESC$+"="+CHR$(Y%+31)+CHR$(X%+31)
40 DEF FNSCREEN.POS$(X%,Y%)=ESC$+"S"+CHR$(Y%+31)+CHR$(X%+31)
50 GRAPHIC$		= ESC$ + "g"
60 NO.GRAPHIC$	= ESC$ + "G"
70 UNDERLINE$		= ESC$ + "l"
80 NO.UNDERLINE$	= ESC$ + "m"
90 INSERT.CHARACTER$	= ESC$ + "Q"
100 DELETE.CHARACTER$	= ESC$ + "W"
110 INSERT.LINE$	= ESC$ + "E"
120 DELETE.LINE$	= ESC$ + "R"
130 CLEAR.LINE$	= ESC$ + "T"
140 HALF.INTENSITY$	= ESC$ + ")"
150 FULL.INTENSITY$	= ESC$ + "("
160 BELL$		= CHR$(7)
170 LINE.FEED$		= CHR$(10)
180 FORM.FEED$		= CHR$(12)
190 UP.LINE$		= CHR$(11)
200 LEFT.CHAR$		= CHR$(8)
210 RIGHT.CHAR$	= CHR$(12)
220 CARRIAGE.RETURN$	= CHR$(13)
230 CLEAR.SCREEN$	= CHR$(26)
240 HOME$		= FNCURSOR.POS$(1,1)
250 RETURN
.CHAR$	= CHR$(12)
220 CARRIAGE.RETURN$	= CHR$(13)
230 CLEAR.SCREEN$	= CHR$(26)
240 HOME$		= FNCURSOR.POS$(1,1)
25