home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9102a.d64 / flaggenquiz (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  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.