1 REM HANG CLARK BAKER 2/73 DSAA PROJECT DELTA 10 ! HANG WILL PLAY A GAME OF HANGMAN ON A CRT (VT05 OR VT06). 20 ! TO PLAY, JUST TYPE RUN. WHEN IT ASKS FOR 'WORD?' HAVE 30 ! ONE OF THE PLAYERS TYPE IN THE WORD WITHOUT THE OTHERS 40 ! SEEING WHAT HAS BEEN TYPED. NEXT LET THE OTHERS TRY TO 50 ! GUESS LETTER BY LETTER WHAT THE WORD WAS. NOTE THAT THE 60 ! DATA STATEMENT (DATA 10,88,24,25,26,45,39,42) MAY HAVE 70 ! TO BE CHANGED TO RUN ON A DIFFERENT MODEL CRT THEN THE 80 ! ONE THE PROGRAM WAS WRITTEN ON. THE CODES ARE: 90 ! 10 -- 88 -- X 24 -- 25 -- 26 -- 45 -- - 39 -- ' 42 -- * 29 -- 30 -- 31 -- 110 DATA "RRRRXXXDXDXDXLLDXLLDXLLXLLXLLXLLXLLUXLLUXUXUX" 120 DATA "DDDDDDRRRRRXLDXLDXLDXLDXLDXLDXLDXLDX" 130 DATA "DDDDDDDXXXXXLLLLLDXLDX" 140 DATA "DDDDDDDXXXXXXXXXXXLDXLDX" 150 DATA "DDDDDDDDDDDDDDRRRRXLLDXXLLLDXXLLLDXXLLDX" 160 DATA "DDDDDDDDDDDDDDRRRRRRXLDXXLDXXLDXXLDX" 170 DATA "DDRRRR'R'" 180 DATA "DDDDRRRR---" 190 DATA "DDDRRRRR*" 200 DIM M$(9%):MAT READ M$ 210 DIM C$(8%):DATA 10,88,24,8,26,45,39,42 220 FOR X%=1% TO 8%:READ C%:C$(X%)=CHR$(C%):NEXT X% 230 INPUT "WORD";W$:C%=0% 240 PRINT CHR$(29%);CHR$(31%); 250 PRINT C$(1%); FOR X%=1% TO 22% 260 S$=SPACE$(36%-LEN(W$)) 270 PRINT S$;:PRINT "- "; FOR X%=1% TO LEN(W$) 280 FOR T%=1% TO 9% 290 PRINT CHR$(29%);CHR$(13%); 300 PRINT "LETTER";CHR$(30%);:INPUT L$:L$=CHR$(ASCII(L$)):PRINT CHR$(29%) 310 IF INSTR(1%,C$,L$)=0% THEN C$=C$+L$ ELSE PRINT CHR$(29%);CHR$(30%); L$;" HAS BEEN USED.":SLEEP(3%):GO TO 290 320 IF INSTR(1%,W$,L$)=0% THEN 390 330 PRINT C$(1%); FOR X%=1% TO 21%:PRINT S$; 340 I1%=1% 350 I%=INSTR(I1%,W$,L$) 360 IF I%=0% THEN IF C%<>LEN(W$) THEN 290 ELSE PRINT CHR$(29%); "IT ONLY TOOK YOU";T%-1%;"TRIES.":GO TO 430 370 PRINT C$(3%); FOR X%=1% TO (I%-I1%)*2% 380 PRINT L$;" ";:C%=C%+1%:I1%=I%+1%:GO TO 350 390 PRINT C$(3%); FOR X%=1% TO 29% 400 PRINT C$(INSTR(1%,"DXRLU-'*",MID(M$(T%),X%,1%))); FOR X%=1% TO LEN(M$(T%)) 410 NEXT T% 420 PRINT CHR$(29%);"YOU LOSE, THE WORD WAS ";W$;"." 430 END