'===========================================================================
' Subject: 80X28 TEXT MODE                   Date: 03-21-96 (16:01)       
' Author:  Douglas H. Lusher                 Code: QB, PDS                
' Origin:  FidoNet QUIK_BAS Echo           Packet: TEXT.ABC
'===========================================================================
' > How can I put the screen in 80x28 textmode?

 DEFINT A-Z
 '$INCLUDE: 'qb.bi'
 DIM Reg AS RegType

 WIDTH , 43          'this is necessary so that BASIC will not
                     '   complain if we attempt to use the
                     '   LOCATE command on a row greater than 25

 Reg.AX = &H1202                 'set up 400 scan lines
 Reg.BX = &H30
 CALL Interrupt(&H10, Reg, Reg)
 Reg.AX = &H3                    'set up normal text mode
 CALL Interrupt(&H10, Reg, Reg)
 Reg.AX = &H1111                 'load ega character set (8 x 14)
 Reg.BX = 0
 CALL Interrupt(&H10, Reg, Reg)

 'show that we now have 28 lines
 Lines% = 28
 FOR Row% = 1 TO Lines%
   LOCATE Row%, 1: PRINT USING "###"; Row%;
 NEXT
 SLEEP
 'you can increase the value of Lines in the above loop,
 '   but you will see that only 28 appear on screen

 SCREEN 0: WIDTH 80, 25: CLS
 END