Session end : 12h00m00s | Hide picture Sexe : OFF | Donations 2024 : 785.48 € |
940 LOCATE #3,2,4:PRINT #3,SA
940 LOCATE #3,2,4:PRINT #3,USING "###### F";SA
1020 LOCATE #3,2,4:PRINT #3,SA
1020 LOCATE #3,2,4:PRINT #3,USING "###### F";SA
1090 LOCATE #3,2,4:PRINT #3,SA
1090 LOCATE #3,2,4:PRINT #3,USING "###### F";SA
1120 LOCATE #4,2,4:PRINT #4,SB
1120 LOCATE #4,2,4:PRINT #4,USING "###### F";SB
1200 LOCATE #4,2,4:PRINT #4,SB
1200 LOCATE #4,2,4:PRINT #4,USING "###### F";SB
1270 LOCATE #4,2,4:PRINT #4,SB
1270 LOCATE #4,2,4:PRINT #4,USING "###### F";SB
1300 LOCATE #5,2,4:PRINT #5,SC
1300 LOCATE #5,2,4:PRINT #5,USING "###### F";SC
1380 LOCATE #5,2,4:PRINT #5,SC
1380 LOCATE #5,2,4:PRINT #5,USING "###### F";SC
1450 LOCATE #5,2,4:PRINT #5,SC
1450 LOCATE #5,2,4:PRINT #5,USING "###### F";SC
600 LET K$=INKEY$
600 LET K$=UPPER$(INKEY$)
625 IF ASC(K$)=32 OR (ASC(K$)>=65 AND ASC(K$)<=90) THEN 630 ELSE 600
620 IF ASC(K$)=13 THEN LET I=100:GOTO 680
620 IF ASC(K$)=13 THEN IF I>10 THEN LET I=100:GOTO 680 ELSE 600
730 LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$
730 LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$:V$=UPPER$(V$)
990 LET K$=INKEY$:IF K$="" THEN GOTO 990
990 LET K$=UPPER$(INKEY$):IF K$="" THEN GOTO 990
1030 CLS #2:LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$
1030 CLS #2:LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$:V$=UPPER$(V$)
1050 CLS #2:LOCATE #2,2,2:INPUT #2,"CONSONNE ? ",V$
1050 CLS #2:LOCATE #2,2,2:INPUT #2,"CONSONNE ? ",V$:V$=UPPER$(V$)
1170 LET K$=INKEY$:IF K$="" THEN GOTO 1170
1170 LET K$=UPPER$(INKEY$):IF K$="" THEN GOTO 1170
1210 CLS #2:LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$
1210 CLS #2:LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$:V$=UPPER$(V$)
1230 CLS #2:LOCATE #2,2,2:INPUT #2,"CONSONNE ? ",V$
1230 CLS #2:LOCATE #2,2,2:INPUT #2,"CONSONNE ? ",V$:V$=UPPER$(V$)
1350 LET K$=INKEY$:IF K$="" THEN GOTO 1350
1350 LET UPPER$(INKEY$):IF K$="" THEN GOTO 1350
1390 CLS #2:LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$
1390 CLS #2:LOCATE #2,2,2:INPUT #2,"VOYELLE ? ",V$:V$=UPPER$(V$)
1410 CLS #2:LOCATE #2,2,2:INPUT #2,"CONSONNE ? ",V$
1410 CLS #2:LOCATE #2,2,2:INPUT #2,"CONSONNE ? ",V$:V$=UPPER$(V$)
1510 LET K$=INKEY$:IF K$="" THEN GOTO 1510
1510 LET K$=UPPER$(INKEY$):IF K$="" THEN GOTO 1510
1840 LET K$=INKEY$
1840 LET K$=UPPER$(INKEY$)