Listing of file='DIS.BAS;01' on disk='vmedia/ncc_13-sector.ccvf'
5 PLOT 12 10 PLOT 3,64,29,27,4 20 PRINT "LOAD SCREEN.DIS;9" 30 PLOT 27,27 33 PLOT 15 35 FOR I= 1TO 500:NEXT I 40 PLOT 3,15,14 50 PRINT " ~~~~ " 60 FOR I= 1TO 500:NEXT I 70 PLOT 3,15,13 80 PRINT " ~~~~ " 85 PLOT 3,15,14 90 PRINT "~ ~" 100 FOR I= 1TO 500:NEXT I 110 PLOT 3,15,12 120 PRINT " ~~~~ " 125 PLOT 3,15,13 130 PRINT "~ ~" 135 PLOT 3,15,14 140 PRINT "~ ~" 150 FOR I= 1TO 500:NEXT I 160 PLOT 3,15,11 170 PRINT " ~~~~ " 175 PLOT 3,15,12 180 PRINT "~ ~" 185 PLOT 3,15,13 190 PRINT "~ ~" 195 PLOT 3,15,14 200 PRINT "~ ~" 205 FOR I= 1TO 500:NEXT I 210 PLOT 3,15,10 215 PRINT " ~~~~ " 220 PLOT 3,15,11 225 PRINT "~ ~" 230 PLOT 3,15,12 235 PRINT "~ ~" 240 PLOT 3,15,13 245 PRINT "~ ~" 250 PLOT 3,15,14 255 PRINT " ~~~~ " 260 GOSUB 5000 266 FOR I= 1TO 500:NEXT I 270 Z= 19 280 PLOT 14 290 FOR J= 5TO 11STEP 2 300 Z= Z+ 2 310 PLOT 3,Z,J 320 PRINT "$$" 330 FOR I= 1TO 500:NEXT I 340 NEXT J 350 Z= 19 360 FOR J= 5TO 11STEP 2 370 Z= Z+ 2 380 PLOT 3,Z,J 390 PRINT " " 400 PLOT 3,Z+ 8,J+ 7:PRINT "$$" 410 FOR I= 1TO 500:NEXT I,J 420 PLOT 3,0,0 430 PLOT 3,31,4:PRINT "THE SUN HAS DOLLARS" 440 PLOT 3,36,6:PRINT "FOR YOU!!!" 445 PLOT 15 450 PLOT 3,64,0 460 FOR I= 1TO 5000:NEXT I 470 LOAD "MENU":RUN 5000 FOR Y= 9TO 0STEP - 1 5001 FOR I= 1TO 500:NEXT I 5002 PLOT 3,15,Y 5005 PRINT " ~~~~ " 5008 PLOT 3,15,Y+ 1 5010 PRINT "~ ~" 5015 PLOT 3,15,Y+ 2 5020 PRINT "~ ~" 5025 PLOT 3,15,Y+ 3 5030 PRINT "~ ~" 5035 PLOT 3,15,Y+ 4 5040 PRINT " ~~~~ " 5045 PLOT 3,15,Y+ 5 5050 PRINT " " 5055 NEXT Y 5060 RETURN