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