100 CALL CLEAR
110 FOR A=40 TO 103
120 READ A$
130 CALL CHAR(A,A$)
140 NEXT A
150 FOR R=0 TO 7
160 FOR C=0 TO 7
170 CALL HCHAR(R+8,C+12,40+R*8+C)
180 NEXT C
190 NEXT R
200 FOR A=3 TO 16
210 CALL SCREEN(A)
220 CALL SOUND(2000,44733,0)
230 NEXT A
240 DATA FFFFFFFFFFFFFFFF,FFFFFFFFFFFEFFFF,FAEDFEF7BEEAF4B5,AA0280F8D68A2401
250 DATA A9B6AAAD3695564B,BFD5BBA9D1A2D069,FFB5FF6FFD5FBB5F,FFDB7EEBBEEB5DF6
260 DATA FFFFFEFBFDEBFAD5,FBEEBBDD6AF6AD75,D5A254A2A9A41249,B64AAA1248258822
270 DATA A5AA57914A289425,A0DA68A8CA9A6CB6,6D975E132A050A05,DBEDB6FBEDBDF73E
280 DATA FAA9F5BBEAB5D6F3,ADF5565AD5B5D66A,204A80545148A488,0094219629029044
290 DATA 920AA44902290293,DAAAB76BAD57FFBF,000A200481C8C5A2,D72FB51745134205
300 DATA 59EAA9D178888880,AD355A2B955A2DB6,3244904575A89281,1082100AF45A4AB6
310 DATA 0AA515A72A8B9585,FBF2FB1EA95502A9,AAAAADAB552DAA2C,A28942499241A8D2
320 DATA 88828A8586424342,9AAAAD1AD7AC5A8A,BECB7FAFFFBDDEB5,FDFEC4EEB4D59049
330 DATA 65A2AAA9542A4A2A,AAD5B4D2AAB95CAB,562BAB95562BAA57,A550AAD1A8D4E258
340 DATA 434552A1A1A0A1B0,154D880D448E0282,5AB7542A5154AAD5,0450894022802501
350 DATA 2A552D552B8A5005,AD0A2D555AA5965B,2AD55B6DAAB5EA77,EAE86AB4D59AEA5A
360 DATA 11417151ECEEFBEF,020102A1A0C070AA,AAD5B65B160D0200,94213AC45A205A44
370 DATA 2A15A556955DAB15,D5546192146A55AE,AA7BADB5EBB7DAAB,ED75BEED7EFEFFED
380 DATA B3FDB7DDF7AEFBF8,F0ACFAF6FDB6DEAE,8001A448A01280A0,DA6A6D2BAD1F5F3A
390 DATA AAAB5555AD75DBFE,DA6821504A5156EB,4FAB2F976E5FFDBF,FFB6DBEFB3DBEDBB