Atari 8-bit Source code

3REM***************************
4REM***GridMaster***
5REM***byStephenSmith***
6REM***August18,1983***
7REM***************************
9GOSUB3000
10GRAPHICS17:SETCOLOR0,0,0
20POKE756,226
30SC=PEEK(88)+256*PEEK(89)
40FORT=2TO20STEP3:FORI=2TO18:POKESC+I+20*T,210:NEXTI:NEXTT
50FORT=1TO19STEP3:FORI=3TO19:POKESC+T+20*I,252:NEXTI:NEXTT
60FORT=5TO17STEP3:FORI=4TO16STEP3:POKESC+I+20*T,211:NEXTI:NEXTT
70FORT=5TO17STEP3:POKESC+1+20*T,193:POKESC+19+20*T,196:NEXTT
80FORT=4TO16STEP3:POKESC+T+20*2,215:POKESC+T+20*20,216:NEXTT
90POKESC+1+20*2,209:POKESC+1+20*20,218:POKESC+19+20*2,197:POKESC+19+20*20,195:POKESC+10+20*2,211
100POKESC+10+20*20,211:POKESC+10+20*1,252:POKESC+10+20*0,252:POKESC+10+20*21,252:POKESC+10+20*22,252
110PPOS=SC+450:PIECE=148
120POKEPPOS,PIECE
130DIMDIR(15)
140FORI=5TO15
150READA:DIR(I)=A
160NEXTI
170DATA21,-19,1,0,19,-21,-1,0,20,-20,0
180POSITION1,23:?#6;"readyhit";
185IFSTRIG(0)<>0THEN185
186POSITION1,23:?#6;"";CHR$(79+96);""
190X=PPOS-220:SOUND1,243,10,2:GOTO590
200PK=PEEK(PPOS):IFPPOS=SC+10+20*0THEN2000
205IFSTRIG(0)=0THEN300
210POKEPPOS,PIECE
220ST=STICK(0)
225IFST<15THENPOKE77,0:REMDEFEATATRACTMODE
230IFST=15THEN500
240PPOS=PPOS+DIR(ST)
250PK=PEEK(PPOS)
260IFPK=0THEN1000:REMDIE
265IFPK=PIECETHENSCORE=SCORE-10
270POKEPPOS,PIECE:SCORE=SCORE+10
280GOTO500
300POKEPPOS,PIECE-64
310GOTO500
500COUNT=COUNT+1
505IFCOUNT=NUMTHENCOUNT=0:GOSUB800:GOTO550
510GOTO700
550X=PPOS-60
570IFPPOS<SC+99THENX=PPOS-3
580IFPPOS<SC+50ANDPPOS>SC+40ORPPOS<SC+70ANDPPOS>SC+60ORPPOS<SC+90ANDPPOS>SC+80THENX=PPOS+3
585IFPPOS=SC+81ORPPOS=SC+61THENX=PPOS+3
590POKEX,120
595SOUND0,70,0,15
700FORT=1TOLOOP:NEXTT
710SOUND0,0,0,0:POKEX,0:GOTO200
800READA:IFA=50THENSETCOLOR4,7,0:SETCOLOR0,7,0
810IFA=-1THEN1000
820SOUND1,A,10,2
830RETURN
840DATA230,217,204,193,182,173,162,153,144,136,128
850DATA121,114,108,102,96,91,85,81,76,72,68,64,60,57,53
860DATA50,47,45,42,40,37,35,33,31,29,-1
1000POSITION0,0:?#6;"youlose"
1001SOUND1,0,0,0
1010POSITION2,23:?#6;"presstrigger"
1015POKEPPOS,PIECE
1016FORT=100TO200:SOUND0,T,10,8:FORI=1TO5:NEXTI:NEXTT:FORT=1TO50:SOUND0,100,0,10:NEXTT:SOUND0,0,0,0
1020POKEPPOS,PIECE
1030POKEPPOS,84
1040POKEPPOS,212
1050POKEPPOS,32
1060IFSTRIG(0)=1THEN1020
1070RUN
2000SOUND1,0,0,0
2001SOUND1,0,0,0
2010RESTORE2018
2012READA:IFA=-1THEN2030
2015SOUND0,A,10,8:FORT=1TO15:NEXTT
2016GOTO2012
2018DATA47,53,47,45,40,40,40,40,60,60,60,60,47,53,47,45,40,40,40,40,60,60,60,60
2020DATA47,53,47,45,40,40,40,40,60,60,60,60,47,53,47,45,53,53,53,53,53,53,53,53,-1
2030GRAPHICS17:SETCOLOR1,14,8:SOUND0,0,0,0
2035IFSCORE>500THENPOSITION6,5:?#6;"YOUWIN!":GOTO2040
2036POSITION6,5:?#6;""
2037POSITION3,15:?#6;"thatisn'tgood"
2038POSITION4,16:?#6;"enoughforus."
2040POSITION6,10:?#6;"";SCORE
2050POSITION4,23:?#6;""
2055FORT=1TO200:NEXTT
2060IFSTRIG(0)=1THEN2060
2070RUN
3000GRAPHICS17:POSITION5,3:?#6;"GrImSr"
3010POSITION2,5:?#6;""
3020POSITION2,9:?#6;"DIFFICULTYoption"
3025POSITION8,10:?#6;"":NUM=9
3030POSITION5,15:?#6;"selectSPEED"
3035POSITION8,16:?#6;"":LOOP=50
3040POSITION0,22:?#6;"pressstarttobegin"
3045K=PEEK(53279):IFK=3THENT=1-T
3050IFK=PEEK(53279)THEN3050
3055IFK<>6ANDK<>5THEN3100
3060IFK<>6ANDK<>3THENJ=1-J:GOTO3200
3070IFK=6THENGOTO10000
3080GOTO3050
3100REMDIFFICULTY
3110POSITION8,10
3120IFT=1THEN?#6;"":NUM=4
3130IFT=0THEN?#6;"":NUM=9
3140GOTO3045
3200REMSPEED
3210POSITION8,16
3220IFJ=0THEN?#6;"":LOOP=50:GOTO3240
3230?#6;"":LOOP=25
3240GOTO3140
10000REMTITLE
10060?CHR$(125):POKE752,1:SETCOLOR2,7,0:POSITION13,2:?"":?:?:?
10070?"USINGYOURJOYSTICK,GOFROMTHEBOTTOMOFTHEGRIDTOTHETOPWITHOUT"
10080?"FALLINGTHROUGHTHEGAPS!":?:?"IFYOUBACK-TRACK,YOUCANUSETHEFIREBUTTONTOSEEWHEREYOUARE."
10090?:?"THESCREENWILLBEGINTOCHANGEITSCOLORWHENYOUSTARTTORUNOUTOFTIME!"
10100POSITION8,23:?"PRESSTOBEGIN...";
10110IFPEEK(53279)<>6THEN10110
10120RETURN
20000GOTO20000	

• Download link 1

• Download link 1
• Download link 2