From 7b3ef3e6ca5beac0f58cebf8c0b216370fb27bc8 Mon Sep 17 00:00:00 2001 From: John Paul Wohlscheid Date: Thu, 6 Feb 2020 23:18:53 +0000 Subject: [PATCH] Initial commit --- helloworld.bas | 1 + helloworld2.bas | 29 +++++++++++++++++++++++++++++ 2 files changed, 30 insertions(+) create mode 100644 helloworld.bas create mode 100644 helloworld2.bas diff --git a/helloworld.bas b/helloworld.bas new file mode 100644 index 0000000..0aa4133 --- /dev/null +++ b/helloworld.bas @@ -0,0 +1 @@ +alert "Ok", "Hello, World!", "info" \ No newline at end of file diff --git a/helloworld2.bas b/helloworld2.bas new file mode 100644 index 0000000..2786f8e --- /dev/null +++ b/helloworld2.bas @@ -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 \ No newline at end of file