home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1995 / ARCHIVE95.iso / discs / pipeline / abacus / p_line / Custom05 / c2_Add < prev    next >
Text File  |  1995-04-11  |  541b  |  38 lines
  1. %OP%VS4.13 (28-Apr-92), Gerald L Fitton, R4000 5966 9904 9938 
  2. %OP%TNN
  3. %OP%WRN
  4. %OP%DP0
  5. %OP%IRN
  6. %OP%PL0
  7. %OP%HM0
  8. %OP%FM0
  9. %OP%BM0
  10. %OP%LM4
  11. %OP%PT1
  12. %OP%PDPipeLine
  13. %OP%WC2,1148,360,908,0,0,0,2
  14. %OP%NDanswer,B9
  15. %OP%FR0,2
  16. %CO:A,60,72%Comments and Commands
  17.  
  18. ------------------------------------------------------------------------
  19.  
  20. Function "add_together"
  21.  
  22. %V%%L%function("add_together","n:number")
  23.  
  24. %V%%L%set_name("answer",B9)
  25. %V%%L%set_value(answer,0)
  26. %V%%L%set_value(answer,@n)
  27.  
  28. %V%%L%result(deref(answer))
  29. %CO:B,6,0%Value
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37. %V%%R%2
  38. %CO:C,6,0%