BCG101/port/HANG.BAS

  10 REM *** GAME OF HANGMAN BY DAVE AHL, DIGITAL
  15 REM *** BASED ON A PROGRAM WRITTEN BY KEN AUPPERLE, CLASS OF '75,
  20 REM *** HALF HOLLOW HILLS H.S., DIX HILLS, NY
  25 PRINT"GAME OF HANGMAN"\PRINT\PRINT
  30 DIM P$(12,12),L$(20),D$(20),N$(26),U(50),A(6)
  40 C=1\RANDOMIZE\N=27
  50 FOR I=1 TO 20\D$(I)="-"\NEXT I\M=0
  60 FOR I=1 TO 26\N$(I)=""\NEXT I
  70 FOR I=1 TO 12\FOR J=1 TO 12\P$(I,J)=" "\NEXT J\NEXT I
  80 FOR I=1 TO 12\P$(I,1)="X"\NEXT I
  90 FOR I=1 TO 7\P$(1,I)="X"\NEXT I\P$(2,7)="X"
  95 IF C<N THEN 100\PRINT "YOU DID ALL THE WORDS!!"\STOP
 100 Q=INT(N*RND(1)+1)
 110 IF U(Q)=1 THEN 100\U(Q)=1\C=C+1\RESTORE\T1=0
 150 FOR I=1 TO Q\READ A$\NEXT I
 155 CHANGE A$ TO A
 160 L=A(0)\A(0)=1\FOR I=1 TO L\A(1)=A(I)\CHANGE A TO L$(I)\NEXT I
 170 PRINT"HERE ARE THE LETTERS YOU USED:"
 180 FOR I=1 TO 26\PRINT N$(I);\IF N$(I+1)="" THEN 200
 190 PRINT ",";\NEXT I
 200 PRINT\PRINT\FOR I=1 TO L\PRINT D$(I);\NEXT I\PRINT\PRINT
 210 PRINT "WHAT IS YOUR GUESS";\INPUT G$\R=0
 220 FOR I=1 TO 26\IF N$(I)="" THEN 250
 230 IF G$<>N$(I) THEN 240\PRINT "YOU GUESSED THAT LETTER BEFORE!"\GOTO 170
 240 NEXT I\PRINT "PROGRAM ERROR.  RUN AGAIN."\STOP
 250 N$(I)=G$\T1=T1+1
 260 FOR I=1 TO L\IF L$(I)=G$ THEN 280
 270 NEXT I\IF R=0 THEN 290\GOTO 300
 280 D$(I)=G$\R=R+1\GOTO 270
 290 M=M+1\GOTO 400
 300 FOR I=1 TO L\IF D$(I)="-" THEN 320
 310 NEXT I\GOTO 390
 320 PRINT\FOR I=1 TO L\PRINT D$(I);\NEXT I\PRINT\PRINT
 330 PRINT "WHAT IS YOUR GUESS FOR THE WORD";\INPUT B$
 340 IF B$=A$ THEN 360
 350 PRINT"WRONG.  TRY ANOTHER LETTER."\PRINT\GOTO 170
 360 PRINT"RIGHT!!  IT TOOK YOU"T1"GUESSES!"
 370 PRINT "WANT ANOTHER WORD";\INPUT W$\IF W$="YES" THEN 50
 380 PRINT\PRINT"IT'S BEEN FUN!  BYE FOR NOW."\STOP
 390 PRINT"YOU FOUND THE WORD!"\GOTO 370
 400 PRINT\PRINT\PRINT"SORRY, THAT LETTER ISN'T IN THE WORD."
 410 ON M GOTO 415,420,425,430,435,440,445,450,455,460
 415 PRINT"FIRST, WE DRAW A HEAD"\GOTO 470
 420 PRINT"NOW WE DRAW A BODY"\GOTO 470
 425 PRINT"NEXT WE DRAW AN ARM"\GOTO 470
 430 PRINT"THIS TIME IT'S THE OTHER ARM"\GOTO 470
 435 PRINT"NOW, LET'S DRAW THE RIGHT LEG"\GOTO 470
 440 PRINT"THIS TIME WE DRAW THE LEFT LEG"\GOTO 470
 445 PRINT"NOW WE PUT UP A HAND"\GOTO 470
 450 PRINT"NEXT THE OTHER HAND"\GOTO 470
 455 PRINT"NOW WE DRAW ONE FOOT"\GOTO 470
 460 PRINT"HERE'S THE OTHER FOOT -- YOU'RE HUNG!!"
 470 ON M GOTO 480,490,500,510,520,530,540,550,560,570
 480 P$(3,6)="-"\P$(3,7)="-"\P$(3,8)="-"\P$(4,5)="("\P$(4,6)="."
 481 P$(4,8)="."\P$(4,9)=")"\P$(5,6)="-"\P$(5,7)="-"\P$(5,8)="-"\GOTO 580
 490 FOR I=6 TO 9\P$(I,7)="X"\NEXT I\GOTO 580
 500 FOR I=4 TO 7\P$(I,I-1)="\"\NEXT I\GOTO 580
 510 P$(4,11)="/"\P$(5,10)="/"\P$(6,9)="/"\P$(7,8)="/"\GOTO 580
 520 P$(10,6)="/"\P$(11,5)="/"\GOTO 580
 530 P$(10,8)="\"\P$(11,9)="\"\GOTO 580
 540 P$(3,11)="\"\GOTO 580
 550 P$(3,3)="/"\GOTO 580
 560 P$(12,10)="\"\P$(12,11)="-"\GOTO 580
 570 P$(12,3)="-"\P$(12,4)="/"
 580 FOR I=1 TO 12\FOR J=1 TO 12\PRINT P$(I,J);\NEXT J
 590 PRINT\NEXT I\PRINT\PRINT\IF M=10 THEN 600\GOTO 170
 600 PRINT"SORRY, YOU LOSE.  THE WORD WAS "A$
 610 PRINT"YOU MISSED THAT ONE.  DO YOU "\GOTO 370
 700 DATA "GUM","SIN","FOR","CRY","LUG","BYE","FLY"
 710 DATA "UGLY","EACH","FROM","WORK","TALK","WITH","SELF"
 720 DATA "PIZZA","THING","FEIGN","FIEND","ELBOW","FAULT","DIRTY"
 730 DATA "BUDGET","SPIRIT","QUAINT","MAIDEN","ESCORT","PICKAX"
 740 DATA "EXAMPLE","TENSION","QUININE","KIDNEY","REPLICA","SLEEPER"
 750 DATA "TRIANGLE","KANGAROO","MAHOGANY","SERGEANT","SEQUENCE"
 760 DATA "MOUSTACHE","DANGEROUS","SCIENTIST","DIFFERENT","QUIESCENT"
 770 DATA "MAGISTRATE","ERRONEOUSLY","LOUDSPEAKER","PHYTOTOXIC"
 780 DATA "MATRIMONIAL","PARASYMPATHOMIMETIC","THIGMOTROPISM"
 999 END