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