0 Members and 1 Guest are viewing this topic.
:.DMENSION:DiagnosticOff:[0000000000000000]→Pic1:[FFFFFFFFFFFFFFFF]:[FC84B4B484FC0000]→Pic2:0→D→I→J:4→N+1→O:rand→E:E/256→J:E-(J*256)→I:ClrDraw:ClrDrawr:For(Y,0,7:Y*8→T:For(X,0,11:X*8→S:Pt-Off(S,T,{E+D}^3/2*8+Pic1:Pt-Off(S,T,{E+D+32768}^3/2*8+Pic1)r:D+1→D:End:End:0→D→W:Repeat getKey(15):If getKey(48):E+32768→E:Normal:While getKey(48):DispGraphrr:End:Full:End:If getKey(3):Z-2→Z:End:If getKey(2):Z+2→Z:End:Z-(Z>>6)+(Z<<‾6)→Z:If getKey(54) and (D):6→θ:End:W+1→W:!If W-2:0→W:Z-(Z>>0)+(Z<<0)→Z:θ+1→θ:End:O+θ→O:If O>>0:J-1→J:O-8→O:End:If O<<‾7:J+1→J:End:N+Z→N:If N>>0:N-8→N:I-1→I:End:If N<<‾7:N+8→N:I+1→I:End::.they're unoptimized, at least temporarily, for readability:.top left:29-O/8+J*256+(45-N/8+I)+E→P::.top right:29-O/8+J*256+(51-N/8+I)+E→Q::.bottom left:35-O/8+J*256+(45-N/8+I)+E→U::.bottom right:35-O/8+J*256+(51-N/8+I)+E→V::.look at letter locations of PQUV and FGKL on keypad::.if block pointed to is "on" or "off":P^3/2→F:Q^3/2→G:U^3*2→K:V^3/2→L::If F or (G):O-(θ<<‾2)→O:‾θ→θ:End:If K or (L):If θ<<2 and (θ>>‾2):0→θ+1→D:‾5→O:Else:‾θ//2→θ:O+1→O:End:Else:0→D:End:If G or (L):N-(Z>>2)→N:‾Z//2→Z:End:If F or (K):N+(Z<<‾2)→N:‾Z//2→Z:End:ClrDraw:ClrDrawr:For(B,0,8:B*8+O→T:For(A,0,12:A*8+N→S:Pt-Off(S,T,{J*256+I+(B*256+A)+E}^3/2*8+Pic1:Pt-Off(S,T,{J*256+I+(B*256+A)+E+32768}^3/2*8+Pic1)r:End:End:Pt-Change(45,29,Pic2:Pt-Change(45,29,Pic2)r:Normal:DispGraphrr:Full:End
:.DMENSION:Full:DiagnosticOff:[0000000000000000]→Pic1:[FFFFFFFFFFFFFFFF]:[FC84B4B484FC0000]→Pic2:0→D→I→J→Z→θ:‾4→N+1→O:rand→E:E/12→J:E-(J*12)→I:ClrDraw:ClrDrawr:0→D→Q:Repeat getKey(15):If getKey(48):E+32768→E:Normal:While getKey(48):DispGraphrr:End:Full:End::If getKey(47):ClrHome:Disp "Z",Z►Dec,i,"θ",θ►Dec:While getKey(47):Pause 10:End:Repeat getKey(47):End:End::0→V:If pxl-Test(46,35)+pxl-Test(51,35):0→θ+1→V:O-(O^8)+1→O:End:Q+1→Q:!If -6:→Q:!If V:θ-1→θ:End:End:!If θ-6:5→θ:End:!If θ+6:‾5→θ:End:If V:-1→θ:If getKey(54):-1→W→V+2→θ:End:End:If θ<256:For(A,0,θ:ReturnIf getKey(15):If pxl-Test(46,29)+pxl-Test(51,29):O+(O^8)→O:0→θ:End:End:End::If getKey(2):If pxl-Test(46,30)+pxl-Test(46,35):Else:N+1→N:End:End:If getKey(3):If pxl-Test(51,30)+pxl-Test(51,35):Else:N-1→N:End:End:O+θ→O::If O>>0:J-1→J:O-8→O:End:If O<<‾7:J+1→J:O+8→O:End:If N>>0:N-8→N:I-1→I:End:If N<<‾7:N+8→N:I+1→I:End:ClrDraw:ClrDrawr:0→H:For(B,0,8:B*8+O→T:For(A,0,12:A*8+N→S:Pt-Off(S,T,{J*12+I+E+H}^3/2*8+Pic1:Pt-Off(S,T,{J*12+I+E+H+32768}^3/2*8+Pic1)r:H+1→H:End:End:Pt-Change(45,29,Pic2:Pt-Change(45,29,Pic2)r:Normal:DispGraphrr:Full:End
:If N>>0:N-8→N:I-1→I:End:If N<<-7:N+8→N:I+1→I:End