0 Members and 8 Guests are viewing this topic.
Gimme a few minutes, I'll get a screenie EDIT: it doesn't work EDIT2: Also, I should post in the readme that creating TempProgs for data is preferred to appvars or programs because TempProgs get automatically deleted when the program is finished, freeing up the memory again
:.0:prgmGRAMMER:Full:Send(2,"VTP→I:I[35,1:Lbl "PPL→P:Lbl "TILE→E:0→T →X →Y →U →S →R →J →K →W →B →D:30→Y:10→X:ClrDraw:For(A,0,11:Pt-On(8,E+16,40,A,1,8:End:Repeat getKey=15:0→R:If S:96→R:Pt-Off(8,R+P+T*16,Y,X,1,8:0→T:U:+1:If =5:1:→U:T+U→T 0→S:0→Q:For(O,0,7:pxl-Test(Y+8,X+O:+Q→Q:End:If !Q:Y+1→Y 5→T:If Q:0→J →K:If getKey=54 *!J *Q:1→J:Y:If J *K≠10:K+1→K Y-2:→Y:If K=10:10→K:DispGraph:W+2→W:If W=8:Then:Pt-On(8,E+16*(I+1),(I),11,1,8:int(I,25+rand/3277:int(I+1,rand/32796:End:If W=10:0→W:Tangent(2,2:If Y=56 +Y>60:Goto Lbl "Stop:D+1→D:If D>9999:0→D B+1→B:Text('0,0,B:Text('ºD:End:Goto Lbl "Stop:.PPL:18183854542828280C6D9E20205844820C0C306E203028280C0C3070382060600C0C70A82630C8089A5C381010282824:.TILE:0000000000000000000000FFFF000000:.Stop:ClrDraw:Text(0,0,"SCORE::Text('8,1,B:Text('ºD:DispGraph:Repeat getKey=15:End:Stop