Listing of file='DRAGON.BAS;01' on disk='vmedia/ncc_15-sector.ccvf'
1 PLOT 12 2 FOR A= 1TO 100:PLOT 6,0:PRINT A;:NEXT A 5 REM WRITTEN BY ALAN HAIGHT - CUPERTINO 10 PLOT 12,27,4 20 PRINT "LOAD DRAGON.DSP;1":PLOT 27,27 25 PLOT 3,64,0 30 FOR A= 1TO 1000:NEXT A 40 FOR A= 1TO 50 50 IF C= 1THEN PLOT 6,3:C= 0:GOTO 70 60 PLOT 6,1:C= 1 70 X= INT (108+ RND (1)* 14) 80 Y= INT (35+ RND (1)* 12) 90 PLOT 2,108,54,242,X,Y,255 94 PLOT 6,0,2,108,54,242,X,Y,255 95 NEXT A 98 PLOT 6,9,12,6,27,12,6,9,12,6,27,12,6,9,12,6,27,12,6,2,12 99 LOAD "MENU":RUN