home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / TRADING / STKRNE.SBP < prev    next >
Encoding:
Text File  |  1989-09-24  |  1.1 KB  |  49 lines
  1. SBP
  2.   ╜   -----------------------------------------
  3.   ╜   STKRNE
  4.   ╜   Client Telephone List
  5.   ╜   Last updated Sep 20, 89
  6.   ╜   -----------------------------------------
  7.   │ _ wm99
  8.   ┤ Ö"CLIENTS"
  9.   ┤ Ö"COUNTRY"
  10.  hd1$ "Client Telephone List at "  ( Q,"mmm dd,yy") "     "
  11.  hd12$ "Ref: STKRNE"
  12.  ms3$ "Do you wish to reprint?"
  13.  
  14. m1: 
  15.   ┬"REPORT TO PRINTER?","",134,a%
  16.   ía% 0 p wm2  ^ ía% 1 p ╣;
  17.  
  18.   ┴
  19.   } ┴
  20.   {
  21.   {@2;"Number of records:";@21;&15 ( X,"9999.")
  22.   Æ ┴
  23.  
  24.   ƒ
  25.   {@1; ╘;hd1$; ╘ e;@66;hd12$
  26.   {
  27.   {@2;"Client                    Location                Telephone           Hours"
  28.   {@2;"------------------------- ----------------------- ------------------- -----"
  29.   Æ ƒ
  30.  
  31.   ╔@2;&26Client.CLIENTS;&23Location.CLIENTS;@52;"(";&3Dialcode.COUNTRY;")";&16Telephone.CLIENTS;
  32.  &5GMT Zone_Min.COUNTRY
  33.   ╨Country.CLIENTS Name.COUNTRY
  34.  
  35. m2: 
  36.   ┬ms3$,"",1,a%
  37.   ía% 1 p wm1
  38.  RET% 1: ä"stkm"
  39.  
  40. m99: ╜ On error
  41.   í & 27 p
  42.  ┬"Report line too long for printer","Try using a smaller font",0,a%
  43.   ^
  44.  ┬ (( &),"",2,a%
  45.   Æ í
  46.   ym2 
  47.  
  48.  
  49.