$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) '/*------------------------------------------------------------------*/ DECLARE SUB MWHERE(BTN, ROW, COL) '/*------------------------------------------------------------------*/ $CODE SEG "MLIB1" '/*------------------------------------------------------------------*/ FUNCTION MWORD() PUBLIC AS STRING ML$ = "" MR$ = "" MHROW = 0 MHCOL = 0 MWHERE MBT,MROW,MCOL CNT = 0 IF SCREEN(MROW,MCOL,0) = 32 THEN FUNCTION = "" EXIT FUNCTION END IF DO IF MCOL+CNT > 80 THEN EXIT DO T = SCREEN(MROW,MCOL+CNT,0) IF T <> 32 THEN MR$ = MR$ + CHR$(T) CNT = CNT + 1 END IF LOOP UNTIL T = 32 OR CNT = 80 CNT = 1 DO IF MCOL-CNT < 1 THEN EXIT DO T = SCREEN(MROW,MCOL-CNT,0) IF T <> 32 THEN ML$ = CHR$(T) + ML$ CNT = CNT + 1 END IF LOOP UNTIL T = 32 OR (MCOL-CNT) < 1 FUNCTION = ML$ + MR$ END FUNCTION '/*------------------------------------------------------------------*/ ' $INCLUDE "C:\CODE\MLIB\MLIB.INC" ' MOUSEON ' SAY 25,1,"HELLO THERE TODAY",31 ' DO ' MWHERE MBR, MROW, MCOL ' SAY 25,50,STRING$(25,32),12 ' SAY 25,50,MWORD+" "+STR$(MBT)+STR$(MROW)+STR$(MCOL),12 ' Y$ = INKEY$ ' LOOP UNTIL Y$ = CHR$(27)