Listing of file='HANGMAN' on disk='vmedia/more_games.wvd.zip'
# Sector 634, program filename = 'HANGMAN' 0010 REM *HANGMAN* : LOAD DC T#6,"GAMES" 0020 DIM A$(15)18,B$(13)18,C$(7)18,D$(2)18,W$18,K$1,W1$18,X$1 : N9=0 0030 REM %INITIALIZE STORAGE VARIABLES 0040 INIT(20)A$(),B$(),C$(),D$(),W$,W1$,K$ 0050 REM %GALLOWS & FIGURE 0060 A$(1)=HEX(2020202D2D2D2D2D2D2D2D2D2D2D2D2D2D49) : A$(2),A$(3),A$(6)=HEX(2020202E2020202020202020202020202049) : A$(4),A$(5)=HEX(20202E202E20202020202020202020202049) 0070 A$(7),A$(8),A$(9),A$(10),A$(11),A$(12),A$(13),A$(14)=HEX(2020202020202020 20202020202020202049) : A$(15)=HEX(202020202020202020492049204920492049) 0080 B$(1),B$(4)=HEX(20202020204F202020202020202020202049) : B$(2),B$(3)=HEX(2020204F2020204F20202020202020202049) : B$(5),B$(6),B$(7),B$(8)=HEX(202020202058202020202020202020202049) 0090 B$(9)=HEX(202020202320202020202020202020202049) : B$(10)=HEX(202020232020202020202020202020202049) : B$(11),B$(12)=HEX(202023202020202020202020202020202049) 0100 B$(13)=HEX(232323202020202020202020202020202049) : C$(1)=HEX(202320202058202020202020202020202049) : C$(2)=HEX(202323232358202020202020202020202049) : C$(3),C$(4)=B$(5) 0110 C$(5)=HEX(202020202320232020202323232020202049) : C$(6)=HEX(202020232020202320232020202020202049) : C$(7)=HEX(202023202020202023202020202020202049) 0120 D$(1)=HEX(202323232358232323232020202020202049) : D$(2)=HEX(202020202058202020232020202020202049) 0130 REM %WORD LIST 0140 DATA "MAIZE","OFFICE","SHOOT","WHITE","CENTIGRADE","DINOSAUR","ECOLOGY"," FUROR","UNDERMINE","CHURCH","POPULATION","NOTORIOUS","SAPPHIRE","SOMNOLEN T","TALLOW","CALLOW","FAMINE","UNREST" 0150 DATA "LATEEN","TOOTH","UPSET","HORSEPOWER","EXTRA","COMPUTER","ABORT","SC HOLASTIC","HONOR","FIRST","CALCULATION","HACK","ESSAY","RURAL","SECONDARY ","BROCHURE","CHAIN","BEACON","BARBEQUE" 0160 DATA "REINDEER","SUNSTROKE","TRIFLE","MARIJUANA","UNDERGROUND","SKELETON" ,"VERMIN","MOMENT","RHINOCEROS","SUCCESS","TRAIN","PESSIMIST","ISOLATE"," FAMOUS","GURU","OBJECTIVE","SLAUGHTER" 0170 DATA "SUMMARY","KNAVE","OBSCENE","UNKNOWN","IDIOT","SENSE","ISSUE","LEVER ","HORSESHOE","PUTRID","ELUDE","RENAISSANCE","SMITE","SANDWICH","VIGOR"," SENTIMENTAL","RALLY","KEEL","MOTTO" 0180 DATA "MIMEOGRAPH","MILLION","PUPIL","REPEAT","QUOTE","SOUSAPHONE","TEMPO" ,"JUDICIOUS","SNORT","GRUESOME","SENATOR","JUSTICE","DREAM","IRONY","RAVI OLI","NURSE","THING","TABERNACLE" 0190 DATA "TEMPERMENT","GRILL","HOBBY","PEPPER","PERSONNEL","PERSONIFY","HOSPI TAL","COMPLETED","SUBJECTIVITY" 0200 REM %LIST & ENTER OPTION 0210 PRINT HEX(03);"HANGMAN ---"; : FOR X=1TO 250 : NEXT X : PRINT "A WORD GAME." : FOR X=1TO 1000 : NEXT X 0220 PRINT "THERE ARE TWO WAYS TO PLAY: 1- YOU AGAINST THE 2200 (IT PICKS THE WORD, YOU TRY TO GUESS IT); 2- YOU AGAINST SOMEONE ELSE (YOU TAKE TURNS T YPING IN AND GUESSING THE WORD)." : PRINT 0230 PRINT "WHICH WOULD YOU LIKE TO PLAY (1 OR 2)?" 0240 KEYIN K$,250,40 : U=RND(1) : GOTO 240 0250 PRINT HEX(03);"PRESS 'EXECUTE' TO START GAME." : INPUT X$ 0260 IF K$>"2"THEN 230 : IF K$<"1"THEN 230 : CONVERT K$TO O : ON OGOTO 280,530 0270 REM %SELECT WORD 0280 A=INT(RND(1)*10) : IF A<1THEN 280 : IF A>10THEN 280 : FOR X=1TO INT(U*10) : Q=RND(1) : NEXT X 0290 B=INT(RND(1)*10) : IF B<1THEN 290 : IF B>10THEN 290 : C=(A*B)+INT(Q*10) : IF C<1THEN 280 : IF C>100THEN 280 0300 FOR W=1TO C : READ W$ : N9=N9+1 : IF N9>99THEN 310 : NEXT W : W=LEN(W$) : FOR X=1TO W : STR(W1$,X,1)=HEX(2D) : NEXT X : B=0 : GOTO 330 0310 N9=0 : RESTORE : NEXT W 0320 REM %DISPLAY & ENTRY 0330 PRINT HEX(030A) : FOR X=1TO 15 : PRINT TAB(44);A$(X) : NEXT X : K$=HEX(20) : PRINT HEX(01);W1$;HEX(0D0A0A); : INPUT "WHICH LETTER WOULD YOU LIKE TO TRY",K$ 0340 IF K$=HEX(20)THEN 330 : GOSUB 360 : GOTO 420 0350 REM %TEST FOR LETTER 0360 FOR X=1TO W : IF K$=STR(W$,X,1)THEN 380 : NEXT X 0370 PRINT "SORRY---THAT'S NOT USED IN YOUR WORD!" : B=B+1 : FOR X=1TO 1500 : NEXT X : RETURN 0380 FOR Y=1TO W : IF K$=STR(W$,Y,1)THEN 390 : NEXT Y : GOTO 400 0390 STR(W1$,Y,1)=STR(W$,Y,1) : NEXT Y 0400 PRINT HEX(03);"GOOD GUESS!" : PRINT W1$ : FOR Z=1TO 1500 : NEXT Z : RETURN 0410 REM %TEST FOR FINISHED 0420 P=POS(W1$=2D) : IF P=0THEN 570 0430 REM %BRANCH FOR FIGURE ELEMENT 0440 IF B=0THEN 330 : ON BGOTO 450,460,470,480,490,500 : GOTO 500 0450 FOR X=1TO 4 : A$(X+1)=B$(X) : NEXT X : A$(X+2)=A$(X+3) : GOTO 330 0460 FOR X=1TO 8 : A$(X+1)=B$(X) : NEXT X : GOTO 330 0470 FOR X=1TO 13 : A$(X+1)=B$(X) : NEXT X : GOTO 330 0480 FOR X=1TO 2 : A$(X+5)=C$(X) : NEXT X : GOTO 330 0490 FOR X=1TO 7 : A$(X+5)=C$(X) : NEXT X : GOTO 330 0500 FOR X=1TO 2 : A$(X+6)=D$(X) : NEXT X : PRINT HEX(03);"YOU LOSE!" : FOR X=1TO 5000 : NEXT X : PRINT HEX(03);W$;TAB(44);A$(1) 0510 FOR X=2TO 15 : PRINT TAB(44);A$(X) : NEXT X : PRINT HEX(010A0A0A0A);TAB(15);"BETTER LUCK NEXT TIME!" : PRINT : PRINT TAB(20);W$;HEX(01) : FOR X=1TO 9500 : NEXT X : GOTO 40 0520 REM %ENTER WORD 0530 PRINT HEX(03);"ENTER A WORD OF UP TO 18 LETTERS FOR YOUR OPPONENT TO TRY TO GUESS." 0540 INPUT "WHAT WORD WOULD YOU LIKE",W$ 0550 B=0 : W=LEN(W$) : FOR X=1TO W : STR(W1$,X,1)=HEX(2D) : NEXT X : GOTO 330 0560 REM %WIN DISPLAY 0570 PRINT HEX(030A0A0A);TAB(25);"YOU WIN!" : PRINT : PRINT W$ : FOR X=1TO 5000 : NEXT X : GOTO 40