Atari 8-bit Source code

1REM+--------GRAVITY--------+
2REM+-------VERSION2-------+
3REM+---BYGREGHARRISON----+
4REM+-------10/22/81--------+
6POKE752,1
7DIMI$(1),MI$(1):CRASH=0
8REM***SETSCREENFORMIXEDMODES,HAVEUSERSEEINSTRUCTIONSANDINPUTMAX.SKILLLEVEL***
10?"":GOSUB3000
20POSITION4,3:?"":POSITION6,4:?"":FORR=6TO28:POKEDL+R,6:NEXTR
23POSITION3,4:?"WOULDYOULIKE":POSITION3,5:?"IsRcIn";
24INPUTI$
30IFI$="Y"THENGOSUB5000
40POSITION0,4:?"":POSITION0,5:?""
50GRAPHICS0:SETCOLOR2,0,0:POKEDL+3,70:FORR=6TO28:POKEDL+R,6:NEXTR:POSITION1,4:?"MxMmKlLvL":POSITION6,5:?"(0-10)";:INPUTW
60REM***MAINLOOP***
80SKILL=1
85GRAPHICS7
90SOUND0,0,0,0:GOSUB1000
95A=0:Y=70
100FORX=5TO158
101REM***TURNOFFATTRACTMODE***
105POKE77,0
120COLOR1:PLOTX,Y
125SPEED=2*SKILL
130FORP=SPEEDTO20:NEXTP
135SOUND0,Y*2,10,9
140IFSTRIG(0)=0THENA=A-2
160A=A+1
180Y=Y-(A+SKILL)
181REM***CHECKIFSIDEHASBEENBUMPEDINTO***
200IFY<10THEN2000
210IFY>70THEN2000
500NEXTX
700FORR=200TO50STEP-1:SOUND0,R,10,8:NEXTR:FORR=1TO200:NEXTR:GRAPHICS7+16
710IFW=SKILLTHENSOUND0,0,0,0:GOTO900
720SKILL=SKILL+1
730GOTO90
735REM***ENDINGROUTINE***
900GRAPHICS2+16
910POSITION2,4:?#6;""
911POSITION6,5:?#6;"GaIy"
912FORR=1TO1000:NEXTR:GRAPHICS0:SETCOLOR2,0,0
950POKEDL+3,70:FORR=6TO28:POKEDL+R,6:NEXTR
960POSITION4,4:?"paaan?":POSITION7,5:?"(Y-N)";:INPUTMI$
970IFMI$="Y"THENGOTO20
975REM***IFINPUT"NO",ITGOESTOTHEFOLLOWINGROUTINE***
980GRAPHICS2+16:POSITION5,4:?#6;""
990POSITION7,5:?#6;"AaN!":FORR=1TO900:NEXTR
993FORR=1TO300:NEXTR:FORR=15TO0STEP-1:SOUND0,30,10,R:FORW=1TO30:NEXTW:NEXTR:FORR=1TO600:NEXTR
995GRAPHICS0:END
996REM***UPDATECRASHESANDLEVELTHEPLAYERISON***
1000GRAPHICS7:SETCOLOR2,0,0:POKE752,1:?"LEVEL#";SKILL;:?"CRASHES:";CRASH
1001REM***DRAWBARRIERS***
1010COLOR2:PLOT0,70:DRAWTO159,70
1020COLOR2:PLOT0,10:DRAWTO159,10
1050S=SKILL-1
1060IFSTICK(0)=15THEN1060
1090RETURN
2000REM***"CRASH"SUB-ROUTINE***
2010SOUND0,255,10,8:FORR=1TO50:NEXTR
2060SOUND0,0,0,0
2090FORR=1TO230:NEXTR
2100CRASH=CRASH+1:GOTO90
3000REM***FINDLOCATIONOFDISPLAYLISTANDPOKESCREENTOGRAPHICSMODE1AND1LINEOFGRAPHICSMODE2***
3020DL=PEEK(560)+256*PEEK(561)
3030POKEDL+3,70:FORR=6TO28:POKEDL+R,6:NEXTR
3035POKEDL+13,7
3040POSITION4,3:?""
3050POSITION6,4:?"GaIy"
3060FORR=1TO1000:NEXTR
3065REM***"TAH-DAH"SOUND***
3070SOUND0,68,10,10:SOUND1,108,10,10:SOUND2,136,10,10:SOUND3,182,10,10:FORR=1TO50:NEXTR:FORR=0TO3:SOUNDR,0,0,0:NEXTR
3080SOUND0,68,10,10:SOUND1,108,10,10:SOUND2,136,10,10:SOUND3,182,10,10:FORR=1TO200:NEXTR:FORR=0TO3:SOUNDR,0,0,0:NEXTR
3090FORR=1TO200:NEXTR:RETURN
4000REM***INSTRUCTIONS***
5000GRAPHICS1+16
5010?#6;"THEOBJECTOFGRAV-ITYISTOKEEPTHEDOTBETWEENTHELINES.PRESSTHEBUTTONTOSTOPTHE"
5020?#6;"CLIMB,BUTIFYOUHOLDITTOOLONG,ITWILLHITTHEBOTTOMLINE."
5030?#6;"THENUMBERISTHESKILLLEVEL.THELARGERITIS,THEMOREROUNDSYOUWILLHAVE";
5040?#6;"(EACHROUNDISHARDER)"
5050?#6;"MOVETHEJOYSTICKTOSTARTTHEGAME.":?#6;""
5060?#6:?#6;"PRESSTOSTART."
5065IFSTRIG(0)=1THENGOTO5065
5070RETURN	

• Download link 1

• Download link 1
• Download link 2
• Download link 3