Very simple - programs in BASIC: character set output, pattern, siren, computer sound range

╔════════════════════╗
          ║ VERY SIMPLE ║
          ╚════════════════════╝

   This section is intended for those who
just starting to try the program himself
learn in BASIC.

   Try typing the following programs:
frames:


       CHARACTER SET OUTPUT
       ────────────────────────
10 FOR A=32 TO 255
20 PRINT CHR$ A;" ";
30 NEXT A


DISPLAYING A SYMBOL BY ITS NUMBER FROM 32 TO 255
──────────────────── ────────────────────
10 INPUT A
20 PRINT A,CHR$ A
30 GO TO 10


     DISORDERLY FILLING THE SCREEN
     ───────────────────────────────
10 LET X=16
20 LET Y=11
30 PRINT AT Y,X;"*"
40 LET R=INT(RND*4)
50 LET X=X+(R=0)-(R=1)
60 IF X>31 OR X<0 THEN LET Y=0
70 LET Y=Y+(R=2)-(R=3)
80 IF Y>21 OR Y<0 THEN LET Y=0
90 GO TO 30


                 PATTERN
                 ────
10 LET A=" "
20 FOR X=1 TO 7
30 LET A$=A$+CHR$(RND*14+129)
40 NEXT X
50 INK RND*6
60 BORDER RND*7
70 FOR N=0 TO 87
80 PRINT A$
90 NEXT N


    FULL RANGE OF COMPUTER SOUND
    ─────────────────────────────────
10 FOR X=-60 TO 69
20 BEEP .02.X
30 NEXT X

10 FOR A= .01 TO STEP .01
20 FOR B=46 TO 32 STEP -4
30 BEEP .15-A,B
40 NEXT B
50 NEXT A

10 INPUT B
20 FOR Q=20-B*19 TO 1+B*19 STEP -1+B*2
30 BEEP .01.Q
40 NEXT Q
50 GO TO 10

     "B" ranges from -1 to 3

          SIREN SIMULATOR
          ───────────────
10 FOR N=1 TO 10
20 BEEP .15.17
30 BEEP .15.12
40 PAUSE 3
50 NEXT N

*****************************************
      ZX-REVIEW No.3 1991 p.45-46
             kiSSSoft 1995
*****************************************