透過窓描画:
# Call 透過窓描画 始点Ｘ 始点Ｙ 終点Ｘ 終点Ｙ 色
FillStyle 透明
Local i
Local XWSize
Local YWSize
Local ZWSize
　 XWSize = ((Args(3) - Args(1)) / 2)
　 YWSize = ((Args(4) - Args(2)) / 2)
ClearPicture Args(1) Args(2) Args(3) Args(4)
DrawWidth 2
Line Args(1) Args(2) Args(3) Args(4) Args(5) B
DrawWidth 1

If XWSize > YWSize Then
　ZWSize = (XWSize - YWSize)
　For i = 1 To YWSize
　　Line Args(1) (Args(2) + i * 2) (Args(1) + i * 2) Args(2) Args(5)
　　Line ((Args(1) + i * 2) + ZWSize  * 2) Args(4) Args(3) (Args(2) + i * 2) Args(5)
　Next
　For i = 1 To ZWSize
　　Line (Args(1) + i * 2) Args(4) ((Args(1) + i * 2) + YWSize  * 2) Args(2) Args(5)
　Next

ElseIf YWSize > XWSize Then
　ZWSize = (YWSize - XWSize)
　For i = 1 To XWSize
　　Line Args(1) (Args(2) + i * 2) (Args(1) + i * 2) Args(2) Args(5)
　　Line (Args(1) + i * 2) Args(4) Args(3) ((Args(2) + i * 2) + ZWSize  * 2) Args(5)
　Next
　For i = 1 To ZWSize
　　Line Args(1) ((Args(2) + i * 2) + XWSize  * 2) Args(3) (Args(2) + i * 2) Args(5)
　Next

ElseIf XWSize = YWSize Then
　For i = 1 To YWSize
　　Line Args(1) (Args(2) + i * 2) (Args(1) + i * 2) Args(2) Args(5)
　　Line (Args(1) + i * 2) Args(4) Args(3) (Args(2) + i * 2) Args(5)
　Next
EndIf
Return