tutorial/group2/18.bas

   1 CLS\r
   2 1\r
   3 \r
   4 PRINT "******** Select action: ********"\r
   5 PRINT " "\r
   6 PRINT "1 - exit program"\r
   7 PRINT "2 - make a sound"\r
   8 PRINT "3 - draw box"\r
   9 \r
  10 INPUT "", a\r
  11 \r
  12 IF a = 1 THEN SYSTEM\r
  13 \r
  14 IF a = 2 THEN SOUND 2000, 2\r
  15 \r
  16 IF a = 3 THEN\r
  17   FOR c = 1 TO 15\r
  18     FOR b = 1 TO 50\r
  19       PRINT "#";\r
  20     NEXT b\r
  21     PRINT " "\r
  22   NEXT c\r
  23 END IF\r
  24 \r
  25 IF a > 3 THEN PRINT "Number too large"\r
  26 IF a < 1 THEN PRINT "Number too small"\r
  27 GOTO 1\r
  28 \r