• Ichigojam

1 'MATRIXフウデモ
10 CLS:CLV
20 FOR I=0 TO 30 STEP 2:[I]=RND(30):[I+1]=RND(20):NEXT
30 @LOOP
40 FOR I=0 TO 30 STEP 2
50 @RE
60 IF [I+1]<20 LC[I],[I+1]:A=RND(174)+48:IF A=127 GOTO @RE ELSE ?CHR$(A)
70 LC [I],[I+1]-10:?" "
80 [I+1]=[I+1]+1
90 IF [I+1]-10=21 [I]=RND(30):[I+1]=0
100 NEXT
110 GOTO @LOOP

Pagetop