home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol236 / seescb.rat < prev    next >
Encoding:
Text File  |  1986-02-13  |  202 b   |  14 lines
  1. BYTE ACCSCB,B; INTEGER IB(10),I,J,BB; EQUIVALENCE (B,BB)
  2.  
  3. BB=0
  4.  
  5. DO I=0,90,10; {
  6.    DO J=0,9; {
  7.       B=ACCSCB(I+J)
  8.       IB(J+1)=BB }
  9.       
  10.    WRITE(5,10) I,(IB(J),J=1,10); 10 FORMAT(11I6) }
  11.  
  12. STOP
  13. END
  14.