您所在位置：主题：字符的弱肉强食
幽灵密码
[专家分：3510] 发布于 2010-11-28 14:31:00
RANDOMIZE TIMER
SCREEN 13
CLS
INPUT n, m
FOR i = 1 TO n
FOR j = 1 TO m
PRINT CHR$(INT(RND * 236) + 1);
FOR k = 1 TO 40000: IF INKEY$ = CHR$(27) THEN CLS : END
NEXT k
NEXT j
PRINT
NEXT i
END
按esc退出。
输入大一点的数据（33至600）——
你会看到有些字符被吃了。
当屏幕过于拥挤的时候——
——————
字符们。。。自行清屏了。。。
字符们有时还会自己BEEP
虽然我是顺序输出，但是他们经常乱跑。。
SCREEN 13
CLS
INPUT n, m
FOR i = 1 TO n
FOR j = 1 TO m
PRINT CHR$(INT(RND * 236) + 1);
FOR k = 1 TO 40000: IF INKEY$ = CHR$(27) THEN CLS : END
NEXT k
NEXT j
NEXT i
END
按esc退出。
输入大一点的数据（33至600）——
你会看到有些字符被吃了。
当屏幕过于拥挤的时候——
——————
字符们。。。自行清屏了。。。
字符们有时还会自己BEEP
虽然我是顺序输出，但是他们经常乱跑。。
