19 lines
491 B
QBasic
19 lines
491 B
QBasic
Const Xmax=640
|
|
Const Ymax=480
|
|
|
|
ScreenRes Xmax,Ymax,32
|
|
|
|
#Include Once "fontlib.bi"
|
|
|
|
ScreenLock
|
|
Line (0,0)-(Xmax,Ymax),RGB(30,30,30),BF
|
|
ColorRGB(86,156,214,3)
|
|
ColorRGB(86,156,214,4)
|
|
DrawString("Hello World! :-) VGA-16",30,10,VGA16)
|
|
DrawString("Hello World! :-) VGA-14",30,30,VGA14)
|
|
DrawString("Hello World! :-) VGA-8",30,50,VGA8)
|
|
DrawString("Hello World! :-) PX Sans Nouveaux",30,70,SANS)
|
|
DrawString("Hello World! :-) Monospace",30,90,MONO)
|
|
ScreenUnlock
|
|
Sleep
|