home *** CD-ROM | disk | FTP | other *** search
/ PC-Online 1998 February / PCOnline_02_1998.iso / filesbbs / dos / dbonlin2.exe / AUTOSELL.ZIP / SELLPROC.PRG < prev   
Encoding:
Text File  |  1993-09-29  |  3.8 KB  |  157 lines
  1. procedure buy
  2. clear
  3. xmake=replicate(" ",20)
  4. xmodel=replicate(" ",20)
  5. xyear=0
  6. xcol=replicate(" ",7)
  7. @ 2,2 say "          Make:" get xmake
  8. ?? "                      (eg. Chev)"
  9. @ 3,2 say "         Model:" get xmodel
  10. ?? "                      (eg. Corvette)"
  11. @ 4,2 say "          Year:" get xyear picture "9999"
  12. @ 5,2 say "Exterior Color:" get xcol
  13.  
  14. set color to n/w
  15. @ 23,0
  16. @ 23,1 say "Enter the search criteria"
  17. set color to w/n
  18. read
  19. if readkey()<>12
  20.   go top
  21.   set exact off
  22.   set memowidth to 79
  23.   do while .not. eof()
  24.     if .not. deleted()
  25.       if upper(trim(make)) = upper(trim(xmake)) .or. xmake=replicate(" ",20)
  26.         if upper(trim(model)) = upper(trim(xmodel)) .or. xmodel=replicate(" ",20)
  27.           if xyear>0 .and. xyear = year .or. xyear=0
  28.             if upper(trim(extcolor)) = upper(trim(xcol)) .or. xcol=replicate(" ",7)
  29.  
  30.             clear
  31.             @ 0,0 to 2,18
  32.             @ 1,2 say "Entry # " + transform(recno(),"9999999")+" "+ chr(195)+ replicate(chr(196),60)
  33.  
  34.             @ 4,2 say "          User: " + name
  35.             @ 6,2 say "          Make: " + make
  36.             @ 7,2 say "         Model: " + model
  37.             @ 8,2 say "          Year: " + ltrim(str(year))
  38.             @ 9,2 say "Exterior Color: " + extcolor
  39.                   @ 10,2 say "Interior Color: " + intcolor
  40.             @ 11,2 say "        Engine: " + engine
  41.             @ 12,2 say "  Transmission: " + trans
  42.             ?
  43.             ?
  44.             wait
  45.             endif
  46.           endif
  47.         endif
  48.       endif
  49.     endif
  50.     skip
  51.   enddo
  52.   wait "Press any key to return."
  53. endif
  54. return
  55.  
  56.  
  57. procedure sell
  58. cmd= ' '
  59. do while cmd <> "B"
  60.   cmd='N'
  61.   clear
  62.   set color to n/w
  63.   @ 23,0
  64.   @ 23,1 say "[Y]es - [N]o - [B]ack"
  65.   set color to w/n
  66.   @ 2,2 say "Do you wish to view your existing entries ?" get cmd picture "!"
  67.   read
  68.   if cmd='Y'
  69.     do view
  70.   else
  71.     if cmd='N'
  72.       do sell2
  73.     endif
  74.   endif
  75. enddo
  76. return
  77.  
  78. procedure view
  79. clear
  80. @ 0,0 to 2,18
  81. @ 1,2 say "Current Entries " + chr(195)+ replicate(chr(196),60)
  82. ?
  83. ?
  84. list for name=USERNAME LTRIM(STR(year))+" "+trim(EXTCOLOR)+" "+trim(MAKE)+" "+trim(MODEL)
  85. ?
  86. cmd="1"
  87. do while val(cmd)>0
  88.   accept "Press <Enter> to continue, or a number to delete ?" to cmd
  89.   if val(cmd)>0
  90.     go val(cmd)
  91.     if name <> USERNAME
  92.       wait "That entry is not yours!  Press any key to continue..."
  93.     else
  94.       accept "Are you sure ? " to ques
  95.       ques=upper(ques)
  96.       if ques='Y' .and. val(cmd)<reccount()
  97.         go val(cmd)
  98.         if deleted()
  99.           recall
  100.         else
  101.           delete
  102.           XPACK=1
  103.           ? "Deleted entry # " + ltrim(str(recno())) + " -  " + trim(extcolor) + " " + trim(make) + " " + trim(model)
  104.         endif
  105.       endif
  106.     endif
  107.   endif
  108. enddo
  109. return
  110.  
  111.  
  112. procedure sell2
  113. clear
  114. xmake=replicate(" ",20)
  115. xmodel=replicate(" ",20)
  116. xyear=year(date())
  117. xcol=replicate(" ",7)
  118. icol=replicate(" ",7)
  119. xengine=replicate(" ",40)
  120. xtrans=replicate(" ",40)
  121. @ 2,2 say "          User: " + USERNAME
  122. @ 4,2 say "          Make:" get xmake
  123. ?? "                      (eg. Chev)"
  124. @ 5,2 say "         Model:" get xmodel
  125. ?? "                      (eg. Corvette)"
  126. @ 6,2 say "          Year:" get xyear picture "9999"
  127. @ 7,2 say "Exterior Color:" get xcol
  128. @ 8,2 say "Interior Color:" get icol
  129. @ 9,2 say "        Engine:" get xengine
  130. ?? "  (eg. V8)"
  131. @ 10,2 say "  Transmission:" get xtrans
  132. ?? "  (eg. Auto, 5-speed)"
  133. ?
  134. set color to n/w
  135. @ 23,0
  136. @ 23,1 say "<Esc> Quits  -  ^W Saves  -  ^Home for comments"
  137. set color to w/n
  138. set confirm on
  139. read
  140. @ 23,0
  141. @ 20,0
  142. if readkey()<>12
  143.   append blank
  144.   replace name with USERNAME
  145.   replace make with xmake
  146.   replace model with xmodel
  147.   replace year with xyear
  148.   replace extcolor with xcol
  149.   replace engine with xengine
  150.   replace trans with xtrans
  151.   ? "Entry saved!"
  152. else
  153.   ? "Entry canceled!"
  154. endif
  155. wait
  156. return
  157.