Posted by Yves Ste-Marie on August 24, 2018 at 07:02:11:
In Reply to: What ever happen to CURPOS$ posted by Robert G Laurin on August 08, 2018 at 10:27:02:
I completely changed to a different sub-routine:
LENGTH 3.0 & LOCAL TCH
LENGTH 254 & LOCAL DATA$
LENGTH 3.0 & LOCAL VERT,HORI
MAIN000: PRINT (0) (EASY SCAN)
INPUT @(22,08) TDT10$
GOSUB STA000
PRINT (0) (SCAN CODES OFF)
GOTO ........
STA000: DATA$ = SUB(STS(0),1,254)
TCH = ASC(SUB(DATA$,8,1)) !8 Key that caused transmit hex encoded (see INPUT and (Easy Scan)
IF TCH = 6_ !6 Left mouse click
THEN
VERT = ASC(SUB(DATA$,15,1))
HORI = ASC(SUB(DATA$,16,1))
ENDIF
DATA$ = SUB(DATA$,8,1)
RETURN
......
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.