10    FULLW 2
20    CLEARW 2
30    GOSUB 70
40    GOTOXY 0,0
50    PRINT H;V;S
60    GOTO 30
70    POKE CONTRL,124
80    POKE CONTRL+2,0
90    POKE CONTRL+6,0
100   VDISYS(0)
110   S=PEEK(INTOUT)
120   H=PEEK(PTSOUT)
130   V=PEEK(PTSOUT+2)
140   RETURN
