100 CALL CLEAR
110 CALL COLOR(1,2,8)
120 CALL SCREEN(5)
130 CALL VCHAR(1,31,31,24*4)
140 FOR I=2 TO 16
150 CALL COLOR(I,2,8)
160 NEXT I
170 FOR I=1 TO 11
180 READ A,A$
190 CALL CHAR(A,A$)
200 NEXT I
210 DEF CTR$(A$)=SEG$("                ",1,(28-LEN(A$))/2)&A$
220 DEF RAND(X)=INT(RND*X)+1
230 DATA 64,364299A1A199423C
240 DATA 67,0054543810101010
250 DATA 68,001028282844447C
260 DATA 70,0038545438101010
270 DATA 71,007C404040404040
280 DATA 74,007C00003800007C
290 DATA 76,0010282828444444
300 DATA 80,007C444444444444
310 DATA 82,0078444478404040
320 DATA 83,007C20100810207C
330 DATA 85,003844447C444438
340 DATA 86,003844444438007C