100 ' VGA-Demo
110 ' Aktiviert VGA-Modus mit Hilfe der ANSI.SYS-Funktion
120 ' ESC[?19h
130 ' 1991 by A. Meile
140 :
150 KEY OFF:SCREEN 1:SCREEN 0
160 OPEN "con" FOR OUTPUT AS 1
170 PRINT#1,CHR$(27);"[19h";
180 CLOSE 1
190 FOR I%=0 TO 240 STEP 16
200 DEF SEG=&HA000+I%*15
210 FOR J%=0 TO 15:C%=I%+J%:B%=20*J%
220 FOR K%=B% TO B%+3520 STEP 320:FOR L%=K% TO K%+19:POKE L%,C%:NEXT:NEXT:NEXT:NEXT
230 LOCATE 25,1
240 PRINT"VGA-Demo in GW-BASIC * 1991 by A. Meile";
250 LOCATE 1,1
260 WHILE INKEY$="":WEND
270 OPEN "con" FOR OUTPUT AS 1
280 PRINT#1,CHR$(27);"[2J";
290 CLOSE 1
300 FOR I%=0 TO 191
310 DEF SEG=&HA000+I%*20
320 C%=32+24*(I%\6 MOD 9)
330 FOR J%=0 TO 319:POKE J%,C%+J%\6 MOD 24:NEXT:NEXT
340 LOCATE 25,1
350 PRINT "VGA-Regenbogen (c) 1991 by A. Meile";
360 LOCATE 1,1
370 WHILE INKEY$="":WEND
380 OPEN "con" FOR OUTPUT AS 1
390 PRINT#1,CHR$(27);"[?1h";
400 CLOSE 1
410 SCREEN 2:KEY ON:SCREEN 0
420 END