home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / opl / psion_gam < prev    next >
Text File  |  1994-10-13  |  948b  |  61 lines
  1. Number Guessing Game by Klaus Ernst in OPL (for Psion Organiser II)
  2.  
  3. MMIND:
  4. GLOBAL num%(5),g%(5),a%,b%,c%,d%,e%
  5. start::
  6. c%=1
  7. DO
  8. num%(c%)=INT(10*RND)
  9. c%=c%+1
  10. UNTIL c%=6
  11. IF num%(1)=num%(2) OR num%(1)=num%(3) OR num%(1)=num%(4) OR num%(1)=num%(5)
  12. GOTO start::
  13. ELSEIF num%(2)=num%(3) OR num%(2)=num%(4) OR num%(2)=num%(5)
  14. GOTO start::
  15. ELSEIF num%(3)=num%(4) OR num%(3)=num%(5)
  16. GOTO start::
  17. ELSEIF num%(4)=num%(5)
  18. GOTO start::
  19. ENDIF
  20. e%=1
  21. guess::
  22. c%=1
  23. DO
  24. PRINT"Enter digit";c%
  25. INPUT d%
  26. g%(c%)=d%
  27. c%=c%+1
  28. UNTIL c%=6
  29. c%=1
  30. DO
  31. PRINT g%(c%);
  32. c%=c%+1
  33. UNTIL c%=6
  34. GET
  35. c%=1
  36. a%=0
  37. b%=0
  38. DO
  39. IF g%(c%)=99
  40. STOP
  41. ELSEIF num%(c%)=g%(c%)
  42. a%=a%+1
  43. IF a%=5
  44. PRINT" ALL RIGHT";CHR$(33)
  45. PRINT e%,"Guesses"
  46. GET
  47. STOP
  48. ENDIF
  49. ELSEIF g%(c%)=num%(1) OR g%(c%)=num%(2) OR g%(c%)=num%(3) OR g%(c%)=num%(4) OR
  50. .g%(c%)=num%(5)
  51. b%=b%+1
  52. ENDIF
  53. c%=c%+1
  54. UNTIL c%=6
  55. PRINT " Right:", a%
  56. PRINT "Wrong place:",b%
  57. GET
  58. e%=e%+1
  59. GOTO guess::
  60.  
  61.