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