;	LOD950 - load function keys on Televideo 950
;
;       Copyright [c] Noel Alaska Systems Technology, 1983.
 
VMAJOR	=	1.			; version equates
VMINOR	=	0.
VSUB	=	0.
VEDIT	=	4.			; CHANGE EACH EDIT <-----------
VWHO	=	0.

        SEARCH  SYS                     ; AMOS librarys
        SEARCH  SYSSYM
	SEARCH	TRM
	SEARCH	MFN			; My library

BEGIN:  PHDR    -1,-1,PH$REE!PH$REU

	TTYL	CLEAR 
	SLEEP	#300. 
	TTYL	USRLIN 
	SLEEP	#300. 
	TTYL	F1 
	SLEEP	#300. 
	TTYL	F2 
	SLEEP	#300. 
	TTYL	F3 
	SLEEP	#300. 
	TTYL	F4 
	SLEEP	#300. 
	TTYL	F5 
	SLEEP	#300. 
	TTYL	F6 
	SLEEP	#300. 
	TTYL	F7 
	SLEEP	#300. 
	TTYL	F8 
	SLEEP	#300. 
	TTYL	F9 
	SLEEP	#300. 
	TTYL	F10 
	SLEEP	#300. 
	TTYL	F11 
	SLEEP	#300. 
	TTYL	FINAL 
	SLEEP	#300. 
	EXIT 
 
F1:	BYTE	33,'|,'1,'1	; returns "U" to AMOS 
	ASCII	\PF1\        
	BYTE	215,31 
	BYTE	33,'|,'\,'1 
	ASCII	\PF1\ 
	BYTE	215,31,0 
 
F2:	BYTE	33,'|,'2,'1	; returns "A" to AMOS 
	ASCII	\PF2\ 
	BYTE	215,31 
	BYTE	33,'|,'=,'1 
	ASCII	\PF2\ 
	BYTE	215,31,0 
 
F3:	BYTE	33,'|,'3,'1	; returns "B" to AMOS 
	ASCII	\PF3\ 
	BYTE	215,31 
	BYTE	33,'|,'\,'1 
	ASCII	\PF3\ 
	BYTE	215,31,0 
 
F4:	BYTE	33,'|,'4,'1	; returns "C" to AMOS 
	ASCII	\PF4\ 
	BYTE	215,31 
	BYTE	33,'|,'?,'1 
	ASCII	\PF4\ 
	BYTE	215,31,0 
 
F5:	BYTE	33,'|,'5,'1	; returns "D" to AMOS 
	ASCII	\PF5\ 
	BYTE	215,31 
	BYTE	33,'|,'@,'1 
	ASCII	\PF5\ 
	BYTE	215,31,0 
 
F6:	BYTE	33,'|,'6,'1	; returns "E" to AMOS 
	ASCII	\PF6\ 
	BYTE	215,31 
	BYTE	33,'|,'A,'1 
	ASCII	\PF6\ 
	BYTE	215,31,0 
 
F7:	BYTE	33,'|,'7,'1	; returns "F" to AMOS 
	ASCII	\PF7\    
	BYTE	215,31 
	BYTE	33,'|,'B,'1 
	ASCII	\PF7\ 
	BYTE	215,31,0 
 
F8:	BYTE	33,'|,'8,'1	; returns "G" to AMOS 
	ASCII	\PF8\ 
	BYTE	215,31 
	BYTE	33,'|,'C,'1 
	ASCII	\PF8\ 
	BYTE	215,31,0 
 
F9:	BYTE	33,'|,'9,'1	; returns "H" to AMOS 
	ASCII	\PF9\ 
	BYTE	215,31 
	BYTE	33,'|,'D,'1 
	ASCII	\PF9\ 
	BYTE	215,31,0 
 
F10:	BYTE	33,'|,':,'1	; returns "I" to AMOS 
	ASCII	\PF10\     
	BYTE	215,31 
	BYTE	33,'|,'E,'1 
	ASCII	\PF10\     
	BYTE	215,31,0 
 
F11:	BYTE	33,'|,';,'1	; returns "J" to AMOS 
	ASCII	\PF11\     
	BYTE	215,31 
	BYTE	33,'|,'F,'1 
	ASCII	\PF11\ 
	BYTE	215,31,0 
 
USRLIN:	BYTE	33,'f			; clear the user msg 
	ASCII	/                  / 
	BYTE	215,0 
 
FINAL:	BYTE	33,'g	  		; switch to user msg 
	BYTE	33,'9			; normal scroll ['8 for smooth] 
	BYTE	33,'<			; keyclick off  ['> for on] 
	BYTE	33,'d			; white letters on black BG 
CLEAR:	BYTE	32,0			; clear the screen 
 
	EVEN 
	END