10 REM Deutsch Hangman 20 REM James M.Cavanagh 30 REMEVAL15-Mar-1994EVAL06:02:50 180 200 MODE5:VDU23;8202;0;0;0; 210 REM 220 REM" 230 VDU29,0;208; 240 MEN=288:SCORE=0 250 UE=1096:VE=264:U=0:V=0:USED$="" 260 PROCPIC 270 RESTORE 280 REM NUMBER OF WORDS IN DATA 290 FOR N=1 TO RND(444) 300 READWORD$ 310 NEXT 320 L=LEN(WORD$) 330 PRINT"WORD HAS ";L;" LETTERS" 340 HANG$=STRING$(L,"-") 350 PRINT:PRINTHANG$ 360 K=INT((L/2)+RND(5)):remsteps=17:F=K 370 REPEAT 380 PRINTTAB(0,4)"REPRIEVE CHANCE ";F; 390 IFF<10THENPRINTCHR$(32); 400 *FX15,1 410 L$=GET$ 420 IF L$<"A" OR L$>"Z" THEN GOTO 400 430 USED=INSTR(USED$,L$) 440 IFUSED=0THENUSED$=USED$+L$ 450 FLAG=0 460 FORT=1TOL 470 IFL$=MID$(WORD$,T,1)ANDL$<>MID$(HANG$,T,1)THENVDU31,T-1,2:PRINTL$;:HANG$=LEFT$(HANG$,T-1)+L$+RIGHT$(HANG$,L-T):FLAG=1:SCORE=SCORE+10 480 NEXTT 490 IFFLAG=1THENPROCJUMP(U,V,1,2,3,1) 500 IFUSED=0ANDFLAG=0THENPROCUP 510 IFUSED>0THENSOUND1,-15,255,4 520 IFHANG$=WORD$THENPROCDOWN 530 PROCSCORE 540 UNTILHANG$=WORD$ORU=952 550 IFU=952THENMEN=MEN-144 560 IFMEN>=-144THEN250 570 CLS:INPUT"ANOTHER GAME (Y/N)?":K$=GET$ 580 IFK$="Y"THENRUN 600 END 610 620 DEFPROCPIC 630 CLS:CLG 640 Y=400 650 PROCSCORE 660 PROCGALLOWS 670 PROCNOOSE(952,264) 680 PROCTRAP1(1) 690 PROCMAN(U,V,1,2,3,1) 700 PROCMAN(UE,VE,1,3,2,1) 710 FORX=-144TOMENSTEP144 720 PROCMAN(X,Y,1,2,3,1) 730 NEXT 740 ENDPROC 750 760 DEFPROCUP 770 steps=INT(remsteps/K) 780 J=0 790 REPEAT:J=J+1 800 PROCRSTEP(U,V,1,2,3,1) 810 U=HORZ:V=VERT 820 IFU=784THENPROCLSTEP(UE,VE,1,3,2,1):UE=HORZ:VE=VERT 830 IFU=840THENPROCLARM1(UE,VE,0):PROCLARM2(UE,VE,2) 840 UNTILJ=stepsORU=952 850 remsteps=remsteps-steps 860 K=K-1:F=F-1 870 IFU=952THENPROCHANG 880 ENDPROC 890 900 DEFPROCDOWN 910 CLS:COLOUR2:PRINT"* CORRECT IT WAS *" 920 COLOUR3:PRINT'TAB(3);WORD$ 930 COLOUR1:PRINTTAB(3);STRING$(L,"_") 940 N=RND(16)*56:M=RND(5)*56 950 REPEAT 960 IFU<>0THENPROCLSTEP(U,V,1,2,3,1):U=HORZ:V=VERT 970 IFU=NORU=MTHENPROCJUMP(U,V,1,2,3,1) 980 UNTILU=0 990 PROCDELAY(50) 1000 PROCSOUND 1010 PROCDELAY(300) 1020 COLOUR3 1030 ENDPROC 1040 1050 DEFPROCLSTEP(X,Y,A,B,C,D) 1060 PROCLLEG1(X,Y,0,0) 1070 PROCLLEG2(X,Y,B,D) 1080 SOUND1,-15,53,1 1090 PROCDELAY(5) 1100 PROCRARM1(X,Y,0) 1110 X=X-48:PROCDELETE(X,Y):X=X-8 1120 IFX>=224ANDX<=840THENY=Y-24 1130 PROCMAN(X,Y,A,B,C,D) 1140 SOUND1,-10,53,1 1150 HORZ=X:VERT=Y 1160 ENDPROC 1170 1180 DEFPROCJUMP(X,Y,A,B,C,D) 1190 IFX>=224ANDX<=784THENPROCRARM1(X,Y,0):X=X-48:PROCDELETE(X,Y):X=X+48ELSEPROCDELETE(X,Y) 1200 Y=Y+32:PROCMAN(X,Y,A,B,C,D) 1210 SOUND1,-15,150,2 1220 PROCLLEG1(X,Y,0,0):PROCLLEG2(X,Y,B,D) 1230 PROCRLEG1(X,Y,0,0):PROCRLEG2(X,Y,B,D) 1240 SOUND1,-15,200,2 1250 PROCRARM1(X,Y,0):PROCRARM2(X,Y,C) 1260 PROCLARM1(X,Y,0):PROCLARM2(X,Y,C) 1270 SOUND1,-10,255,2 1280 PROCDELAY(8) 1290 PROCDELETE(X,Y):Y=Y-32 1300 PROCMAN(X,Y,A,B,C,D) 1310 ENDPROC 1320 1330 DEFPROCRSTEP(X,Y,A,B,C,D) 1340 PROCDELAY(20) 1350 PROCRLEG1(X,Y,0,0) 1360 PROCRLEG2(X,Y,B,D) 1370 SOUND1,-15,1,1 1380 PROCDELAY(15) 1390 IFX>=224ANDX<=784THENPROCLLEG1(X,Y,0,0):Y=Y+24 1400 PROCDELETE(X,Y) 1410 IFU=952THENPROCRARM1(U,V,3) 1420 PROCNOOSE(952,264) 1430 X=X+56 1440 PROCMAN(X,Y,A,B,C,D) 1450 SOUND1,-10,1,1 1460 HORZ=X:VERT=Y 1470 ENDPROC 1480 1490 DEFPROCHANG 1500 CLS:COLOUR1:PRINT"!! WRONG !! IT WAS " 1510 COLOUR2:PRINT'TAB(3);WORD$ 1520 COLOUR3:PRINTTAB(3);STRING$(L,"_") 1530 PROCNOOSE(U,V) 1540 PROCDELAY(100) 1550 PROCRSTEP(UE,VE,1,3,2,1) 1560 UE=HORZ:UV=VERT 1570 PROCDELAY(200) 1580 PROCRARM1(UE,VE,0) 1590 PROCRARM2(UE,VE,2) 1600 PROCDELAY(200) 1610 PROCRARM2(UE,VE,0) 1620 PROCRARM1(UE,VE,2) 1630 VDU18,0,3:MOVE1224,420:PLOT1,0,-72 1640 SOUND0,-15,5,1 1650 PROCDELAY(50) 1660 PROCTRAP1(0) 1670 PROCTRAP2(1) 1680 SOUND0,-15,6,2 1690 PROCDELETE(U,V) 1700 VDU18,0,2:MOVE1016,424:PLOT1,0,-200 1710 V=V-200 1720 PROCNOOSE(U,V) 1730 PROCMAN(U,V,1,2,3,1) 1740 PROCNOOSE(U,V) 1750 SOUND0,-15,4,1 1760 FORK=1TO3 1770 PROCLLEG1(U,V,0,0) 1780 PROCLLEG2(U,V,2,1) 1790 PROCDELAY(5) 1800 PROCLLEG2(U,V,0,0) 1810 PROCLLEG1(U,V,2,1) 1820 PROCRLEG1(U,V,0,0) 1830 PROCRLEG2(U,V,2,1) 1840 PROCDELAY(5) 1850 PROCRLEG2(U,V,0,0) 1860 PROCRLEG1(U,V,2,1) 1870 NEXT K 1880 PROCTUNE 1890 PROCDELAY(500) 1900 ENDPROC 1910 1920 DEFPROCBODY(X,Y,A,B,C) 1930 GCOL0,C:MOVEX+48,Y+72:PLOT0,32,0:PLOT81,0,44:PLOT0,-32,-44:PLOT81,0,44:GCOL0,B:MOVEX+48,Y+56:PLOT0,32,0:PLOT81,0,12:PLOT0,-32,-12:PLOT81,0,12:GCOL0,A:MOVEX+56,Y+128:PLOT0,16,0:PLOT81,0,20:PLOT0,-16,-20:PLOT81,0,20:PLOT0,8,-28:PLOT1,0,4 1940 ENDPROC 1950 1960 DEFPROCLLEG1(X,Y,B,D) 1970 GCOL0,B:MOVEX+48,Y+8:PLOT0,8,0:PLOT81,0,44:PLOT0,-8,-44:PLOT81,0,44:GCOL0,D:MOVEX+40,Y:PLOT0,16,0:PLOT81,0,4:PLOT0,-16,-4:PLOT81,0,4 1980 ENDPROC 1990 2000 DEFPROCRLEG1(X,Y,B,D) 2010 GCOL0,B:MOVEX+72,Y+8:PLOT0,8,0:PLOT81,0,44:PLOT0,-8,-44:PLOT81,0,44:GCOL0,D:MOVEX+72,Y:PLOT0,16,0:PLOT81,0,4:PLOT0,-16,-4:PLOT81,0,4 2020 ENDPROC 2030 2040 DEFPROCLARM1(X,Y,C) 2050 GCOL0,C:MOVEX+40,Y+104:PLOT0,-40,-40:PLOT81,0,12:PLOT0,40,40:PLOT81,0,-12 2060 ENDPROC 2070 2080 DEFPROCRARM1(X,Y,C) 2090 GCOL0,C:MOVEX+88,Y+104:PLOT0,40,-40:PLOT81,0,12:PLOT0,-40,40:PLOT81,0,-12 2100 ENDPROC 2110 2120 DEFPROCLLEG2(X,Y,B,D) 2130 GCOL0,B:MOVEX+16,Y+56:PLOT0,24,0:PLOT81,0,12:PLOT0,-24,-12:PLOT81,0,12:PLOT0,0,-36:PLOT0,8,0:PLOT81,0,20:PLOT0,-8,-20:PLOT81,0,20:GCOL0,D:MOVEX+8,Y+24:PLOT0,16,0:PLOT81,0,4:PLOT0,-16,-4:PLOT81,0,4 2140 ENDPROC 2150 2160 DEFPROCRLEG2(X,Y,B,D) 2170 GCOL0,B:MOVEX+88,Y+56:PLOT0,24,0:PLOT81,0,12:PLOT0,-24,-12:PLOT81,0,12:PLOT0,16,-36:PLOT0,8,0:PLOT81,0,20:PLOT0,-8,-20:PLOT81,0,20:GCOL0,D:MOVEX+104,Y+24:PLOT0,16,0:PLOT81,0,4:PLOT0,-16,-4:PLOT81,0,4 2180 ENDPROC 2190 2200 DEFPROCLARM2(X,Y,C) 2210 GCOL0,C:MOVEX+40,Y+104:PLOT0,-40,40:PLOT81,0,12:PLOT0,40,-40:PLOT81,0,-12 2220 ENDPROC 2230 2240 DEFPROCRARM2(X,Y,C) 2250 GCOL0,C:MOVEX+88,Y+104:PLOT0,40,40:PLOT81,0,12:PLOT0,-40,-40:PLOT81,0,-12 2260 ENDPROC 2270 2280 DEFPROCDELETE(X,Y) 2290 GCOL0,0:MOVEX,Y:PLOT0,136,0:PLOT81,0,156:PLOT0,-136,-156:PLOT81,0,156 2300 ENDPROC 2310 2320 DEFPROCGALLOWS 2330 LOCALX,Y:Y=0 2340 FORX=320TO880STEP56 2350 GCOL0,2:MOVEX,Y:MOVE1279,Y:PLOT85,1279,Y+20:MOVEX,Y:PLOT85,X,Y+20 2360 Y=Y+24 2370 NEXTX 2380 GCOL0,0:MOVE908,260:PLOT1,0,-232:PLOT81,200,0:PLOT0,0,232:PLOT81,-200,0 2390 FORX=1255TO1279STEP8 2400 GCOL0,2:MOVEX,264:PLOT1,0,416 2410 NEXTX 2420 PLOT0,-300,0:PLOT81,0,24:PLOT0,300,0:PLOT81,0,-24:PLOT0,0,-96:PLOT0,0,-24:PLOT81,-120,120:PLOT0,24,0:PLOT81,96,-96:PLOT0,-256,120:PLOT1,0,-280:GCOL0,3:MOVE1224,516:PLOT1,0,-96:MOVE1224,516:PLOT0,0,-8:PLOT81,16,0:PLOT0,0,8:PLOT81,-16,0 2430 ENDPROC 2440 2450 DEFPROCNOOSE(X,Y) 2460 GCOL0,2:MOVEX,Y:PLOT0,48,124:PLOT1,32,0:PLOT1,0,32:PLOT1,-32,0:PLOT1,0,-32 2470 ENDPROC 2480 2490 DEFPROCMAN(X,Y,A,B,C,D) 2500 PROCBODY(X,Y,A,B,C) 2510 PROCLLEG1(X,Y,B,D) 2520 PROCRLEG1(X,Y,B,D) 2530 PROCLARM1(X,Y,C) 2540 PROCRARM1(X,Y,C) 2550 ENDPROC 2560 2570 DEFPROCTRAP1(A) 2590 GCOL0,A:MOVE908,260:PLOT0,200,0:PLOT81,-200,-16:PLOT0,200,16:PLOT81,0,-16 2610 ENDPROC 2620 2630 DEFPROCTRAP2(A) 2640 GCOL0,A:MOVE1108,244:PLOT0,0,-200:PLOT81,-16,200:PLOT0,0,-200:PLOT81,16,0 2650 ENDPROC 2660 2670 DEFPROCDELAY(T) 2680 DELAY=TIME+T 2690 REPEAT 2700 UNTILTIME>=DELAY 2710 ENDPROC 2720 2730 DEFPROCSCORE 2740 VDU28,0,4,19,1 2750 @%=00000009 2760 IFSCORE>H%THENH%=SCORE 2770 PRINT" HI-SCORE";SPC4;"SCORE" 2780 PRINTH%,SCORE 2790 VDU28,0,31,19,27 2800 ENDPROC 2810 2820 DEFPROCTUNE 2830 D=5:V=-12 2840 FORP=149TO5STEP-48 2850 SOUND1,V,P,D 2860 SOUND2,V,P+12,D 2870 SOUND2,V,P+28,D 2880 NEXT 2890 D=20:V=-15 2900 SOUND1,V,53,D*3 2910 SOUND2,V,65,D*2 2920 SOUND3,V,77,D 2930 SOUND3,V,81,D*3 2940 SOUND2,V,61,D*2 2950 SOUND1,V,49,D 2960 D=10 2970 SOUND1,V,53,D*6 2980 SOUND2,V,69,D 2990 SOUND3,V,81,D*6 3000 SOUND2,V,73,D 3010 SOUND2,V,69,D 3020 SOUND2,V,61,D 3030 SOUND2,V,69,D*2 3040 ENDPROC 3050 3060 DEFPROCSOUND 3070 V=-12:D=10 3080 SOUND1,V,33,D*5 3090 SOUND2,V,49,D*3 3100 SOUND3,V,61,D 3110 SOUND3,V,21,D 3120 SOUND3,V,25,D 3130 SOUND2,V,53,D*2 3140 SOUND3,V,5,D*2 3150 ENDPROC 3160 : 3170 DATA ABEND,ABFAHREN,ANFANGEN,ANKOMMEN,ANPROBIEREN,ANSTELLEN,APFEL,ARBEITEN,ARBEITSTAG,ARZNEISCHRANK,AUGENBLICK,AUSBILDUNG,AUSGEZEICHNET,AUSSTEIGEN,AUSVERKAUFT,AUTOBAHN,BAUEN,BAUERHOF,BAUM,BEDEUTUNGEN,TECHNIK,KULTUR,KLASSIK,INTERAKTIV,DIALOG,PROZESSOR 3180 DATA BERUF,BESTELLEN,BEVORZUGEN,BILLIG,BIRNE,BLAU,BLEIBEN,BLUME,BRAUN,BRIEFFREUND,BRIEFMARKE,BRINGEN,BRUDER,BUCH,BUCHHANDLUNG,BUCHHANDLUGEN,BUNT,DEIN,DENKEN,DEUTSCH,DICK,DIRIGENTEN,DISKUTIEREN,DOPPEL,MUSIK,KLEINERE,WURDE,SITZEN,EINEM,WANDELT,AUFGRUND 3190 DATA DREIECK,DRINNEN,DUNKEL,DUSCHE,ECKEN,EIMER,EINSTEIGEN,ELEFANT,ERINNERN,ESSEN,EULE,FAHREN,FAHRRAD,FALLEN,FAMILIE,FERNSEHEN,FESTSPIEL,FERNSEHER,FINDEN,FISCH,FLIEGEN,FLUGZEUG,FRAGEN,FRAU,FREUNDLICH,GEMEINSAM,TOTALE,TRACHTER,VERSCHICKEN,RELATIV 3200 DATA FROSCH,FRAULEIN,DANKE,FRUSTRIEREND,GABEL,GASTHOF,GEBRAUCHEN,GEBURTSTAG,GEHEN,GEKLEIDET,GELB,GELD,GESCHNITTEN,GESCHWISTER,GESCHWOMMEN,GESELLSCHAFTEN,GESELLSCHAFT,GESUND,GESUNDHEIT,GLAUBEN,GOTTESDIENST,BRANDNEUEN,ECHTES,JETZT,KNACKEN,ERREICHEN 3210 DATA GOTTESDIENSTE,HABEN,HAFEN,HALTEN,HALTESTELLE,HANDGEMACHT,HAUPTSTADT,HAUS,HELFEN,HEMD,HERGESTELLT,HERRLICH,HERSTELLEN,HIMBEERE,HINTER,HOCH,HOFFEN,HOSE,HUND,IMMER,JAHR,JAHRESZEIT,JUNG,KALT,KAUFEN,KAUFHAUS,DIESEM,GEDULDIG,BRINGT,ANGEBOTEN,SEIT 3220 DATA KIND,KINDER,KIRCHE,KLEIDUNG,KLEIN,KONDITOREI,KONVENTIONELL,KOSTEN,KRANK,KUCHEN,KUH,LACHEN,LAMPE,LANDSCHAFT,LANG,LANGSAM,LASTWAGEN,LAUT,LEBENSMITTEL,LECKER,LESEN,LEUTE,LIEBEN,MAGENSCHMERZEN,MALEN,MANN,LEICHTE,MINUTEN,SCHWERER,FLACHE,EINZELNEN 3230 DATA MANTEL,MARKTPLATZ,MAUER,MEIN,MIKROFON,MILCH,MITARBEITER,MITGEHOLFEN,MITGLIEDER,MONAT,MORGEN,NACHSCHAUEN,NACHT,NACHTISCH,NEHMEN,NEU,NUMMER,OHRENSCHMERZEN,PARKEN,PARKHAUS,PARKPLATZ,PFARRER,PFERD,PFIRSICH,PINSEL,PLATZ,GELEGT,VERLIEHENEN,WETTERKARTE 3240 DATA POSTKARTE,PROBIEREN,RATHAUS,RECHNEN,RENNEN,RESTAURIEREN,RINDFLEISCH,ROT,RUNDFAHRT,SAHNE,SAUBER,SAUBERMACHEN,SAUER,SCHAF,SCHAUSPIELER,SCHEIBEN,SCHEIDEN,SCHEINEN,SCHILD,SCHINKEN,SCHIRM,SCHLAFEN,SCHLECHT,KOMPLEXE,JEDOCH,BESCHRIEBEN,BEDIENT,STELLTEN 3250 DATA SCHLUSSEL,SCHMECKEN,SCHMETTERLING,SCHMUTZIG,SCHNEEMANN,SCHNELL,SCHOKOLADE,SCHREIBEN,SCHULE,SCHWARZ,SCHWEIN,SCHWESTER,SCHWESTERN,SCHWIERIG,SCHWIMMEN,SELBSTGEMACHT,SICHER,SINGEN,SOHN,SOLLEN,SONNE,SONNTAG,MITTWOCH,DONNERSTAG,FRIETAG,SAMSTAG,LAUFEN 3260 DATA SPATEN,SPAZIERENGEHEN,SPAZIERGANG,SPEISEKARTE,SPIEGEL,SPIELEN,SPRECHEN,SPRECHSTUNDE,SPRINGEN,STADT,STADTPLAN,STADTTHEATER,STARK,STATTGEFUNDEN,STEHEN,STINKEN,STUHL,STUNDE,SUCHEN,SUPERMARKT,TANKSTELLE,DESSEN,GESCHONT,SEINEN,WURDE,AUSGEZEICHNET 3270 DATA TANKWART,TANZEN,TASSE,TELEFON,TISCH,TOCHTER,TOMATE,TREFFPUNKT,TRINKEN,TROCKEN,TROMPETE,TULPE,UMGEBUNGEN,UMSTEIGEN,UNTER,UNTERBRECHEN,UNTERBROCHEN,UNVERHEIRATET,URLAUB,VERANTWORTLICH,VERBINDEN,VEREINE,MATHEMATIK,HEUTE,MORGEN,VORSCHAU,MONTAG,DIENSTAG 3280 DATA VERGESSEN,VERHEIRATET,VERKAUFEN,VERLIEREN,VERSCHIEDEN,VERSUCHEN,VIELLEICHT,VIERTEL,VIERTELSTUNDE,VORMITTAG,VORSPEISE,VORSTELLUNG,WANDERUNGEN,WANN,WARM,WASCHEN,WASSER,WATEN,WECHSELHAFT,WECKER,WEIHNACHTEN,WERFEN,WERKTAGS,WETTER,WIEVIEL,WIRTSCHAFT 3290 DATA WOCHE,WOCHENENDE,WOCHENTAG,WOHNUNG,WOLLEN,WUNDERBAR,ZAHLEN,ZAHNARZT,ZEICHNEN,ZEIGEN,ZEITSCHRIFT,ZUG,DERZEITIGEN,BISLANG,GELINGEN,KONNTE,MINDESTENS,VERLASSEN,TOTALE,EBENFALLS,EMPFANGBAR,RICHTIGEN,ENTDECKEN,STARTEN,NACHRICHTEN,WISSENSCHAFT,GENERELL 3300 DATA KATZE,MEDEZIN,HUNDE,BRAUCHT,ERZOGEN,KATZEN,TECHNOLOGIE,PHYSIK,BIOLOGIE,MUTTER,VATER,SCHLAFEN,VORGEHALTEN,VERDANKE,AUSTEILEN,STEHE,UNBEKANNTER,ERWISCHT,POLIZEI,DUFTENDES,DUFTENDEN,SORGEN,NACHDEM,AKTIV,AUFGERUFEN,BUNDESWEIT,STAMMENDE,BEKANNTESTEN 3310 DATA ERZIELT,DIREKT,BETREFFEN,RICHTEN,BITTE,ERHIELT,ZUGLEICH,KRITIK,GEBILLIGT,WARNUNG,SIEHE,ABBAUEN,TEILTE,JETZT,WIEDER,LAUFENDEN,REZESSION,POSITIVEN,RECHNET,KEINE,DREI,WENIGER,VERBESSERT,WEITERER,AUCH,THEATER,GIBT,GEEIGNET,BESONDERER,BEGANN,GEBOTEN 3320 DATA ABSOLUT,SCHALTET,ANSTELLE,ENTLASTET,SOLLEN,WERDEN,VERLASSEN,LETZTEN,BEIZUTRAGEN,ERSCHOSSEN,STARBEN,GEWONNEN,AUFGENOMMEN,VERMITTELN,SCHWINDEN,SCHULE,LEBENDIG,KLAMMERN,VERKRAFTEN