90 LET K = INT (K/2)
100 NEXT J
110 LET Z = Z + 1
120 NEXT I
130 PAUSE 0
140 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 X=0
70 LET Y = Y +(R=2)-(R=3)
60 IF Y>21 OR Y<0 THEN LET Y=0
90 GO TO 30
Занавес.
10 OVER 1
20 FOR C = 0 TO 2
30 FOR A = 0 TO 1
40 FOR B = 0 TO 255 STEP 10
50 BEEP .01,B/10
60 PLOT 0,175*A
70 DRAW B,175-350*A
80 PLOT 255,175*A
90 DRAW -B,175-350*A
100 NEXT B: NEXT A: NEXT C
Зачерчивание экрана линиями.
10 BORDER 2 20 FOR I = 0 TO 50
Построение вертикальных линий
30 LET N = INT(RND*Z55) 40 PLOT N,0
50 LET M = INT (RND*127) 60 IF(M+N)>255 THEN GO TO 50 70 DRAW M,175 130 NEXT I
Добавив эту часть программы, мы будем строить и горизонтальные линии.
80 LET N = INT(RND*175) 90 PLOT 0,N
100 LET M = INT(RND*88)
110 IF(M+N)>175 THEN LET M = -M
120 DRAW 255,M
Прыгающий НЛО.
10 LET B=INT(RND*30) 20 LET A=INT(RND*18) 30 PRINT AT A,B+1;"O" 40 PRINT AT A+1,B;"<8>" 50 PRINT AT A+2,B+1;"H" 60 PAUSE 10 70 CLS
80 PRINT AT A+1,B+1;"O"
90 PRINT AT A+2,B;"<8>"
100 PRINT AT A+3,B+1;"H"
110 PAUSE 10
120 CLS
130 GO TO 10
Попробуйте после строки 70 ввести: 75 GO TO 10
Узор.
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 BORDER 0: CLS
20 LET H = 16
30 LET V = 11
40 LET X = INT(RND*3-1)
50 LET Y = INT(RND*3-1)
60 INK RND*7
70 FOR Z=1 TO 20
80 PRINT AT V,H; CHR$ 143
90 LET H=H+X
100 LET V=V+Y
110 IF H < 0 THEN LET H=31
120 IF H > 31 THEN LET H=0
130 IF V < 0 THEN LET V=21
140 IF V > 21 THEN LET V=0
150 NEXT Z
160 GO TO 20
Попробуйте присвоить строке 70 номер 35, а строку 70 убрать.
Далее все программы - "звучащие". Это варианты использования оператора BEEP. Большинство из этих программ можно использовать в своих программах. Звуки.
10 FOR Y = -2 TO 4 20 FOR X = 0 TO 6 30 BEEP .02,X+Y 40 NEXT X 50 NEXT Y
Измените .02 на .2 или на .002
Полный диапазон звуков Вашего компьютера.
10 FOR X = -60 TO 69
20 BEEP .02,X
30 NEXT X
10 FOR A = .01 TO .1 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,0 40 NEXT Q 50 GO TO 10
"B" находится в диапазоне -1 до 3.
Имитатор сирены. Обратите внимание на разницу в наборе первой цифры в 20 и 30 строках (варианты эквивалентны).
10 FOR N = 1 TO 10 20 BEEP .15,17
30 BEEP 0.15,12 40 PAUSE 3 50 NEXT N
Имитация прыгающего шарика.
10 FOR N = 85 TO 0 STEP -2
20 BEEP .01,55
30 FOR A = N TO 0 STEP -1
40 NEXT A
50 NEXT H
10 FOR N = 1 TO 25
20 LET P = INT(RND*40) - 30
30 BEEP .05,P
40 BEEP .05,P+7
50 BEEP .05,P+4
60 NEXT N
10 FOR P=1 TO 48 STEP .5
20 BEEP .01,P
30 BEEP .01,P-6
40 NEXT P
Далее идут программы, основой которых является использование операторов PLOT, DRAW, CIRCLE. Рамка.
10 FOR N = 9 TO 175 20 PLOT 0,N 30 DRAW 8,0 40 PLOT 247,(175-N) 50 DRAW 8,0 60 NEXT N
70 FOR N = 9 TO 255 80 PLOT N,175 90 DRAW 0,-8 100 PLOT (255-N),0 110 DRAW 0,8 120 NEXT N
Рамка.
10 FOR F = 0 TO 31 20 PRINT AT 0,F;"1" 30 PRINT AT 21,F;"|" 40 NEXT F 50 FOR F = 0 TO 21 60 PRINT AT F,0;"1" 70 PRINT AT F,31;"J" 80 NEXT F
Спираль. Попробуйте развернуть спираль в другую сторону.
10 PLOT 128,88
20 FOR M=1 TO 176 STEP 4
30 DRAW 0,M
40 DRAW -(M+1),0
50 DRAW 0,-(M+2)
60 DRAW (м+3),0
70 NEXT M
Цветные окружности.
10 CLS
20 CIRCLE INK RND*6; FLASH RND; 120+RND*8, 80*RND*6, RND*80 30 BEEP .1, RND*60
40 IF RND>.9 THEN GO TO 10 50 GO TO 20
Попробуйте убрать из строки 20 INK и FLASH. Попробуйте убрать строку 30.
Вложенные прямоугольники.
10 LET X = 0
20 FOR N = 170 TO 0 STEP -4 30 LET X = X + 2 40 PLOT X,X 50 DRAW N+80,0 60 DRAW 0,N 70 DRAW -(N+80),0 80 DRAW 0,-N 90 NEXT N
Предлагается четыре варианта построения круга.
Первые три строки в программах построения круга одинаковы, поэтому при наборе следующих программ эти можно оставить.
10 LET X= 128
20 LET Y=88
30 LET R=30
40 LET A=40
50 FOR F=-A TO A
60 LET C=R*SQR ABS(1-F*F/(A*A))
70 PLOT X+F,Y+C
80 DRAW 0,-2*C
90 NEXT F
10 LET X=128
20 LET Y=88
30 LET R=30
40 FOR F=-R TO R
50 PLOT X+F,Y+SQR ABS(R*R-F*F)
60 DRAW 0,-2*SQR ABS(R*R-F*F)
70 NEXT F
10 LET X=128 20 LET Y=88 30 LET R=30
40 FOR F=0 TO 2*PI STEP PI/180 50 PLOT X,Y
60 DRAW R*COS F,R*SIN F 70 NEXT F
10 LET X=128 20 LET Y=88 30 LET R=30 40 FOR F=1 TO R 50 CIRCLE X,Y,F 60 NEXT F
Ромб.
10 LET X=128 20 LET Y=88 30 LET R=30 40 LET A=PI/3 50 FOR F=-R TO R 60 PLOT X+F,Y-R 70 DRAW R*COS A,R*SIN A 80 NEXT F
10 LET X=128 20 LET Y=88 30 LET R=30
40 FOR F=-R TO R 50 PLOT X+F,Y 60 DRAW 0,2*R 70 NEXT F
Треугольник.
10 BORDER 1
20 PAPER 6
30 INK 2
40 CLS
50 FOR X= -60 TO 60
60 PLOT 128,150
70 DRAW X,-120
80 NEXT X
Убывающий квадрат.
10 FOR N=80 TO 0 STEP -2
20 PLOT 50+N,N
30 DRAW N,0
40 DRAW 0,N
50 DRAW -N,0
60 DRAW 0,-N
70 NEXT N
Квадраты.
10 BORDER 0 20 PAPER 0:CLS 30 FOR X=7 TO 0 STEP -1 40 INK X
50 FOR L=11-X TO 11+X 60 FOR C=16-X TO 16+X 70 PRINT AT L,C;"J" 80 NEXT C 90 NEXT L 100 NEXT X
Вложенные квадраты.
10 LET X=0
20 FOR N=120 TO 0 STEP -4
30 LET X=X+2
40 PLOT 50+X,X
50 DRAW N,0
60 DRAW 0,N
70 DRAW -N,0
80 DRAW 0,-N
90 NEXT N
Сетчатое поле для настройки монитора.
10 BORDER 2: PAPER 0
20 INK 7: CLS
30 FOR N=0 TO 255 STEP 16
40 PLOT N,0
50 DRAW 0,175
60 NEXT N
70 FOR N=0 TO 175 STEP 16
80 PLOT 0,N
90 DRAW 255,C
100 NEXT N
110 PLOT 255,C
120 DRAW 0,175
130 DRAW -255,0
140 PLOT 136,88
150 CIRCLE 136,88,88