add extra files
This commit is contained in:
5
qb64/hello.bas
Normal file
5
qb64/hello.bas
Normal file
@@ -0,0 +1,5 @@
|
||||
PRINT "Hello World"
|
||||
|
||||
|
||||
|
||||
|
20
qb64/linedemo2.bas
Normal file
20
qb64/linedemo2.bas
Normal file
@@ -0,0 +1,20 @@
|
||||
'-------------------------
|
||||
'-LINE demonstration #2 -
|
||||
'-------------------------
|
||||
|
||||
const YELLOW = _RGB32(255, 255, 0)
|
||||
|
||||
SCREEN _NEWIMAGE(640, 480, 32)
|
||||
cls
|
||||
line (299, 219)-(319,0), YELLOW
|
||||
LINE -(339, 219), YELLOW
|
||||
LINE -(629, 239), YELLOW
|
||||
LINE -(339, 259), YELLOW
|
||||
LINE -(319, 479), YELLOW
|
||||
LINE -(299, 259), YELLOW
|
||||
LINE -(0, 239), YELLOW
|
||||
LINE -(299, 219), YELLOW
|
||||
LOCATE 16.36
|
||||
PRINT "PRESS A KEY"
|
||||
SLEEP
|
||||
SYSTEM
|
32
qb64/linedemo3.bas
Normal file
32
qb64/linedemo3.bas
Normal file
@@ -0,0 +1,32 @@
|
||||
'-------------------------
|
||||
'-LINE demonstration #3 -
|
||||
'-------------------------
|
||||
|
||||
CONST YELLOW = _RGB32(255, 255, 0)
|
||||
dim Style&
|
||||
dim Bit%
|
||||
dim Dir%
|
||||
|
||||
Dir% = -1
|
||||
|
||||
SCREEN _NEWIMAGE(640, 480, 32)
|
||||
do
|
||||
cls
|
||||
_LIMIT 30
|
||||
LOCATE 2, 33
|
||||
PRINT "A Stylized Line"
|
||||
LOCATE 4, 21
|
||||
PRINT "Press the Space Bar to change directions"
|
||||
LOCATE 6, 23
|
||||
PRINT "Press the Escape key to exit the program."
|
||||
if _KEYHIT = 32 THEN Dir% = -Dir%
|
||||
Bit% = Bit% + Dir%
|
||||
if Bit% = 16 THEN
|
||||
Bit% = 0
|
||||
ELSEIF Bit% = -1 then
|
||||
Bit% = 15
|
||||
End if
|
||||
Style& = 2 ^ Bit%
|
||||
LINE (99, 129)-(539, 409), YELLOW, B , Style&
|
||||
_DISPLAY
|
||||
LOOP UNTIL _KEYDOWN(27)
|
4
qb64/name.bas
Normal file
4
qb64/name.bas
Normal file
@@ -0,0 +1,4 @@
|
||||
PRINT "Enter your name:"
|
||||
INPUT user$
|
||||
PRINT "Hello " + user$
|
||||
|
Reference in New Issue
Block a user