Compucolor.org – Virtual Media

Listing of file='INVADE.BAS;01' on disk='vmedia/demos-sector.ccvf'

1 PLOT 30,16
2 PLOT 140
5 PLOT 29
7 PLOT 3,15,2:PRINT " *** SPACE INVADERS ***"
10 PLOT 18
15 PLOT 3,9,30:PRINT "/'''''n"
16 PLOT 3,10,29:PRINT "'''''"
17 PLOT 3,12,28:PRINT "K"
18 PLOT 6,3,2,0,0,242,127,0,255
19 FOR C= 0TO 5
20 FOR X= 20TO 10STEP - 1
25 PLOT 3,X,5:PRINT " TRU      TRU      TRU      TRU      TRU "
26 PLOT 3,X,6:PRINT "T'R'U    T'R'U    T'R'U    T'R'U    T'R'U"
27 PLOT 3,X,7:PRINT "MM MM    NN NN    NN NN    NN NN    NN NN"
30 NEXT X
35 PLOT 17
40 FOR Y= 25TO 6STEP - 1
45 PLOT 3,12,Y:PRINT "S"
50 FOR I= 1TO 25:NEXT I
55 PLOT 3,12,Y:PRINT " "
60 NEXT Y
65 PLOT 3,9,4:PRINT "T'''''U"
70 PLOT 3,8,5:PRINT "T'''''''U"
75 PLOT 3,8,6:PRINT "V'''''''W"
80 PLOT 3,9,7:PRINT "V'''''W"
82 FOR I= 1TO 325:NEXT I
85 PLOT 3,9,4:PRINT "       "
90 PLOT 3,8,5:PRINT "         "
95 PLOT 3,8,6:PRINT "         "
100 PLOT 3,9,7:PRINT "       "
200 PLOT 6,2
500 NEXT C