Atari 8-bit Source code

1REMDECODE
2REMBYFRANKWALTERS
3REMThisisacode-breakergame.ThefourlettercodeisselectedfromthelettersA,B,C,X,Y,Z.Thecomputer
4REMselectsarandomcode(oranoth-erplayercansetthecode)usinganycombinationoffourlettersfromthe
5REMsixavailableletters.Youhaveupto20guessestobreakthecode.Enteranyfourlettersfromthelist
6REMincludingrepeats.Example:ABBCThecomputerwillreplywithacircleforeachcorrectletter.Ifyouget
7REM2circlestotherightofyourguess,thentwoofyourlettersmatchtwoofthelettersinthecode.
8REMBLACKCIRCLEmeansoneofyourchoicesisbothcorrectletterandposition.WHITECIRCLEmeansyouhave
9REMthecorrectletter,butnotthecorrectposition.
10POKE82,0:POKE83,39:GOTO3000
50FORI=1TO4:IFC$(I,I)=G$(I,I)THENM=M+1
60IFC$(I,I)<>G$(I,I)THENGOSUB100*I
70NEXTI:GOSUB500:RETURN
100IFG$(2,2)<>C$(2,2)ANDG$(1,1)=C$(2,2)THENN=N+1:TW=1:RETURN
110IFG$(3,3)<>C$(3,3)ANDG$(1,1)=C$(3,3)THENN=N+1:TH=1:RETURN
120IFG$(4,4)<>C$(4,4)ANDG$(1,1)=C$(4,4)THENN=N+1:FO=1:RETURN
130RETURN
200IFG$(1,1)<>C$(1,1)ANDG$(2,2)=C$(1,1)THENN=N+1:O=1:RETURN
210IFTH=1THEN240
230IFG$(3,3)<>C$(3,3)ANDG$(2,2)=C$(3,3)THENN=N+1:TH=1:RETURN
240IFFO=1THEN260
250IFG$(4,4)<>C$(4,4)ANDG$(2,2)=C$(4,4)THENN=N+1:FO=1:RETURN
260RETURN
300IFO=1THEN320
310IFG$(1,1)<>C$(1,1)ANDG$(3,3)=C$(1,1)THENN=N+1:O=1:RETURN
320IFTW=1THEN340
330IFG$(2,2)<>C$(2,2)ANDG$(3,3)=C$(2,2)THENN=N+1:TW=1:RETURN
340IFFO=1THEN360
350IFG$(4,4)<>C$(4,4)ANDG$(3,3)=C$(4,4)THENN=N+1:FO=1:RETURN
360RETURN
400IFO=1THEN420
410IFG$(1,1)<>C$(1,1)ANDG$(4,4)=C$(1,1)THENN=N+1:O=1:RETURN
420IFTW=1THEN440
430IFG$(2,2)<>C$(2,2)ANDG$(4,4)=C$(2,2)THENN=N+1:TW=1:RETURN
440IFTH=1THEN460
450IFG$(3,3)<>C$(3,3)ANDG$(4,4)=C$(3,3)THENN=N+1:TH=1:RETURN
460RETURN
500IFM>0THENFORA=1TOM:?#6;"o";:GOSUB600:NEXTA
510IFM=4THENPOP:GOTO4000
520IFN>0THENFORA=1TON:?#6;"";:GOSUB700:NEXTA
550?#6:RETURN
600FORS=80TO10STEP-1:SOUND0,S,10,8:NEXTS:SOUND0,0,0,0:RETURN
700FORS=0TO70STEP1:SOUND0,S,10,8:NEXTS:SOUND0,0,0,0:RETURN
800FORQ=121TO0STEP-4:FORS=0TO3:SOUNDS,Q,10,8:NEXTS:NEXTQ
810FORS=0TO3:SOUNDS,0,0,0:NEXTS:RETURN
850FORQ=100TO255STEP2:FORS=0TO3:SOUNDS,Q,10,8:NEXTS:NEXTQ
860FORS=0TO3:SOUNDS,0,0,0:NEXTS:RETURN
900SOUND0,121,10,8:SOUND1,96,10,8:SOUND2,81,10,8:SOUND3,60,10,10:FORS=1TO400:NEXTS
910FORS=0TO3:SOUNDS,0,0,0:NEXTS:RETURN
3000DIMC$(4),G$(4),L$(6):L$="ABCXYZ"
3005GUESS=0:GAME=0:AVG=0:LO=21:HI=0
3010GRAPHICS1:POKE710,196:POKE712,196:POKE709,0:POKE711,15:POKE708,138:POKE566,143:POKE567,231
3015POSITION6,5:?#6;"":POSITION8,8:?#6;"by":POSITION3,11:?#6;"frankwalters"
3020FORI=1TO4:Z=INT(RND(0)*6)+1:C$(I,I)=L$(Z,Z):NEXTI:GOSUB3200:?CHR$(125):?#6;CHR$(125):GOSUB900
3025POSITION0,0
3030FORJ=1TO20:?#6;"";:IFJ<10THEN?#6;"";
3040?#6;J;">";:POKE752,0
3050?"";:?"";
3055IFJ>9THEN?"";
3060?"":?"Guess#";J;">";
3070INPUTG$:IFLEN(G$)<>4THEN3050
3075POKE752,1:?CHR$(125)
3080FORI=1TO4:?#6;G$(I,I);"";:NEXTI:?#6;"";
3090M=0:N=0:O=0:TW=0:TH=0:FO=0:GOSUB50:NEXTJ
3100?CHR$(125);"Youmightaswellgiveup!":?"Thecodeis";C$;".":GOSUB850:GOSUB5000
3110GOTO4010
3200POKE752,1:?""
3210?"LIST[]PROGRAMFORINSTRUCTIONS";
3220OPEN#1,4,0,"K:"
3230TRAP3230:GET#1,KEY:IFKEY<49ORKEY>50THEN3230
3240CLOSE#1:TRAP40000:POKE752,0:IFKEY=49THENRETURN
3245POSITION0,21:?""
3250TRAP3250:?"Enter4digitcodeusingletters:A-B-C-X-Y-Z>";
3260INPUTC$:IFLEN(C$)<>4THEN3250
3270FORE=1TO4
3280IFC$(E,E)="A"THENNEXTE:RETURN
3290IFC$(E,E)="B"THENNEXTE:RETURN
3300IFC$(E,E)="C"THENNEXTE:RETURN
3310IFC$(E,E)="X"THENNEXTE:RETURN
3320IFC$(E,E)="Y"THENNEXTE:RETURN
3330IFC$(E,E)="Z"THENNEXTE:RETURN
3350POP:GOTO3250
4000POKE752,1:?CHR$(125);"Youbrokethecode,thecodeis";C$;"."
4005GOSUB5000:POKE764,255:GOSUB800
4010?"Playagain(Y/N)?"
4020IFPEEK(764)=43THENPOKE764,255:GOTO3010
4030IFPEEK(764)=35THENGRAPHICS0:POKE82,2:POKE566,84:POKE567,231:POKE764,255:END
4040GOTO4020
5000GUESS=GUESS+J:GAME=GAME+1
5010AVG=GUESS/GAME
5020IFLO>JTHENLO=J
5030IFHI<JTHENHI=J
5050?"";GAME;"";LO;"";HI;"";AVG
5060RETURN	

• Download link 1

• Download link 1
• Download link 2