The program:
LET a = 2
SELECT CASE a
CASE 1 to 2
PRINT "hydrogen"
CASE 3 to 4
PRINT "helium"
CASE else
PRINT "neither hydrogen nor helium"
END SELECT
IF end data then PRINT "true" else PRINT "false"
IF more data then PRINT "true" else PRINT "false"
PAUSE 2
SET MODE "graphics"
LET ratio = 1.4
SET WINDOW 0,(100*ratio),0,100
PLOT LINES: 10,10;10,50;50,50;50,10;10,10
SET COLOR "red"
FLOOD 20,20
SET COLOR "green"
PRINT "Hit any key"
SET COLOR "blue"
BOX CIRCLE 60,70,60,70
PAUSE 1
FLOOD 65,65
PAUSE 1
SOUND 2000,.3
PAUSE 1
DO while i < 10
SET COLOR "magenta"
READ x1,x2,y1,y2
BOX CIRCLE x1+i,x2+i,y1+i,y2+i
PAUSE 1
RESTORE
LET i=i+1
LOOP
DATA 80,85,80,85
END
Gives output:
hydrogen
false
true
And a "beep"
