Comme tous les rêveurs de mon espèce, j'ai rêvé des merveilles pouvant être accomplis avec un microprocesseur 80386 et une carte VGA comme le montre si bien le livre «PC Interdit». Aimant tellement se genre de matériel, j'ai délibérément ajouté des instructions supplémentaires et des fonctions pour permettre de tirer facilement partie des propriétés de se genre de matériel. Cependant, bien que ce code fonctionnait a merveille sous des vieilles machines ne tournant pas avec Windows, les résultats sont devenues de plus en plus incompatible grâce à la montée en puissance de Windows au détriment du DOS. En somme, ce code est dédié au rêveur du passé ayant révolution les possibilités du DOS! A l'aide du code source «Basic Pro du MonsterBook» suivant, vous trouvez la réponse que vous souhaitez:
' Démonstrateur de défilement d'écran sous le Basic PRO
' Tous droits réservés par Gladir.com 1997
' Programmeur: Sylvain Maltais
SCREEN 0:WIDTH 80:COLOR 7,0
BytesPerLine(320) 'Instruction supplémentaire pour faire élargir les bandes écran en 320/2=160 caratères de large
FillBox(0,0)-(159,49),7,"-" 'Permet de créer une boîte avec un caractère spécifique
Y=0:YDir=1
FOR J%=0TO 49:FOR I%=0TO 15:HPRINT(I%*10,J%),I%:NEXT I%:NEXT
WHILE INSTAT=0
Y=Y+YDir
IF Y<=0 OR Y>=NumYTexts*16THEN YDir=-YDir
VScale Y
WEND
K%=ReadKey:X=0:XDir=1
WHILE INSTAT=0
X=X+XDir
IF X<=0OR X>=WIDTH*9THEN XDir=-XDir
HScale X
WEND
K%=ReadKey
WHILE INSTAT=0
X=X+XDir:Y=Y+YDir
IF X<=0OR X>=WIDTH*9THEN XDir=-XDir
IF Y<=0OR Y>=NumYTexts*16THEN YDir=-YDir
VScale Y
HScale X
WEND
K%=ReadKey
FillBox(0,0)-(159,49),&H70,"þ"
PAGE 1:FillBox(0,0)-(159,49),7,"-"
FOR J%=1TO 50:FOR I%=1TO 16:LOCATE J%,I%*10-9:PRINT I%;:NEXT:NEXT
X=0:XDir=1:Y=0:YDir=1:I=0:IDir=1
WHILE INSTAT=0
X=X+XDir:Y=Y+YDir:I=I+IDir
IF X<=0OR X>=WIDTH*9THEN XDir=-XDir
IF Y<=0OR Y>=NumYTexts*16THEN YDir=-YDir
IF I<=0OR I>=NumYTexts*16THEN IDir=-IDir
SplitScreen I
VScale Y
HScale X
WEND
SCREEN 0