Related Products
A learning tool to tutor children (ages 6-12) in spelling. Seven versions of Hangman. Play against the computer’s five prerecorded libraries of categorized words (each up to 17 letters): animals, science, countries of the world, states of America, and fruits and vegetables. Create your own library of 500 words. 16K.
Gallery
Source Code
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"