home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_86-07_1986_Verlag_Heinz_Weise_de.d64 / ratefix (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  11KB  |  225 lines
  1. 5 ifpeek(50307)<>120then15
  2. 10 poke50257,0
  3. 15 l$(1)="tiere/pflanzen":l$(2)="erdkundliche begriffe"
  4. 20 l$(3)="geschichte/politik":l$(4)="natur/technik"
  5. 25 l$(5)="kunst/musik/literatur":l$(6)="sport/sportler"
  6. 30 l$(7)="englische begriffe":l$(8)="allgemeine begriffe"
  7. 35 l$(9)="sprichwoerter/sprueche"
  8. 40 a1$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  9. 45 zx$="[192]"+a1$+"[192]"
  10. 50 printchr$(142)chr$(8):ru=1:dima$(450),zu(450),ze(26):gosub150
  11. 55 r1$="       "
  12. 60 qw$="":q1$="":poke53280,0:poke53281,0:ifas=1then590
  13. 65 goto975
  14. 70 print"[147][158]  bereiche nacheinander waehlen !       "
  15. 75 forw=1to9:print""w".[150]"l$(w):next
  16. 80 print"[158]  nach der auswahl --> return druecken  "
  17. 85 getq$:ifq$="1"thenprint">[158]1":a(1)=1
  18. 90 ifq$="2"thenprint""qw$">[158]2":a(2)=1
  19. 95 ifq$="3"thenprint""qw$">[158]3":a(3)=1
  20. 100 ifq$="4"thenprint""qw$">[158]4":a(4)=1
  21. 105 ifq$="5"thenprint""q1$">[158]5":a(5)=1
  22. 110 ifq$="6"thenprint""q1$">[158]6":a(6)=1
  23. 115 ifq$="7"thenprint""q1$;qw$">[158]7":a(7)=1
  24. 120 ifq$="8"thenprint""q1$;qw$">[158]8":a(8)=1
  25. 125 ifq$="9"thenprint""q1$;qw$">[158]9":a(9)=1
  26. 130 ifq$=chr$(13)then140
  27. 135 goto85
  28. 140 f=0:forw=1to9:f=f+a(w):next:iff=0then85
  29. 145 goto660
  30. 150 forw=1to450:reada$(w):next:return
  31. 155 datakaninchen,pferd,hase,igel,kuh,schwein,eichhoernchen,kohlmeise,adler,wal
  32. 160 datatulpe,narzisse,buche,eiche,tanne,schachtelhalm,loewenzahn,laerche,bluete
  33. 165 dataloewenmaeulchen,frauenschuh
  34. 170 datakastanie,liguster,fingerhut,knollenblaetterpilz,champignon,zapfen
  35. 175 dataschwertlilie,teichrose,weinbergschnecke,feuersalamander,feldmaus
  36. 180 dataamaryllis,christusdorn,passionsblume,geranie
  37. 185 datagiraffe,amurtiger,kreuzotter,anaconda,marienkaefer,maikaefer,biber
  38. 190 dataackerwinde,kiefer,dinosaurier,eidechse,kaulquappe,laubfrosch,strauss
  39. 195 datanil,rhein,finnland,china,japan,ural,himalaya,indonesien,antarktis,koeln
  40. 200 dataessen,muenchen,new york,bayrischer wald,matterhorn,mount everest,arber
  41. 205 datakilimandscharo,aequator,greenwich,schottland,sylt,rotterdam,rotes meer
  42. 210 dataalpen,pyrenaeen,balkan,rockey mountains,popocatepetl,kap horn,feuerland
  43. 215 datakordilleren,aconcagua,spitzbergen,wolga,hawaii,australien,sahara,gobi
  44. 220 databodensee,victoriasee,schwarzes meer,mongolei,gelbes meer,neuseeland
  45. 225 datazugspitze,sankt helena,elba,sardinien,mallorca
  46. 230 datakarl der grosse,limes,alemannen,goten,dschingis khan,hanse,kleopatra
  47. 235 datamartin luther,christoph columbus,heinrich loewenherz,konrad adenauer
  48. 240 dataotto von bismarck,robespierre,paulskirche,caesar,montezuma,inka,azteken
  49. 245 datatut ench amun,hieroglyphen,keilschrift,huenengrab,neandertaler,xerxes
  50. 250 datapyramiden,hugenotten,mayflower,george washington,robin hood,santa maria
  51. 255 datafriedrich der grosse,die goldene horde,themistokles,tiberius,minos
  52. 260 datapeter der grosse,samurai,koenig artus,weimarer republik,nato,sokrates
  53. 265 databurgund,siegfried,nibelungen,walther von der vogelweide,minnesaenger
  54. 270 datakimbern und teutonen,sumerer,euphrat und tigris,samarkand
  55. 275 datavolt,ampere,ohm,kilowatt,aethanol,transistor,computer,schiesspulver
  56. 280 datapolysterol,nylon,kurbelwelle,zylinder,dieselmotor,ottomotor,destillation
  57. 285 dataschwefel,wasserstoff,molekuel,atom,lackmuspapier,indikator,auspuffrohr
  58. 290 dataalbert einstein,spiralbohrer,drehbank,justus von liebig,atomreaktor
  59. 295 datawerner von siemens,robert bosch,carl benz,nikolaus otto,zuendkerze
  60. 300 dataascorbinsaeure,vitamine,salzsaeure,bremsweg,rueckstoss,raketenantrieb
  61. 305 datahelium,uran,plutonium,zyankali
  62. 310 datadampfmaschine,kneifzange,vorschlaghammer,blasebalg,fotoapparat,farbfilm
  63. 315 datazuendkerzenschluessel,schraubstock
  64. 320 dataherbert von karajan,wolfgang amadeus mozart,ludwig van beethoven,floete
  65. 325 datadie beatles,elvis presley,rembrandt,le corbusier,auguste renoir
  66. 330 dataalbrecht duerer,kanon,oelgemaelde,schlager,refrain,violinschluessel
  67. 335 dataaquarell,vincent van gogh,sonate,jazzmusik,rockmusik,rhythmus,ballade
  68. 340 datajohann sebastian bach,kantate,schlager festival,hitparade,interpret
  69. 345 dataxylophon,posaune,hammond orgel,fagott,grand prix,schlagersaenger
  70. 350 dataorchester,dirigent,erster geiger,popgruppe,taktometer,klavier,malpinsel
  71. 355 dataradierung,aktfoto,modell stehen,naive malerei,scherenschnitt,novelle
  72. 360 dataroman,autobiographie,friedrich schiller,johann wolfgang von goethe
  73. 365 datafussball,eishockey,handball,volleyball,wasserball,badminton,fritz walter
  74. 370 datamanfred schnelldorfer,franz beckenbauer,sepp herberger,puck,halbzeit
  75. 375 datatrainer,stabhochsprung,erhard wunderlich,olympiasieger,nuerburgring,avus
  76. 380 dataweitspringen,boxen,ringrichter,hantel,motocross,elfmeter,foul,tennisball
  77. 385 datanordische kombination,biathlon,riesenslalom,catch as catch can,balljunge
  78. 390 datalinienrichter,satzball,masters turnier,dressurreiten,aufschlag,torlinie
  79. 395 datatontaubenschiessen,autorennen,champion,medaille,barrenturnen,reckstange
  80. 400 databodenturnen,salto mortale,knock out,gongschlag,rugby,wurfkreis,eckstoss
  81. 405 datahouse,traffic light,bobby,cambridge,traffic jam,ham and eggs,television
  82. 410 dataexercise-book,lesson,teacher,great britain,lion,chicken,bird,neighbour
  83. 415 datascotland yard,tower bridge,picture,underground,washing machine,brunch
  84. 420 dataferry,weather,spoon,tooth-brush,money-box,submarine,paint-brush,way-out
  85. 425 dataaccident,policeman,trafalgar square,aeroplane,airport,slot-machine,tram
  86. 430 datafountain,cyclist,post-office,cupboard,bus stop,railway,sunday,detective
  87. 435 datano smoking,keep smiling,litterbox,keep off,department store,big ben
  88. 440 dataautogarage,schranktuer,mauseloch,leuchtstofflampe,nylonstrumpf,kaffee
  89. 445 datatoaster,mikrowellenherd,radioapparat,putzlappen,abfalleimer,muelltonne
  90. 450 dataschnapsflasche,bierfass,erdbeertorte,eishoernchen,haustuer,freizeit
  91. 455 dataunterhose,buestenhalter,toilettenpapier,steckdose,bohrmaschine,limonade
  92. 460 datavideorecorder,zeichenblock,geschirrspueler,strassenlaterne,gully,glocke
  93. 465 dataautoreifen,witzbold,klaeranlage,staubsauger,lederhose,alleskleber,tinte
  94. 470 dataunterhemd,filzpantoffel,asphalt,gruene minna,thermostat,handmixer,tube
  95. 475 datatintenklecks,butterkeks,schokolade,praline,bonbon,grossmutter
  96. 480 dataohne fleiss kein preis,morgenstund hat gold im mund
  97. 485 datamuessigkeit ist aller laster anfang,hart aber herzlich
  98. 490 datasich regen bringt segen,wie du mir so ich dir,eine katze im sack kaufen
  99. 495 datagleich und gleich gesellt sich gern,boese menschen haben keine lieder
  100. 500 datareden ist silber schweigen ist gold,wer rastet der rostet
  101. 505 datader langen rede kurzer sinn,wie man sich bettet so liegt man
  102. 510 dataein unglueck kommt selten allein,alles paletti,geld stinkt nicht
  103. 515 datawo gehobelt wird fallen spaene,sein oder nicht sein
  104. 520 datablau wie ein veilchen,voll wie eine strandhaubitze
  105. 525 dataschnell wie ein blitz,dumm wie bohnenstroh,schlau wie ein fuchs
  106. 530 dataweiss wie schnee,rot wie blut,schwarz wie ebenholz,alles oder nichts
  107. 535 dataklein aber oho,mit dem kopf durch die wand gehen
  108. 540 datain die luft gehen,lieber arm als gar kein geld
  109. 545 datain die roehre gucken,das kind mit dem bad ausschuetten
  110. 550 datamit dem schicksal hadern,sich zwischen zwei stuehle setzen
  111. 555 datadas wort aus dem munde nehmen,mit den huehnern schlafen gehen
  112. 560 datasich aufs glatteis begeben,alles auf die goldwaage legen
  113. 565 dataarm wie eine kirchenmaus,nass wie eine katze,schwarz wie die nacht
  114. 570 datarund wie eine kugel,stur wie ein ochse,sanft wie ein lamm
  115. 575 dataluegen haben kurze beine
  116. 580 datawer einmal luegt dem glaubt man nicht,wer zuletzt lacht lacht am besten
  117. 585 datawie gewonnen so zerronnen,wer immer lacht wirkt laecherlich
  118. 590 print"[147][154] wieviele spieler ?[150] ";:la=1:gosub615:print
  119. 595 ka=val(ei$):ifka<1orka>4then590
  120. 600 forw=1toka:w$=str$(w)
  121. 605 print"[158]"w$".spieler : [153]";:la=10:gosub615:ka$(w)=ei$:next:goto1095
  122. 610 goto70
  123. 615 ei$="":poke204,0
  124. 620 getx$:ifx$=""then620
  125. 625 x=asc(x$):ifx=13andei$=""orx=20andei$=""then620
  126. 630 ifx=13thenprint" ":poke204,1:return
  127. 635 ifx=20thenprint" [157][157] [157]";:ei$=left$(ei$,len(ei$)-1)
  128. 640 ifx>46andx<59then650
  129. 645 ifx<65orx>90then620
  130. 650 iflen(ei$)=lathen620
  131. 655 ei$=ei$+x$:printx$;:goto620
  132. 660 forw=1to9:be=w
  133. 665 ifa(w)=1thena(w)=0:vw=50*(w-1):goto705
  134. 670 nextw:goto870
  135. 675 dr=dr+1:ifdr>kathendr=1:hv=hv+1
  136. 680 ifhv=3thenhv=0:dr=0:ru=ru+1:goto660
  137. 685 fr(dr)=fr(dr)+1
  138. 690 zu=int(-ti):zu=(50*rnd(0))+1:zu=int(zu)+vw
  139. 695 ifzu(zu)=1then690
  140. 700 zu(zu)=1:return
  141. 705 gosub675:ra$="":ti$="000000"
  142. 710 forw=1to26:ze(w)=0:next
  143. 715 poke53280,11:print"[147][158][176]"a1$"[174]"
  144. 720 print"[145][158][221]                                      [221]"
  145. 725 print"[145][158][173]"a1$"[189]":ifen=2thenreturn
  146. 730 ifen=1then745
  147. 735 print"[153] runde"ru"  [152]";
  148. 740 printl$(be):print"[129][183][183][183][183][183][183][183]"
  149. 745 print"[155] spieler        fehler        fragen"
  150. 750 print"[159]"zx$;
  151. 755 forw=1toka
  152. 760 iflen(ka$(w))<12thenka$(w)=ka$(w)+" ":goto760
  153. 765 next
  154. 770 forw=1toka:print"[154] "ka$(w)"  [150]"pu(w):next:print""q1$;
  155. 775 ifrl=1thengosub1120
  156. 780 forw=1toka:print""fr(w):next
  157. 785 print""q1$;qw$"[159][146]"zx$
  158. 790 print"[153]"ka$(dr)"   [154]fehler :[150]"fe:iffe>0then810
  159. 795 l=len(a$(zu)):print"[158]";:zu$=a$(zu):forw=1tolen(zu$):q$=mid$(zu$,w,1)
  160. 800 ifq$="-"orq$=" "thenprintq$;:l=l-1:nextw:goto810
  161. 805 print".";:next
  162. 810 iflen(ra$)=lthenbu=0:pu(dr)=pu(dr)+fe:fe=0:forw=1to2500:next:goto705
  163. 815 getx$:ifx$=""andval(ti$)>10thenfe=fe+1:va=40:gosub965:ti$="000000":goto785
  164. 820 ifx$=""then815
  165. 825 ifx$="_"thenprint"[158]"zu$:fe=fe+20:l=len(ra$):forw=1to1500:next:goto810
  166. 830 ti$="000000":x=asc(x$):ifx<65orx>90then810
  167. 835 ifze(x-64)=1thenva=40:gosub965:fe=fe+1:goto785
  168. 840 ze(x-64)=1:forw=1tolen(zu$):q$=mid$(zu$,w,1)
  169. 845 ifq$=x$thenra$=ra$+x$:bu=1:va=130:gosub965:gosub860
  170. 850 nextw:ifbu=0thenva=40:gosub965:fe=fe+1:goto785
  171. 855 bu=0:goto810
  172. 860 print"[158]";:forq=1tow:print"";:nextq:print"[157]"x$:return
  173. 865 print""q1$;q1$"*"
  174. 870 forw=1to2500:next:en=2:gosub710
  175. 875 ru$=str$(ru-1):print"endstand nach der"ru$".runde :":print
  176. 880 forw=1toka-1:forq=wtoka
  177. 885 ifpu(w)<pu(q)thennextq,w:goto895
  178. 890 h=pu(w):pu(w)=pu(q):pu(q)=h:h$=ka$(w):ka$(w)=ka$(q):ka$(q)=h$:nextq,w
  179. 895 print"[145]";:forw=1toka:print"[150]"w"[154]"ka$(w)"[153] "pu(w):next
  180. 900 print""q1$"[159]"zx$
  181. 905 print"[158]dem sieger beim ratefix"
  182. 910 na$=ka$(1):forw=1tolen(na$):q$=mid$(na$,w,1)
  183. 915 ifq$<>chr$(32)thennextw
  184. 920 na$=left$(na$,w-1)
  185. 925 l=int((10-len(na$))/2):goto940
  186. 930 print:print"[154]"q1$;qw$;"    ";
  187. 935 forw=1tol:print"[150]*[154]";:next:printna$;:forw=1tol:print"[150]*[154]";:next:return
  188. 940 print:print"[158]        herzlichen glueckwunsch"
  189. 945 forx=1to5:gosub930
  190. 950 forq=1to450:nextq:print""q1$;qw$"                      "
  191. 955 forq=1to450:nextq,x
  192. 960 clr:as=1:goto15
  193. 965 s=54272:forq=0to24:pokes+l,0:next:pokes+1,va:pokes+5,9:pokes+15,30
  194. 970 pokes+24,15:pokes+4,21:forq=1to100:next:pokes+4,20:return
  195. 975 print"[147]                [129]i[158]n[154]p[153]u[150]t [155]6[152]4":va=180:gosub965:forw=1to1000:next
  196. 980 print"              praesentiert :":gosub965:forw=1to1000:next:w=0
  197. 985 forq=1to48:f=f+1:poke646,f:iff=15thenf=1
  198. 990 print""qw$"                        "
  199. 995 print" "r1$"  "
  200. 1000 print" "r1$" "
  201. 1005 print"                 "
  202. 1010 print" [146][170]        "
  203. 1015 print" [146][182]"r1$"  "
  204. 1020 print"             [158]"
  205. 1025 getx$:ifx$<>""then590
  206. 1030 nextq:h$="ein spannendes spiel fuer jung und alt!":ifqw=1then985
  207. 1035 print"":forw=1tolen(h$):q$=mid$(h$,w,1):ifq$=" "thenprintq$;:next:goto1045
  208. 1040 print".";:next
  209. 1045 w$="abcdefghijklmnopqrstuvwxyz!"
  210. 1050 forw=1tolen(w$):h1$=mid$(w$,w,1)
  211. 1055 fora=1tolen(h$):h2$=mid$(h$,a,1)
  212. 1060 ifh1$=h2$thene$=e$+h1$:va=130:gosub965:goto1070
  213. 1065 nexta,w:goto1080
  214. 1070 print""q1$;qw$" ":forx=1toa:print"";:next:print"[157]"h1$
  215. 1075 goto1065
  216. 1080 print"[150]        von th.langenkamp (1986)":gosub965:forw=1to1000:next:w=0
  217. 1085 getx$:ifx$<>""then590
  218. 1090 qw=1:goto985
  219. 1095 print"[154]schwierigkeit :":print"[158]1.begriffe von links nach rechts"
  220. 1100 print"[158]2.begriffe von rechts nach links"
  221. 1105 getx$:ifx$="1"then610
  222. 1110 ifx$="2"thenrl=1:goto610
  223. 1115 goto1105
  224. 1120 a$="":forz=1tolen(a$(zu)):a$=mid$(a$(zu),z,1)+a$:next:a$(zu)=a$:return
  225.