Listing of file='NVADRS.BAS;01' on disk='vmedia/ccug_14b-sector.ccvf'
10 POKE 32940,82:POKE 32941,154 20 CLEAR 100:PLOT 27,4 30 PRINT "LOAD NVADRS.XXX":PLOT 27,27 40 POKE 33283,48:POKE 33284,155 45 GOTO 200 50 D1= 0:D2= 2 60 GS= 2 70 MS= 40 80 T1= 70 90 T2= 130 100 TM= 82+ 154* 256 110 POKE TM+ 1,D1:POKE TM+ 2,D2 120 POKE TM+ 3,GS:POKE TM+ 4,MS 130 POKE TM+ 5,T1:POKE TM+ 6,T2 140 PLOT 12,3,64,0:X= CALL (0) 145 FOR I= 1TO 200:NEXT I 150 PLOT 8:INPUT "PLAY AGAIN? ";A$ 155 R= VAL (A$):IF R> 0THEN 301 160 IF LEFT$ (A$,1)< > "N"THEN 230 170 PLOT 1 200 PLOT 12,6,1,14:PRINT "SPACE INVADERS" 205 PRINT 210 INPUT "DO YOU NEED INSTRUCTIONS? ";A$ 220 IF LEFT$ (A$,1)= "Y"THEN GOSUB 1000 230 PRINT :PRINT 240 PRINT "ENTER YOUR RATING (ANY NUMBER FROM 1 TO 10) 250 PRINT 260 PRINT "1) NOVICE" 270 PRINT "4) AVERAGE" 280 PRINT "7) EXPERT" 290 PRINT :PRINT 300 INPUT "RATING: ";R 301 IF R< 1THEN R= 1 302 IF R> 10THEN R= 10 310 R= 1110- 110* R 320 D2= INT (R/ 256):D1= R- 256* D2 330 GOTO 60 1000 PLOT 12 1010 PRINT " YOU ARE THE LAST DEFENSE AGAINST THE SPACE INVADERS." 1020 PRINT "TRY TO DESTROY THEM BEFORE THEY DESTROY YOU." 1030 PRINT :PRINT "TO MOVE LEFT OR RIGHT, HOLD DOWN THE APPROPRIATE CURSOR CONTROL" 1040 PRINT "(GRAY ARROW) KEY. 1050 PRINT :PRINT "TO FIRE, PRESS OR HOLD DOWN THE 'HOME' KEY." 1060 PRINT :INPUT "PRESS 'ENTER' TO START. ";Z$ 1100 PLOT 12:RETURN 1200 RETURN