testrect.bas

来自「由一个古老的BASIC解释器改进而成, 保留了ANSI C固有的艺术美感.」· BAS 代码 · 共 12 行

rem testrect.bas
rem Prueba de rectangulos

mode 1

line ( 0, 0)-( 9, 9),1,bf
line ( 0,11)-( 9,19),2,bf
line (11, 0)-(19, 9),3,bf
line (11,11)-(19,19),4,bf

get a$