home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol159 / test4.pgn < prev    next >
Encoding:
Text File  |  1985-03-23  |  2.1 KB  |  204 lines
  1. TOP
  2. BYTE AA
  3. INT IAA
  4. BYTE BB
  5. INT IBB
  6. BYTE CC
  7. INT ICC
  8. INT IDD
  9. BYTE DD
  10. BEGINMAIN(AC,IAV)
  11. MS 'BEGIN T04'
  12. AA=+003
  13. BB=AA
  14. CC=AA!=BB
  15. IF CC
  16.     MS 'BYTE TRAN'
  17. ENDIF
  18. MS '111111111'
  19. IAA=+12345
  20. IBB=IAA
  21. CC=IAA!=IBB
  22. IF CC
  23.     MS 'INT TRANS'
  24. ENDIF
  25. MS '222222222'
  26. ICC=+00235
  27. BB=ICC
  28. AA=+235
  29. CC=AA!=BB
  30. IF CC
  31.     MS 'INT TO BY'
  32. ENDIF
  33. MS '333333333'
  34. IBB=AA
  35. ICC=+00100
  36. AA=+100
  37. IBB=AA
  38. CC=IBB!=ICC
  39. IF CC
  40.     MS 'BYT TO IN'
  41. ENDIF
  42. MS '444444444'
  43. IAA=+00000
  44. IBB=+00005
  45. IBB=IAA-IBB
  46. CC=IBB<=IAA
  47. IF CC
  48. ELSE
  49.     MS 'INT<=.-<0'
  50. ENDIF
  51. MS '555555555'
  52. CC=IBB<!IAA
  53. IF CC
  54. ELSE
  55.     MS 'INT<!.-<0'
  56. ENDIF
  57. MS '666666666'
  58. IAA=+00005
  59. ICC=-IAA
  60. CC=ICC!=IBB
  61. IF CC
  62.     MS 'INT=-INT.'
  63. ENDIF
  64. MS '777777777'
  65. IAA=+10256
  66. IBB=+00003
  67. ICC=IAA*IBB
  68. IDD=+30768
  69. CC=IDD!=ICC
  70. IF CC
  71.     MS 'INTMUL+*+'
  72. ENDIF
  73. MS '888888888'
  74. IBB=-IBB
  75. ICC=IAA*IBB
  76. IDD=-IDD
  77. CC=IDD!=ICC
  78. IF CC
  79.     MS 'INTMUL+*-'
  80. ENDIF
  81. MS '999999999'
  82. IAA=+00030
  83. IBB=+00040
  84. IAA=IAA*IBB
  85. ICC=+01200
  86. AA=ICC!=IAA
  87. IF AA
  88.     MS 'MUL.X=X*.'
  89. ENDIF
  90. MS '000000000'
  91. IAA=+00030
  92. IBB=IAA*IBB
  93. AA=ICC!=IBB
  94. IF AA
  95.     MS 'MUL.X=.*X'
  96. ENDIF
  97. MS 'AAAAAAAAA'
  98. IAA=IAA*IAA
  99. ICC=+00900
  100. AA=IAA!=ICC
  101. IF AA
  102.     MS 'MUL.X=X*X'
  103. ENDIF
  104. MS 'BBBBBBBBB'
  105. IAA=+30003
  106. IBB=+00003
  107. ICC=+10001
  108. IAA=IAA/IBB
  109. AA=IAA!=ICC
  110. IF AA
  111.     MS 'DIV.X=X/.'
  112. ENDIF
  113. MS 'CCCCCCCCC'
  114. IBB=IAA/IBB
  115. ICC=+03703
  116. AA=ICC!=IBB
  117. IF AA
  118.     MS 'DIV.X=./X'
  119. ENDIF
  120. MS 'DDDDDDDDD'
  121. ICC=ICC/ICC
  122. IAA=+00001
  123. AA=IAA!=ICC
  124. IF AA
  125.     MS 'DIV.X=X/X'
  126. ENDIF
  127. MS 'EEEEEEEEE'
  128. IAA=+10256
  129. IBB=+00016
  130. ICC=IAA/IBB
  131. IDD=+00641;NO PUN INTENDED
  132. CC=IDD!=ICC
  133. IF CC
  134.     MS 'INTDIV+/+'
  135. ENDIF
  136. MS 'FFFFFFFFF'
  137. IBB=-IBB
  138. ICC=IAA/IBB
  139. IDD=-IDD
  140. CC=IDD!=ICC
  141. IF CC
  142.     MS 'INTDIV+/-'
  143. ENDIF
  144. MS 'GGGGGGGGG'
  145. IBB=+00017
  146. ICC=IAA/IBB
  147. IDD=+00603
  148. CC=ICC!=IDD
  149. IF CC
  150.     MS 'FRCDIV+/+'
  151. ENDIF
  152. MS 'HHHHHHHHH'
  153. IAA=-IAA
  154. ICC=IAA/IBB
  155. IDD=-IDD
  156. CC=ICC!=IDD
  157. IF CC
  158.     MS 'FRCDIV-/+'
  159. ENDIF
  160. MS 'IIIIIIIII'
  161. AA=+001
  162. BB=+001
  163. CC=AA&BB
  164. IF CC
  165. ELSE
  166.     MS 'AND OR IF'
  167. ENDIF
  168. MS 'JJJJJJJJJ'
  169. BB=+000
  170. CC=AA&BB
  171. IF CC
  172.     MS 'AND (IF)0'
  173. ENDIF
  174. MS 'KKKKKKKKK'
  175. CC=AA?BB
  176. IF CC
  177. ELSE
  178.     MS 'OR 1V0...'
  179. ENDIF
  180. MS 'LLLLLLLLL'
  181. AA=+000
  182. CC=AA?BB
  183. IF CC
  184.     MS 'OR 0V0...'
  185. ENDIF
  186. MS 'MMMMMMMMM'
  187. CC=!AA
  188. IF CC
  189. ELSE
  190.     MS '"!"....01'
  191. ENDIF
  192. MS 'NNNNNNNNN'
  193. BB=+001
  194. CC=AA-BB
  195. DD=!CC
  196. IF DD
  197.     MS '"!"....10'
  198. ENDIF
  199. MS 'END TEST '
  200. MS '4 INT AR.'
  201. ENDMAIN
  202. BOTTOM
  203.  
  204.