$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 FUNCTION WORDS(BYVAL X AS STRING) AS INTEGER DECLARE FUNCTION WORD(BYVAL X AS STRING,XN AS INTEGER) AS STRING '/*------------------------------------------------------------------*/ $CODE SEG "MLIB2" '/*------------------------------------------------------------------*/ FUNCTION SPACE(BYVAL X AS STRING, BYVAL N AS INTEGER, BYVAL PAD AS STRING) PUBLIC AS STRING W = WORDS(X) T$ = "" FOR CNT = 1 TO W T$ = T$ + WORD(X,CNT) IF W = > 0 THEN T$ = T$ + STRING$(N,PAD) NEXT CNT FUNCTION = T$ END FUNCTION '/*------------------------------------------------------------------*/ ' $INCLUDE "C:\CODE\MLIB\MLIB.INC" ' T$ = " APPLES TASTE GOOD IN THE SUMMER" ' PRINT T$ ' PRINT SPACE(T$,1," ") ' Y$ = GETKEY '/*------------------------------------------------------------------*/