Atelier des Phrases (Thomson TO)

Atelier des Phrases is a very simple educational game about forming phrases using preset words. The player can also overwrite these words for comedic effect.

Commented-Out Lines#

The TO9/TO8/TO9+ disk version from the Logiciels Nathan Ecoles : Français compilation contains several commented lines in its BASIC code. They are not present in any of the tape releases, including for the Thomson MO.

ATELIER.BAS#

• Lines 0 to 4 contain a credit to programmers Jean-Marie Primaux, Olivier Rozenkranc, and Michel Bussac, and a build date of September 14, 1985.

0 ' "ATELIER
2 '
3 ' Auteur: J.M. PRIMAUX
4 ' Date  : 14/9/85 .3 (OR)(MB)

• Line 19015 contains an input check. Similar commented commands can be found at 21010 and 37010, but with the redirection command changed as appropriate.

'IF INKEY$<>""THEN19015

• Line 60000 is a commented RESUME instruction.

'RESUME21830

Old Routines#

• While the TO9 release has new screens for the file creation and duplication screens compared to the original MO5/TO7 tape versions, the old code can still be found commented out.

6620 'CREA FIC CLAS
6630 'GOSUB 6040:COLOR 2:LOCATE 0,5:PRINT"Tu as demandé à utiliser tes données":PRINT"personnelles."
6640 'COLOR 3:PRINT:PRINT"Place ta cassette ":PRINT"dans le lecteur.":PRINT:COLOR 4:PRINT"Appuie sur la touche ";:COLOR 6:PRINTF1$;F2;:ATTRB 0,0:COLOR 4:PRINT" du ";:PRINT"lecteur."PRINT:PRINT:COLOR1
6645 'PRINT"Quand tout est prêt, appuie sur"
6650 'PRINT"une touche du clavier de l'ordinateur."
6660 'LOCATE 0,20:PRINT"Si tu veux revenir au menu,":PRINT"appuie sur ";:COLOR 4:PRINT"R"
6663 'ZA$=INPUT$(1):IF ZA$="R" THEN 5000
6665 'GOSUB36000
6670 'GOTO 5000
6999 '
7000 '
7001 'CLS
7010 'GOSUB 20000
7100 'GOSUB 20200
7200 'RETURN

35200 'CLS:COLOR 2:LOCATE 0,5:PRINT"Vous allez lire un autre fichier ":PRINT
35210 'COLOR 3:PRINT:PRINT"Placez votre cassette personnelle":PRINT"dans le lecteur.":PRINT:COLOR 4:PRINT"Appuyez sur la touche ";:COLOR 6:PRINT F1$;F2$:COLOR 4:PRINT" du ";:PRINT"lecteur.":PRINT:PRINT:COLOR1
35220 'YL=CSRLIN:PRINT"Quand tout est prêt, appuyez sur L ."
35230 'LOCATE0,20:COLOR3:PRINT"(pour revenir au menu,appuyez sur R .)"
35240 'ZA$=INPUT$(1):IF ZA$="R" THEN RETURN ELSE IF ZA$="L" THEN 35500 ELSE 35240
35500 'LOCATE O,YL:COLOR2:PRINT"ATTENTION.";:PRINT"Soyez patient : attendez  ":PRINT"une nouvelle indication pour continuer."

EDATEL.BAS#

• Like with ATELIER.BAS, Lines 0 to 4 contain a credit to programmers Jean-Marie Primaux and Michel Bussac, and two build dates of June 23, 1984 and September 7, 1985.

0 ' "EDATEL
2 '
3 ' Auteur: J.M. PRIMAUX
4 ' Date  : 23/6/84 M.B.7/9/85

• Line 37010 contains the same commented input check as ATELIER.BAS.

'IF INKEY$<>"THEN37010

References#