C+			TEST.FOR
C
	IMPLICIT INTEGER*4 (A-Z)
	INTEGER WIDTH,COLOR,RW,CL,DISPLAY_ID,NEW_PID,STATUS
	CHARACTER*40 MSG
	INCLUDE '($SMGDEF)'
	INCLUDE '($IODEF)'
C+
C	CREATE A PASTBOARD
C-
	STATUS = SMG$CREATE_PASTEBOARD (NEW_PID,,,)
	IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C+
C	NOW SET THE BACKGROUD AND FOREGROUND COLOR OF THE WINDOW
C
	STATUS = SMG$CHANGE_PBD_CHARACTERISTICS (NEW_PID,
	2					 80,,,
	2					 SMG$C_COLOR_BLUE,)
	IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C	CREATE A VIRTUAL DISPLAY
C-
	STATUS = SMG$CREATE_VIRTUAL_DISPLAY (22,78,DISPLAY_ID,SMG$M_BORDER,)
	IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C+
C	PASTE THE VIRTUAL DISPLAY TO THE SCREEN AT ROW 1 COL 1
C-
	STATUS = SMG$PASTE_VIRTUAL_DISPLAY(DISPLAY_ID,NEW_PID,2,2)
	IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C ************************************************************
	CALL CURSOR(DISPLAY_ID,1,25)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'SKIN TEMPERATURE PROGRAM',2,
	1				SMG$M_UNDERLINE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
C+
C ************************************************************
	CALL CURSOR(DISPLAY_ID,3,30)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'by Bill Hall',2,
	1				SMG$M_UNDERLINE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
C+
C ************************************************************
	CALL CURSOR(DISPLAY_ID,6,2)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #1',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,8,2)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #2',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C ************************************************************
	CALL CURSOR(DISPLAY_ID,10,2)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #3',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,12,2)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #4',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,14,2)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #5',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,16,2)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #6',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,18,2)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #7',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,20,2)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #8',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,6,30)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #9',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,8,30)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #10',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,10,30)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #11',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,12,30)
     	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #12',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,14,30)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #13',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,16,30)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #14',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,18,30)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #15',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	CALL CURSOR(DISPLAY_ID,20,30)
	STATUS = SMG$PUT_LINE (DISPLAY_ID,'Thermister #16',2,
	1				SMG$M_REVERSE,0,,)
		IF (.NOT. STATUS) CALL LIB$STOP(%VAL(STATUS))
C
C *************************************************************
	END




	SUBROUTINE CURSOR(DISPLAY,X,Y)
C
	INCLUDE '($SMGDEF)'
	INCLUDE '($IODEF)'
C+
	INTEGER X,Y,DISPLAY,STAT1
C+
C
	STAT1 = SMG$SET_CURSOR_ABS (DISPLAY,X,Y)
C
	RETURN
	END