EasyManua.ls Logo

NCR Decision Mate V - Page 380

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,SW1,Y,X);
GOTOXY(0,4);
WRITELN(' X=',X:6,' Y=',Y:6);
GOTOXY(0,6);
WRITELN(' SWITCH 1:',SW1,' SWITCH 3:',SW3,' SWITCH 2:',SW2)j
GOTOXY(0,18);
{ SET OR CLEAR PROMPT FOR FINISH DEPENDING ON SW1 }
IF SW1=1 THEN FIN(C)
ELSE WRITE (CHR(27) ,'L ');
UNTIL C in ['y ',1Y '] ;
{ CURSOR VISIBLE }
WRITE(CHR(27),1@11)
END.
8 -6

Table of Contents

Related product manuals