20 FOR Y=0 TO 22:FOR X=1 TO 26STEP2:IF RND(9)>3 THEN 40
30 A=Y MOD2:LOCATE X-A,Y:PRINT (HR$(227-A)
40 NEXT:NEXT:PAUSE
运行环境:F-BASIC