Демо на бейсике

[char]

9030 REM 1plot + Ndraw
9035 READ x,y: PLOT x,y
9037 REM draw N raz
9038 READ N: FOR i=1 to N: READ dx,dy: DRAW dx,dy: NEXT i: RETURN

1050 RESTORE 1050: GOSUB 9030: DATA 100,20, 3, 100,0, -50,80, -50,-80

1053 PLOT 100,18
1055 RESTORE 1055: GOSUB 9037: DATA 3, 100,0, -50,80, -50,-80

...

9040 REM Read + Rectangle(x,y,dx,dy)
9045 READ x,y,dx,dy
9050 REM Rectangle(x,y,dx,dy)
9055 PLOT x,y: DRAW dx,0: DRAW 0,dy: DRAW -dx,0: DRAW 0,-dy: RETURN

1060 RESTORE 1060: GOSUB 9040: DATA 10,10, 230,150
1070 LET x=12: LET y=12: LET dx=226: LET dy=146: GOSUB 9050

...

1 LET R1=9040: LET R2=9050

1080 RESTORE 1080: GOSUB R1: DATA 14,14, 222,142
1090 LET x=16: LET y=16: LET dx=218: LET dy=138: GOSUB R2

...

---------- Post added at 17:16 ---------- Previous post was at 16:59 ----------

9060 REM Bar(color,x,y,dx,dy)
9065 READ color: POKE 23693,color: REM color=ink + (paper*8) + (bright*64) + (flash*128)
9070 REM Bar(x,y,dx,dy)
9075 READ x,y,dx,dy
9080 FOR i=0 to dy: PLOT x,y+i: DRAW dx,0: NEXT i
9090 RETURN

2 LET B1=9060: LET B2=9070

1100 RESTORE 1100: GOSUB B1: DATA 79, 1,1,254,174: REM 79 = ink 7: paper 1: bright 1: flash 0

1110 POKE 23693,5: REM vse po nolyam, ink 5
1115 RESTORE 1115: GOSUB B2: DATA 9,9,238,158

1120 RESTORE 1120: INK 1: GOSUB B2: INK 2: GOSUB B2: INK 3: GOSUB B2: INK 4: GOSUB R1: DATA 30,30,5,50, 40,30,5,60, 50,30,5,40, 60,30,100,100: REM 3 bar + 1 rectangle

...

8000 DATA 66: REM color
8001 DATA 1,2,3,4
8005 DATA 5,6,7,8, 9,10,11,12
8010 DATA 13,14,15,16, 17,18,19,20
8020 DATA 9,8,7,6, 5,4,3,2, 1,2,3,4
8030 DATA 1001,1002,1003,1004,1005: REM ne chitaem )

1130 RESTORE 8000: GOSUB B1: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2
1140 RESTORE 8000: GOSUB B1: GOSUB R1: GOSUB R1: GOSUB R1: GOSUB R1: GOSUB R1: GOSUB R1: GOSUB R1
1150 RESTORE 8010: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2: GOSUB B2

[scl^mc]

блин, забыл, как рассчитывать значения для занесения в ячейки 23606/23607 для переключения на символьный набор пользователя...

[char]

adr=60000
H=int(adr/256)
L=adr-H*256
H=H-1
23606,L
23607,H
насколько помню

[null_device]

scl^mc, даете команду RANDOMIZE (n-256). В ячейках 23670\71 будут лежать готовые числа для переменной.

[Viktor2312]

Поигрался с оператором OVER, действительно работает.


Качать и смотреть не обязательно, там рисуется 9 пикселей, после чего они убираются и процесс повторяется до бесконечности.
файлик

Теперь можно мучать дальше.