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