Listing of file='SPIRO.BAS;01' on disk='vmedia/ncc_4-sector.ccvf'
5 PLOT 12 7 GOTO 500 11 Z= 0 12 PLOT 12 15 A= INT (RND (1)* 5+ 1) 17 IF A= BTHEN 15 20 PLOT 6,A 21 Z= Z+ 1 23 IF G= 0THEN 60 24 IF G= 2THEN 200 25 IF G= 1THEN 30 26 IF Z> 16THEN 200 27 IF Z> 10THEN 30 28 GOTO 60 29 REM LINES 30 THROUGH 74 DRAW THE 8 POINT SPIROGRAPH. 30 PLOT 2,64,0,242,64,0,24,18,7,64,24,109,64,127,103,109,120,64,103,18,64,0,255 40 PLOT 2,242,64,0,7,64,64,127,120,64,64,0,255 50 PLOT 2,242,24,18,24,109,103,109,103,18,24,18,255 60 PLOT 2,64,0,242,24,109,120,64,24,18,64,127,103,18,7,64,103,109,64,0,255 65 IF G= 0THEN 80 66 IF Z> 10THEN 71 68 IF G= 3THEN 80 71 PLOT 2,24,18,242,103,109,255 72 PLOT 2,7,64,242,120,64,255 73 PLOT 2,24,109,242,103,18,255 74 PLOT 2,64,0,242,64,127,255 80 B= A 81 IF G= 0THEN 15 85 IF G= 1THEN 15 88 IF Z> 15THEN PLOT 12:GOTO 200 90 GOTO 15 190 REM LINES 200 THROUGH 325 DRAW THE 12 POINT SPIROGRAPH. 200 PLOT 2,64,0,242,36,9,18,30,9,64,18,97,36,118,64,127,92,118,110,97,119,64,110,30,92,9,64,0,255 210 PLOT 2,18,30,242,18,97,64,127,110,97,110,30,64,0,255 220 PLOT 2,36,9,242,9,64,36,118,92,118,119,64,92,9,36,9,255 230 PLOT 2,18,97,242,92,118,110,30,36,9,255 240 PLOT 2,18,30,242,36,118,110,97,92,9,18,30,255 250 PLOT 2,9,64,242,64,127,119,64,64,0,9,64,255 260 PLOT 2,18,97,242,92,118,110,30,36,9,18,97,255 270 PLOT 2,110,97,242,64,0,18,97,255 280 PLOT 2,36,118,242,119,64,36,9,36,118,255 290 PLOT 2,64,127,242,110,30,18,30,64,127,255 300 PLOT 2,92,118,242,92,9,9,64,92,118,255 310 PLOT 2,64,0,242,36,118,110,30,9,64,110,97,36,9,64,127,92,9,18,97,119,64,18,30,92,118,255 320 PLOT 2,92,118,242,36,9,255 321 PLOT 2,110,97,242,18,30,255 322 PLOT 2,119,64,242,9,64,255 323 PLOT 2,110,30,242,18,97,255 324 PLOT 2,92,9,242,36,118,255 325 PLOT 2,64,0,242,64,127,255 345 B= A 348 IF G= 2THEN 400 350 IF Z> 17THEN 11 400 GOTO 15 500 PRINT "YOU NOW ARE ABOUT TO SEE AN INTERESTING GRAPHICS DISPLAY" 519 PRINT 520 PRINT "YOU HAVE FOUR DIFFERENT CHOICES FOR THE DISPLAY:" 530 PRINT 535 PRINT "(0) THE COMPUTER WILL DRAW AN 8 POINT STAR." 540 PRINT "(1) THE COMPUTER WILL DRAW AN 8 POINT SPIROGRAPH." 550 PRINT "(2) THE COMPUTER WILL DRAW A 12 POINT SPIROGRAPH." 570 PRINT "(3) THE COMPUTER WILL DRAW ALL THREE DESIGNS." 575 PRINT 580 INPUT "WHICH DESIGN WOULD YOU LIKE TO SEE ?";G 600 GOTO 12