home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 November
/
1987-11.d64
/
crystalcleardemo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
50 lines
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]