10 PRINT TAB(32);"HANGMAN" 20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 25 PRINT:PRINT:PRINT 30 DIM P$(12,12),L$(20),D$(20),N$(26),U(50) 40 C=1: N=50 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: P$(2,7)="X" 95 IF C10 THEN 170 600 PRINT "SORRY, YOU LOSE. THE WORD WAS ";A$ 610 PRINT "YOU MISSED THAT ONE. DO YOU ";: GOTO 370 620 INPUT "TYPE YES OR NO";Y$: IF LEFT$(Y$,1)="Y" THEN 50 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" 990 PRINT "BYE NOW" 999 END