home *** CD-ROM | disk | FTP | other *** search
/ Phoenix CD 2.0 / Phoenix_CD.cdr / 01e / let12.zip / DEMO-12.BAT < prev    next >
DOS Batch File  |  1987-09-17  |  2KB  |  53 lines
  1. echo off
  2. if `%LastRec%' == `' Demo-11
  3. :LoopDB
  4. if %Rec% == %LastRec% goto DoneDB
  5. Let Dummy=(do "Read-DB")
  6. echo Record %Rec% of %DB-File% has the following information:
  7. echo         %FirstName% %LastName%         (deleted: %deleted%)
  8. echo         %Street%
  9. echo         %City%, %State%  %Zip%
  10. echo  
  11. echo  
  12. goto LoopDB
  13. :DoneDB
  14. pause
  15. echo This concludes the demonstration of LET.  If you think that
  16. echo this program is useful, please be sure to register your copy.
  17. echo You can do this by typing the command REGISTER when you see
  18. echo your DOS prompt, and following the instructions there.
  19. echo  
  20. if `%MayI%' == `Y' goto End
  21. LET Now=(dateline)
  22. LET EndTime=(plus (times 60 (trim (mid Now 20 2))) (mid Now 23 2))
  23. LET StartTime=(plus (times 60 (trim (mid DemoStartTime 20 2))) (mid DemoStartTime 23 2))
  24. LET Elapsed=(minus EndTime StartTime)
  25. LET Check=(mid Elapsed 1 1)
  26. if `%Check%' == `-' LET Elapsed=(plus Elapsed 720)
  27. echo Listen, %Name%, we've known each other for %Elapsed% minutes now,
  28. LET MayI=(upper (mid (ask "couldn't we be on a first-name basis? " 20) 1 1))
  29. if not `%MayI%' == `Y' goto UpTight
  30. LET Name=Fname
  31. echo Oh, thank you, %Name%, you don't know how that makes me feel!
  32. goto End
  33. :UpTight
  34. echo Very well, %Name%, if you insist.
  35. :End
  36. echo That's all I've got to show you, %Name%.
  37. set FirstName=
  38. set LastName=
  39. set Street=
  40. set City=
  41. set State=
  42. set Zip=
  43. set Now=
  44. set EndTime=
  45. set StartTime=
  46. set Elapsed=
  47. set Check=
  48. set MayI=
  49. set DB-File=
  50. set LastRec=
  51. set Rec=
  52. set Deleted=
  53.