home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol159 / test6.pgn < prev    next >
Encoding:
Text File  |  1985-03-23  |  1.0 KB  |  107 lines
  1. TOP
  2. BYTE A1
  3. BYTE B2
  4. BYTE C3
  5. BYTE D4
  6. BYTE E5
  7. INT IAX
  8. INT IAY
  9. INT IAZ
  10. BEGINMAIN(AC,IAV)
  11.     MS 'BEGIN T06'
  12. A1='0'
  13. A1++
  14. A1++
  15. A1++
  16. B2='3'
  17. C3=A1!=B2
  18. IF C3
  19.     MS 'CHARCONS.'
  20. ENDIF
  21. MS '111111111'
  22. D4=+001
  23. GOSUB 01
  24. MS '222222222'
  25. IF D4
  26.     MS 'GLOBALVAR'
  27. ENDIF
  28. MS '333333333'
  29. GOSUB 02
  30. MS '444444444'
  31. A1=+001
  32. B2=+002
  33. C3=+003
  34. D4=+001
  35. CHOOSE ON D4
  36. CASE A1
  37. CASE B2
  38.     MS '1!=2.....'
  39. CASE C3
  40.     MS '1!=3.....'
  41. DEFAULT
  42.     MS 'DEFAULT..'
  43. ENDCHOOSE
  44. MS '555555555'
  45. D4=+004
  46. CHOOSE ON D4
  47. CASE A1
  48.     MS '4!=1.....'
  49. CASE B2
  50.     MS '4!=2.....'
  51. CASE C3
  52.     MS '4!=3.....'
  53. DEFAULT
  54. ENDCHOOSE
  55. MS '666666666'
  56. D4=+003
  57. CHOOSE ON D4
  58. CASE A1
  59.     MS '3!=1.....'
  60. CASE B2
  61.     MS '3!=2.....'
  62. CASE C3
  63. DEFAULT
  64.     MS 'DEFAULT..'
  65. ENDCHOOSE
  66. MS '777777777'
  67. GOTO 01
  68. LOC 01
  69. GOTO 02
  70. LOC 02
  71. MS '888888888'
  72. A1=+000
  73. B2=+005
  74. PACK(IAX,A1,B2)
  75. IAZ=+00005
  76. C3=IAX!=IAZ
  77. IF C3
  78.     MS 'PACKFAILS'
  79. ENDIF
  80. MS '999999999'
  81. A1=+100
  82. PACK(IAX,A1,B2)
  83. UNPACK(IAX,C3,D4)
  84. E5=A1!=C3
  85. C3=B2!=D4
  86. E5=E5?C3
  87. IF E5
  88.     MS 'UNPACK...'
  89. ENDIF
  90.     MS 'ENDOF T06'
  91. STOP 1
  92. ENDMAIN
  93. SUB 02
  94. MS 'S2S2S2S2S'
  95. A1=+001
  96. IF A1
  97.     RETURN
  98. ENDIF
  99. MS 'RETURN...'
  100. ENDSUB
  101. SUB 01
  102. MS 'S1S1S1S1S'
  103. D4=+000
  104. ENDSUB
  105. BOTTOM
  106.  
  107.