Initial commit
This commit is contained in:
commit
7b3ef3e6ca
1
helloworld.bas
Normal file
1
helloworld.bas
Normal file
|
@ -0,0 +1 @@
|
|||
alert "Ok", "Hello, World!", "info"
|
29
helloworld2.bas
Normal file
29
helloworld2.bas
Normal file
|
@ -0,0 +1,29 @@
|
|||
#!yab
|
||||
|
||||
#This program is a better Hello World
|
||||
//We can make comments
|
||||
REM in differnet ways
|
||||
|
||||
//open a window
|
||||
window open 100,100 to 400,150, "HelloWorldWindow", "Example Program"
|
||||
|
||||
//make a view in the window
|
||||
//the window itself is a kind of view, but DRAW SET does not work on it
|
||||
view 0,0 to 300,50, "HelloWorldView", "HelloWorldWindow"
|
||||
|
||||
//set the font - need the dejavu package for this example.
|
||||
draw set "DejaVu Sans, Bold, 40", "HelloWorldView"
|
||||
|
||||
//draw the text
|
||||
draw text 5, 40, "Hello, World!", "HelloWorldView"
|
||||
|
||||
//start an infinite loop that can only be broken if the
|
||||
//user closes the program
|
||||
while(instr(message$, "Quit") =0)
|
||||
print "checking for message from Haiku..."
|
||||
|
||||
//this shows the processes
|
||||
wend
|
||||
print "exiting program"
|
||||
//delete this when you understand it
|
||||
exit
|
Loading…
Reference in New Issue
Block a user