
Voici le programme à compiler avec Axe:
archives_voir.php?id=11948
:.AAAAAA
:det(1*8*12*7)→Pic2
:[FFFFFFFFFFFFFFFF]→Pic1
:ClrDraw
:DiagnosticOff
:INIG()
:0→E→G
:while 1
:E++<12??→E
:0→X→Y
:For(96)
:Pt-On(X*8,Y*8,Pic2+(E*8)+(G*2*2*3*2*2*2)
:G++≥7?0→G
:!If X++-12
:Y++
:0→X
:End
:End
:0→G
:DispGraphClrDraw
:EndIf getKey(15)
:Output(15,7)
:Return<sup>r</sup>
:
:Lbl INIG
:[]→Pic0
:[000000000000000000000000000000000000000088442211884422118844221188442211884422119249249249249249249249249249249249249249AA55AA55AA55AA55AA55AA55AA55AA55AA55AA55DB6DB6DB6DB6DB6DB6DB6DB6DB6DB6DB6DB6DB6DEE77BBDDEE77BBDDEE77BBDDEE77BBDDEE77BBDDFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF]
:For(G,0,6)
:0→E
:For(12)
:0→L
:For(8)
:{G*20+L+E+Pic0} and {L+Pic1}→{Pic2+Select(L,+1→L)+(Select(E,+1→E)*8)+(G*12*8)}
:L-8??→L
:End
:E-12??→E
:End
:End
Return to Langages alternatifs
Users browsing this forum: ClaudeBot [spider] and 7 guests