$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 SAY(BYVAL Row AS INTEGER, BYVAL Col AS INTEGER, BYVAL Text AS STRING, BYVAL Attr AS INTEGER)
'/*------------------------------------------------------------------*/
$CODE SEG "MLIB11"
'/*------------------------------------------------------------------*/
 SUB SPINNER(ROW,COL,ATTR) PUBLIC
   H$ = "|/-\"
   T = SCREEN(ROW,COL,0)
   T$ = CHR$(T)
   S = INSTR(1,H$,T$)
   INCR S
   IF S = 5 OR S < 1 THEN S = 1
   SAY ROW,COL,MID$(H$,S,1),ATTR
 END SUB
'/*------------------------------------------------------------------*/
'  $INCLUDE "C:\CODE\MLIB\MLIB.INC"
'  CNTR = 1
'  TCNTR = 1
'  WHILE NOT INSTAT
'    TCNTR = CNTR/10
'    IF TCNTR < 1 THEN TCNTR = 1
'    SPINNER 10,10,12
'    INCR CNTR
'    IF CNTR > 32000 THEN CNTR = 1
'  WEND
'/*------------------------------------------------------------------*/