home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 July / 64er_Magazin_91-07_1991_Markt__Technik_de_Side_A.d64 / tiere raten (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  1.7 KB  |  73 lines
  1. 10 print"[147]":rem tiere raten
  2. 20 print:print"   tiere raten"
  3. 30 print"   ***********"
  4. 40 print:print:print"  es sind tiere mit 5 buchstaben"
  5. 50 print:print"  zu erraten!"
  6. 60 print:print:print"  ich sage dir, wieviele buchstaben"
  7. 70 print:print"  stimmen und wieviele an richtiger"
  8. 80 print:print"  stelle stehen!"
  9. 90 print:print:print"  die buchstaben werden ohne"
  10. 100 print:print"  return-taste eingegeben!"
  11. 110 dimb$(250)
  12. 115 dataa,p,a,o,r,k,r,s,k,k,f,l,g,l,w,r,i,a,m,b,k,b,l,h,b
  13. 120 dataw,t,e,g,p,e,w,s,m,o,d,s,z,n,h,p,s,s,p,d,t,k,r,z,b
  14. 125 datad,f,s,t,a,r,a,t,a,r,u,a,e,o,a,a,l,m,e,u,a,a,u,e,i
  15. 130 datae,i,n,e,a,c,a,c,i,c,a,t,e,a,e,i,p,p,u,o,a,a,o,i,i
  16. 135 datal,e,s,t,u,a,l,u,t,e,c,c,m,e,n,t,t,s,i,l,t,c,c,c,e
  17. 140 datas,g,t,i,n,h,r,h,l,h,c,i,b,n,n,r,a,i,d,h,p,m,b,e,s
  18. 145 datae,r,e,e,p,k,l,t,z,b,h,h,s,w,z,t,i,e,s,l,e,h,h,h,n
  19. 150 datap,e,e,e,d,s,a,a,a,s,h,e,r,d,n,o,t,t,e,l,i,e,b,g,o
  20. 155 datar,d,l,r,e,e,e,e,e,s,s,s,e,e,e,e,s,l,e,e,r,e,s,t,e
  21. 160 datae,r,r,r,a,e,n,f,n,e,s,r,a,u,e,l,z,z,l,e,r,l,e,e,n
  22. 170 fori=1to250:readb$(i):nexti
  23. 180 printtab(30);:inputf1
  24. 200 print"[147]  wir spielen mit:"
  25. 210 forj=1to50
  26. 220 fori=jto250step50
  27. 230 printb$(i);
  28. 240 nexti
  29. 250 print"   ";
  30. 260 nextj
  31. 400 z=int(rnd(1)*50)+1
  32. 410 k=0
  33. 420 forj=zto250step50
  34. 430 k=k+1:r$(k)=b$(j)
  35. 440 nextj
  36. 450 print
  37. 460 fori=1to5:iff1=7thenprintr$(i);:nexti
  38. 462 fori=1to100:nexti:print"[157]";
  39. 464 fori=1to5:iff1=7thenprint" [146][157][157]";:nexti
  40. 470 print
  41. 480 print" vorschlag:";
  42. 490 rem eingabe und richtige stellen pruefen
  43. 500 fori=1to5
  44. 510 gett$(i):ift$(i)=""then510
  45. 520 printtab(12);t$(i);
  46. 530 ift$(i)=r$(i)thens=s+1
  47. 540 nexti
  48. 550 rem pruefen, ob es das tier gibt
  49. 560 foru=1to50
  50. 570 i=1:x=0
  51. 580 forb=uto250step50
  52. 590 ift$(i)=b$(b)thenx=x+1
  53. 600 i=i+1
  54. 610 nextb
  55. 620 ifx=5then670
  56. 630 nextu
  57. 640 print"   spielt nicht mit!"
  58. 650 s=0:t=0:fl=1:goto480
  59. 660 rem treffer zaehlen
  60. 670 fori=1to5
  61. 680 forj=1to5
  62. 690 ift$(i)=r$(j)thent=t+1:t$(i)="*":r$(j)="+"
  63. 700 nextj
  64. 710 nexti
  65. 720 rem auswertung
  66. 730 ifs=5then780
  67. 740 printtab(19)t;"treffer"
  68. 750 printtab(19)s;"an r. stelle"
  69. 760 v=v+1
  70. 770 t=0:s=0:fl=1:goto410
  71. 780 print:printtab(25)"das ist es!"
  72. 790 printtab(24)v+1;"versuche"
  73.