1 / 100

string comments[5]

string comments[5]. string choices[4]. string enter_comment. string msgbase. string filearea. string other. integer counter. integer maxlength. ;-------------------------------------------. ; Initialize variables. ;-------------------------------------------. enter_comment = "Y".

duff
Télécharger la présentation

string comments[5]

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. string comments[5]

  2. string choices[4]

  3. string enter_comment

  4. string msgbase

  5. string filearea

  6. string other

  7. integer counter

  8. integer maxlength

  9. ;-------------------------------------------

  10. ; Initialize variables

  11. ;-------------------------------------------

  12. enter_comment = "Y"

  13. comments[0] = " "

  14. choices[1] = " @X0E1. @X0FEvery call"

  15. choices[2] = " @X0E2. @X0FFrequently"

  16. choices[3] = " @X0E3. @X0FRarely "

  17. choices[4] = " @X0E4. @X0FNot at all"

  18. msgbase = 4

  19. filearea = 4

  20. other = 4

  21. counter = 1

  22. maxlength = 72

  23. enter_comment = yeschar()

  24. ;

  25. ; Ask about message base usage

  26. ;

  27. println

  28. println "@X50²±° @X5F Message Bases @X50 °±²@X07"

  29. gosub PrintChoices

  30. inputstr "Which option best describes your use of the message bases on this system",msgbase,@X0A,1,"1234",fieldlen+lfbefore+lfafter

  31. msgbase = right(choices[msgbase],10)

  32. ;

  33. ; Ask about file area usage

  34. ;

  35. println

  36. println "@X50²±° @X5F File Areas @X50 °±²@X07"

  37. gosub PrintChoices

  38. inputstr "Which option best describes your use of the file areas on this system",filearea,@X0A,1,"1234",fieldlen+lfbefore+lfafter

  39. filearea = right(choices[filearea],10)

  40. ;

  41. ; Ask about usage of other features on the system

  42. ;

  43. println

  44. println "@X50²±° @X5F Other Features @X50 °±²@X07"

  45. gosub PrintChoices

  46. inputstr "Which option best describes your use of the other features of this system",other,@X0A,1,"1234",fieldlen+lfbefore+lfafter

  47. other = right(choices[other],10)

  48. ;

  49. ; Ask user if they want to enter additional comments

  50. ;

More Related