home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / APL90 / APL_PROGS / PENDU < prev    next >
Encoding:
Text File  |  1987-02-17  |  5.8 KB  |  231 lines  |  [TEXT/APL9]
  1.  
  2. æ  87 2 17 16 54 18  PENDU
  3.  
  4.  
  5.  
  6.     ã DESCRIBE
  7. [1]   éLES FONCTIONS PRINCIPALES DE CETTE ZONE DE TRAVAIL SONT:é
  8. [2]   éPENDU        :  JEU DU PENDU.é
  9. [3]   éDESORDRE     :  RECONNAISSANCE DééUN MOT DONT LES LETTRESé
  10. [4]   é                SONT FOURNIES DANS LE DESORDRE.é
  11. [5]   éDEVINE       :  JEU CONSISTANT A DEVINER UN MOT PROPOSEé
  12. [6]   é                PAR LééORDINATEUR.é
  13. [7]   éLES REGLES DE CES JEUX SééOBTIENNENT EN FRAPANT LE NOMé
  14. [8]   éDU JEU, SUIVI DES CARACTERES ééHOWéé.é
  15. [9]   éEX:é
  16. [10]  é      PENDUHOWé
  17.     ã 
  18.  
  19.  
  20.  
  21.     ã DESORDRE;Q;W;I;Z;R;ERRS;CT1;CT2;CT3;CT4;CT5;TIM
  22. [1]   INIT
  23. [2]  DEBUT: QóW[I?IóÇWóWORD 152436]ÙCT3óCT3+4
  24. [3]   éTROUVEZ : é,Q
  25. [4]   Zó(ÇW)Çé_é
  26. [5]   ERRSó0
  27. [6]   CT1óCT1+1+CT5ó0
  28. [7]  ICI: Q,é ò é,Z
  29. [8]   Ωó(-3+ÇQ)Éé? é
  30. [9]   èARBOUT éé
  31. [10]  òICI£Ö0=ÇRóΩ
  32. [11]  òSTOP£ÖéSTOPé¢.=4ÉR
  33. [12]  òLOST£ÖéHELPé¢.=4ÉR
  34. [13]  òWRONG£Öé?é=1ÇR
  35. [14]  òERLG£Ö(ÇR)†ÇW
  36. [15]  òWRONG£ÖR°.†W
  37. [16]  éBRAVO, CééEST CELA!é
  38. [17]  CT2óCT2+1
  39. [18]  òAGAIN
  40. [19] ERLG: éLE MOT PROPOSE NééA PAS LA BONNE LONGUEURé
  41. [20]  òICI
  42. [21] WRONG: òLOST£ÖERRSü3ÙCT5óCT5+1
  43. [22]  éLA é,(ªERRS),é LETTRE EST UN é,Z[ERRS]óW[ERRSóERRS+1]
  44. [23]  òICI
  45. [24] LOST: é PERDU...  LE MOT ETAIT : é,WÙCT5ó4
  46. [25] AGAIN: òNEW
  47. [26] STOP: SCORE
  48.     ã 
  49.  
  50.  
  51.  
  52.     ã DESORDREHOW;I
  53. [1]   é   LA FONCTION ééDESORDREéé PROPOSE AU JOUEUR UN MOT FOURNI PARé
  54. [2]   éLééORDINATEUR. LES LETTRES DE CE MOT SONT DONNEES DANS LE DESORDRE,é
  55. [3]   éCHARGE ETANT AU JOUEUR DE RECONSTITUER LE MOT INITIAL.é
  56. [4]   é   LE JOUEUR PEUT ALORS REPONDRE:é
  57. [5]   é   - LE MOT TOUT ENTIER (SééIL CROIT LééAVOIR DEVINE).é
  58. [6]   é   - HELP, POUR CONNAITRE LE MOT,é
  59. [7]   é   - STOP, POUR ARRETER LA PARTIE.é
  60. [8]   é   LE JOUEUR A DROIT A TROIS TENTATIVE, LééORDINATEUR LUI INDIQUANTé
  61. [9]   éA CHACUNE LA PREMIERE, PUIS LA SECONDE, PUIS LA TROISIEME LETTREé
  62. [10]  éDU MOT A REORDONNER.é
  63. [11]  IóèDL 10
  64.     ã 
  65.  
  66.  
  67.  
  68.     ã DEVINE;W;R;CT1;CT2;CT3;CT4;CT5;ERRS;TIM;I;Q
  69. [1]   INIT
  70. [2]  DEBUT: éIL Y A é,(ªÇWóWORD 152436),é LETTRES A DEVINERé
  71. [3]   CT5óCT5+?2£CT5óÇW
  72. [4]   ERRSó0ÙCT1óCT1+1ÙCT3óCT3+CT5ÙQóé  é,(ÇW)Çé.é
  73. [5]  ICI: òLOST£ÖCT5ûERRSóCT5äERRS+1
  74. [6]  HIC: QÙé EN éÙCT5-ERRSÙé ESSAIS.é
  75. [7]   Ωóé? é
  76. [8]   èARBOUT éé
  77. [9]   òHIC£Ö0=ÇRóΩ
  78. [10]  òHELP£ÖéHELPé¢.=4ÇR
  79. [11]  òSTOP£ÖéSTOPé¢.=4ÇR
  80. [12]  òLA£Öé?é=1ÇR
  81. [13]  òERLG£Ö(ÇR)†ÇW
  82. [14]  òMASK£Öé/éÅR
  83. [15]  òWIN£ÖR¢.=W
  84. [16]  ò(ZERO,ONE,MORE)[0 1ÖRó+/R=W]
  85. [17] ERLG: éLA LONGUEUR DU MOT PROPOSE NééEST PAS LA BONNEé
  86. [18]  òHIC
  87. [19] ZERO: éAUCUNE LETTRE NééEST BONNEé
  88. [20]  òICI
  89. [21] ONE: éUNE LETTRE EST BONNEé
  90. [22]  òICI
  91. [23] MORE: (ªR),é LETTRES SONT BONNESé
  92. [24]  òICI
  93. [25] LA: Q[I+2]óW[Ió?ÇW]ÙERRSóERRS+?3
  94. [26]  òICI
  95. [27] MASK: Q[2+I]óR[Ió(R†é/é)/ÖÇR]
  96. [28]  òHIC
  97. [29] WIN: éBRAVO!éÙCT2óCT2+1
  98. [30]  òAGAIN
  99. [31] LOST: ΩóéPERDU... é
  100. [32] HELP: éLE MOT ETAIT: é,W
  101. [33] AGAIN: òNEWÙCT5óERRS
  102. [34] STOP: SCORE
  103.     ã 
  104.  
  105.  
  106.  
  107.     ã DEVINEHOW;I
  108. [1]   éENCORE PLUS DUR!é
  109. [2]   éIL FAUT REELLEMENT ƒ≈÷…Œ≈“ UN MOT DONT ON NE CONNAITé
  110. [3]   éQUE LA LONGUEUR....é
  111. [4]   IóèDL 5
  112.     ã 
  113.  
  114.  
  115.  
  116.     ã ZóA IF B
  117. [1]   ZóB/A
  118.     ã 
  119.  
  120.  
  121.  
  122.     ã INIT
  123. [1]   TIMó(60£TIM[5])-TIM[6]ÙTIMóèTS
  124. [2]   IóèRLó+/èTS
  125. [3]   CT1óCT2óCT3óCT4ó0
  126. [4]   èPWó255
  127. [5]   √“ÃΔóèAV[èIO+13 10]
  128.     ã 
  129.  
  130.  
  131.  
  132.     ã RóNEW
  133. [1]   CT4óCT4+CT5
  134. [2]  ICI: ΩóéUNE AUTRE PARTIE ? (O/N) é
  135. [3]   òICI£Ö~(Ró1ÉΩ)ÅéONéÙèARBOUT éé
  136. [4]   RóDEBUT£ÖéOé=R
  137.     ã 
  138.  
  139.  
  140.  
  141.     ã PENDU;W;Q;R;I;ERRS;CT1;CT2;Z;CT3;CT4;CT5;TIM;èPW
  142. [1]   INIT
  143. [2]  DEBUT: CT5óERRSó0
  144. [3]   CT1óCT1+1ÙCT3óCT3+8
  145. [4]   Zóé   _____é
  146. [5]   ZóZ,18Ç(Ió√“ÃΔ),é  ñ   ñé
  147. [6]   ZóZ,18ÇI,é  ñ    é
  148. [7]   ZóZ,20ÇI,é  ñ     é
  149. [8]   ZóZ,(12ÇI,é  ñé),10Çé-é
  150. [9]   éIL Y A é,(ªù1+ÇWóWORD 152436),é LETTRES A DEVINERé
  151. [10]  Qó(1ÇW),(ù1+ÇW)Çé_é
  152. [11] ICI: òWIN£ÖQ¢.=W
  153. [12]  òLOST£ÖERRS>6
  154. [13] LA: Q
  155. [14]  ΩóéA VOUS : é
  156. [15]  òLA£Ö0=ÇRóΩÙèARBOUT éé
  157. [16]  òSTOP£ÖéSTOPé¢.=4ÉR
  158. [17]  òHELP£ÖéHELPé¢.=4ÉR
  159. [18]  òONE£Ö1=ÇR
  160. [19]  òERLG£Ö(ÇR)†ÇW
  161. [20]  òWIN£ÖR¢.=W
  162. [21]  òWRONG
  163. [22] ERLG: éLE MOT PROPOSE NééA PAS LA BONNE LONGUEURé
  164. [23]  òLA
  165. [24] ONE: òWRONG£Ö~RÅ(W†Q)/W
  166. [25]  Q[I]óW[Ió1Ç(ééÇ?ÇI)®Ió,((Q†W)¢(W=R))/ÖÇW]
  167. [26]  òICI
  168. [27] WRONG: Z[(35 44 53 52 54 62 64 63)[ERRS]]óéÜñèùù/\ééé[ERRSóERRS+1]
  169. [28]  ZÙCT5óCT5+1
  170. [29]  òICI
  171. [30] HELP: CT5ó7
  172. [31]  òFIN
  173. [32] WIN: éBRAVO, VOUS AVEZ GAGNE!é
  174. [33]  CT2óCT2+1
  175. [34]  òFIN
  176. [35] LOST: éDESOLE... PERDU!é
  177. [36] FIN: éLE MOT ETAIT : é,W
  178. [37]  òNEW
  179. [38] STOP: SCORE
  180.     ã 
  181.  
  182.  
  183.  
  184.     ã PENDUHOW;I
  185. [1]   é   LA FONCTION ééPENDUéé PERMET DE JOUER AU JEU DU PENDU CONTREé
  186. [2]   éLééORDINATEUR. CELUI-CI PROPOSE AU JOUEUR UN MOT DONT IL INDIQUEé
  187. [3]   éLA PREMIERE LETTRE, ET LE NOMBRE DE LETTRES A DEVINER.é
  188. [4]   é   LE JOUEUR PEUT ALORS REPONDRE:é
  189. [5]   é   - UNE LETTRE UNIQUE. SI CELLE-CI EXISTE DANS LE MOT, LééORDINATEURé
  190. [6]   é     LA PLACERA A LééENDROIT CORRESPONDANT.é
  191. [7]   é   - LE MOT TOUT ENTIER (SééIL CROIT LééAVOIR DEVINE).é
  192. [8]   é   - HELP, POUR CONNAITRE LE MOT,é
  193. [9]   é   - STOP, POUR ARRETER LA PARTIE.é
  194. [10]  é   EN CAS DééERREUR, LééORDINATEUR DESSINE UNE POTENCE,é
  195. [11]  éOU IL RAJOUTE A CHAQUE FOIS UN NOUVEL ELEMENT DU PENDU.é
  196. [12]  IóèDL 12
  197.     ã 
  198.  
  199.  
  200.  
  201.     ã SCORE;S1;S2
  202. [1]   S1ó(CT1>1)/éSé
  203. [2]   S2ó(CT2>1)/éSé
  204. [3]   éTON RESULTAT EST :é
  205. [4]   (ªCT2),é MOTé,S2,é TROUVEé,S2,é, SUR é,(ªCT1),é MOTé,S1,é A DEVINER.é
  206. [5]   éTA NOTE EST :  é,éEDCBAé[5ä1+ä0.5+5£(CT3-CT4)§CT3]
  207. [6]   S1óñ((60£S1[5])-S1[6])-TIMÙS1óèTS
  208. [7]   éTU AS REFLECHI    é,(ªä0.5+S1§CT1),é SECONDES PAR MOTé
  209. [8]   éMERCI, ET AU REVOIR...é
  210.     ã 
  211.  
  212.  
  213.  
  214.     ã RóWORD X
  215. [1]   ò0 IF 152436†XÙRóéé
  216. [2]  ICI: òICI+?ù1+Z-ICI
  217. [3]   òZÙRóéROC,CANAL,POUPEE,CHIEN,CHAT,JOUET,CAFE,é
  218. [4]   òZÙRóéETE,METAL,SOUPE,POTIRON,PLUMIER,é
  219. [5]   òZÙRóéVESSIE,PISCINE,PAGE,IGLOO,FABULEUX,é
  220. [6]   òZÙRóéCARAMEL,CHOCOLAT,PAIN,SUCRE,THE,CAR,AUTO,TROLLEY,é
  221. [7]   òZÙRóéVOITURE,MAISON,ROUTE,ANIMAL,POULE,VACHE,CHEVAL,é
  222. [8]   òZÙRóéMAMAN,VELO,BICYCLETTE,POMPE,ROUE,CANNE,PARAPLUIE,é
  223. [9]   òZÙRóéMANTEAU,VESTE,CHEMISE,LIT,CHAMBRE,CUISINE,ENTREE,SORTIE,é
  224. [10]  òZÙRóéCRAYON,PAPIER,SOUPLE,POTIER,PLUME,é
  225. [11] Z: 
  226. [12]  Ró(ù1+RÖé,é)ÉRó(RÖé,é)ÑRó(ééÇ?ÇR)®R
  227.     ã 
  228.  
  229.  
  230.  
  231.