home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 251-275 / apd258 / hangman.amos / hangman.amosSourceCode
AMOS Source Code  |  1991-07-05  |  2KB  |  64 lines
  1. Hide On 
  2. Screen Open 0,640,256,2,Hires
  3. Curs Off 
  4. Flash Off 
  5. Proc INS
  6. Procedure INS
  7. Cls 
  8. Shade On 
  9. Centre "HANGMAN V1.0   By Simon Walklate"
  10. Shade Off 
  11. Print : Print : Print : Print : Print : Print : Print 
  12. Centre "Press 1 for playing instructions"
  13. Print : Print : Print : Print : Print 
  14. Centre "Press 2 for info on HANGMAN V1.0"
  15. Print : Print : Print : Print : Print 
  16. Centre "Press 3 to begin the game"
  17. Do 
  18. Z$=Inkey$
  19. If Z$="1" Then Proc GAME
  20. If Z$="2" Then Proc INFO
  21. If Z$="3" Then Run "Hangman1.AMOS"
  22. Loop 
  23. End Proc
  24. Procedure INFO
  25. Cls 
  26. Print : Print : Print 
  27. Print "HANGMAN V1.0 was written on 8-9/6/91 By Simon Walklate"
  28. Print "Watch out for V2.0 with data disks such as:"
  29. Print : Print 
  30. Print "Motorbikes"
  31. Print 
  32. Print "Films"
  33. Print 
  34. Print "Etc."
  35. Print 
  36. Print "Also look out for a computer games data disk with around 300 computer games!!!"
  37. Print : Print : Print 
  38. Centre "Press SPACE Bar"
  39. Do 
  40. Z$=Inkey$
  41. If Z$=" " Then Proc INS
  42. Loop 
  43. End Proc
  44. Procedure GAME
  45. Cls 
  46. Print "    At the begining you get the option of playing with a friend i.e. one types  the word(s) the other";
  47. Print " guesses."
  48. Print "    You guess the letters one by one and each time you get one wrong you man gets";
  49. Print " that bit closer to being hanged!! At any point during the game you may press '0'";
  50. Print " as your guess to try and guess the entire word(s). You must try and get the word(s)";
  51. Print " before your man is hung!!"
  52. Print 
  53. Print "    There are 208 Computer games on the disk. These will autoboot.";
  54. Print " To make your own words list with this version you need to change the data statements and the RANDOM procedure."
  55. Print : Print : Print 
  56. Print "Look out for HANGMAN V2.0 soon including an editor to make your own data files!!"
  57. Print " and some ready made data disks"
  58. Print : Print : Print : Print : Print 
  59. Centre "Press SPACE Bar"
  60. Do 
  61. Z$=Inkey$
  62. If Z$=" " Then Proc INS
  63. Loop 
  64. End Proc