Очень просто - программы на Бейсике: вывод символьного набора, узор, сирена, диапозон звуков компьютера

          ╔════════════════════╗
          ║ ОЧЕНЬ  П Р О С Т О ║
          ╚════════════════════╝

   Этот   раздел  предназначен  тем,  кто
только  начинает пробовать сам программи-
ровать на BASICe.

   Попробуйте   набрать  следующие  прог-
раммки:


       ВЫВОД СИМВОЛЬНОГО НАБОРА
       ────────────────────────
10 FOR A=32 TO 255
20 PRINT CHR$ A;" ";
30 NEXT A


ВЫВОД СИМВОЛА ПО ЕГО НОМЕРУ ОТ 32 ДО 255
────────────────────────────────────────
10 INPUT A
20 PRINT A,CHR$ A
30 GO TO 10


     БЕСПОРЯДОЧНОЕ ЗАПОЛНЕНИЕ ЭКРАНА
     ───────────────────────────────
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


                 УЗОР
                 ────
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


    ПОЛНЫЙ ДИАПАЗОН ЗВУКОВ КОМПЬЮТЕРА
    ─────────────────────────────────
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"находится в диапазоне от -1 до 3

          ИМИТАТОР СИРЕНЫ
          ───────────────
10 FOR N=1 TO 10
20 BEEP .15,17
30 BEEP .15,12
40 PAUSE 3
50 NEXT N

*****************************************
      ZX-РЕВЮ No.3 1991 стр.45-46
             kiSSSoft 1995
*****************************************