Òàáëèöà 4
10 REM ÏÐÈÌÅÐ ÈÑÏÎËÜÇÎÂÀÍÈß ÎÊÎÍÍÎÃÎ ÄÐÀÉÂÅÐÀ
20 REM Â ÏÐÎÃÐÀÌÌÀÕ ÍÀ BASIC "ÌÈÊÐÎÍ"
30 Â=4À800 : REM ÀÄÐÅÑ ÎÁËÀÑÒÈ ÑÂßÇÈ
40 A=USR(B): REM ÈÍÈÖÈÀËÈÇÀÖÈß ÄÐÀÉÂÅÐÀ
50 WX=5 :WY=22: REM ÊÎÎÐÄÈÍÀÒÛ ÎÊÍÀ
69 LX=20:LY=6 : REM ÐÀÇÌÅÐÛ ÎÊÍÀ
70 FOR I=1 ÒÎ 5
80 ÐÎÊÅ Â+9,WÕ+(I-1)*2: ÐÎÊÅ Â+10,WY-(I-1)*2
90 POKE B+11,LX: POKE B+12,LY
100 NW=USR(B+3): REM ÎÒÊÐÛÂÀÅÌ ÎÊÍÎ NW
110 PRINT CHR$(&,1F) ;"ÂÛÂÎÄ Â ÎÊÍÎ"
120 PRINT "ÍÎÌÅÐ ";NW
130 PAUSE 2 
140 NEXT I 
150 FOR I=1 ÒÎ 5 
160 NW=USR(B+6): REM ÇÀÊÐÛÂÀÅÌ ÎÊÍÀ
170 PAUSE 1
180 NEXT I
190 REM ÂÎÑÑÒÀÍÀÂËÈÂÀÅÌ ÊÎÄÛ ÈÍÒÅÐÏÐÅÒÀÒÎÐÀ
200 A=USR(B)
210 STOP