Code : Tout sélectionner
CONSOLE 4,24 ' reduction de l'écran aux lignes 4 à 24
CLS ' effacement de l'écran réduit
CONSOLE 0,24 ' retour à l'écran standard
Modérateurs : Papy.G, fneck, Carl
Code : Tout sélectionner
CONSOLE 4,24 ' reduction de l'écran aux lignes 4 à 24
CLS ' effacement de l'écran réduit
CONSOLE 0,24 ' retour à l'écran standard
Code : Tout sélectionner
470 BOXF(40,8)-(288,144),0:FORI=1TO36:FORK=1TO17:PT(I,K)=0:NEXT:NEXT:ON TABL GOSUB 480,490,500,510,520,530,540,550,2250:GOTO560
Code : Tout sélectionner
30 LOCATE 1,1,0:CLS:SCREEN4,0,0
Oui! C'est à peu près ça.
Code : Tout sélectionner
720 I=I+1:READA,B:IF N1(TABL,A+5)=0 OR N2(TABL,B)=0 THEN LOCATEA+5,B:?NO$:PT(A+5,B)=3