start bastext 1025
start tok64 d64-YnEoAK
1 SWITCH 12,8
10 REM    *** sprite demonstration ***
20 a=250:SPROG a:REM ** set pointer **
30 SPROG "{.*9}*******{.*8}"
31 SPROG "{.*7}***********{.*6}"
32 SPROG "{.*6}*************{.*5}"
33 SPROG "{.*6}****{.*3}******{.*5}"
34 SPROG "{.*5}****..**..*****{.*4}"
35 SPROG "{.*5}****..*********{.*4}"
36 SPROG "{.*5}****..**..*****{.*4}"
37 SPROG "{.*6}****{.*3}******{.*5}"
38 SPROG "{.*6}*************{.*5}"
39 SPROG "{.*6}*************{.*5}"
40 SPROG "{.*6}*.*********.*{.*5}"
41 SPROG "{.*7}*.*******.*{.*6}"
42 SPROG "{.*7}*..*****..*{.*6}"
43 SPROG "{.*8}*..***..*{.*7}"
44 SPROG "{.*8}*..***..*{.*7}"
45 SPROG "{.*9}*..*..*{.*8}"
46 SPROG "{.*9}*..*..*{.*8}"
47 SPROG "{.*10}*****{.*9}"
48 SPROG "{.*10}*****{.*9}"
49 SPROG "{.*10}*****{.*9}"
50 SPROG "{.*11}***{.*10}"
70 SPRITE0,a:REM turn on sprite
75 EXPANDx0:EXPANDy0:REM expand sprite
80 SPRCL0,1 :REM set number 0 sprites      color to white
90 PRINT"{clear}{red}";:FORi=0TO10:PRINT"{.*40}";:NEXT
95 FORi=0TO10:PRINT"{reverse on}{.*40}";:NEXT
100 SPRITE1,a:EXPANDx1:EXPANDy1:SPRCL1,0:SDP1:SDP#0
110 FORx=9TO344:y=130+80*SIN(x/30):SMOVE0TOx,y:SMOVE1TOx-6,y+4 :REM curve (sine)
120 NEXT:SPRITE1:SPRITE2
130 PRINT"{clear}{white}":SWITCH12,0:END
stop tok64
(bastext 1.0)