home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1992 August
/
64er_Magazin_92-08_1992_Markt__Technik_de_Side_A.d64
/
symbolica
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
871b
|
21 lines
1 print"[147]":fori=1to10:reads$(i):nexti:fori=1to10:reads1(i):nexti:g=40
2 l=1:goto 6
3 z1=int(10*rnd(1))+1:w=s1(z1):poke1957,w:print" punkte:";p;" level:";l
4 fori=1to16:poke53280,i:nexti:ifpeek(56320)<>111then4
5 fori=1to200:nexti:return
6 print"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
7 print"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
8 print" zu finden:";s$(z1):gosub3
9 z2=int(10*rnd(1))+1:n=0:b=s1(z2):z3=int(679*rnd(1))+1104:ifl=14then17
10 ify=10theng=g-2:l=l+1:gosub3:ifr2<5then17
11 ify=10thenr2=0:y=0
12 poke z3,b:ifb=wtheny=y+1:u=u+1
13 fori=1tog:ifpeek(56320)=111andn=0then15
14 nexti:pokez3,96:goto9
15 ifb<>wthenp=p-1:f=f+1:print" punkte:";p;" level:";l:n=1:goto14
16 p=p+1:r=r+1:print" punkte:";p;" level:";l:n=1:r2=r2+1:goto14
17 print"[147] game over":ifl=14thenprint" [147]sie haben gewonnen"
18 print" symbole :";u:print" richtig :";r:print" falsch :";f
19 print" insgesamt:";p:print" level :";l-1:end
20 data "[169]","[219]","[193]","[211]","[214]","[216]","[218]","[209]","[215]","[223]",105,91,65,83,86,88,90,81,87,95