5 Buchstabige Wörter Raten Falls die Position eines Buchstaben stimmt, wird sie kurz angezeigt.

Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

    1 REM *WORDS* eagle SOFTWARE
    2 GOTO 1999
    3 REM
   10 ABORTBHKFUNKELVUHAUBEGHUHEBEL
   11 HECKEUMHGERTETPSMANKORTGMAPPE
   12 OSTENOFOOTTEROEHSUMPFQJCSPURT
   13 LIANEOVCJEANSQITBUSENTFASTART
   14 BULLEJEBBEULECHUSTROMEAXPAPST
   15 GARDEIRGKOMETFOHKOKONRCHKOHLE
   16 LURCHPUBLORKEUFOLOTSEPGHORKAN
   17 OPIUMAMPRIESEVHOROMANHSXRIPPE
   18 SEKTEWUTSEELEGULSEGENOSRSEGEL
   19 WERFTEOVWELLEUTIZECHEVBMWOLLE
   20 ABENDEFKABSUDPGDACKERBMFAFTER
   21 AGENTLNUAHORNUGFALARMISVALIBI
   22 ALLEEDMBALTARPIJAMPELTUVANGEL
   23 ANGERQULANGSTOTAANKERFAVANMUT
   24 ANODEHBIANZUGTSTAPFELKQHAPRIL
   25 ARCHENWXARMUTWOBAROMAVLCARSCH
   26 ASCHECCFASPIKHDSASSELENCATLAS
   27 AUTORRPWBACHEJTOBACKECOFBAHRE
   28 BANDESGFBARBEJVUBARKEFSXBARON
   29 BASISIKRBASARBIJBAUCHROHBAUDE
   30 BAUERVFEBEERESWVBEHUFVEJBELEG
   31 BETONJOPBEUTEVIVBIBELTHWBIENE
   32 BIRNEKUTBINSESBSBIRKERMJBIWAK
   33 BLATTNINBLECHFTSBLITZWTQBLOCK
   34 BLUSEMHIBODENNCPBOMBEIJOBONZE
   35 BORKEEJOBOWLEIVOBOXERLKLBRAUE
   36 BRETTVGPBRIGGIDABRISECGBBUCHT
   37 CHAOSFRUCHLORCBOCLOWNAHQCREME
   38 DACHSCMLDAMPFFVMDATUMEHMDAUNE
   39 DEICHHJQDEKANCTQDELLEWNGDELTA
   40 DIELEAVWDINERLHWDIRNEHDWDIWAN
   41 DOCHTGWRDOGGELVIDOGMAOMTDOLCH
   42 DOSISJDKDRAHTSORDRECKWJKDUELL
   43 DUNSTHCXDUSELMOFECHSEUQLEDIKT
   44 EICHETRIEIFERHOXEIMERGLUEISEN
   45 ENGELRDKENKELEMLERNTEDIJERKER
   46 ERPELCRSESCHEQJCESSIGOOBETAGE
   47 ETHIKIPQEUTERJMBFABELCJCFAHNE
   48 FALKENSTFARBEASBFASANUSNFASER
   49 FAUSTHIFFAXENTMNFAZITHDKFEHDE
   50 FEIERBWTFEIGEUPEFIBELVWXFILET
   51 FILOUCMXFINTEKONFIRMAHLGFISCH
   52 FLIRTPCXFORKEFCPFOYERJNUFRONT
   53 FUDERICFFURIERBIFUSELABCGATTE
   54 GALLEHTGGASSEUEDGEISTLRIGEMSE
   55 GELEEIJGGILDELNEGICHTOOFGLANZ
   56 GLEISVWXGRUBEPQFGUANODWHGURKE
   57 HADERFTGHAFERAHAHALLEQBKHAREM
   58 HECHTNJIHENNEMPIHERDENHGHEUER
   59 HITZEBODHONIGPEJHORSTUHEHOTEL
   60 HYMNEVIBIDIOTNJQINSELCCJJUBEL
   61 JOPPEBMFJOLLEJAVJUWELPGDKABEL
   62 KADERLVMKAJAKHBIKAKAOSPMKALIF
   63 KAMELPVAKAMINLKDKANONLSHKAPPE
   64 KARATSNGKARTERBEKATZEJLWKEGEL
   65 KELLEKFSKETTEIKVKIEPEPLCKIMME
   66 KLAUEIEPKLEIEEVOKLIMAWDEKNALL
   67 KNIFFDJQKODEXNTGKOLIKWJKKONTO
   68 KOPIEHCXTORSOMOFKORSOUQLKRAUT
   69 KRAXETRIKREUZHOXKRIMIGLUKRONE
   70 KRUMERDKKUGELEMLKUNSTDIJLACHS
   71 LAMPECRSLEDERQJCLENDEOOBLUXUS
   72 MAGENIPQMAGIEJMBMAJORCJCMASKE
   73 MATTENSTMEILEASBMEMMEUSNMILBE
   74 MIENEHIFMINNETMNMINZEHDKMOLCH
   75 MOLLEBWTMORALUPEMOTORVWXMUCKE
   76 MUMPSCMXMUHMEKONNADELHLGNACHT
   78 NARBEPCXNEFFEFCPNEBELJNUNELKE
   79 NONNEICFNOCKERBINOTARABCNULPE
   80 OCHSEHTGOHEIMUEDONKELLRIOPTIK
   81 OZEANIJGPACHTLNEPAKETOOFPANIK
   82 PARTYVWXPASTEPQFPEDALDWHPENNE
   83 PFALZFTGPFLUGAHAPILOTQBKPLAGE
   84 PLANENJIPO[KEMPIPOLKANHGPORTO
   85 PRIEMBODPROLOPEJPRUNKUHEPULLE
   86 QUALMVIBQUARKNJQQUARZCCJQUELL
   90 RACHEBMFRADARJAVRADIOPGDRADAU
   91 RAPPELVMRASSEHBIRATTESPMRAUCH
   92 RECKEPVAREGENLKDREICHLSHREUSE
   93 RICKESNGROBBERBEROLLEJLWROGEN
   94 ROTTEKFSROUTEIKVRUDELPLCRUMPF
   95 SAHNEIEPSALATEVOSALONWDESATAN
   96 SATINDJQSCHAMNTGSCHEUWJKSCHMU
   97 SCHUHHCXSITTEMOFSONNEUQLSPEER
   98 STALLTRISTEINHOXSTOCKGLUSTROH
   99 STUHLRDKTABAKEMLTADELDIJTAFEL
  100 TALARCRSTALERQJCTANTEOOBTASSE
  101 TAUBEIPQTEINTJMBTENNECJCTENOR
  102 TORSONSTTORTEASBTRAUMUSNTREUE
  103 TROSTHIFTRUHETMNTUSCHHDKVATER
  104 VIPERBWTFIBERUPEWACHSVWXWAISE
  105 WALZECMXWANGEKONWANNEHLGWEDEL
  106 WERFTPCXWESPEFCPWIESEJNUWITWE
  107 WODKAICFWRACKRBIWURSTABCZANGE
  108 ZEBRAHTGZIEGEUEDZINNELRIZITAT
  109 ZUBERIJGZUTATLNEZWISTOOFZWECK
 1999 O=9
 2000 REM LISTSCH.
 2050 J=0;U=0
 2100 OUT.12
 2105 PR.' all rights reserved by eagle'
 2106 IF O>7PR.;PR.;PR.;PR.;GOTO2200
 2107 IF O=1PR.;PR.' record one   s u p e r';PR.;PR.
 2108 IF O=2PR.;PR.' record two';PR.;PR.
 2109 IF O=3 PR.;PR.' record three';PR.;PR.
 2110 IF O=4 PR.;PR.' record four';PR.;PR.
 2111 IF O=5 PR.;PR.' record five';PR.;PR.
 2112 IF O=6 PR.;PR.' record six';PR.;PR.
 2113 IF O=7 PR.;PR.' record seven';PR.;PR.
 2200 PR.'   W O R D S'
 2210 PR.'   ~~~~~~~~~'
 2220 PR.;PR.
 2230 PR.
 2240 X=RND(384)
 2250 X=X-1
 2320 X=X*8
 2330 X=X+HEX(1183)
 2400 FOR I=0 TO4
 2410 POKE HEX(F0)+I,PEEK (X+I)
 2420 NEXTI
 2500 PR.'      < LOOK'
 2501 PR.;PR.
 2505 PR.;PR.
 2506 J=J+1
 2507 IFJ=8FORI=1TO8;OUT.9;NEXTI
 2508 IFJ=8PR.'last chance'
 2509 IFJ=8FORI=1TO32;OUT.8;NEXTI
 2510 I$(TOP)
 2511 IF LEN<5 FORI=1TO32;OUT.8;NEXTI;FORI=1TO8;OUT.9;NEXTI
 2512 IF LEN<5 PR.'missing letters'
 2513 IF LEN<5 FORI=1TO32;OUT.8;NEXTI;GOTO2507
 2514 FORI=0TO4;POKEHEX(F0)+I,PEEK(X+I);NEXTI
 2515 F=0;R=0
 2520 FOR I=0TO4
 2530 P=PEEK(TOP+I)
 2540 Q=PEEK(X+I)
 2550 IF P=Q R=R+1;POKEHEX(F0)+I,160
 2555 IF P=Q  POKE (TOP+I),161
 2560 IF P=Q POKEHEX(ED40)+I,Q
 2565 IFP=QFORU=1TO130;NEXTU;POKE HEX(ED40)+I,32
 2570 NEXTI
 2580 IF R>3 GOTO2800
 2600 FOR I=0 TO4
 2610 Q=PEEK(TOP+I)
 2620 FOR V=0TO4
 2630 P=PEEK(HEX(F0)+V)
 2650 IF P=Q F=F+1;POKE HEX(F0)+V,160
 2655 IF P=Q Q=161
 2660 NEXTV
 2700 NEXTI
 2800 FORI=1 TO 24;OUT.8;NEXTI
 2850 IF R=0 IF F<1 GOSUB5000;GOTO3600
 2999 IF R=0 GOTO 3115
 3000 FOR I=1TOR
 3100 OUT.42
 3110 NEXTI
 3115 IF F<1 GOTO3200
 3120 FORI=1TOF
 3130 OUT.46
 3140 NEXTI
 3200 IFR=5FORI=0TO4;OUT.8;NEXTI
 3210 IFR=5PR.'correct'
 3220 IFR=5FORI=1TO17;OUT.8;NEXTI;GOTO3700
 3600 GOSUB(J*100+7000);IFR<5 IF J<8 GOTO2505
 3650 GOTO2000
 3700 FORI=0TO4
 3710 FOR A=0TO4
 3720 POKE HEX(ED40)+A,32
 3730 NEXTA
 3740 FOR A=0TO4
 3750 POKE HEX(ED40)+A,PEEK(X+A)
 3760 NEXTA
 3770 NEXTI
 3771 IF J<O O=J
 3772 GOSUB9000
 3776 U=INCHAR
 3780 GOTO2000
 4000 PR.;STOP
 5000 OUT.110;OUT.111;OUT.116;OUT.32
 5050 OUT.102;OUT.111;OUT.117;OUT.110;OUT.100
 5100 RETURN
 7000 STOP
 7100 FORI=HEX(EDDE)TOHEX(ECFE)STEP-32
 7110 POKE I,198
 7120 NEXTI
 7199 RETURN
 7200 FORI=HEX(ECFE)TOHEX(EC3E)STEP-32
 7210 POKEI,198
 7220 NEXTI
 7299 RETURN
 7300 FORI=HEX(EC5F)TOHEX(EC5B)STEP-1
 7310 POKEI,197
 7320 NEXTI
 7399 RETURN
 7400 FORI=HEX(EC5B)TOHEX(EC56)STEP-1
 7410 POKEI,197
 7420 NEXTI
 7499 RETURN
 7500 POKEHEX(ECBD),191
 7510 POKEHEX(EC9D),143
 7520 POKEHEX(EC9C),191
 7525 GOSUB8000
 7530 POKEHEX(EC7C),143
 7540 POKEHEX(EC7B),191
 7599 RETURN
 7600 POKEHEX(EDDB),152
 7610 POKEHEX(EDBB),153
 7620 POKEHEX(ED9C),152
 7630 POKEHEX(ED7C),153
 7640 POKEHEX(ED5D),152
 7650 POKEHEX(ED3D),153
 7699 RETURN
 7700 POKEHEX(EC79),159
 7710 POKEHEX(EC99),159
 7720 POKEHEX(ECB9),159
 7799 RETURN
 7800 POKEHEX(ECD8),129
 7810 POKEHEX(ECD9),128
 7820 POKEHEX(ECF8),158
 7830 POKEHEX(ECF9),193
 7840 POKEHEX(ED18),144
 7850 POKEHEX(ED19),145
 7852 FOR I=1TO10
 7854 POKEHEX(ED18),147
 7856 POKEHEX(ED19),150
 7857 POKEHEX(ECF9),145
 7858 POKEHEX(ECF8),144
 7865 IF I=10 GOSUB8000;GOSUB8000;GOSUB8000
 7870 POKE HEX(ED19),155
 7872 POKEHEX(ED18),153
 7874 POKEHEX(ECF8),153
 7875 POKEHEX(ECF9),155
 7876 NEXTI
 7896 GOSUB8100
 7898 U=INCHAR
 7899 RETURN
 8000 FORU=1TO100;NEXTU;RETURN
 8100 OUT.9;OUT.9
 8120 PR.'/PRESS TO ENT'
 8130 RETURN
 9000 FORI=HEX(EC55)TOHEX(EC5F);POKEI,32;NEXTI
 9100 FORI=HEX(EC3E)TOHEX(EDEE)STEP32;POKEI,32;NEXTI
 9110 FORI=0TO4;POKE(HEX(EC79)+(I*32)),32;NEXTI
 9120 X=HEX(EDDB);POKEX,32
 9130 POKE(X-32),32;POKE(X-63),32
 9140 POKE(X-95),32;POKE(X-126),32
 9150 POKE(X-158),32
 9200 IF J>5 GOTO9500
 9201 IF J<3 GOTO9551
 9202 X=HEX(ED15)
 9210 POKEX,174
 9220 POKE(X+32),171
 9230 POKE(X+33),172
 9240 POKE(X+1),173
 9250 POKE(X+2),159
 9260 POKE(X+34),159
 9270 POKE(X+66),159
 9280 POKE(X+98),159
 9290 POKE(X+129),130
 9300 POKE(X+97),152
 9310 POKE(X+65),153
 9315 POKEHEX(ED37),136
 9320 X=HEX(ED18)
 9330 POKE(X),174
 9340 POKE(X+32),171
 9350 POKE(X+33),172
 9360 POKE(X+1),173
 9370 IF X=HEX(ED18) X=HEX(ED1A);GOTO9330
 9375 POKEHEX(ED3C),130
 9380 IF X=HEX(ED1A) X=HEX(ED1D);GOTO9330
 9390 POKEHEX(ED1F),159
 9400 POKEHEX(ECFF),159
 9410 POKEHEX(ECDF),159
 9420 POKEHEX(ED3F),171
 9430 GOSUB8100;RETURN
 9500 X=HEX(ED18)
 9510 POKEX,174
 9512 POKE(X+32),171
 9514 POKE(X+33),172
 9516 POKE(X+1),173
 9518 POKE(X+34),192
 9520 POKE(X+2),192
 9522 POKE(X-30),192
 9524 POKE(X-62),192
 9528 POKE(X+3),144
 9530 POKE(X+35),156
 9550 GOSUB8100;RETURN
 9551 W=255
 9650 POKEHEX(ECCE),W
 9652 POKEHEX(ECCF),W
 9654 FORI=HEX(ECED)TOHEX(ED2D)STEP32;POKEI,W;NEXTI
 9655 POKEHEX(ECCD),190;POKEHEX(ED4D),191
 9656 POKEHEX(ED4E),W
 9658 POKEHEX(ED4F),W
 9660 FORI=HEX(ECD1)TOHEX(ED51)STEP32;POKEI,W;NEXTI
 9662 POKEHEX(ED12),W
 9664 FORI=HEX(ECD3)TOHEX(ED53)STEP32;POKEI,W;NEXTI
 9666 FORI=HEX(ED55)TOHEX(ECD5)STEP-32;POKEI,W;NEXTI
 9668 FORI=0TO2;POKEHEX(ECD5)+I,W;NEXTI
 9670 FOR I=HEX(ECD7)TOHEX(ED57)STEP32;POKEI,W;NEXTI
 9672 POKEHEX(ED16),W
 9674 FORI=HEX(ED59)TOHEX(ECD9)STEP-32;POKEI,W;NEXTI
 9676 POKEHEX(ECFA),W
 9678 FORI=HEX(ECDB)TOHEX(ED5B)STEP32;POKEI,W;NEXTI
 9680 POKEHEX(ECD9),143;POKEHEX(ECDB),190
 9682 FORI=HEX(ED5D)TOHEX(ECDD)STEP-32;POKEI,W;NEXTI
 9684 POKEHEX(ECDE),W;POKEHEX(ECFF),W;POKEHEX(ED1E),W
 9685 POKEHEX(ECDF),143;POKEHEX(ED1F),142
 9980 GOSUB8100
 9999 RETURN
10000 STOP
10080 STOP