5 print chr$(147);tab(16);"{DOWN}{SHIFT-Q}"
10 gosub 1100
20 theta=π/2
30 g=9.81
40 l=1
50 speed=0
60 px=148
70 py=24
80 bx=px+l*90*sin(theta)
90 by=(py-l*90*cos(theta))+30
150 poke v+1,by:poke v,bx
160 accel=g*sin(theta)/l/50
170 speed=speed+accel/10
180 theta=theta+speed
190 get a$:if a$<>"q" then 80
200 poke v+21,0:end
1100 rem set up a sprite
1105 poke 2040,13
1110 for s=0 to 62:read d:poke 832+s,d:next
1115 v=53248:rem start of vic-ii
1120 poke v+21,1:rem enable sprite
1125 poke v+39,1:rem set color
1130 poke v+1,130:rem y pos
1135 poke v+16,0:pokev,128:rem x pos
1139 rem *** sprite bitmap data ***
1140 data 0,0,0,0,0,0,3,192,0,15,240,0
1145 data 31,248,0,63,252,0,127,254,0,255,255,0
1150 data 255,255,0,255,255,0,255,255,0,255,255,0
1155 data 255,255,0,127,254,0,63,252,0,31,248,0
1160 data 15,240,0,3,192,0,0,0,0,0,0,0
1165 data 0,0,0
1170 return