add extra files

This commit is contained in:
2021-01-22 23:16:02 -05:00
parent 5b32cb677a
commit e657af0635
25 changed files with 7698 additions and 0 deletions

5
qb64/hello.bas Normal file
View File

@@ -0,0 +1,5 @@
PRINT "Hello World"

20
qb64/linedemo2.bas Normal file
View 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
View 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
View File

@@ -0,0 +1,4 @@
PRINT "Enter your name:"
INPUT user$
PRINT "Hello " + user$