softscrl.bas

大名鼎鼎的QBasic下的图形库

'Future.Library Simple software scrolling
'

REM $INCLUDE: 'future.bi'

Set800x600'Set 800x600 svga screen

handle% = AllExpMem(480000)'get 480000 of EMS memory

FOR i% = 0 TO 800
Future.CIRCLE 400, 300, i%, i%
Future.CIRCLE 401, 300, i%, i%
NEXT

Future.EMSGet 0, 0, 799, 599, handle%

Set320x200'Set 320x200 svga screen

DO
SELECT CASE GetKey%
CASE 72
posY% = posY% - 2
CASE 80
posY% = posY% + 2
CASE 75
posX% = posX% - 2
CASE 77
posX% = posX% + 2
END SELECT

Future.EMSPut posX%, posY%, handle%'redraw screen

'WAIT &H3DA, 8
'WAIT &H3DA, 8, 8

LOOP UNTIL INKEY$ = CHR$(27)

DeallExpMem handle%  'free up EMS memory
ReSetScreen