This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
Atari 8-bit Source code
|
|
|
-
Entry name:Word Guess
-
Category:Games
-
Publisher/Developer:Antic - The Atari Resource, BELLCOM - Public Domain Library
-
Year:1984
Listing 1
5 REM WORD GUESS 6 REM BY DONNY CHERF 7 REM WRITTEN FOR ANTIC MAGAZINE 9 REM --- !! DO NOT RENUMBER PROGRAM WITHOUT CHANGING LINE 350 SINCE IT DEALS WITH THE DATA !! 10 REM ----------------------------- 20 REM | | 30 REM | created by | 40 REM | | 50 REM | DONNY CHERF | 60 REM | | 70 REM | August 13, 1984 | 80 REM | | 90 REM ----------------------------- 99 REM --- ALL REMS MAY BE REMOVED EASILY SINCE ONLY REMS END IN 9. 100 C0=0:C1=1:C10=10:GRAPHICS C0:POKE 82,C1:POKE 83,39:POKE 710,194:POKE 712,16:POKE 752,C1 109 REM --- THIS IS ALL SET-UP. 110 DIM WD$(16),DF$(38):OPEN #C1,4,C0,"K" 119 REM --- TITLE. 120 POSITION 15,6:? "WORD GUESS":?:? "Obj: Guess words before time runs out for highest score.":?:? 130 TRAP 130:? CHR$(28):? "Do you need instructions";:INPUT WD$:IF WD$(C1,C1)<>"Y" THEN 340 139 REM --- INSTRUCTIONS. BRING CURSOR UP TO PRINT OVER PREVIOUS LINE. 140 ? CHR$(28);:? "Ins: A clue will flash to the screen followed by a string of hyphens" 150 ? " (---). The clue is used to figure out the word. You must" 160 ? " enter letters from the beginning of the word to the end without" 170 ? " repeating. The computer treats duplications and letters out of" 180 ? " order as incorrect responses. Pay attention so as not to type" 190 ? " in a letter that has already been represented by either yourself" 200 ? " or the computer. You should try to enter letters as often as you" 210 ? " can since the computer will continually enter letters for" 220 ? " you according to a time system based on your level, penalizing" 230 ? " you also.":?:? " Press <RETURN> when ready." 240 GET #C1,A:IF A<>155 THEN 240 249 REM --- BRING CURSOR UP TO PRINT OVER PREVIOUS LINE. 250 ? CHR$(28);:? "Sco: For each correct letter entered by you, you'll be awarded your" 260 ? " level * 2 + 1. Each incorrect letter or any letter entered by" 270 ? " the computer will lower your score for that word by half." 280 ?:? "Cau: If the computer enters all the letters of one word, or if you" 290 ? " press <ESC>, the computer will end the game and display your" 300 ? " final result." 310 ?:? " Good luck." 320 ?:? " Press <RETURN> to begin game." 330 GET #C1,A:IF A<>155 THEN 330 339 REM --- START. POKE 766,C1 DISABLES CURSOR CONTROLS SO PLAYER CAN'T CLEAR SCREEN OR MOVE CURSOR. 340 TRAP 40000:? CHR$(125):POKE 766,C1:T=C0:LE=T:V=120:?:? "WORD GUESS":?:?:? " I will start you at level 0.":? 349 REM --- SET RESTORE IN LINE 350 TO FIRST DATA LINE. SET INT(RND(C0)*__) TO NUMBER OF DATA STATEMENTS. 350 RESTORE 640+INT(RND(C0)*50)*C10:READ WD$,DF$ 359 REM --- ALLOW PLAYER TO DECIDE WHEN TO SEE CLUE. 360 POKE 764,255:?:? " When you are ready for the next clue, press <RETURN>.":?:? 369 REM --- IF <ESC> IS PRESSED, GAME WILL END. 370 GET #C1,A:IF A=27 THEN 620 379 REM --- OTHERWISE <RETURN> GETS CLUE. 380 IF A<>155 THEN 370 389 REM --- PRINT CLUE AND HYPHENS. 'RO' FINDS WHICH ROW THE HYPHENS ARE PRINTED TO USE POSITION COMMAND. 390 ? DF$:?:RO=PEEK(84):J=C1:K=C1:L=LEN(WD$):S=C0:FOR I=C1 TO L:? "-";:NEXT I 400 POKE 764,255 410 POKE 20,C0:IF J>L THEN 570 419 REM --- SET TIMER. 420 IF PEEK(764)<>255 THEN 450 429 REM --- IF TIMER SURPASSES V (VELOCITY), BRANCH TO PRINT RANDOM LETTER. 430 IF PEEK(20)>V THEN 530 439 REM --- OTHERWISE CHECK TO SEE IF PLAYER HAS PRESSED A KEY. 440 GOTO 420 449 REM --- LINES 450 AND 460 MAKE SURE LETTERS ARE NON-INVERSED AND CAPITALS. 450 GET #C1,A:IF A>127 THEN A=A-128 460 IF A>96 THEN A=A-32 469 REM --- IF LETTER IS INCORRECT, BRANCH TO PRINT RANDOM LETTER. 470 IF A<>ASC(WD$(K)) THEN 530 479 REM --- POSITIVE SOUND TO LET PLAYER KNOW LETTER WAS ACCEPTED. 480 FOR I=15 TO C0 STEP -C1:SOUND C0,C10,C10,I:NEXT I 490 POSITION K,RO:? CHR$(A);:WD$(K,K)=CHR$(C0):J=J+C1:S=S+C1 499 REM --- 'K' IS FIRST UNCHANGED LETTER OF WORD. ALWAYS UPDATED. 500 TRAP 570:K=K+C1:IF WD$(K,K)=CHR$(C0) THEN 500 509 REM --- CHECK IF ANOTHER LETTER WAS ENTERED WHILE WORKING. IF NOT, 510 TRAP 40000:IF PEEK(764)=255 THEN 410 519 REM --- IF A LETTER WAS ENTERED THEN 520 GOTO 450 529 REM --- ROUTINE TO CHOOSE RANDOM LETTER FOR WRONG OR NO RESPONSE BY PLAYER. 530 R=INT(RND(C0)*L)+C1:IF ASC(WD$(R))=C0 THEN 530 539 REM --- NEGATIVE SOUND TO TELL PLAYER OF INCORRECT OR NO RESPONSE. 540 FOR I=15 TO C0 STEP -C1:SOUND C0,C1,4,I:NEXT I 550 POSITION R,RO:? WD$(R,R);:WD$(R,R)=CHR$(C0):J=J+C1:S=S/2:IF K<>R THEN 410 560 GOTO 500 569 REM --- CLEAR KEYBOARD ENTRY. 570 POKE 764,255:?:? 579 REM --- IF PLAYER DIDN'T ENTER ANYTHING ON A WORD, THEN COMPUTER ENDS GAME. 580 IF NOT S THEN 620 589 REM --- OTHERWISE IT UPDATES SCORE. 590 X=INT(S*(25-V/5)):T=T+X:? " After scoring ";X;" on this word, your":? "total is now *** ";T;" ***.":? 599 REM --- CHECK TO SEE IF THERE IS A LEVEL CHANGE. 600 IF T<(120-V)*(120-V) THEN 350 610 V=INT(V-V/10):LE=LE+C1:? " You are now at level ";LE;".":FOR I=C0 TO 29:SOUND C0,29-I,C10,9:NEXT I:?:GOTO 350 619 REM --- PRINT FINAL SCORE AND ASK TO PLAY AGAIN. 620 TRAP 620:?:? "Your final score is ";T;".":?:? "Care to try again";:INPUT WD$:IF WD$(C1,C1)="Y" THEN 340 629 REM --- SET EVERYTHING BACK AND END. 630 POKE 752,C0:POKE 766,C0:CLOSE #C1:? CHR$(125):? "BYE!":END 639 REM --- DATA STATEMENTS BEGIN HERE AND MORE CAN BE ADDED. CHANGE LINE 350 IF ANY MORE DATA IS ADDED. 640 DATA COCKROACH,Household pest 650 DATA CANDIDATE,Contestant 660 DATA BRAIN,Thinking cap 670 DATA VISIBLE,Evident 680 DATA CURTAINS,Window coverings 690 DATA GRASS,Always greener elsewhere 700 DATA AIRPLANE,Sky transportation 710 DATA TELEVISION,Advertising medium 720 DATA CLOTHES,Garments 730 DATA SIDEWALK,Used by pedestrians 740 DATA MIRROR,Reflecting glass 750 DATA RHYTHM,Movement to beat 760 DATA PENCIL,Writing utensil 770 DATA SCHOOL,Learning center 780 DATA PLANET,Earth is one 790 DATA EVERYTHING,All 800 DATA FEET,Walk on these 810 DATA COMPUTER,You're working on one now 820 DATA FRIEND,Close aquaintance 830 DATA WATER,Used to drink and bathe in 840 DATA SCREWDRIVER,A tool and a drink 850 DATA CATCHER,Who pitcher throws to 860 DATA MICROWAVE,Heats food fast 870 DATA STORE,Place to shop 880 DATA LOVE,Makes the world go 'round 890 DATA DRESSER,Holds folded clothes 900 DATA COUNTRY,U.S. is one 910 DATA CHAIR,You sit in this 920 DATA TYPEWRITER,Speeds measured in WPM 930 DATA MAGAZINE,ANTIC is one 940 DATA CLOSET,Contains hanging clothes 950 DATA SWIMMING,Mark Spitz's sport 960 DATA CONTINENT,North America is one 970 DATA AUSTRALIA,Both a country and a continent 980 DATA FIREPLACE,Provides warmth with logs 990 DATA TABLE,You eat off this 1000 DATA STEREO,Music generator 1010 DATA ANTIQUE,Old and valuable item 1020 DATA DISKETTE,Program saver 1030 DATA PORTFOLIO,Artists and models have one 1040 DATA BACKYARD,Located behind a house 1050 DATA AUTOMOBILE,Car 1060 DATA FLASHLIGHT,Used to see in the dark 1070 DATA CLOCK,Morning waker 1080 DATA SHAMPOO,Cleans hair 1090 DATA SUBMARINE,Patrols the depths 1100 DATA ALMONDS,California nuts 1110 DATA CANADA,Northern neighbor 1120 DATA MONEY,Currency 1130 DATA ATLANTIC,Ocean off the east coast
References
Listing downloads
Downloads
Copyright holder