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