MSXPen

10 IF PEEK(&H2D)=0 GOTO 100

20 GET TIME T$

30 R=VAL(RIGHT$(T$,2))

40 R=RND(-R)

100 DEFINT A-Z:DIM B(15)

110 COLOR 15,1,1:SCREEN 1

120 KEY OFF:WIDTH 32

130 FOR L=0 TO 15

140 READ B(L):NEXT L

150 FOR C=2 TO 15

160 FOR L=0 TO 7

170 VPOKE (120+C*8)*8+L,B(L)

180 NEXT L

190 VPOKE &H2000+(120/8)+C,1+C*16

200 NEXT C

210 FOR L=0 TO 7

220 VPOKE 248*8+L,B(L+8)

230 NEXT

240 C=RND(1)*14+1

250 X=RND(1)*30+1

260 LOCATE X,23:PRINT CHR$(128+C*8)

270 LOCATE X,23:PRINT CHR$(248);

280 TIME=0

290 IF TIME<2 GOTO 290 ELSE GOTO 240

300 DATA &H38,&H74,&HFA,&HFE

310 DATA &HFE,&H7C,&H38,&H10

320 DATA &H10,&H08,&H08,&H10

330 DATA &H10,&H08,&H08,&H10