INTEGER*2	XPOS,YPOS,TABCNT,LINENO,OUT,LUN
	LOGICAL*1	ZBUFF(80)
	INTEGER*2	ADDBUF,BYTCNT,TOTBYT
	COMMON	/SCREEN/ ADDBUF,TOTBYT,BYTCNT,XPOS,YPOS,TABCNT,
	1	LINENO,OUT,LUN
	OUT = 1
	LUN = 1
	BYTCNT = 0
	CALL	GETADR(ADDBUF,ZBUFF)
	TOTBYT	= 80
500	TYPE	1000
1000	FORMAT	(' 1 - RESET	2 - TAB		3 - CURPOS	4 - NEWLIN'/
	1' 5 - BELL	6 - DISCTL	7 - CLLINA	8 - CLLINR'/
	1' 9 - CLSCNA	10 - CLSCNR	11 - HOME	12 - INVON'/
	1' 13 - INVOFF	14 - LEDOFF	15 - LED1ON	16 - LED2ON'/
	1' 17 - LED3ON	18 - LED4ON	19 - PAGMOD	20 - SCRMOD'/
	1' 21 - BLNKON	22 - BLNKOF	23 - UNDRON	24 - UNDROF'/
	1' 25 - CURSR1	26 - CURSR2	27 - CURSR3	28 - CURSR4'/
	1' 29 - FONT1	30 - FONT2	31 - FULINT	32 - HLFINT'/
	1' 33 - PAGE1	34 - PAGE2	35 - PRNTER	36 - DMPSCR'/
	1' 37 - DISP0	38 - DISP1	39 - DISP2	40 - DISP12'/
	1' 41 - STRCUR	42 - RSTCUR	43 - SNGWID	44 - DUBWID'/
	1' 45 - SNGHGT	46 - DUBHGT	47 - SCRBAS	48 - ENACTL'/
	1'$ENTER OPTION > ')
	ACCEPT	1030,I
	GOTO (600,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
	1	21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,
	1	38,39,40,41,42,43,44,45,46,47,48) I+1
	GOTO	500
1	CALL	RESET
	GOTO	500
2	TYPE	1020
1020	FORMAT ('$POSITION >')
	ACCEPT	1030,TABCNT
1030	FORMAT(I3)
	CALL	TAB
	GOTO	500
3	TYPE	1040
1040	FORMAT	('$XPOS, YPOS >')
	ACCEPT	1030,XPOS,YPOS
	CALL	CURPOS
	GOTO	500
4	CALL	NEWLIN
	GOTO	500
5	CALL	BELL
	GOTO	500
6	CALL	DISCTL
	GOTO	500
7	CALL	CLLINA
	GOTO	500
8	CALL	CLLINR
	GOTO	500
9	CALL	CLSCNA
	GOTO	500
10	CALL	CLSCNR
	GOTO	500
11	CALL	HOME
	GOTO	500
12	CALL	INVON
	GOTO	500
13	CALL	INVOFF
	GOTO	500
14	CALL	LEDOFF
	GOTO	500
15	CALL	LED1ON
	GOTO	500
16	CALL	LED2ON
	GOTO	500
17	CALL	LED3ON
	GOTO	500
18	CALL	LED4ON
	GOTO	500
19	CALL	PAGMOD
	GOTO	500
20	CALL	SCRMOD
	GOTO	500
21	CALL	BLNKON
	GOTO	500
22	CALL	BLNKOF
	GOTO	500
23	CALL	UNDRON
	GOTO	500
24	CALL	UNDROF
	GOTO	500
25	CALL	CURSR1
	GOTO	500
26	CALL	CURSR2
	GOTO	500
27	CALL	CURSR3
	GOTO	500
28	CALL	CURSR4
	GOTO	500
29	CALL	FONT1
	GOTO	500
30	CALL	FONT2
	GOTO	500
31	CALL	FULINT
	GOTO	500
32	CALL	HLFINT
	GOTO	500
33	CALL	PAGE1
	GOTO	500
34	CALL	PAGE2
	GOTO	500
35	CALL	PRNTER
	GOTO	500
36	CALL	DMPSCR
	GOTO	500
37	CALL	DISP0
	GOTO	500
38	CALL	DISP1
	GOTO	500
39	CALL	DISP2
	GOTO	500
40	CALL	DISP12
	GOTO	500
41	CALL	STRCUR
	GOTO	500
42	CALL	RSTCUR
	GOTO	500
43	CALL	SNGWID
	GOTO	500
44	CALL	DUBWID
	GOTO	500
45	CALL	SNGHGT
	GOTO	500
46	CALL	DUBHGT
	GOTO	500
47	TYPE	1050
1050	FORMAT	('$SCROLL BASE >')
	ACCEPT	1030,LINENO
	CALL	SCRBAS
	GOTO	500
48	CALL	ENACTL
	GOTO	500
600	CALL	EXIT
	END