home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / zest_question_input.amos / zest_question_input.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-09  |  489 b   |  26 lines
  1. ' Question Entry Program 
  2. '  for ZEST by Andrew Welsh
  3. '
  4. Screen Open 0,640,100,4,Hires
  5. Cls 0
  6. Paper 0
  7. Global AN$,ANS$
  8. Open Random 1,"Various_Source:Module-1"
  9. Field 1,100 As QUEST$,50 As ANS$
  10. '
  11. N=30 : Rem the number of questions already entered !! 
  12. '
  13. QU=0
  14. Do 
  15. IN:
  16.  Print "Total Questions = :",N
  17.  Print "Questions Entered So Far :",QU
  18.  Input "Question : ";QUEST$
  19.  Exit If QUEST$=""
  20.  Input "Answer : ";ANS$
  21. Input "Are YOU Sure ?";X$
  22. If(X$="N") or(X$="n") Then Goto IN
  23. Put 1,N
  24. Inc N
  25. QU=QU+1
  26. Loop