home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 August
/
1987-08.d64
/
flip demo.note
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
876b
|
24 lines
10 poke 53280,4:poke 53281,4:poke 646,0
20 printchr$(14)"[147][212]he [211]prite [198]lip [196]emo will work only"
30 print"with the [211]prite [198]lip routine in memory."
40 print"[198]irst, you must run the [211]prite [198]lip"
50 print"program ([208]age 1, [201]tem 2 from the menu)."
60 print"[208]lease consult the article for"
70 print"instructions on how to use [211]prite [198]lip"
80 print"in your own programs.[155]"
90 ford=1to38:print"[164]";:next:print
100 print"[155] [208][210][197][211][211] [210][197][212][213][210][206] [212][207] [210][197][204][207][193][196] [212][200][197] [205][197][206][213] [146]"
110 ford=1to38:print"[164]";:next:print
120 print"[155] [208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [210][213][206] [212][200][197] [196][197][205][207] [146]"
130 poke198,0:wait198,1:getdh$
140 if dh$=chr$(13)then160
150 if dh$<>chr$(13)then200
160 print"[147]":s$="l[207]"+chr$(34)+"mn"+chr$(34)+",8:"+chr$(131)
170 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
180 poke53281,15:poke53280,15
190 printchr$(142)"[145] reloading the menu[155]":end
200 print"[147][156]load"chr$(34)"sprite flip demo"chr$(34)",8"
210 print"run"
220 printchr$(142)"[144]just a moment...loading sprite flip demo[156]";
230 fori=1to2:poke630+i,13:next:poke198,i