1 SLOW
2 PRINT AT 11,2;"A T.J. SOFTWARE PRODUCTION"
3 PAUSE 200
4 CLS
5 PRINT AT 11,9;"COPYRIGHT 1982";AT 13,6;"ALL RIGHTS RESERVED"
6 PAUSE 200
7 CLS
11 PRINT "ENTER NO. OF WORDS IN LIBRARY"
12 INPUT D
13 DIM B$(D,17)
14 PRINT AT 0,0;"ENTER LIBRARY WORDS AS REQUESTED";AT 5,12;"WORD NO."
15 FOR I=1 TO D
16 PRINT AT 5,21;I
17 INPUT B$(I)
18 NEXT I
19 LET R=50
20 IF D<100 THEN LET R=INT (D/2)
21 CLS
22 PRINT AT 0,0;"LIBRARY COMPLETE, READY TO SAVE";AT 5,7;"ENTER LIBRARY NAME";AT 6,8;"(17 LETTERS MAX)"
23 INPUT L$
24 IF LEN L$>17 THEN GOTO 22
25 LET C$=L$
26 CLS
27 PRINT AT 10,7;"START YOUR RECORDER";AT 12,9;"THEN PRESS ENTER"
28 GOTO 800
29 CLS
50 RAND
60 LET J=22-INT ((LEN L$)/2)
80 LET SP=0
85 LET SC=0
90 LET Y=0
95 DIM V(R+1)
100 GOTO 365
120 PRINT AT 4,4;"\:'% \':"
130 PRINT AT 5,4;"% \''% "
140 PRINT AT 6,4;"\ '% \' "
150 GOTO 500
160 FOR I=7 TO 12
170 PRINT AT I,5;"% "
180 NEXT I
190 GOTO 500
200 PRINT AT 8,6;"% % % "
210 PRINT AT 9,8;"% "
220 PRINT AT 10,8;"% "
230 GOTO 500
240 PRINT AT 8,2;"% % % "
250 PRINT AT 9,2;"% "
260 PRINT AT 10,2;"% "
270 GOTO 500
280 PRINT AT 12,6;"% "
290 PRINT AT 13,7;"% "
300 PRINT AT 14,8;"% "
310 PRINT AT 15,8;"% "
315 GOTO 500
320 PRINT AT 12,4;"% "
330 PRINT AT 12,4;"% "
340 PRINT AT 13,3;"% "
350 PRINT AT 14,2;"% "
360 PRINT AT 15,2;"% "
361 GOTO 680
365 SLOW
366 CLS
367 PRINT AT 0,18;"HANGMAN"
368 PRINT AT 1,18;"\''\''\''\''\''\''\''"
369 PRINT AT 1,5;"% % % % % % % % "
370 FOR I=2 TO 16
371 PRINT AT I,12;"% "
372 NEXT I
373 PRINT AT 17,0;"% % % % % % % % % % % % % "
374 PRINT AT 2,5;"\: "
375 PRINT AT 3,5;"\: "
376 PRINT AT 3,J;C$
380 LET I=INT ((RND*D)+1)
382 FOR T=1 TO R
383 IF I=V(T) THEN GOTO 380
384 NEXT T
385 LET Y=Y+1
386 IF Y=R+1 THEN LET Y=1
387 LET V(Y)=I
388 LET W$=B$(I)
389 FOR I=1 TO 17
390 IF W$(I)=" " THEN GOTO 392
391 NEXT I
392 LET W$=W$(1 TO I-1)
397 LET G$=" "
398 LET X=LEN W$
399 LET W$=W$(1 TO X)+G$(X+1 TO 17)
400 PRINT AT 5,16;"HERE IS YOUR "
410 PRINT AT 6,20;"WORD:"
420 FOR I=15 TO 14+X
430 PRINT AT 10,I;"\. "
440 NEXT I
450 FOR I=1 TO X
451 IF W$(I)="*" THEN GOTO 454
452 NEXT I
453 GOTO 475
454 LET W$(I)=" "
455 PRINT AT 10,14+I;" "
475 LET R$=" "
490 LET K=0
500 PRINT AT 13,16;"ENTER A LETTER"
502 PAUSE 750
506 LET A$=INKEY$
508 IF A$<>" " THEN GOTO 515
510 GOTO 600
515 LET Z=0
520 FOR I=1 TO X
530 IF A$<>W$(I) THEN GOTO 560
540 LET G$(I)=A$
550 LET Z=1
560 NEXT I
570 PRINT AT 9,15;G$
580 IF G$=W$ THEN GOTO 690
590 IF Z=1 THEN GOTO 500
600 LET K=K+2
610 LET R$(K-1)=" "
615 LET R$(K)=A$
617 PRINT AT 20,1;"DUD LETTERS:"
618 PRINT AT 21,0;R$
620 GOTO (80+20*K)
680 PRINT AT 15,19;"YOU LOSE"
681 LET SC=SC+1
682 PRINT AT 16,16;"THE ANSWER IS:"
684 PRINT AT 18,15;W$
685 GOTO 695
690 PRINT AT 17,19;"YOU WIN"
691 LET SP=SP+1
695 PRINT AT 20,18;"SCORE: YOU ";SP
696 PRINT AT 21,25;"ME ";SC
700 PAUSE 400
710 CLS
720 PRINT AT 11,11;"PLAY AGAIN?"
725 PRINT AT 12,14;"(Y/N)"
730 INPUT A$
735 CLS
740 IF A$="N" THEN GOTO 1100
745 GOTO 365
800 PAUSE 40000
805 CLS
810 SAVE L$
820 PRINT AT 10,9;"TO START TYPE:";AT 12,12;"GOTO 50";AT 14,8;"THEN PRESS ENTER"
