Cette semaine voici encore un deuligne d'époque : Tron de Michel Subelet, publié dans Hebdogiciel 116 du 3 janvier 1986.

1 LOCATE0,0,0:CLS:SCREEN0,3,1:BOXF(0,0)-(9,200):BOXF(311,0)-(320,200):BOXF(0,0)-(320,9):BOXF(0,191)-(320,200):X(0)=-4:X(2)=4:Y(1)=4:Y(3)=-4:X=160:Y=100:D=3:COLOR4
2 LOCATE17,0:S=S+1:PRINTS:Y=Y+Y(D):X=X+X(D):IFPOINT(X,Y)>0THENENDELSEBOXF(X,Y)-(X+3,Y+3):V=INT(RND*76)*4+8:W=INT(RND*44)*4+8:BOX(V,W)-(V+3,W+3):BEEP:A$=INKEY$:IFA$=CHR$(8)THEND=(D+1)MOD4:GOTO2ELSEFORI=9TO9:IFA$=CHR$(I)THEND=(D+3)MOD4:GOTO2ELSENEXTI:GOTO2 

Donation de http://dcmo5.free.fr/deuligne.html