Session end : 11h59m58s | Hide picture Sexe : OFF | ![]() | ![]() | ![]() | ![]() | Donations 2024 : 649.48 € |
10 IF w=5 THEN CLS#3:PRINT#3:GOTO 5 ELSE CLS#1:FOR g=0 TO 1:FOR f=1 TO p:a=INT(RND*p)+1:m$=MID$(w$,a,1):MID$(w$,a,1)=MID$(w$,f,1):MID$(w$,f,1)=m$:NEXT f,g:GOTO 4
10 IF w=5 THEN CLS#3:PRINT#3:GOTO 5 ELSE IF w$="" THEN 5 ELSE CLS#1:FOR g=0 TO 1:FOR f=1 TO p:a=INT(RND*p)+1:m$=MID$(w$,a,1):MID$(w$,a,1)=MID$(w$,f,1):MID$(w$,f,1)=m$:NEXT f,g:GOTO 4
1 BORDER 0:PAPER 0:PEN 3:INK 0,0:INK 1,24:INK 2,13:INK 3,26:MODE 1:LOCATE 7,2:PRINT"WORDSMITH by G. Short 1990":LOCATE 4,9:PEN 1:PRINT"Words :"TAB(23)"Score :":LOCATE 23,11:PRINT"Memo :":y$=CHR$(14)+"EWSC"+CHR$(17)+CHR$(241)+CHR$(240):y=1:DIM k$(12)
1 BORDER 0:PAPER 0:INK 0,0:INK 1,24:INK 2,13:INK 3,26:MODE 1:PEN 3:LOCATE 7,2:PRINT"WORDSMITH by G. Short 1990":LOCATE 4,9:PEN 1:PRINT"Words :"TAB(23)"Score :":LOCATE 23,11:PRINT"Memo :":y$=CHR$(14)+"EWSC"+CHR$(17)+CHR$(241)+CHR$(240):y=1:DIM k$(12)