1 ONERRORGOTO2:CLS:SCREEN1,1,1
2 CLS:PRINT"patience...":CLEAR100
3 RESTORE:DEFSTRA-J:DEFINTI:X=128:GOSUB4:X=224:GOSUB4:CLOAD
4 FORI=XTOX+31:READA,B,C,D,E,F,G,H:J="&h"+A+",&h"+B+",&H"+C+",&H"+D
5 J=J+",&h"+E+",&h"+F+",&h"+G+",&h"+H:FONT$(I)=J:NEXT:RETURN
6 DATA18,24,70,B8,F8,70,0,0,0,38,28,10,10,10,18,18,18,1C,14,10,30,50,50,20
7 DATA38,5C,4C,24,30,68,48,30,0,38,44,54,28,38,10,0,0,38,1C,C,1C,38,0,0
8 DATA80,B8,9C,8C,9C,B8,80,80,0,38,1C,C,1C,38,0,FC,80,B8,9C,8C,9C,B8,80,FC
9 DATAFC,B8,9C,8C,9C,B8,80,80,FC,38,1C,C,1C,38,0,0,FC,38,1C,C,1C,38,0,FC
10 DATA0,0,38,7C,6C,44,0,0,80,80,B8,FC,EC,C4,80,80,0,0,38,7C,6C,44,0,FC
11 DATA80,80,B8,FC,EC,C4,80,FC,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
12 DATA0,38,70,60,70,38,0,0,0,0,0,0,0,0,0,0,0,38,70,60,70,38,0,FC
13 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,FC,38,70,60,70,38,0,0
14 DATAFC,38,70,60,70,38,0,FC,0,0,44,6C,7C,38,0,0,80,80,C4,EC,FC,B8,80,80
15 DATA0,0,38,7C,6C,44,0,0,0,0,0,0,0,0,0,0,FC,80,C4,EC,FC,B8,80,80
16 DATAFC,0,44,6C,7C,38,0,0
17 DATA0,38,44,6C,44,54,6C,0,80,B8,C4,EC,C4,D4,EC,80,0,38,44,6C,44,54,6C,FC
18 DATA80,B8,C4,EC,C4,D4,EC,FC,FC,B8,C4,EC,C4,D4,EC,80,FC,38,44,6C,44,54,6C,0
19 DATAFC,38,44,6C,44,54,6C,FC
20 DATA0,38,7C,54,7C,6C,54,0,80,B8,FC,D4,FC,EC,D4,80,0,38,7C,54,7C,6C,54,FC
21 DATA80,B8,FC,D4,FC,EC,D4,FC,FC,B8,FC,D4,FC,EC,D4,80,FC,38,7C,54,7C,6C,54,0
22 DATAFC,38,7C,54,7C,6C,54,FC,0,0,0,10,0,0,0,0,80,80,80,90,80,80,80,80
23 DATA0,0,0,10,0,0,0,FC,80,80,80,90,80,80,80,FC,FC,80,80,90,80,80,80,80
24 DATAFC,0,0,10,0,0,0,0,FC,0,0,10,0,0,0,FC,0,0,0,0,0,0,0,0
25 DATA80,80,80,80,80,80,80,80,0,0,0,0,0,0,0,FC,80,80,80,80,80,80,80,FC
26 DATAFC,80,80,80,80,80,80,80,FC,0,0,0,0,0,0,0,FC,0,0,0,0,0,0,FC
27 DATA0,0,38,38,38,0,0,FC,80,80,B8,B8,B8,80,80,FC,FC,80,B8,B8,B8,80,80,80
28 DATAFC,0,38,38,38,0,0,0