10 ONERRORRUN
   30 MODE7
   40 PRINT'"Select option:"''"1) STARBURST"''"2) TRIANGLE STARS"''"3) STRING PATTERNS"''"4) RANDOM TRIANGLES"''"5)�EXIT"
   50 PRINT''"OPTION..�":REPEAT:O%=VALGET$:UNTILO%>0ANDO%<6
   60 MODE2:VDU23;8202;0;0;0;
   70 IFO%=1PROCburst
   80 IFO%=2PROCtriangles
   90 IFO%=3PROCstring
  100 IFO%=4PROCrandom
  120 IFO%=5END ELSE GROO!
  130 :
  140 DEFPROCburst
  150 REPEAT
  160 FORL%=1TO800
  170 GCOL3,RND(7)
  180 MOVE RND(1200),RND(1000)
  190 DRAW 600,500
  200 NEXT
  230 REPEATUNTILGET
  240 ENDPROC
  250 :
  260 DEFPROCtriangles
  270 Z%=0
  280 A%=RAD(120):B%=A%+A%
  290 FORM%=4TO35
  300 R%=512
  310 VDU29,640;512;
  320 FORL%=0TO512/M%:GCOL0,L% MOD 7+1
  330 MOVER%*COS(Z%),R%*SIN(Z%)
  340 MOVER%*COS(Z%+A%),R%*SIN(Z%+A%)
  350 PLOT85,R%*COS(Z%+B%),R%*SIN(Z%+B%)
  360 Z%=Z%+PI*2/M%:R%=R%-M%
  370 NEXT
  380 REPEATUNTILGET
  390 CLG
  400 NEXT
  410 ENDPROC
  420 :
  430 DEFPROCstring
  440 REPEAT
  450 X%=RND(1280):Y%=RND(1280)
  460 B%=RND(1280):C%=RND(1024)
  470 F%=20-RND(40):G%=20-RND(40)
  480 D%=20-RND(40):E%=20-RND(40)
  490 FOR L% = 1 TO 300
  500 MOVEX%,Y%
  510 DRAWB%,C%
  520 IF X%+F%>1279 OR X%+F%<0 F%=-F%:GCOL 0,RND(7)
  530 IF Y%+G%>1023 OR Y%+G%<0 G%=-G%:GCOL 0,RND(7)
  540 IF B%+D%>1279 OR B%+D%<0 D%=-D%:GCOL 0,RND(7)
  550 IF C%+E%>1023 OR C%+E%<0 E%=-E%:GCOL 0,RND(7)
  560 X%=X%+F%:Y%=Y%+G%
  570 B%=B%+D%:C%=C%+E%
  580 NEXT L%
  590 REPEATUNTILGET
  600 CLG
  610 UNTIL FALSE
  620 ENDPROC
  630 :
  640 DEFPROCrandom
  650 REPEAT
  660 FORL%=1TO200
  670 GCOLRND(80),RND(13)
  680 PLOT85,RND(1200),RND(1000)
  690 NEXT
  700 REPEATUNTILGET
  710 CLG
  720 UNTIL0
  730 ENDPROC