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