$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 "MLIB11" SUB SSCROLL(TopRow%,LeftColumn%,BottomRow%,RightColumn%,NumberOfRows%,Direction%,Attr%)PUBLIC '/* 1 = UP 0 = DOWN IF Direction% THEN UpDown% = 7 ELSE UpDown% = 6 REG 1, NumberOfRows% + 256 * UpDown% ' Set AX = # of rows REG 2, Attr% * 256 ' Set BX = Color to use REG 3, (LeftColumn% - 1) + 256 * (TopRow% - 1) ' Set CX = left and top REG 4, (RightColumn% - 1) + 256 * (BottomRow% - 1) ' Set DX = right and bot CALL INTERRUPT &H10 ' Call BIOS service END SUB