home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / SIMON.ZIP / SIMON.ASC < prev    next >
Text File  |  1994-02-10  |  1KB  |  81 lines
  1. \START\
  2. \COMMENT=Program file dated 01/09/94, 17:42
  3. \NAME=SIMON
  4. \FILE=SIMON.85p
  5. ClLCD
  6. Disp "     Simon says,","     'Copy me!'","    High score:","","","   P\#\
  7. ress Enter when","        ready"
  8. Outpt(3,17,SIMONHI
  9. Pause 
  10. ClLCD
  11. Disp "     Simon says,","     'Copy me!'"
  12. round(5rand,0)\->\x
  13. If x==0:5\->\x
  14. {x\->\z
  15. Lbl L1
  16. For(y,1,dimL z
  17. z(y)\->\x
  18. If x==1:Outpt(8,1,"F1"
  19. If x==2:Outpt(8,5,"F2"
  20. If x==3:Outpt(8,10,"F3"
  21. If x==4:Outpt(8,15,"F4"
  22. If x==5:Outpt(8,20,"F5"
  23. For(A,1,150
  24. End
  25. If x\<>\1
  26. Then
  27. Outpt(8,5(x-1),"  "
  28. Else
  29. Outpt(8,1,"  "
  30. End
  31. End
  32. {0\->\x
  33. 1\->\y
  34. Lbl L2
  35. getKy\->\KEY
  36. If KEY<11 or KEY>15
  37. Goto L2
  38. Outpt(8,1,"                     "
  39. If KEY==11
  40. Outpt(8,1,"F1"
  41. If KEY==12
  42. Outpt(8,5,"F2"
  43. If KEY==13
  44. Outpt(8,10,"F3"
  45. If KEY==14
  46. Outpt(8,15,"F4"
  47. If KEY==15
  48. Outpt(8,20,"F5"
  49. KEY-10\->\x(y)
  50. If x(y)\<>\z(y):Goto W
  51. y+1\->\y
  52. If y\<=\dimL z
  53. Goto L2
  54. For(y,1,50
  55. End
  56. Outpt(8,1,"                     "
  57. Outpt(7,8,"Right!"
  58. For(y,1,250
  59. End
  60. Outpt(7,8,"      "
  61. round(5rand,0)\->\x
  62. If x==0:5\->\x
  63. x\->\z(dimL z+1)
  64. Goto L1
  65. Lbl W
  66. Outpt(7,8,"Wrong!"
  67. Outpt(8,1,"I stumped you at     "
  68. Outpt(8,18,dimL z
  69. For(y,1,700
  70. End
  71. ClLCD
  72. If dimL z\<=\SIMONHI
  73. Return
  74. dimL z\->\SIMONHI
  75. Disp "Congrats!  You beat",SIMONHI2,"with a score of","Enter your name:\#\
  76. "
  77. Outpt(3,17,SIMONHI
  78. InpST SIMONHI2
  79. ClLCD
  80. \STOP\
  81.