10 DATA 01,10,00     :'LD  BC, X-координата одного угла прямоугольника
11 DATA 11,10,00     :'LD  DE, Y-координата
12 DATA F7           :'RST #30
13 DATA 87           :'(для ученического компьютера - 83)
14 DATA C9,00        :'Адрес расширенного BIOS
15 DATA C9           :'RET
20 FOR I=0 TO 10:READA$:POKE &HD000+I,VAL("&h"+A$):NEXTI:DEFUSR=&HD000
30 SCREEN 5          :' Возможны SCREEN 5 ╤ SCREEN 8
40 POKE &HFCB3,100   :' X-координата противоположного угла прямоуг.
50 POKE &HFCB5,100   :' Y-координата противоположного угла прямоуг.
60 POKE &HF3F2,15    :' Цвет
72 Z=USR(0)          :' Рисуем  п р я м о у г о л ь н и к
80 A$=INPUT$(1)      :' К о н е ц