home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / KAYPRO / KP-MEMBR.LBR / MEMBER.CZM / MEMBER.COM (.txt)
Turbo Pascal Compiled 8bit CP/M-80 COM  |  2000-06-30  |  26KB  |  236 lines
  1. Copyright (C) 1985 BORLAND Inc
  2. Kaypro with hiliteedP
  3.  .,;:=?*[]<>{}
  4. ^#V#N#F
  5. s#r#q#p
  6.     #^#V
  7. 9^#Vh&
  8. |/g}/o#
  9. T]=o`9y
  10. T9^K#
  11. 8/<oz
  12. T9^K#
  13. oGOW_g
  14. `1pF,
  15. LSTCAUX
  16. >~O6~*
  17.  .##~
  18. TRUEFALSE
  19. ##N#F*
  20. ##~++
  21.     N#F#s#r
  22. N#F#^#V
  23. Nw#Fw
  24. q#p#6
  25. #w#w#w
  26. >!DM!
  27. <(    !\
  28. Ns#Fr
  29. User break
  30. Run-time
  31.  error 
  32. , PC=
  33. Not enough memory
  34. Program aborted
  35. s*y~#
  36. }2x~*x~&
  37. O ==============================================================================
  38. O ==============================================================================
  39. N                                                                              !
  40. M(Space) = Down, (Back-Space) = Up, (First Letter) to Find, (Return) to Select
  41. "K|*V|
  42. N______________________________________________________________________________!
  43.  *M|&
  44. N                                                                              !
  45. "/*M|&
  46. "/*M|&
  47. "/*M|&
  48. N______________________________________________________________________________!
  49. "/*M|&
  50. N______________________________________________________________________________!
  51. "I|*M|&
  52. N                                                                              !
  53. __/__/__
  54. DUMMY
  55.  *v{&
  56.  3*v{&
  57.  3*v{&
  58. V2*w{
  59. 42*w{
  60. C2*w{
  61. R"w{!
  62. 2*v{&
  63. "w{*y{
  64. "t{*t{
  65. * What Do You Want To Do *
  66.  First Name (Search) 
  67.  Last Name (Search)
  68.  City (Search)
  69.  State (Search)
  70.  Topic (Search)
  71.  Generate Labels
  72.  Enter New Member
  73.  Purge Database
  74.  Quit: Go to CP/M
  75. * Print Labels For *
  76.  Test Label
  77.  All Members
  78.  Paid Members
  79.  Expired Members 
  80.  Non - Members
  81.  Go To Main Menu
  82. ATQ0V0M1X1 S0=0 S2=3 S11=50
  83. }2^w!gw
  84. i*^w&
  85. 6}2Uw
  86. 6}2Uw
  87. AT H!
  88. 7(H)ome Phone   (** TURN MODEM ON **)   (B)usiness Phone
  89.  *Cw&
  90. 8*Cw&
  91. 19!G8
  92. Initializing Modem ...
  93. Dialing ...
  94. ((H)ang-Up           (C)ontinuous Re-dial
  95.  *Cw&
  96. 9*Cw&
  97. Disconnecting ...
  98. EEnter (Number of Seconds) to Delay Before Re-Dial    (<CR>) = 15 sec.
  99. (ANY KEY) to Stop Dialing
  100. ** Printer (NOT) Ready **
  101. Printing ...
  102. Home Phone : *
  103.    Bus. Phone : 
  104. Occupation : *
  105. Computer 1 : *
  106.    Computer 2 : 
  107. Uses These : *
  108. w"    w!
  109. ** Printer (NOT) Ready **
  110.     Expires: *    w
  111.          * SPECIAL *
  112.    * RENEW *
  113.  * EXPIRED *
  114.   * ACTIVE *
  115. , *    w
  116.    *    w
  117. Printing ...
  118. (+++ DISK FULL +++)
  119. (Enter a (Carriage Return) to Leave Blank
  120. Enter First Name            : !
  121. Enter Last Name             : !
  122. Enter Address1              : !
  123. Enter Address2              : !
  124. Enter City                  : !
  125. Enter Two Letter State Code : !
  126. Enter Zip Code              : !
  127. 3Enter Phone Numbers EXACTLY As You Would Dial Them.
  128. 6Use Punctuation To Make Them More Readable If Desired.
  129. >Examples: 15551212  1-555-1212  1(615)555-1212  1/615/555-1212
  130. Enter Home Phone Number     : !
  131. Enter Business Phone Number : !
  132. Enter Occupation            : !
  133. Enter Primary Computer Type : !
  134. Enter Second Computer Type  : !
  135. "(Separate Topics With Punctuation)
  136. Enter Areas of Expertise    : !
  137. (Enter a (Carriage Return) to Leave Blank
  138. Enter Membership ID Number  : !
  139. Enter Date Member Joined    : 
  140. Enter Expiration Date       : 
  141. Enter Any Comments          : !
  142. Enter '(Y)' or '(N)'
  143. Are ALL Entries Correct (Y/N) :
  144. (+++ DISK FULL +++)
  145. Enter Another Person (Y/N) :
  146. Purge Database (Y/N) 
  147. 9This module will remove from the database all entries for
  148. 9which you have blanked out the first and last names.  The
  149. original database 
  150.  will be renamed to 
  151. $ and the new database will be named 
  152. 9(Purging Database ... Please Wait ... Do NOT Touch Disks)
  153. +++ DISK FULL +++
  154. (+++ DONE +++)
  155. **   CANNOT FIND DATA FILE   **
  156. ;Enter (NEW) Last Name   (<CR>) = No Change  (<ESC>) = Blank
  157. CHANGE TO : !
  158. <Enter (NEW) First Name   (<CR>) = No Change  (<ESC>) = Blank
  159. CHANGE TO : !
  160. ;Enter (NEW)  Address1   (<CR>) = No Change  (<ESC>) = Blank
  161. CHANGE TO : !
  162. ;Enter (NEW)  Address2   (<CR>) = No Change  (<ESC>) = Blank
  163. CHANGE TO : !
  164. 6Enter (NEW) City   (<CR>) = No Change  (<ESC>) = Blank
  165. CHANGE TO : !
  166. <Enter (NEW) State Code   (<CR>) = No Change  (<ESC>) = Blank
  167. CHANGE TO : !
  168. :Enter (NEW) Zip Code   (<CR>) = No Change  (<ESC>) = Blank
  169. CHANGE TO : !
  170. <Enter (NEW) Home Phone   (<CR>) = No Change  (<ESC>) = Blank
  171. CHANGE TO : !
  172. @Enter (NEW) Business Phone   (<CR>) = No Change  (<ESC>) = Blank
  173. CHANGE TO : !
  174. <Enter (NEW) Occupation   (<CR>) = No Change  (<ESC>) = Blank
  175. CHANGE TO : !
  176. FEnter (NEW) Membership ID Number   (<CR>) = No Change  (<ESC>) = Blank
  177. CHANGE TO : !
  178. BEnter (NEW) Primary Computer   (<CR>) = No Change  (<ESC>) = Blank
  179. CHANGE TO : !
  180. AEnter (NEW) Second Computer   (<CR>) = No Change  (<ESC>) = Blank
  181. CHANGE TO : !
  182. DEnter (NEW) Areas of Expertise   (<CR>) = No Change  (<ESC>) = Blank
  183. CHANGE TO : !
  184. 9Enter (Date Joined)   (<CR>) = No Change  (<ESC>) = Blank
  185. CHANGE TO : 
  186. =Enter (Expiration Date)   (<CR>) = No Change  (<ESC>) = Blank
  187. CHANGE TO : 
  188. :Enter Any (Comments)   (<CR>) = No Change  (<ESC>) = Blank
  189. CHANGE TO : !
  190. Enter !
  191.           FULL NAME :
  192.           ADDRESS 1 :
  193.           ADDRESS 2 :
  194.   CITY, STATE & ZIP :
  195.    AREA CODE/TEL.NO :
  196.          OCCUPATION :
  197.     MEMBERSHIP I.D. :
  198.    PRIMARY COMPUTER :
  199.  SECONDARY COMPUTER :
  200.    KNOWLEDGEABLE IN :
  201.       MEMBER JOINED :
  202.  MEMBERSHIP EXPIRES :
  203.            COMMENTS :
  204. Searching ...
  205.                  
  206.                  
  207. 8(C)hange  (D)ial  (P)rint  (Q)uit  (ANY KEY) to CONTINUE
  208. Enter Today's Date : 
  209. %"V{*V{
  210. yb*V{
  211. Printing . . .
  212. _=*xu
  213. 7This program is in the public domain. Feel free to copy
  214. 7and distribute it. If you would like to make a donation
  215. 7send it to the  address below along  with your name and
  216. 7address to become a registered user.  This will entitle
  217. 7you to updates and revisions for a nominal fee of $5.00
  218. "to cover postage and the diskette.
  219. Joseph Fall
  220. 8031 Regency Drive
  221. Nashville, TN 37221
  222. Turbo Pascal ver. 1.4
  223. November, 1985
  224.  MEMBER ver 1.4 by Joseph L. Fall
  225. +++ ERROR +++
  226. No File Name Included
  227. Syntax : MEMBER <Datafile name>
  228. Example: A0> MEMBER NKUG<ret> 
  229. %"V{*V{
  230. First Name!
  231.     Last Name!
  232. City!
  233. Two Letter State Code!
  234. Area of Expertise!
  235. Exit to CP/M (Y/N) 
  236.