Atari 8-bit Source code

1 REM * CAR CALAMITY *
2 REM * BY ALBERT W. HAILES,​ JR. *
3 REM * *
10 GRAPHICS 0:​POKE 756,​226:​POKE 708,​0
11 ? CHR$(125):​SETCOLOR 2,​0,​0:​POKE 752,​1
19 DIM SP$(11)
20 SP$(1)=" "
21 SP$(2)=" "
22 SP$(3)=" "
23 SP$(4)=" "
24 SP$(5)=" "
25 SP$(6)=" "
50 POSITION 13,​8:​? "CAR CALAMITY"
52 POSITION 18,​10:​? "By"
54 POSITION 9,​12:​? "Albert W. Hailes,​ Jr."
92 GOSUB 10000
93 A=20:​SS=200:​CAR=4:​PNT=0:​DIS=0
94 POSITION 1,​0:​? "SUPER SHIELD-";SS:​POSITION 20,​0:​? "POINTS-";PNT;" D-";DIS;" "
95 POSITION 1,​1:​? "CARS-";CAR
96 POKE 53278,​0
97 HARD=1:​REM TO RAISE DIFFICULTY INCREASE THIS NUMBER
98 SOUND 0,​0,​8,​2:​C=15
100 Y=COS(RND(2)*2):​B=HARD*Y+C
101 S=INT(RND(0)*7):​IF S=0 THEN 101
102 IF B>37 THEN B=37
103 IF B<0 THEN B=0
105 PNT=PNT+1:​DIS=DIS+5:​IF DIS/200=INT(DIS/200) THEN SS=SS+40
106 POSITION 14,​0:​? SS;" "
108 POSITION 27,​0:​? PNT;" D-";DIS;" "
109 IF DIS>=1000 THEN 300
110 ST=STICK(0)
112 IF ST=11 THEN X=X-4:​IF X<54 THEN X=54
114 IF ST=7 THEN X=X+4:​IF X>192 THEN X=192
120 IF DIS>=978 THEN 131
130 POSITION 1,​3:​? ""
131 LOCATE 1,​20,​Z:​PUT #6,​Z:​IF Z=32 THEN 133
132 POSITION 1,​20:​? ""
133 POSITION B,​3:​? SP$(S):​POSITION 0,​2:​? CHR$(157)
135 IF DIR=1 THEN 145
136 D=D+1:​IF D/4=INT(D/4) THEN C=C+1:​D=0
138 IF C>=24 THEN DIR=1
140 GOTO 155
145 D=D+1:​IF D/4=INT(D/4) THEN C=C-1:​D=0
146 IF C<=2 THEN DIR=0
155 POKE 53248,​X:​POKE 53249,​X
157 IF PNT/2=INT(PNT/2) THEN POKE 53250,​X:​POKE 53251,​0:​GOTO 160
158 POKE 53250,​0:​POKE 53251,​X
160 SCORE=SCORE+10
170 IF STRIG(0)=1 OR SS=0 THEN 200
171 POKE 704,​INT(RND(0)*26)*10
172 FOR Z=0 TO 250 STEP 25:​SOUND 1,​Z,​10,​10:​NEXT Z:​SOUND 1,​0,​0,​0
174 SS=SS-10:​IF SS<0 THEN SS=0
178 POKE 53278,​0:​REM COLLISION CLEAR
179 POKE 704,​50
180 GOTO 100
200 IF PEEK(53252)>0 THEN 220
210 GOTO 100
220 FOR Z=100 TO 200 STEP 10:​FOR ZZ=1 TO 9:​SOUND 0,​Z,​ZZ,​15
221 POKE 708,​PEEK(53770):​POKE 710,​PEEK(53770):​NEXT ZZ:​NEXT Z
222 POKE 53250,​0:​POKE 53251,​0
223 POKE 708,​0:​POKE 710,​0
224 FOR Z=20 TO 14 STEP -1:​POSITION 1,​Z:​? "":​NEXT Z
225 SOUND 0,​0,​0,​0:​CAR=CAR-1:​IF CAR=0 THEN 250
228 POSITION 1,​1:​? "CARS-";CAR
229 FOR Z=1 TO 200:​NEXT Z
230 GOSUB 350
235 POSITION 15,​13:​? "GET READY!"
236 FOR Z=1 TO 200:​NEXT Z
237 IF SS<200 THEN SS=200
238 GOSUB 350:​POKE 53278,​0:​SOUND 0,​0,​8,​2:​GOTO 100
240 GOTO 100
250 GOSUB 350:​POSITION 15,​12:​? "GAME OVER.."
252 POSITION 8,​14:​? "PRESS  TO PLAY AGAIN"
254 POSITION 6,​1:​? "0 "
255 GOSUB 10089
257 X=124:​POKE 53248,​X:​POKE 53249,​X
258 ? CHR$(125):​GOTO 93
260 GOTO 260
300 GOSUB 350:​POSITION 13,​12:​? "YOU MADE IT!!"
309 POSITION 7,​14:​? "PREPARE FOR NEXT VALLEY.."
310 FOR A=200 TO 180 STEP -10
311 FOR B=200 TO 60 STEP -10
312 FOR C=0 TO 10 STEP 5
313 SOUND 0,​A,​C,​10:​SOUND 1,​B,​C,​10:​NEXT C:​NEXT B:​NEXT A:​SOUND 1,​0,​0,​0
314 FOR A=1 TO 5:​FOR B=200 TO 0 STEP -10:​SOUND 0,​B,​0,​10:​NEXT B:​NEXT A
315 FOR A=10 TO 40:​FOR B=8 TO 12:​SOUND 0,​A,​B,​10:​NEXT B:​NEXT A
316 FOR A=10 TO 1 STEP -1:​FOR B=200 TO 250
317 SOUND 0,​B,​8,​A:​NEXT B:​NEXT A:​SOUND 0,​0,​0,​0
318 GOSUB 350:​DIS=0
319 HARD=HARD+1:​IF HARD>10 THEN HARD=10
320 IF SS<200 THEN SS=SS+200
322 PNT=PNT+500:​? CHR$(125)
325 GOTO 94
350 POSITION 0,​2:​FOR Z=1 TO 22:​POSITION 0,​2:​? CHR$(157):​NEXT Z:​RETURN
10000 I=PEEK(106)-24:​POKE 54279,​I
10010 PB=I*256
10020 FOR I=PB+1024 TO PB+2048:​POKE I,​0:​NEXT I
10030 X=124:​Y=170:​POKE 704,​50:​POKE 559,​62:​POKE 53277,​3:​POKE 53248,​X:​POKE 623,​32
10040 FOR I=1 TO 15:​READ P:​POKE PB+1024+Y+I,​P:​NEXT I
10050 DATA 126,​126,​24,​219,​189,​219,​60,​126,​126,​126,​102,​126,​126,​24,​24
10060 POKE 705,​4:​POKE 53249,​X
10070 FOR I=1 TO 15:​READ P:​POKE PB+1280+Y+I,​P:​NEXT I
10072 DATA 66,​0,​36,​0,​66,​0,​24,​24,​36,​36,​189,​129,​129,​231,​231
10073 POKE 706,​82:​POKE 53250,​0
10074 FOR I=1 TO 13:​READ P:​POKE PB+1536+186+I,​P:​NEXT I
10076 DATA 67,​165,​124,​127,​247,​66,​149,​111,​90,​84,​86,​58,​12
10077 POKE 707,​82:​POKE 53251,​0
10078 FOR I=1 TO 13:​READ P:​POKE PB+1792+186+I,​P:​NEXT I
10080 DATA 199,​218,​167,​82,​119,​237,​186,​111,​161,​106,​44,​60,​44
10085 POSITION 10,​16:​? "PRESS  TO BEGIN"
10089 FOR I=100 TO 148 STEP 4
10090 POKE 704,​INT(RND(0)*26)*10:​POKE 705,​INT(RND(0)*26)*10
10091 IF STRIG(0)=0 THEN 10100
10092 FOR Z=0 TO 250 STEP 10:​SOUND 0,​Z,​8,​10:​NEXT Z:​POKE 53248,​I:​POKE 53249,​I:​NEXT I
10093 FOR I=148 TO 100 STEP -4
10094 POKE 704,​INT(RND(0)*26)*10:​POKE 705,​INT(RND(0)*26)*10
10095 IF STRIG(0)=0 THEN 10100
10096 FOR Z=0 TO 250 STEP 10:​SOUND 0,​Z,​8,​10:​NEXT Z:​POKE 53248,​I:​POKE 53249,​I:​NEXT I
10098 GOTO 10089
10100 SOUND 0,​0,​0,​0:​POKE 53248,​X:​POKE 53249,​X:​GOSUB 350:​POKE 53278,​0:​POKE 704,​50:​POKE 705,​4
10110 RETURN	

• Download link 1

• Download link 1