Listing of file='WORDS.BAS;01' on disk='vmedia/chip_24-sector.ccvf'
50 REM W. RUST, DEC 1978. FILE NAME IS "WORDS". 60 DIM L$(5) 65 REM -- TITLE PAGE 70 PLOT 6,11,12,27,24,14 80 PLOT 3,16,8:PLOT 6,7 90 PRINT "FIVE-LETTER WORD GUESSING GAME" 95 PLOT 6,3 100 PLOT 2,28,102,242,96,102,96,82,28,82,28,102,255 105 PLOT 3,64,0 110 FOR Z= 1TO 2000:NEXT Z 120 PLOT 6,3,12:PRINT :PRINT 125 PRINT "INSTRUCTIONS:":PRINT 130 PRINT "TRY TO DISCOVER THE LETTERS IN MY SECRET WORD" 135 PRINT "IN THE FEWEST GUESSES POSSIBLE.":PRINT 140 PRINT "IT IS AN ENGLISH WORD, NOT A PLURAL, AND IT" 145 PRINT "HAS NO REPEATED LETTERS.":PRINT 150 PLOT 6,6 155 PRINT "WHEN READY, HIT 'RETURN' KEY. GOOD LUCK!" 160 INPUT Q$ 250 T= 3* PEEK (33210)+ PEEK (33209):REM RANDOM SEED 255 FOR J= - 1TO T:R= RND (1):NEXT J 260 REM -- SELECT SECRET WORD 270 RESTORE 275 M0= 13:REM NO. OF DATA ROWS 280 M1= INT (M0* RND (1))+ 1:REM SELECT DATA ROW 290 FOR J= 1TO M1:READ M$:NEXT J 300 M2= INT (10* RND (1))+ 1:REM SELECT WORD 310 W$= MID$ (M$,M2* 5- 4,5) 320 FOR J= 1TO 5:L$(J)= MID$ (W$,J,1):NEXT J:REM LETTERS OF WORD 401 DATA "ABOVEBLAZEABOUTABUSEACORNACRIDACUTEADEPTADOPTAFTER" 402 DATA "AGENTAGONYALIGNAMONGANGLEANGRYANTICBADGEBARGEBLACK" 403 DATA "BLINDBLOCKBOARDBORAXBOXERBRAINBRAKEBRAWLBRIEFBRINK" 404 DATA "BROWNBRUSHBULGEBUGLEBUYERBYLAWCABINCADETCAMELCASTE" 405 DATA "CAULKCAUSECEDARCHAIRCHANTCHEAPCHEWYCHIEFCHILDCIGAR" 406 DATA "CLERKCLIMBCLINKCLOAKCLOVECOASTCOBRACOUNTCOVERCRAFT" 407 DATA "DAIRYDAISYDANCEDEATHDECAYDECOYDELAYDEPTHDEPOTDERBY" 408 DATA "DEVILDIARYDIRTYDITCHDRAFTDRAWNDREAMDRIFTDRINKDRIVE" 409 DATA "DROWNDWARFEPOXYEARTHEARLYEIGHTELBOWEMPTYENDOWENJOY" 410 DATA "ENVOYEPOCHEQUALEQUIPETHYLEXACTEXTRAFACETFAINTFAIRY" 411 DATA "FALSEFANCYFAULTFAVORFEASTFETCHFIBERFIELDFIGHTFIRST" 412 DATA "FIXEDFLAMEFLAREFLASHFLICKFLINGFLOATFLOCKFLUIDFOCUS" 413 DATA "FORCEFORGEFOUNDFRAMEFRESHFRISKFRONTFROWNFRUITFUDGE" 414 REM ADD MORE WORDS HERE, BEGINNING WITH G TO Z 500 PLOT 6,33,12,27,24,14 510 PLOT 3,3,3:PLOT 6,25 520 PRINT " WHAT WORD AM I THINKING OF? " 530 PLOT 6,49 540 FOR X= 21TO 39 550 PLOT 3,X,6 560 PLOT 32:NEXT X 570 PLOT 6,33 580 FOR X= 24TO 36STEP 4 600 PLOT 3,X,6 610 PLOT 32:NEXT X 620 PLOT 3,3,12:PLOT 6,25 630 PRINT " LETTERS ALREADY GUESSED ARE SHOWN BELOW IN BLACK: " 640 PLOT 3,6,16:PLOT 6,39 650 PRINT "A B C D E F G H I J K L M N O P Q R S T U V W X Y Z" 660 FOR Z= 1TO 1000:NEXT Z 700 G= 0:H= 0:REM GUESSES; HITS 710 G= G+ 1 720 PLOT 3,10,22:PLOT 6,66 730 PRINT " WHAT LETTER DO YOU GUESS? " 740 PLOT 3,38,22:PLOT 6,7 750 INPUT "";G$ 760 PLOT 3,10,22:PLOT 6,32 770 FOR J= 1TO 27:PLOT 32:NEXT J 775 FOR Z= 1TO 600:NEXT Z 780 X= ASC (G$) 790 IF X< 65OR X> 90GOTO 720 800 PLOT 6,32:PLOT 3,X* 2- 124,16:PRINT G$ 810 FOR J= 1TO 5 820 IF L$(J)= G$GOTO 850 830 NEXT J 840 GOTO 710 850 L$(J)= " " 860 PLOT 6,11:X= J* 4+ 17:PLOT 3,X,6:PRINT " ";G$;" " 865 PLOT 3,64,0 870 H= H+ 1:IF H= 5GOTO 890 880 GOTO 710 890 PLOT 3,10,22:PLOT 6,3 900 PRINT " GAME OVER! YOU USED";G;" GUESSES. " 910 PLOT 3,10,24 920 PRINT " DO YOU WANT TO PLAY AGAIN (Y OR N) ";:INPUT Q$ 930 IF Q$= "Y"GOTO 260 940 PLOT 6,6,12:PLOT 3,27,7 950 PRINT "GOODBYE!" 999 END