1REM Intellectual Hangman 2REM James M.Cavanagh 3REM 04/05/1990 4ONERRORMODE7:VDU7:REPORT:PRINT" at line ";ERL:END 5MODE7:VDU23;8202;0;0;0; 6PRINT'''''' 7PRINT"            8PRINT"            9PRINT 10PRINT"               12: 13PRINT'' 14: 15 16PRINT"     17PRINT"     18A=INKEY(400):A=GET 100REM 110MODE5:VDU23;8202;0;0;0; 120REM *KEY0 MODE7|MLIST 2970,4000|MLI ST190|M 130REM" Large Word example 131REM" ( TELETRANSCRIPTION ) 140VDU29,0;208; 150MEN=288:SCORE=0 160UE=1096:VE=264:U=0:V=0:USED$="" 170PROCPIC 180RESTORE 185REM NUMBER OF WORDS IN DATA 190FORN=1TORND(363) 200READWORD$ 210NEXT 220L=LEN(WORD$) 230PRINT"WORD HAS ";L;" LETTERS" 240HANG$=STRING$(L,"-") 250PRINT:PRINTHANG$ 260K=INT((L/2)+RND(5)):remsteps=17:F=K 270REPEAT 280PRINTTAB(0,4)"REPRIEVE CHANCE ";F; 290IFF<10THENPRINTCHR$(32); 300*FX15,1 310L$=GET$ 311IF L$<"A" OR L$>"Z" THEN GOTO 300 320USED=INSTR(USED$,L$) 330IFUSED=0THENUSED$=USED$+L$ 340FLAG=0 350FORT=1TOL 360IFL$=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 370NEXTT 380IFFLAG=1THENPROCJUMP(U,V,1,2,3,1) 390IFUSED=0ANDFLAG=0THENPROCUP 400IFUSED>0THENSOUND1,-15,255,4 410IFHANG$=WORD$THENPROCDOWN 420PROCSCORE 430UNTILHANG$=WORD$ORU=952 440IFU=952THENMEN=MEN-144 450IFMEN>=-144THEN160 460CLS:INPUT"ANOTHER GAME (Y/N)?":K$=G ET$ 470IFK$="Y"THENRUN 480MODE7 490END 500 510DEFPROCPIC 520CLS:CLG 530Y=400 540PROCSCORE 550PROCGALLOWS 560PROCNOOSE(952,264) 570PROCTRAP1(1) 580PROCMAN(U,V,1,2,3,1) 590PROCMAN(UE,VE,1,3,2,1) 600FORX=-144TOMENSTEP144 610PROCMAN(X,Y,1,2,3,1) 620NEXT 630ENDPROC 640 650DEFPROCUP 660steps=INT(remsteps/K) 670J=0 680REPEAT:J=J+1 690PROCRSTEP(U,V,1,2,3,1) 700U=HORZ:V=VERT 710IFU=784THENPROCLSTEP(UE,VE,1,3,2,1) :UE=HORZ:VE=VERT 720IFU=840THENPROCLARM1(UE,VE,0):PROCL ARM2(UE,VE,2) 730UNTILJ=stepsORU=952 740remsteps=remsteps-steps 750K=K-1:F=F-1 760IFU=952THENPROCHANG 770ENDPROC 780 790DEFPROCDOWN 791CLS:COLOUR2:PRINT"* CORRECT IT WAS *" 792COLOUR3:PRINT'TAB(3);WORD$ 793COLOUR1:PRINTTAB(3);STRING$(L,"`") 800N=RND(16)*56:M=RND(5)*56 810REPEAT 820IFU<>0THENPROCLSTEP(U,V,1,2,3,1):U= HORZ:V=VERT 830IFU=NORU=MTHENPROCJUMP(U,V,1,2,3,1) 840UNTILU=0 850PROCDELAY(50) 860PROCSOUND 870PROCDELAY(300) 871COLOUR3 880ENDPROC 890 900DEFPROCLSTEP(X,Y,A,B,C,D) 910PROCLLEG1(X,Y,0,0) 920PROCLLEG2(X,Y,B,D) 930SOUND1,-15,53,1 940PROCDELAY(5) 950PROCRARM1(X,Y,0) 960X=X-48:PROCDELETE(X,Y):X=X-8 970IFX>=224ANDX<=840THENY=Y-24 980PROCMAN(X,Y,A,B,C,D) 990SOUND1,-10,53,1 1000HORZ=X:VERT=Y 1010ENDPROC 1020 1030DEFPROCJUMP(X,Y,A,B,C,D) 1040IFX>=224ANDX<=784THENPROCRARM1(X,Y, 0):X=X-48:PROCDELETE(X,Y):X=X+48ELSEPROC DELETE(X,Y) 1050Y=Y+32:PROCMAN(X,Y,A,B,C,D) 1060SOUND1,-15,150,2 1070PROCLLEG1(X,Y,0,0):PROCLLEG2(X,Y,B, D) 1080PROCRLEG1(X,Y,0,0):PROCRLEG2(X,Y,B, D) 1090SOUND1,-15,200,2 1100PROCRARM1(X,Y,0):PROCRARM2(X,Y,C) 1110PROCLARM1(X,Y,0):PROCLARM2(X,Y,C) 1120SOUND1,-10,255,2 1130PROCDELAY(8) 1140PROCDELETE(X,Y):Y=Y-32 1150PROCMAN(X,Y,A,B,C,D) 1160ENDPROC 1170 1180DEFPROCRSTEP(X,Y,A,B,C,D) 1190PROCDELAY(20) 1200PROCRLEG1(X,Y,0,0) 1210PROCRLEG2(X,Y,B,D) 1220SOUND1,-15,1,1 1230PROCDELAY(15) 1240IFX>=224ANDX<=784THENPROCLLEG1(X,Y, 0,0):Y=Y+24 1250PROCDELETE(X,Y) 1260IFU=952THENPROCRARM1(U,V,3) 1270PROCNOOSE(952,264) 1280X=X+56 1290PROCMAN(X,Y,A,B,C,D) 1300SOUND1,-10,1,1 1310HORZ=X:VERT=Y 1320ENDPROC 1330 1340DEFPROCHANG 1341CLS:COLOUR1:PRINT"!! WRONG !! IT WA S " 1342COLOUR2:PRINT'TAB(3);WORD$ 1343COLOUR3:PRINTTAB(3);STRING$(L,"`") 1350PROCNOOSE(U,V) 1360PROCDELAY(100) 1370PROCRSTEP(UE,VE,1,3,2,1) 1380UE=HORZ:UV=VERT 1390PROCDELAY(200) 1400PROCRARM1(UE,VE,0) 1410PROCRARM2(UE,VE,2) 1420PROCDELAY(200) 1430PROCRARM2(UE,VE,0) 1440PROCRARM1(UE,VE,2) 1451VDU18,0,3:MOVE1224,420:PLOT1,0,-72 1460SOUND0,-15,5,1 1470PROCDELAY(50) 1480PROCTRAP1(0) 1490PROCTRAP2(1) 1500SOUND0,-15,6,2 1510PROCDELETE(U,V) 1521VDU18,0,2:MOVE1016,424:PLOT1,0,-200 1530V=V-200 1540PROCNOOSE(U,V) 1550PROCMAN(U,V,1,2,3,1) 1560PROCNOOSE(U,V) 1570SOUND0,-15,4,1 1580FORK=1TO3 1590PROCLLEG1(U,V,0,0) 1600PROCLLEG2(U,V,2,1) 1610PROCDELAY(5) 1620PROCLLEG2(U,V,0,0) 1630PROCLLEG1(U,V,2,1) 1640PROCRLEG1(U,V,0,0) 1650PROCRLEG2(U,V,2,1) 1660PROCDELAY(5) 1670PROCRLEG2(U,V,0,0) 1680PROCRLEG1(U,V,2,1) 1690NEXT K 1700PROCTUNE 1710PROCDELAY(500) 1720ENDPROC 1730 1740DEFPROCBODY(X,Y,A,B,C) 1751VDU18,0,C:MOVEX+48,Y+72:PLOT0,32,0: PLOT81,0,44:PLOT0,-32,-44:PLOT81,0,44:VD U18,0,B:MOVEX+48,Y+56:PLOT0,32,0:PLOT81, 0,12:PLOT0,-32,-12:PLOT81,0,12:VDU18,0,A :MOVEX+56,Y+128:PLOT0,16,0:PLOT81,0,20:P LOT0,-16,-20:PLOT81,0,20:PLOT0,8,-28:PLO T1,0,4 1760ENDPROC 1770 1780DEFPROCLLEG1(X,Y,B,D) 1791VDU18,0,B:MOVEX+48,Y+8:PLOT0,8,0:PL OT81,0,44:PLOT0,-8,-44:PLOT81,0,44:VDU18 ,0,D:MOVEX+40,Y:PLOT0,16,0:PLOT81,0,4:PL OT0,-16,-4:PLOT81,0,4 1800ENDPROC 1810 1820DEFPROCRLEG1(X,Y,B,D) 1831VDU18,0,B:MOVEX+72,Y+8:PLOT0,8,0:PL OT81,0,44:PLOT0,-8,-44:PLOT81,0,44:VDU18 ,0,D:MOVEX+72,Y:PLOT0,16,0:PLOT81,0,4:PL OT0,-16,-4:PLOT81,0,4 1840ENDPROC 1850 1860DEFPROCLARM1(X,Y,C) 1871VDU18,0,C:MOVEX+40,Y+104:PLOT0,-40, -40:PLOT81,0,12:PLOT0,40,40:PLOT81,0,-12 1880ENDPROC 1890 1900DEFPROCRARM1(X,Y,C) 1911VDU18,0,C:MOVEX+88,Y+104:PLOT0,40,- 40:PLOT81,0,12:PLOT0,-40,40:PLOT81,0,-12 1920ENDPROC 1930 1940DEFPROCLLEG2(X,Y,B,D) 1951VDU18,0,B:MOVEX+16,Y+56:PLOT0,24,0: PLOT81,0,12:PLOT0,-24,-12:PLOT81,0,12:PL OT0,0,-36:PLOT0,8,0:PLOT81,0,20:PLOT0,-8 ,-20:PLOT81,0,20:VDU18,0,D:MOVEX+8,Y+24: PLOT0,16,0:PLOT81,0,4:PLOT0,-16,-4:PLOT8 1,0,4 1960ENDPROC 1970 1980DEFPROCRLEG2(X,Y,B,D) 1991VDU18,0,B:MOVEX+88,Y+56:PLOT0,24,0: PLOT81,0,12:PLOT0,-24,-12:PLOT81,0,12:PL OT0,16,-36:PLOT0,8,0:PLOT81,0,20:PLOT0,- 8,-20:PLOT81,0,20:VDU18,0,D:MOVEX+104,Y+ 24:PLOT0,16,0:PLOT81,0,4:PLOT0,-16,-4:PL OT81,0,4 2000ENDPROC 2010 2020DEFPROCLARM2(X,Y,C) 2031VDU18,0,C:MOVEX+40,Y+104:PLOT0,-40, 40:PLOT81,0,12:PLOT0,40,-40:PLOT81,0,-12 2040ENDPROC 2050 2060DEFPROCRARM2(X,Y,C) 2071VDU18,0,C:MOVEX+88,Y+104:PLOT0,40,4 0:PLOT81,0,12:PLOT0,-40,-40:PLOT81,0,-12 2080ENDPROC 2090 2100DEFPROCDELETE(X,Y) 2111VDU18,0,0:MOVEX,Y:PLOT0,136,0:PLOT8 1,0,156:PLOT0,-136,-156:PLOT81,0,156 2120ENDPROC 2130 2140DEFPROCGALLOWS 2150LOCALX,Y:Y=0 2160FORX=320TO880STEP56 2171VDU18,0,2:MOVEX,Y:MOVE1279,Y:PLOT85 ,1279,Y+20:MOVEX,Y:PLOT85,X,Y+20 2180Y=Y+24 2190NEXTX 2201VDU18,0,0:MOVE908,260:PLOT1,0,-232: PLOT81,200,0:PLOT0,0,232:PLOT81,-200,0 2210FORX=1255TO1279STEP8 2221VDU18,0,2:MOVEX,264:PLOT1,0,416 2230NEXTX 2241PLOT0,-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:VDU18,0,3:MO VE1224,516:PLOT1,0,-96:MOVE1224,516:PLOT 0,0,-8:PLOT81,16,0:PLOT0,0,8:PLOT81,-16, 0 2250ENDPROC 2260 2270DEFPROCNOOSE(X,Y) 2281VDU18,0,2:MOVEX,Y:PLOT0,48,124:PLOT 1,32,0:PLOT1,0,32:PLOT1,-32,0:PLOT1,0,-3 2 2290ENDPROC 2300 2310DEFPROCMAN(X,Y,A,B,C,D) 2320PROCBODY(X,Y,A,B,C) 2330PROCLLEG1(X,Y,B,D) 2340PROCRLEG1(X,Y,B,D) 2350PROCLARM1(X,Y,C) 2360PROCRARM1(X,Y,C) 2370ENDPROC 2380 2390DEFPROCTRAP1(A) 2400REM VDU18,0,A,25,4,908;260;25,0,200 ;0;25,81,-200;-16;25,0,200;16;25,81,0;-1 6; 2401VDU18,0,A:MOVE908,260:PLOT0,200,0:P LOT81,-200,-16:PLOT0,200,16:PLOT81,0,-16 2402 2410ENDPROC 2420 2430DEFPROCTRAP2(A) 2441VDU18,0,A:MOVE1108,244:PLOT0,0,-200 :PLOT81,-16,200:PLOT0,0,-200:PLOT81,16,0 2450ENDPROC 2460 2470DEFPROCDELAY(T) 2480DELAY=TIME+T 2490REPEAT 2500UNTILTIME>=DELAY 2510ENDPROC 2520 2530DEFPROCSCORE 2540VDU28,0,4,19,1 2550@%=00000009 2560IFSCORE>H%THENH%=SCORE 2570PRINT" HI-SCORE";SPC4;"SCORE" 2580PRINTH%,SCORE 2590VDU28,0,31,19,27 2600ENDPROC 2610 2620DEFPROCTUNE 2630D=5:V=-12 2640FORP=149TO5STEP-48 2650SOUND1,V,P,D 2660SOUND2,V,P+12,D 2670SOUND2,V,P+28,D 2680NEXT 2690D=20:V=-15 2700SOUND1,V,53,D*3 2710SOUND2,V,65,D*2 2720SOUND3,V,77,D 2730SOUND3,V,81,D*3 2740SOUND2,V,61,D*2 2750SOUND1,V,49,D 2760D=10 2770SOUND1,V,53,D*6 2780SOUND2,V,69,D 2790SOUND3,V,81,D*6 2800SOUND2,V,73,D 2810SOUND2,V,69,D 2820SOUND2,V,61,D 2830SOUND2,V,69,D*2 2840ENDPROC 2850 2860DEFPROCSOUND 2870V=-12:D=10 2880SOUND1,V,33,D*5 2890SOUND2,V,49,D*3 2900SOUND3,V,61,D 2910SOUND3,V,21,D 2920SOUND3,V,25,D 2930SOUND2,V,53,D*2 2940SOUND3,V,5,D*2 2950ENDPROC 2960 2970DATA ABANDONED,ABATEMENT,ABDOMINOUS ,ABBREVIATION,ABSOLUTE,ABSTINENCE,ACCELE RATE,ACCOUNTANT,ACCOUNTABLE,ACROBATICS,A CUPUNCTURE,ADAPTATION,ADDITION,ADDITIONA L,ADDRESS,ADHERENT,ADHESIVE,ADJECTIVE,AD JOINING,ADJUSTMENT,ADMINISTRATION,ADMIRA BLE 2980DATA ADVENTURE,ADVOCATE,AESTHETIC,A FFECTED,AFFINITY,AFFIRMITIVE,AFFLATUS,AF FLICTION,AGGLOMERATE,AGGLUTINATE,AGGRESS ION,AGRIEVE,AGITATOR,AGROPHOBIA,AILMENT, ALCHEMIST,ANONYMOUS,ALCOHOLOMETER 2990DATA BACCARAT,BACCHANEL,BACCIFEROUS ,BACCIVOROUS,BACHELOR,BACTERIA,BADMINTON ,BAILIFF,BALANCE,BALALAIKA,BANNISTERS,BA MBOOZLE,BARRISTER,BARRIER,BENEVOLENCE,BE NGALINE,BENZENE,BETROTHAL,BILLIONAIRE,BI LLING,BIOGRAPHY,BIOLOGICAL,BLITHERING,BL OCKADE 3000DATA BLOCKADE,BLOCKBUSTER,BLOSSOM,B LOOMED,BLOOMER,BLOTTER,BOARDER,BOASTFUL, BODILESS,BOILED,BOISTEROUS,BOISTEROUSNES S,BOISTEROUSLY,BROTHER,BULLETIN,BULLDOZE R,BUREAUCRACY 3010DATA CABINET,CABRIOLE,CABRIOLET,CAC OGRAPHY,CALLIGRAPHY,CANOROUSNESS,CARNIVO ROUSLY,CARNIVOROUSNESS,CELESTIAL,CELIBAT E,CELLULAR,CELLULOSE,CENTRALIZE,CELEBRAT ION,CHAMELEON,CHAMBERLAIN,CHEMICAL,CHITA RRONE,CHURLISH,CIRCUIT,CIRCUMLUNAR 3020DATA CIRCUMNAVIGATE,CIRCUMNUTATE,CE RCUMLOCUTION,CIRCUMFLEX,CIVILIZATION,CLA MOUR,CLAIRVOYANT,CLASSIFIED,CLASSICAL,CL EMENCY,CLUMSINESS,COHERENCE,COLLAPSIBLE, COLLECTIVE,COLLECTION,COMPROMISE,COMPRES SION,CRYSTALISATION,CURRICULUM 3030DATA DANGEROUSLY,DANGLING,DAUGHTER, DECAFFEINATE,DECANDENCE,DECALCOMANIA,DEC ALESCENCE,DECELERATE,DECLARATION,DIFFUSI ON,EUPHONIUM,EUPHONIZE,EUTHANASIA,EBULLI ENT,ECCENTRICITY,ECCLESIASTIC,ECONOMICAL ,EDITORIAL,EFFECTIVENESS,EFFICIENCY 3040DATA FORTUNATE,FEROCIOUSNESS,FANTAS TICALLY,FANTASTICALITY,FASCINATION,FASCI NATIVE,FASCINATING,FEDERATION,FELICITATI ON,FLUCTUATION 3050DATA GALACTIC,GALLOPING,GALLOWS,GAL VANIZE,GALVINIZATION,GASTRONOMER,GASTRON OMY,GASTRULATION,GENERALIZATION,GHENERAT ION 3060DATA HYPERMARKET,HYPERMETER,HYPNOTI SATION,HYPERSONIC,HOOLIGANISM,HONORARY,H ONEYCOMB,HONEYSUCKLE,HELPLESSNESS,HEBEPH RENIA 3070DATA ILLUSIONIST,ILLUSTRATE,ILLUSTR ATION,IMAGINARY,IMAGINATION,IMAGINATIVE, IMMACULATE,IMMANENT,IMMACULATE,IMMORTALI ZE,IMMOVEABLE 3080DATA KALEIDOSCOPE,KERATOGENOUS,KINA ESTHESIA,KINEMATICS,KNITTING,KNOWLEDGE,K NOWLEDGEABLE,KRYPTON,KYMOGRAPH 3090DATA LABYRINTH,LACERATION,LACKADAIS ICAL,LEGIONARY,LEGISLATION,LEGISLATIVE,L ENGTHEN,LEVITATION,LIBERTICIDE,LIBRARIAN SHIP 3100DATA MANIFESTATION,MALFUNCTION,MALF EASANCE,MALICIOUSNESS,MATERIALISTIC,MATH EMATICAL,MATHEMATICIAN,MICROSCOPICAL,MIS CHIEVOUS,MISDEMEANOUR 3110DATA NATIONALISATION,NATIONALITY,NE GLIGIBLE,NEGOTIABLE,NEGOTIATION,NERVOUSN ESS,NICKELODEON,NICKELOUS,NIGHTINGALE,NU MERATION 3120DATA OBSESSION,OBJECTIVE,OBLITERATI ON,OBLIVION,OBLIVIOUS,OBSERVANCE,OBSERVA TORY,OPERATIONAL,OPPORTUNITY,ORDINANCE 3130DATA PALISADES,PALLADIUM,PANDEMONIU M,PANORAMIC,PARADOXICAL,PARAGRAPH,PARAMI LITARY,PROLETARIAN,PASSIONATE,PASTEURIZA TION 3140DATA QUESTIONABLE,QUIXOTIC,QUORUM,Q UOTATION,QUESTIONNAIRE,QUINQUEREME,QUINC ENTENARY,QUINQUAPARTITE,QUINQUENNIAL,QUA TERNITY 3150DATA READABILITY,READINESS,RAVELMEN T,RAVENING,RAVENOUS,RAVIOLI,REACTIVATION ,REASSURING,REASSURANCE,RECEIVABLE 3160DATA SANQUINARINESS,SUPERSATURATED, SATURATION,SAXICOLOUS,SAXIFRAGACEOUS,SAX OPHONIST,SCAVENGER,SCHIZOPHRENIA,SCYPHIF ORM,SEISMOGRAPH,SEGMENTATION,SEXTUPLICAT E,SHUTTERING,SUZERAIN,SYLLOGIZE 3170DATA TERMINATION,TERMINOLOGY,TECHNI CALITY,TECHNOLOGY,TECHNOSTRUCTURE,TEENYB OPPER,TECHNOGRAPHY,TAXIDERMIST,TAZZA,TEL ETRANSCRIPTION,TETRASYLLABIC,TEXTUALISM, THUNDERSTONE,THUNDERSTORM,THUNDERSTRUCK, THUNDEROUS,THYRATON,THYRISTOR,TOXEMAEMIA ,TYRANNICIDE 3180DATA UBIQUITOUS,UXORIOUS,UXORICIDE, URTICATION,USEABILITY,URANOGRAPHY,URBANI ZATION,URNING,UNIFORMITARIANISM,ULTIMOGE NITURE 3190DATA VINCIBLE,VALETUDINARIAN,VAPORI ZER,VARIOLATE,VAUDVILLE,VELOCIPEDE,VENTR ICLE,VENOMOUS,VERDIGRIS,VITREOUS,VIVIPAR OUS,VIVISECTION,VIZARD,VOCABULARY,VOCATI ONAL,VOCATION,VACATION,VULCANIZE,VULTURI NE,VULGARIAN 3200DATA WALLOPING,WAREHOUSEMAN,WEATHER COCK,WHIMSICAL,WHISKER,WHISKY,WHORTLEBER RY,WICKERWORK,WRIGGLE,WRITHE,WYVERN,WRIN KLE 3210DATA XENIA,XENON,XENOPHILE,XYLOGRAP H,XYLOPHONE,XYSTER,XYLOTOMOUS,XIPHOID,XI PHISTERNUM,XENOGLOSIA 3220DATA YARMULKE,YEARNING,YEARLING,YTE RBIUM,YURT 3230DATA ZELOUS,ZENITH,ZILLION,ZODIAC,Z ONATION,ZOOPHAGOUS,ZUCCHETTO,ZYGODACTYL, ZYGOMORPHIC,ZYMOMETER,ZYMURGY