home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol043 / tintest1.pgn < prev    next >
Encoding:
Text File  |  1984-04-29  |  2.4 KB  |  198 lines
  1.  
  2.  TOP
  3.  BYTE XX
  4.  BYTE CR
  5.  BYTE LF
  6.  INT IAA
  7.  INT IAB
  8.  INT IBB
  9.  INT ICC
  10.  INT IDD
  11.  INT IEE
  12.  BEGINMAIN(AC,IAV)
  13.  CR=+013
  14.  LF=+010
  15.     MS 'BEGIN T03'
  16.  GOSUB CR
  17.  IAA=+10001
  18.  IBB=+10002
  19.  XX=IAA==IBB
  20.  IF XX
  21.     MS '==FAILS!='
  22.     MS 'OR IF  OR'
  23.     MS 'DEFINITIN'
  24.  ENDIF
  25.  MS '111111111'
  26.  IBB=+10001
  27.  XX=IAA==IBB
  28.  IF XX
  29.  ELSE
  30.     MS '==FAILED*'
  31.  ENDIF
  32.  MS '222222222'
  33.  XX=IAA!=IBB
  34.  IF XX
  35.     MS '!=FAILED*'
  36.  ENDIF
  37.  MS '333333333'
  38.  IBB=+10005
  39.  XX=IAA!=IBB
  40.  IF XX
  41.  ELSE
  42.     MS '!=FAILED*'
  43.  ENDIF
  44.  MS '444444444'
  45.  IBB=+10001
  46.  XX=IAA<!IBB
  47.  IF XX
  48.     MS '<!FAILS=='
  49.  ENDIF
  50.  MS '555555555'
  51.  IBB=+10002
  52.  XX=IBB<!IAA
  53.  IF XX
  54.     MS '<!FAILS>!'
  55.  ENDIF
  56.  MS '666666666'
  57.  XX=IAA<!IBB
  58.  IF XX
  59.  ELSE
  60.     MS '<!FAILS<!'
  61.  ENDIF
  62.  GOSUB CR
  63.  MS '777777777'
  64.  XX=IBB<=IAA
  65.  IF XX
  66.     MS '<=FAILS>!'
  67.  ENDIF
  68.  MS '888888888'
  69.  IBB=+10001
  70.  XX=IAA<=IBB
  71.  IF XX
  72.  ELSE
  73.     MS '<=FAILS=='
  74.  ENDIF
  75.  MS '999999999'
  76.  IBB=+10002
  77.  XX=IAA<=IBB
  78.  IF XX
  79.  ELSE
  80.     MS '<=FAILS<!'
  81.  ENDIF
  82.  MS '000000000'
  83.  IAA++
  84.  XX=IAA!=IBB
  85.  IF XX
  86.     MS '++FAILS..'
  87.  ENDIF
  88.  GOSUB CR
  89.  MS 'AAAAAAAAA'
  90.  IAA++
  91.  IAA--
  92.  XX=IAA!=IBB
  93.  IF XX
  94.     MS '--FAILS..'
  95.  ENDIF
  96.  MS 'BBBBBBBBB'
  97.  IAA=+10050
  98.  IBB=+10064
  99.  IDD=IAA+IBB
  100.  IEE=+20114
  101.  XX=IDD!=IEE
  102.  IF XX
  103.     MS 'ADS...+++'
  104.  ENDIF
  105.  MS 'CCCCCCCCC'
  106.  ICC=+10000
  107.  IBB=+10050
  108.  IDD=IBB-IAA
  109.  IAA=+00000
  110.  XX=IAA!=IDD
  111.  IF XX
  112.     MS 'SUB...+-+'
  113.  ENDIF
  114.  MS 'DDDDDDDDD'
  115.  IAA=+00000
  116.  IBB=+10050
  117.  ICC=IAA-IBB
  118.  IBB=+10064
  119.  IDD=IAA-IBB
  120.  IBB=+20114
  121.  IEE=IAA-IBB
  122.  IBB=ICC+IDD
  123.  XX=IBB!=IEE
  124.  IF XX
  125.     MS 'ADS...-+-'
  126.  ENDIF
  127.  MS 'EEEEEEEEE'
  128.  IBB=ICC-IDD
  129.  IEE=+00014
  130.  XX=IEE!=IBB
  131.  IF XX
  132.     MS 'SUB---=>+'
  133.  ENDIF
  134.  MS 'FFFFFFFFF'
  135.  IBB=IDD-ICC
  136.  IAA=+00000
  137.  ICC=IAA-IEE
  138.  XX=IBB!=ICC
  139.  IF XX
  140.     MS 'SUB---=>-'
  141.  ENDIF
  142.  MS 'GGGGGGGGG'
  143.  IAA=+10001
  144.  IBB=+10003
  145.  IAA=IAA+IBB
  146.  ICC=+20004
  147.  XX=ICC!=IAA
  148.  IF XX
  149.     MS 'ADS.X=X+.'
  150.  ENDIF
  151.  MS 'HHHHHHHHH'
  152.  IBB=IAA+IBB
  153.  ICC=+30007
  154.  XX=ICC!=IBB
  155.  IF XX
  156.     MS 'ADS.X=.+X'
  157.  ENDIF
  158.  GOSUB CR
  159.  MS 'IIIIIIIII'
  160.  ICC=ICC+ICC
  161.  IBB=+60014
  162.  XX=IBB!=ICC
  163.  IF XX
  164.     MS 'ADS.X=X+X'
  165.  ENDIF
  166.  MS 'JJJJJJJJJ'
  167.  IAA=+10009
  168.  IBB=+10005
  169.  IAA=IAA-IBB
  170.  ICC=+00004
  171.  XX=ICC!=IAA
  172.  IF XX
  173.     MS 'SUB.X=X-.'
  174.  ENDIF
  175.  MS 'KKKKKKKKK'
  176.  IAA=+10009
  177.  IBB=IAA-IBB
  178.  XX=ICC!=IBB
  179.  IF XX
  180.     MS 'SUB.X=.-X'
  181.  ENDIF
  182.  MS 'LLLLLLLLL'
  183.  IAA=IAA-IAA
  184.  IBB=+00000
  185.  XX=IAA!=IBB
  186.  IF XX
  187.     MS 'SUB.X=X-X'
  188.  ENDIF
  189.  GOSUB CR
  190.      MS 'ENDOF T03'
  191.  ENDMAIN
  192.             SUB CR
  193.  WRITE CR
  194.  WRITE LF
  195.  ENDSUB; CR
  196.  BOTTOM
  197.  FINIS
  198.