0 Members and 1 Guest are viewing this topic.
:If getKey(2) and X>1:X--:End
:If getKey(2) and (X>1):X--:End
:"Play"=>Str901:"About"=>Str902:"Help"=>Str903:"Quit"=>Str904:Data(Str901{r},Str902{r},Str903{r},Str904{r})→Str90:0→V→W+4→X:Fix 5:Line(V,W,V+21,W):Line(V,W,V,W+8):Line(V,W+8,V+21,W+8):Line(V+21,W,V+21,W+8):Text(V+2,W+1,Str901):Repeat getKey(54):If X>1 and getKey(2):X--:sub(PT):End:If x<4 and getKey(3):X++:sub(PT):End:DispGraph:End:Lbl PT:Text(V+2,W+1):Text {X-1*2+Str90}{r}:Return