недодемо на Atari BASIC

 

Внезапно вчера пришла в голову идея одного эффекта, суть заключается в анимации полос

10 GRAPHICS 10+16
11 POKE 705,$1F:POKE 706,$6F:POKE 707,$59:POKE 708,$BF
20 X=0:C=1:Y=0
30 COLOR C:FOR I=0 TO 3
40   PLOT X,0:DRAWTO 79-X,191
41   X=X+1:NEXT I
50 C=C+1:IF C=5 THEN C=1
55 IF X<80 THEN 30
56 P=7
57 C=1
61 COLOR C:FOR I=0 TO 15
62   PLOT 79,Y:DRAWTO 0,191-Y
63   Y=Y+1:NEXT I
64 C=C+1:IF C=5 THEN C=1
65 IF Y<192 THEN 61
66 IF INKEY$<>" " THEN 66
70 POKE 705,$1F:POKE 706,$59:POKE 707,$59:POKE 708,$1F:PAUSE P
71 POKE 705,$59:POKE 706,$1F:POKE 707,$1F:POKE 708,$59:PAUSE P
72 POKE 705,$59:POKE 706,$59:POKE 707,$1F:POKE 708,$1F:PAUSE P
100 GOTO 70

Суть в подготовленных точках