JUEGO -> Reflexion               

1 jugador

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)