'===========================================================================
' Subject: SWITCH TEXT MODE W/O CLEARING     Date: 06-12-96 (11:10)       
' Author:  The ABC Programmer                Code: QB, PDS                
' Origin:  Convert from PASCAL Code        Packet: TEXT.ABC
'===========================================================================
'{ Switching without clearing test, by Bas van Gaalen, Holland, PD }
' Converted to BASIC by William Yu (06-12-96)

'$INCLUDE: 'QB.BI'
DIM SHARED InRegs AS RegType

CLS
PRINT "Select from the following option please:"
PRINT "0 - Quit": PRINT "1 - 25 Lines": PRINT "2 - 50 Lines"

DO
  A$ = INPUT$(1)
  IF A$ = "1" THEN Lines.25
  IF A$ = "2" THEN Lines.50
LOOP UNTIL A$ = "0"

END

SUB Lines.25
  InRegs.ax = &H83
  CALL INTERRUPT(&H10, InRegs, InRegs)
END SUB

SUB Lines.50
  InRegs.ax = &H1202
  InRegs.bx = &H30      ' assembly:  mov bl, 30h
  CALL INTERRUPT(&H10, InRegs, InRegs)
  InRegs.ax = &H1112
  InRegs.bx = &H0       ' assembly:  mov bl, 0
  CALL INTERRUPT(&H10, InRegs, InRegs)
END SUB