[SAMPLE20] SAMPLE
10 REM SAMPLE 20
100 SCREEN 0,0:CLS 3
110 WINDOW(0,0)-(639,199)
120 C=6:GOSUB *RECT
130 VIEW(1,1)-(638,99),0,7
140 C=5:GOSUB *RECT
150 VIEW(214,1)-(428,198),0,7
160 C=4:GOSUB *RECT
170 VIEW(0,0)-(639,199):CLS 3
180 END
190 *RECT
200 LINE(50,50)-(600,150),C,BF
210 LOCATE 0,0:PRINT "どれかキーを押してください";
220 A$=INPUT$(1)
230 RETURN