home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-386-Vol-2of3.iso
/
b
/
baswiz19.zip
/
BW$BAS.ZIP
/
GN2DISPL.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-01-29
|
1KB
|
29 lines
' +----------------------------------------------------------------------+
' | |
' | BASWIZ Copyright (c) 1990-1993 Thomas G. Hanlin III |
' | |
' | The BASIC Wizard's Library |
' | |
' +----------------------------------------------------------------------+
DECLARE FUNCTION GN2GetPel% (BYVAL X%, BYVAL Y%)
DECLARE SUB G11Cls ()
DECLARE SUB G11Color (BYVAL Foreground%, BYVAL Background%)
DECLARE SUB G11GetColor (Foreground%, Background%)
DECLARE SUB G11Plot (BYVAL X%, BYVAL Y%)
DEFINT A-Z
SUB GN2Display
G11GetColor OldF, OldB
G11Color 0, 1
G11Cls
FOR Y = 0 TO 639
FOR X = 0 TO 479
G11Color 1 - GN2GetPel(X, Y), 0
G11Plot Y, 479 - X
NEXT
NEXT
G11Color OldF, OldB
END SUB