home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
sourcecode
/
various
/
coordinates.amos
/
coordinates.amosSourceCode
Wrap
AMOS Source Code
|
1993-01-08
|
631b
|
25 lines
Rem *************************
Rem * *
Rem * Mouse Coordinates *
Rem * *
Rem * by Murray Jones *
Rem * *
Rem *************************
Rem
DISK:
F$=Fsel$("*","","")
If F$="" Then Goto DISK
Load Iff F$,0
Screen Display 0,130,40,320,256
Change Mouse 2 : Curs Off
Limit Mouse 127,38 To 450,300
MOUSE:
XM=X Mouse : YM=Y Mouse
XM=XM-127
YM=YM-38
If CX<>XM Then Locate 25,5 : Print " "
If CY<>YM Then Locate 25,7 : Print " "
Locate 10,5 : Print "X Coordinate= ";XM
Locate 10,7 : Print "Y Coordinate= ";YM
CY=YM : CX=XM
Goto MOUSE