CASE Example10 CLEAR SCREEN
20 INPUT "Please enter your age:",Age
30 SELECT Age
40 CASE <1,>100
50 PRINT "Congratulations - Movie is free!"
60 CASE <12
70 Price=2.00
80 CASE 12 TO 59
90 Price=6.50
100 CASE 60
110 PRINT "Special movie rate"
120 Price=3.00
130 CASE ELSE
140 Price=4.50
150 END SELECT
160 Image: IMAGE "Movie price is $", D.2D
170 PRINT USING Image;Price
180 End: END
|