home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 February / 64er_Magazin_91-02_1991_Markt__Technik_de_Side_A.d64 / flaggenquiz (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  1.2 KB  |  21 lines
  1. 1 z=1:poke53280,0:poke53281,15:a$="argentinien":q=14:w=1:e=14:gosub10:q=0:e=2
  2. 2 a$="obervolta":gosub10:a$="oesterreich":q=2:gosub10:a$="ungarn":e=5:gosub10
  3. 3 a$="bolivien":w=7:gosub10:a$="aethiopien":q=5:e=2:gosub10:a$="gabun":e=6
  4. 4 gosub10:a$="sierra leone":w=1:gosub10:q=6:a$="el salvador":gosub10:z=2:w=7
  5. 5 a$="tschad":e=2:gosub10:a$="frankreich":w=1:gosub10:a$="guatemala":e=6:gosub10
  6. 6 q=2:e=2:a$="peru":gosub10:a$="italien":q=5:gosub10:a$="mali":w=7:gosub10:q=2
  7. 7 e=5:a$="guinea":gosub10:a$="irland":q=5:w=1:e=8:gosub10:a$="elfenbeinkueste"
  8. 8 q=8:e=5:gosub10:a$="nigeria":q=5:gosub10:z=1:a$="libyen":w=5:gosub10:q=0:w=2
  9. 9 e=7:a$="deutschland":gosub10:z=2:w=7:e=2:a$="belgien":gosub10:goto16
  10. 10 poke53280,0:print"[147][144]    flaggenquiz by n.-c. eckardt!!!":ifz=2then14
  11. 11 poke646,q:fori=1to5:print"                                   ":nexti
  12. 12 poke646,w:fori=1to5:print"                                   ":nexti
  13. 13 poke646,e:fori=1to5:print"                                   ":nexti:goto17
  14. 14 fori=1to15:poke646,q:print"              ";:poke646,w:print"         ";
  15. 15 poke646,e:print"         ":nexti:goto17
  16. 16 print"[147]von"s"fragen hast du"n"richtig beant-":print" wortet!":end
  17. 17 print"[144]":input"  laendername";z$:print"";:s=s+1:ifz$=a$then19
  18. 18 print" falsch - ";:poke199,0:print a$:goto20
  19. 19 print"richtig!!!!!!!!!!!!!!!":forv=1to99:poke53280,15*rnd(0):nextv:n=n+1
  20. 20 poke53280,0:fort=1to1500:nextt:return
  21.