home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd472 / quiz / emblem_quiz.amos / emblem_quiz.amosSourceCode
AMOS Source Code  |  1993-03-13  |  2KB  |  93 lines
  1. Rem =============================================
  2. Rem ===                                       ===
  3. Rem ===             Insignia Quiz             ===  
  4. Rem ===                                       ===
  5. Rem ===    Written Using AMOS  The Creator    ===
  6. Rem ===                                       ===
  7. Rem ===              by G Albrow              ===  
  8. Rem ===                                       ===
  9. Rem ===   Graphics produced with DPaint III   ===
  10. Rem ===                                       ===
  11. Rem =============================================  
  12. '
  13. '
  14. Dir$="df0:Quiz/IFF/"
  15. Global SCORE,QNS,FLAG$,COUNTRY$
  16. Flash Off : Curs Off : Hide 
  17. '  
  18. '
  19. Do 
  20.    '
  21.    Fade 4
  22.    PICK_FLAG
  23.    Load Iff FLAG$,0
  24.    Locate 2,2 : Print "Score: ";SCORE
  25.    Locate 15,2 : Print "Out of ";QNS
  26.    Locate 2,22 : Input "Enter the Country's name: ";COUNTRY$
  27.    COUNTRY$=Lower$(COUNTRY$) : FLAG$=Lower$(FLAG$)
  28.    If COUNTRY$="quit" Then Edit 
  29.    If COUNTRY$=FLAG$
  30.       Bell 
  31.       Inc SCORE
  32.    End If 
  33.    '
  34.    Inc QNS
  35.    '
  36. Loop 
  37. '
  38. Procedure PICK_FLAG
  39.    '
  40.    T=Rnd(45)+1
  41.    Restore(T)
  42.    '
  43.    Read FLAG$
  44.    '
  45.    1 Data "Hungary"
  46.    2 Data "Guyana"
  47.    3 Data "Indonesia"
  48.    4 Data "Japan"
  49.    5 Data "Transkei"
  50.    6 Data "Madagascar"
  51.    7 Data "Sweden"
  52.    8 Data "Poland"
  53.    9 Data "Greece"
  54.    10 Data "Switzerland"
  55.    11 Data "Tanzania"
  56.    12 Data "Iceland"
  57.    13 Data "Laos"
  58.    14 Data "Libya"
  59.    15 Data "Monaco"
  60.    16 Data "Chad"
  61.    17 Data "Bangladesh"
  62.    18 Data "Maldives"
  63.    19 Data "The Bahamas"
  64.    20 Data "Trinidad & Tobago"
  65.    21 Data "Luxembourg"
  66.    22 Data "Nigeria"
  67.    23 Data "Sierra Leone"
  68.    24 Data "Colombia"
  69.    25 Data "Ireland"
  70.    26 Data "Norway"
  71.    27 Data "Niger"
  72.    28 Data "Ethiopia"
  73.    29 Data "Mauritius"
  74.    30 Data "Afghanistan"
  75.    31 Data "Botswana"
  76.    32 Data "Mali"
  77.    33 Data "Cote d'lvoire"
  78.    34 Data "France"
  79.    35 Data "United Kingdom"
  80.    36 Data "The Sudan"
  81.    37 Data "Czechoslovakia"
  82.    38 Data "Gabon"
  83.    39 Data "Thailand"
  84.    40 Data "United Arab Emirates"
  85.    41 Data "Guinea"
  86.    42 Data "Italy"
  87.    43 Data "Spain"
  88.    44 Data "Federal Republic of Germany"
  89.    45 Data "The Netherlands"
  90.    46 Data "St. Vincent & Grenadines"
  91.    '
  92. End Proc
  93. '