home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / DA / P / Pica Calculator 2 / PC2 Folder / PC2 Sample Pgms / PC2 Sample Pgms.rsrc / pPGM_8563_Ghost Ship < prev    next >
Encoding:
Text File  |  1993-07-16  |  499 b   |  93 lines
  1. »NewShip
  2. “
  3. #0
  4. ∞
  5. ?Ship's X position?
  6. ≈
  7. GEndPgm
  8. s0
  9. #0
  10. ?Ship's Y position?
  11. s1
  12. r0
  13. /
  14. r1
  15. =
  16. o
  17. ∞
  18. r0
  19. x
  20. +
  21. r1
  22. x
  23. =
  24. √
  25. s0
  26. ∞
  27. s1
  28. #7
  29. s9
  30. #1
  31. ∞
  32. ~
  33. »MainLoop
  34. ?Angle (0->90°)?
  35. s2
  36. ?Distance (10->100mi)?
  37. s3
  38. #1
  39. ∑4
  40. r3
  41. -
  42. r1
  43. =
  44. |
  45. *
  46. r0
  47. *
  48. r2
  49. *
  50. #2
  51. ±
  52. +
  53. r0
  54. x
  55. +
  56. r2
  57. x
  58. =
  59. √
  60. s5
  61. ≥
  62. GSkipdouble
  63. +
  64. +
  65. »Skipdouble
  66. #7
  67. ∞
  68. r5
  69. <
  70. GSkipposition
  71. º9
  72. GDisplayShot
  73. r5
  74. @Missed by:
  75. r9
  76. @You Lose! Shots left:
  77. GDone
  78. »DisplayShot
  79. r5
  80. @Missed by:
  81. r9
  82. @Shots left:
  83. GMainLoop
  84. »Skipposition
  85. #1
  86. –9
  87. @A Hit!     ***YOU WIN***
  88. r9
  89. @Shots remaining:
  90. »Done
  91. GNewShip
  92. »EndPgm
  93.