10 REM COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 X=780:Y=781:Z=782:FORI=0TO9:A(I)=49152+3*I:NEXT:POKE53280,0:POKE53281,0
30 PRINTCHR$(14)"[147][151]   [195]OPYRIGHT 1987 [195][207][205][208][213][212][197]! [208]UB., [201]NC."
40 PRINTTAB(10)"[193]LL [210]IGHTS [210]ESERVED"
50 PRINT"[155][195]RYSTAL [195]LEAR IS A MACHINE LANGUAGE"
60 PRINT"ROUTINE THAT WILL SPRUCE UP YOUR [194][193][211][201][195]"
70 PRINT"AND MACHINE LANGUAGE PROGRAMS. [201]T ALLOWS";
80 PRINT"YOU TO CLEAR THE SCREEN WITH TEN"
90 PRINT"DIFFERENT PATTERNS.  [217]OU ALSO HAVE"
100 PRINT"CONTROL OVER THE SPEED, PRINT CHARACTER,"
110 PRINT"AND THE COLOR."
120 PRINT"[198]IRST, LET'S LOOK AT THE PATTERNS.":GOSUB450
130 POKEX,3:POKEY,32:POKEZ,0:SYSA(0):PRINTCHR$(142)
140 FOR I=2 TO 12:POKE X,2:POKE Y,160:POKE Z,I:J=J+1:IF J>9 THEN J=0
150 SYSA(0)+J*3:NEXT I:POKEX,1:POKEY,32:POKEZ,0:SYSA(9)
160 PRINTCHR$(14)"[155][195]RYSTAL [195]LEAR ALLOWS YOU TO USE ANY"
170 PRINT"COLOR OR CHARACTER AVAILABLE. [212]HERE"
180 PRINT"ARE PRACTICALLY ENDLESS COMBINATIONS."
190 PRINT"[217]OU CAN USE ONE ROUTINE OR TWO OR MORE"
200 PRINT"IN SUCCESSION TO PRODUCE DAZZLING"
210 PRINT"DISPLAYS.":GOSUB450:GOSUB480:POKE 53272,21
220 POKEX,3:POKEY,120:POKEZ,6:SYSA(1):PRINTCHR$(142)
230 POKEX,3:POKEY,121:POKEZ,14:SYSA(0):GOSUB480
240 FOR D=1TO7:POKE X,1:POKE Y,86:POKE Z,D:SYSA(8)
250 POKEX,1:POKEY,32:SYSA(9):NEXTD:GOSUB480:POKE 53272,23
260 POKEX,2:POKEY,95:POKEZ,15:SYSA(9)
270 POKEX,2:POKEY,105:POKEZ,12:SYSA(9):GOSUB480
280 POKEX,2:POKEY,123:POKEZ,7:SYSA(7)
290 POKEX,2:POKEY,97:POKEZ,6:SYSA(6)
300 POKEX,2:POKEY,124:POKEZ,7:SYSA(7):GOSUB480
310 POKEX,1:POKEY,127:POKEZ,1:SYSA(2)
320 POKEX,2:POKEY,32:POKEZ,0:SYSA(3)
330 POKEX,1:POKEY,127:POKEZ,1:SYSA(3)
340 POKEX,2:POKEY,32:POKEZ,0:SYSA(2)
350 POKEX,1:POKEY,127:POKEZ,1:SYSA(4)
360 POKEX,1:POKEY,32:POKEZ,0:SYSA(5):GOSUB480
370 FORM=1TO6:POKEX,1:POKEY,91:POKEZ,M:SYSA(9):NEXT
380 POKEX,1:POKEY,32:POKEZ,0:SYSA(8)
390 PRINTCHR$(14)"[155][206]OW WE'LL TAKE A JOURNEY THROUGH"
400 PRINT"THE CHARACTER SET AT FULL SPEED!"
410 GOSUB450:PRINT"[147]"CHR$(142)
420 FOR I=0 TO 255:POKE X,0:POKE Y,I:POKE Z,I:J=J+1:IF J>9 THEN J=0
430 SYS49152+J*3:NEXT I
440 POKE X,2:POKE Y,32:POKE Z,0:SYS49152+9*3:POKE53272,21:END
450 PRINTSPC(6)"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"                          "
460 [151]198,0:[161]DH$:[139] DH$[178]""[167]460
470 [142]
480 [151]X,2:[151]Y,32:[151]Z,0:[158]A(9):[129]D[178]1[164]1000:[130]
490 [142]