$CPU 8086 ' make compatible with XT systems $LIB ALL OFF ' turn off all PowerBASIC libraries $ERROR ALL OFF ' turn off all PowerBASIC error checking $OPTIMIZE SIZE ' optimize for smaller code $COMPILE UNIT ' compile to a UNIT (.PBU) '$COMPILE EXE ' compile to a UNIT (.PBU) DEFINT A-Z ' Required for all numeric functions, forces PB to not ' include floating point in UNIT (makes it smaller) '/*------------------------------------------------------------------*/ $CODE SEG "MLIB1" '/*------------------------------------------------------------------*/ SUB MCLICKED(Rgt%, Lft%, Row%, Col%)PUBLIC REG 1,3 CALL INTERRUPT &H33 SELECT CASE REG(2) CASE 1 Lft%=1 CASE 2 Rgt%=1 CASE 3 Lft%=1 Rgt%=1 END SELECT Row%=REG(4) \ 8 + 1 Col%=REG(3) \ 8 + 1 END SUB '/*------------------------------------------------------------------*/