EasyManua.ls Logo

NCR Decision Mate V - Page 408

NCR Decision Mate V
426 pages
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Loading...
{ SET MAXIMUM }
XM:=10000;
YM:=10000;
SETMAX(XM,YM);
{ SET START POSITION }
X0:=0;
Y0:=0;
SETPOS(X0, Y0);
C : =' N ' ;
{ LOOP MOUSE ACTIONS }
REPEAT
GMOUS(SW3,SW2,SWl,Y rX) ;
GOTOXY(0,4);
WRITELN(' X=',X:6,' Y=',Y:6);
GOTOXY(0,6);
WRITELN(' SWITCH l:',SWl,' SWITCH 3:',SW3,' SWITCH 2:,SW2);
GOTOXY(0,18);
{ SET OR CLEAR PROMPT FOR FINISH DEPENDING ON SWl )
IF SW1=1 THEN FIN(C)
ELSE WRITE (CHR(27) ,1L 1) ;
UNTIL C in ['y','Y'];
{ CURSOR VISIBLE }
WRITE (CHR(27) , '@11)
END.
8 -6

Table of Contents

Related product manuals