JEU -> Réflexion               

1 joueur

If you like clever word puzzles, get a load of this. Simply type in a phrase, then see how many different words you can make out of the phrase to score top marks. The computer will store the phrase and update as you score, so take note of the menu options below and get scoring:

CTRL N - Enter New Phrase
S - Shuffle letters in phrase
W - Add word to list
E - Erase word from list
Cursor up/down - Move pointer
C - Clear memo screen
CTRL Q - Quit

* Original
Paru sous forme de listing dans le magazine Amstrad Computer User Issue 76 : March 1991
Auteur : Geoff SHORT

* Repompage
Paru sous forme de listing dans le magazine MegaOcio n° 26 (Mai 1991)

Le listing, comme publié dans Amstrad Computer User, contient deux bugs (La version MegaOcio contient les même bugs).

Si la commande S (Shuffle) est sélectionnée, et qu'il n'y a aucune lettre à mélanger, le jeu se bloque. Ce bug peut être corrigé en modifiant la ligne 10 :

AVANT :

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

APRES :

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

Si le jeu est lancé en Mode 2, le titre en haut de l'écran est écrit en jaune au lieu de blanc. Ce bug peut être corrigé en déplaçant la commande PEN 3 dans la ligne 1 :
AVANT :

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)

APRES :

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)