home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / egcg / g21.bas < prev    next >
BASIC Source File  |  1980-01-02  |  586b  |  24 lines
  1. 100 ' G21 T.WAKAMATSU
  2. 105 CD PLAY 5,11
  3. 110 DIM H(20),X(20),Y(20):CLS
  4. 120 FOR I=1 TO 14:READ H(I):NEXT I
  5. 130 DATA 2,5,6,9,10,13,14,3,4,7,8,11,12,1
  6. 140 PI=3.14159!:C(1)=5:C(2)=1:C(3)=0
  7. 150 FOR P=1 TO 3
  8. 160   K=180/7:F=0
  9. 170   FOR L=0 TO 50 STEP 2
  10. 180     N=0:J=F:F=F+2
  11. 190     FOR I=L TO 360+L STEP K
  12. 200       J=100-J:M=I+J
  13. 210       T=M/180*PI
  14. 220       N=N+1
  15. 230       X(N)=239*COS(T)+320
  16. 240       Y(N)=239*SIN(T)+240
  17. 250     NEXT I
  18. 260     PSET(X(1),Y(1))
  19. 270     FOR I=1 TO 14
  20. 280       LINE-(X(H(I)),Y(H(I))),PSET,C(P)
  21. 290     NEXT I
  22. 300   NEXT L
  23. 310 NEXT P
  24.