>>8
ＳＣＲＥＥＮ１３のことだよ。

ホレサンプルだ↓

SCREEN 13: DEFINT A-Z 'interpreter=11sec. / compied=10sec. speedrate=1.1
FOR J = 0 TO 63: PALETTE J, J + J * 256 + J * 65536: NEXT J

T1$ = TIME$
FOR J = 0 TO 199: FOR K = 0 TO 319
PSET (K, J), RND * 63
NEXT K, J
FOR L = 0 TO 9
FOR J = 0 TO 198: FOR K = 0 TO 318
PSET (K, J), INT((POINT(K, J) + POINT(K + 1, J) + POINT(K, J + 1) + POINT(K + 1, J + 1)) / 4)
NEXT K, J
NEXT L
T2$ = TIME$

LOCATE 1, 1: COLOR 63
PRINT T1$: PRINT T2$
PRINT "Anata wa EXCULTer's sama wo shinjimasuka?"
A$ = INPUT$(1)