home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / pipeline / pipedream / Documents / Custom / Read_Write / c_W_R next >
Encoding:
Text File  |  1991-10-09  |  861 b   |  49 lines
  1. %OP%LP(
  2. %OP%TP)
  3. %OP%PL53
  4. %OP%FX
  5. %OP%FY
  6. %OP%FS
  7. %OP%WC2,1388,784,1364,0,0,0,0
  8. %OP%VS3.81 Test (Oct  8 1991), Colton Software - Development, R0123 4567 8901 2345
  9. %CO:A,73,0%%V%%L%function("read","fileno:number","colno:number","rowno:number")
  10. %V%%L%if(@fileno>2 | @colno>16 | @rowno>16,result("Out of range."),)
  11. %V%%L%index(b1q33,@colno,@rowno+16*@fileno)
  12. %V%%L%result(a3)
  13.  
  14. %V%%L%function("write","fileno:number","colno:number","rowno:number","exp")
  15. %V%%L%if(@fileno>2 | @colno>16 | @rowno>16,result("Out of range."),)
  16. %V%%L%index(b1q33,@colno,@rowno+16*@fileno)
  17. %V%%L%set_value(index(b1q33,@colno,@rowno+16*@fileno),@exp)
  18. %V%%L%result(@exp)
  19. %CO:B,3,60%%CO:C,3,48%%CO:D,3,36%%CO:E,3,24%%CO:F,3,12%%CO:G,3,0%%CO:H,3,0%%CO:I,3,0%%CO:J,3,0%%CO:K,3,0%
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46. %V%%R%39
  47. %V%%R%"hi"
  48. %V%%R%"hi"
  49. %CO:L,3,0%%CO:M,3,0%%CO:N,3,0%%CO:O,3,0%%CO:P,3,0%%CO:Q,3,0%