home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol110 / phone.acg < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.6 KB  |  76 lines
  1. * phonlist.acg 03/16/83  hmvt
  2.  
  3. * this module makes a phone list of names, home and office phones
  4. * it can be adjusted to print other information
  5. * make sure index is in right order
  6. SET INDEX TO lastname, company, zip
  7.  
  8. * do entire file starting at top of file
  9. GOTO TOP
  10.  
  11. * initialize variables
  12. STORE 0 TO pageno
  13. STORE t TO more
  14.  
  15. DO WHILE more
  16.  
  17. * do page counter etc
  18.  
  19. STORE pageno + 1 TO pageno
  20.  
  21. STORE 6 TO lineno
  22.  
  23. ERASE
  24.  
  25. * eject a page and skip down 2 lines
  26.  
  27. EJECT
  28.  
  29. * and write TITLE
  30.  
  31. ? '     NEW JERSEY AMATEUR COMPUTER GROUP  - TELEPHONE LIST'
  32. ? ' '
  33. ? '         ' + date() + '                                             PAGE:'+ STR(pageno,2)
  34. ? ' '
  35. ? '      NAME                   HOME PHONE         OFFICE PHONE'
  36. ? ' '                                             
  37.  
  38. * now fill up rest of page to 55 lines with names etc
  39.  
  40. DO WHILE lineno < 55
  41.  
  42. * now do a label if not end of file
  43. IF .NOT. EOF
  44. * make first name to length=10 and...
  45. * create a blank to pad names to constant length
  46. STORE TRIM(fname)+ ' '+ lastname TO mname
  47. STORE $(mname,1,23) TO mname
  48. *STORE TRIM(mname) TO mname
  49. *STORE LEN(mname) TO length
  50. *STORE 11 - length TO length
  51. *STORE $('         ',1,length) TO blank
  52. *? mname+ ' '+ lastname+ blank+ company1+ ' '+ $(ccity,1,10)+ ' '+ ophone
  53.  
  54. ? mname+ '      '+ phone + '      '+  ophone
  55.  
  56. * if it is end of file quit
  57. ELSE 
  58.   STORE f TO more
  59. ENDIF not EOF
  60.  
  61. * bump line counter and get next record
  62. STORE lineno +1 TO lineno
  63. SKIP
  64.  
  65. ENDDO while lineno < 55
  66.  
  67. ENDDO more
  68.  
  69. * if it was on turn it off
  70. SET PRINT OFF
  71.  
  72. * release local variables
  73. RELEASE pageno, lineno, mname
  74.  
  75. * restore memory varibles 
  76. STORE t TO more