home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 012 / card_ce.zip / LISTA.PRG < prev    next >
Text File  |  1994-08-24  |  4KB  |  215 lines
  1. stor spac(15) to compp
  2. stor spac(4) to yearp
  3. set color to r+
  4. @ 08,20 say 'Company Name  ...............'
  5. @ 10,20 say 'Year          ....'
  6. @ 12,20 say 'Both'
  7. @ 14,20 say 'All'
  8. set color to w+
  9. @ 02,30 say 'SEARCH CARDS FOR LIST'
  10. set color to gr+
  11. @ 08,20 say 'C'
  12. @ 10,20 say 'Y'
  13. @ 12,20 say 'B'
  14. @ 14,20 say 'A'
  15. stor ' ' to op, op2, op3, m
  16. set color to g+
  17. @ 22,01 say 'Press <F10> to Main Menu '
  18. set color to gr+
  19. @ 22,49 say 'Your choice' get op
  20. set color to g+
  21. read
  22. set color to r+
  23. @ 16,20 say 'Printer - Screen'
  24. set color to gr+
  25. @ 16,20 say 'P'
  26. @ 16,30 say 'S'
  27. if uppe(op) = "Q"
  28. clear gets
  29. return
  30. endif
  31. if uppe(op) = "C"
  32. @ 08,20 say 'Company Name ' get compp pict '!!!!!!!!!!!!!!!'
  33. @ 10,20 say '                              '
  34. set color to gr+
  35. read
  36. endif
  37. if uppe(op) = "Y"
  38. @ 08,20 say '                                    '
  39. @ 10,20 say 'Year         ' get yearp
  40. set color to gr+
  41. read
  42. endif
  43. if uppe(op) = "B"
  44. @ 08,20 say 'Company Name ' get compp pict '!!!!!!!!!!!!!!!'
  45. @ 10,20 say 'Year         ' get yearp
  46. set color to gr+
  47. read
  48. endif
  49. set color to g+
  50. @ 22,49 say 'Your choice to list ' get op2
  51. read
  52. stor 1 to pag
  53. stor 2 to xx
  54. if uppe(op2) = 'P'
  55. use card index anocar
  56. reindex
  57. @ 05,01 clear to 18,78
  58. @ 21,01 clear to 22,78
  59. set color to rb+
  60. stor ' ' to pri
  61. @ 11,10 say 'Set your printer and press <Enter> or <Q> to quit ' get pri   
  62. read
  63. if uppe(pri) = 'Q'
  64. clear all
  65. close all
  66. return
  67. endif
  68. if uppe(op) = 'A'
  69. goto reco 1
  70. endif
  71. if uppe(op) = 'C'
  72. loca for comp = compp
  73. endif
  74. if uppe(op) = 'Y'
  75. locate for year = yearp
  76. endif
  77. if uppe(op) = 'B'
  78. locate for comp=compp .and. year=yearp
  79. endif
  80. set devi to prin
  81. do while op3 <> 'q'
  82. if uppe(op) = 'C' .and. xx=2
  83. @ 00,00 say 'All cards for ' + compp
  84. endif
  85. if uppe(op) = 'A' .and. xx=2
  86. @ 00,00 say 'All cards registerd'
  87. endif
  88. if uppe(op) = 'Y' .and. xx=2
  89. @ 00,00 say 'All cards for ' + yearp
  90. endif
  91. if uppe(op) = 'B' .and. xx=2
  92. @ 00,00 say 'All cards for ' + trim(compp) + ' ' + yearp
  93. endif
  94. if uppe(op) = 'C'
  95. if comp = compp
  96. @ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
  97. @ xx,40 say team + cardn
  98. xx = xx +1
  99. endif
  100. endif
  101. if uppe(op) = 'Y'
  102. if year =  yearp
  103. @ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
  104. @ xx,40 say team + cardn
  105. xx = xx +1
  106. endif
  107. endif
  108. if uppe(op) = 'A'
  109. @ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
  110. @ xx,40 say team + cardn
  111. xx = xx +1
  112. endif
  113. if uppe(op) = 'B'
  114. if comp=compp .and. year=yearp
  115. @ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
  116. @ xx,40 say team + cardn
  117. xx = xx +1
  118. endif
  119. endif
  120. if xx >= 58
  121. xx=2
  122. @ 59,30 say 'Page - ' + str(pag)
  123. pag=pag+1
  124. endif
  125. if .not. eof()
  126. skip
  127. endif
  128. if eof() .and. xx <= 58
  129. @ 59,30 say 'Page - ' + str(pag)
  130. pag=pag+1
  131. endif
  132. if eof()
  133. @ 59,00 say ' '
  134. set devi to scre
  135. @ 21,01 say 'End of File, press any key to Main Menu' get m
  136. read
  137. stor 'q' to op3
  138. endif
  139. enddo
  140. endif
  141. set devi to scre
  142. if uppe(op2) = 'S'
  143. use card index anocar
  144. reindex
  145. @ 05,01 clear to 18,78
  146. @ 21,01 clear to 22,78
  147. set color to rb+
  148. @ 04,01 say 'Year'
  149. @ 04,08 say 'Player Name'
  150. @ 04,40 say 'Team'
  151. @ 04,55 say 'Card #'
  152. set color to g+
  153. stor 5 to xx
  154. if uppe(op) = 'A'
  155. goto reco 1
  156. endif
  157. if uppe(op) = 'C'
  158. loca for comp = compp
  159. endif
  160. if uppe(op) = 'Y'
  161. locate for year = yearp
  162. endif
  163. if uppe(op) = 'B'
  164. locate for comp=compp .and. year=yearp
  165. endif
  166. do while op3 <> 'q'
  167. if uppe(op) = 'A'
  168. @ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
  169. @ xx,40 say team + cardn
  170. xx = xx +1
  171. endif
  172. if uppe(op) = 'C'
  173. if comp = compp
  174. @ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
  175. @ xx,40 say team + cardn
  176. xx = xx +1
  177. endif
  178. endif
  179. if uppe(op) = 'Y'
  180. if year =  yearp
  181. @ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
  182. @ xx,40 say team + cardn
  183. xx = xx +1
  184. endif
  185. endif
  186. if uppe(op) = 'B'
  187. if comp=compp .and. year=yearp
  188. @ xx,01 say year + ' - ' + trim(fname) + ' ' + lname
  189. @ xx,40 say team + cardn
  190. xx = xx +1
  191. endif
  192. endif
  193. if xx >= 19
  194. @ 21,01 say 'Press <ENTER> for more or "Q" to end' get m
  195. read
  196. if uppe(m) = 'Q'
  197. stor 'q' to op3
  198. endif
  199. xx=5
  200. @ 21,01 clear to 22,78
  201. @ 05,01 clear to 18,78
  202. endif
  203. if .not. eof()
  204. skip
  205. endif
  206. if eof()
  207. @ 21,01 say 'End of File, press any key to Main Menu' get m
  208. read
  209. stor 'q' to op3
  210. endif
  211. enddo
  212. endif
  213. close all
  214. return
  215.