home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol159 / test5.pgn < prev    next >
Encoding:
Text File  |  1985-03-23  |  1.3 KB  |  137 lines
  1. TOP
  2. BYTE AA(100)
  3. BYTE BB(00300)
  4. INT IAA(100)
  5. INT IBB(00300)
  6. BYTE CC
  7. BYTE DD
  8. INT ICC
  9. BYTE SS
  10. BYTE EE
  11. BYTE FF
  12. INT IDD
  13. INT IEE
  14. INT IFF
  15. BEGINMAIN(AV,IAV)
  16.     MS 'BEGIN T05'
  17. GOTO 10
  18.     MS 'GOTO FAIL'
  19. LOC 20
  20. GOTO 30
  21.     MS 'AND AGAIN'
  22. LOC 10
  23. GOTO 20
  24. LOC 30
  25. MS '111111111'
  26. CC=+001
  27. DD=+000
  28. AA(DD)=CC
  29. EE=AA(DD)
  30. FF=EE!=CC
  31. IF FF
  32.     MS 'BYTE.BYTE'
  33. ENDIF
  34. MS '222222222'
  35. DD=+099
  36. AA(DD)=CC
  37. EE=AA(DD)
  38. FF=EE!=CC
  39. IF FF
  40.     MS 'BYT.99BYT'
  41. ENDIF
  42. MS '333333333'
  43. SS=+000
  44. WHILE
  45.     DD--
  46.     EE=+000
  47.     FF=DD!=EE
  48. ON FF
  49.     AA(DD)=SS
  50.     EE=AA(DD)
  51.     FF=EE!=EE
  52.     IF FF
  53.         MS 'BYT.I.BYT'
  54.         MS 'OR WHILE '
  55.         GOTO 51
  56.     ENDIF
  57.     SS++
  58. ENDWHILE
  59. MS '444444444'
  60. LOC 51
  61. EE=+098
  62. FF=EE!=SS
  63. IF FF
  64.     MS 'WHILE....'
  65. ENDIF
  66. IDD=+00300
  67. ICC=+00000
  68. WHILE
  69.     FF=ICC!=IDD
  70. ON FF
  71.     DD++
  72.     BB(ICC)=DD
  73.     EE=BB(ICC)
  74.     FF=EE!=DD
  75.     IF FF
  76.         MS 'BYT.I.INT'
  77.         GOTO 52
  78.     ENDIF
  79.     ICC++
  80. ENDWHILE
  81. MS '555555555'
  82. LOC 52
  83. ICC=+00000
  84. IEE=+00100
  85. WHILE
  86.     FF=ICC!=IDD
  87. ON FF
  88.     IEE++
  89.     IBB(ICC)=IEE
  90.     ICC++
  91. ENDWHILE
  92. IEE=+00100
  93. ICC=+00000
  94. WHILE
  95.     FF=ICC!=IDD
  96. ON FF
  97.     IEE++
  98.     IFF=IBB(ICC)
  99.     ICC++
  100.     FF=IFF!=IEE
  101.     IF FF
  102.         MS 'INT(INT).'
  103.         GOTO 53
  104.     ENDIF
  105. ENDWHILE
  106. MS '666666666'
  107. LOC 53
  108. DD=+100
  109. CC=+000
  110. IEE=+10000
  111. WHILE
  112.     FF=CC!=DD
  113. ON FF
  114.     IAA(CC)=IEE
  115.     IEE++
  116.     CC++
  117. ENDWHILE
  118. CC=+000
  119. IEE=+10000
  120. WHILE
  121.     FF=CC!=DD
  122. ON FF
  123.     IDD=IAA(CC)
  124.     FF=IDD!=IEE
  125.     IF FF
  126.         MS 'INT(BYTE)'
  127.         GOTO 54
  128.     ENDIF
  129.     IEE++
  130.     CC++
  131. ENDWHILE
  132. MS '777777777'
  133. LOC 54
  134. MS 'ENDOF T05'
  135. ENDMAIN
  136. BOTTOM
  137.