Sorry your browser is not supported!

set display mode 640,480,16
ink rgb(255,0,0),rgb(255,0,0):box 0,0,40,40:get image 1,0,0,40,40: paste image 1,0,45 :print ".............um..Oops"
set cursor 0,128:dim a#(19):array insert at bottom a#(0):print a#(20)," um..Oops..."
ink rgb(255,255,255),rgb(0,0,0):line 0,148,200,200:set cursor 0,178:Print "hmmmm..Oops"
set cursor 0,218:x#=12345.678:Print "12345.678=", x#,"  Decimal points & 5's are irrevelent, they will be assimalated!"
Print "Guess what? This is a really long line of text that will go off the screen but will not wrap to the next line when we reach the edge of the screen, isn't that special?"
a$ = "Y":print
Select a$
Case "Y"
Print "You should buy DB Pro now!"
endcase
Case Default
Print "Oops, not quite ready for prime time."
endcase
endselect
sync
wait key
end