home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib33b.dsk
/
METEOROIDS.EXP.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
2KB
|
60 lines
10 REM **********************
20 REM * METEROIDS.EXP *
30 REM * BY DANIEL JOYNT *
40 REM * COPYRIGHT (C) 1988 *
50 REM * BY MICROSPARC, INC *
60 REM * CONCORD, MA 01742 *
70 REM **********************
80 FOR Y = 768 TO 826
90 READ K: POKE Y,K: NEXT Y
100 REM
110 REM SHAPE TABLE ADDRESS
120 REM
130 POKE 232,34: POKE 233,3
140 REM
150 REM SET SHAPE PARAMETERS
160 REM
170 ROT= 0: SCALE= 1
180 REM
190 REM CLEAR SCREEN
200 REM
210 HGR : HCOLOR= 3
220 HOME : VTAB 22
230 PRINT "(A) UP"
240 PRINT "(Z) DOWN"
250 REM
260 REM INITIALIZE VARIABLES
270 REM
280 Y = 120:S = Y:L = 159
290 REM
300 REM MAIN LOOP
310 REM
320 K = PEEK(49152):Y = Y +(K = 218) -(K = 193):Q = PEEK(49200): DRAW 2 AT 278, RND(1) *S:S = S -.25 *(S >0):N = S + RND(1) *40: HPLOT 272,L TO 279,N:L = N: CALL 768: DRAW 1 AT 3,Y: ON NOT PEEK(234) GOTO 320
330 REM
340 REM PRINT SCORE
350 REM
360 HOME : VTAB 21
370 PRINT "SCORE: ";
380 PRINT (120 -S) *100
390 PRINT
400 PRINT "ANOTHER GAME (Y/N)";
410 POKE -16368,0
420 INPUT A$
430 A$ = LEFT$(A$,1)
440 IF A$ = "Y" THEN 210
450 REM
460 REM SCROLL ROUTINE DATA
470 REM
480 DATA 169,32,133,39,162,0
490 DATA 134,38,160,0,200,177
500 DATA 38,136,145,38,200
510 DATA 192,39,208,245,169,0
520 DATA 145,38,32,4,245,232
530 DATA 224,160,208,231,96
540 REM
550 REM SHAPES DATA
560 REM
570 DATA 2,0,6,0,15,0
580 DATA 28,63,14,190,45,45
590 DATA 44,37,0,63,56,36
600 DATA 12,45,21,23,21,4,0