home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaDemoCD1.iso / DEMOS / ?-AmigaCorner5-92.DMS / ?-AmigaCorner5-92.adf / Testbild (.txt) < prev    next >
Encoding:
AmigaBASIC Source Code  |  1988-11-19  |  490 b   |  16 lines
  1. '  TEST Mouse & Locate    Jo.Mueller
  2. WINDOW 1,"TESTBILD",(0,0)-(617,186),15 : COLOR 2,3:CLS
  3. LOCATE 1,1: PRINT "end 5    0    5    0    5    0    5    0    5    0    5    0    5";
  4. FOR i=2 TO 23 :LOCATE i,1:PRINT i;:NEXT
  5. LOCATE 24,77:PRINT "*";
  6.  
  7. y: x=MOUSE(1):y=MOUSE(2):PSET (x,y),2
  8.    LOCATE 23,10:PRINT MOUSE(1); : LOCATE 23,15:PRINT MOUSE(2);
  9.    IF MOUSE(0)>0 THEN LOCATE INT(y/8+1),INT(x/8):PRINT "*";
  10.    LOCATE 23,50 : PRINT"LOCATE ";INT(y/8)+1","INT(x/8);
  11.    IF MOUSE(0)>0 AND y<10 AND y<10 THEN CLS:END
  12.    GOTO y
  13.    
  14.  
  15.  
  16.