home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / LOTUSDEM.FOR < prev    next >
Encoding:
Text File  |  1989-10-10  |  1.6 KB  |  56 lines
  1.       INCLUDE 'STDHDR.FOR'
  2.       REAL storedata(0: maxr, 0: maxc)
  3.       CHARACTER * 15 rlab(0: maxc), clab(0:maxc), numstr, templab
  4.       CHARACTER * 20 filename
  5.       INTEGER  i,  nr, nc, ten, one
  6.  
  7.       nr = 10
  8.       nc = 2
  9.  
  10.       storedata(0, 0) = 305.000
  11.       storedata(0, 1) = 35.000
  12.       storedata(1, 0) = 130.000
  13.       storedata(1, 1) = 98.000
  14.       storedata(2, 0) = 189.000
  15.       storedata(2, 1) = 83.000
  16.       storedata(3, 0) = 175.000
  17.       storedata(3, 1) = 76.000
  18.       storedata(4, 0) = 101.000
  19.       storedata(4, 1) = 93.000
  20.       storedata(5, 0) = 269.000
  21.       storedata(5, 1) = 77.000
  22.       storedata(6, 0) = 421.000
  23.       storedata(6, 1) = 44.000
  24.       storedata(7, 0) = 195.000
  25.       storedata(7, 1) = 57.000
  26.       storedata(8, 0) = 282.000
  27.       storedata(8, 1) = 31.000
  28.       storedata(9, 0) = 203.000
  29.       storedata(9, 1) = 92.000
  30.  
  31.       clab(0) = '    income'
  32.       clab(1) = '    population'    !! {column labels}
  33.  
  34.       DO i = 0, nr - 1
  35.         templab = 'store #     '
  36.         if (i .LT. 10) THEN
  37.           numstr = CHAR(i+48)
  38.           templab(8:8) =  numstr               !!  {row labels}
  39.         ELSE
  40.           ten = i / 10
  41.           one = MOD(i,10)
  42.           numstr(1:1) = CHAR(ten+48)
  43.           numstr(2:2) = CHAR(one+48)
  44.           templab(8:8) = numstr(1:1)
  45.           templab(9:9) = numstr(2:2)              !!  {row labels}
  46.         END IF
  47.         rlab(i) = templab
  48.       END DO
  49.  
  50.       filename = 'storedat.prn'                    !  {filename}
  51.  
  52.       CALL LotusFileSave(storedata, rlab,clab, nr, nc, filename)
  53.  
  54.       END
  55.  
  56.