10 CALL LINK("SCRN2")::CALL LINK("SCREEN",2)::CALL CLEAR::CALL MAGNIFY(3)::RANDOMIZE::GOSUB 9000
20 DIM W$(480)
30 FOR L=1 TO 64::READ X$::W$(L)=X$::NEXT L
40 DATA "       ((((((((((@@","       ((((((((((@@","       (((((((((@@@","       (((((((((@@@"
50 DATA "       (((((((((@@@","       ((((((((@@@@","       #$$((((((@@@","          (((((@@@@"
60 DATA "          (((((@@@@","       (((((((@@@@@","       (((((((@@@@@","       (((((((@@@@@"
70 DATA "       (((((((@@@@@","       ((((((((@@@@","       #$$(((((@@@@","          ((((((@@@"
80 DATA "          ((((((@@@","       ((((((((((@@","       ((((((((((@@","       ((((((((((@@"
90 DATA "       ((((((((((@@","       (((((((((@@@","       #$$((((((@@@","          (((((@@@@"
100DATA "          (((((@@@@","       ((((((((@@@@","       ((((((((@@@@","       ((((((((@@@@"
110DATA "       (((((((((@@@"," HJ    (((((((((@@@","&IK::: ((((((((((@@"," %%%%%%((((((((((@@"

120DATA "       PPPPPPPPP@@@","       PPPPPPPPP@@@","       PPPPPPPPP@@@","       PPPPPPPPP@@@"
130DATA "       PPPPPPPPP@@@","       PPPPPPPPPP@@","       PPPPPPPPPP@@","       PPPPPPPPPPP@"
140DATA "       #$$$$$$$$$P@","                 P@","                 P@","                 P@"
150DATA "                 P@","                 P@","                 P@","                 P@"
160DATA "                 P@","                 P@","                 P@","                 P@"
170DATA "                 P@","                 P@","                 P@","                 P@"
180DATA "       PPPPPPPPPPP@","       PPPPPPPPPP@@","       PPPPPPPPP@@@","       PPPPPPPP@@@@"
190DATA "       PPPPPPPP@@@@"," HJ    PPPPPPPP@@@@","&IK::: PPPPPPPP@@@@"," %%%%%%PPPPPPPP@@@@"


1100 CALL CLEAR
1110 FOR L=1 TO 32
1120 CALL LINK("DISPLY",1,L,W$(L),32)
1130 NEXT L
1135 N=33
1140 CALL LINK("WINDOW",1,1,24,32)::CALL LINK("SCRLLF",1)::CALL LINK("DISPLY",1,32,W$(N),32)
1145 N=N+1::IF N=65 THEN N=1
1150 GOTO 1140


9000 CALL LINK("CHAR2",35,"80C0E0F0F8FCFCFC",36,"FCFCFCFCFCFCFCFCE0E0E0E0E0E0E0E00000000000FFFFFF")::CALL LINK("COLOR2",1,13,2)
9010 CALL LINK("CHAR2",40,"FF010101FF101010")::CALL LINK("COLOR2",2,8,5)
9020 CALL LINK("CHAR2",64,"FFFFFFFFFFFFFFFF")::CALL LINK("COLOR2",5,4,1)
9030 CALL LINK("CHAR2",72,"01070F1F1F3F7FF080E0F0F8F8FCFE0FE0780F0000000000071EF00000000000")::CALL LINK("COLOR2",6,12,1)
9040 CALL LINK("CHAR2",58,"8080808080808080")::CALL LINK("COLOR2",4,16,2)
9050 CALL LINK("CHAR2",80,"FF010101FF101010")::CALL LINK("COLOR2",7,8,10)
9060 RETURN