home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / egcg / g31.bas < prev    next >
BASIC Source File  |  1980-01-02  |  759b  |  37 lines
  1. 100 ' G31 T.WAKAMATSU 
  2. 110 FOR D=1 TO 8000:NEXT D
  3. 120 CD PLAY 6,11 
  4. 130 FOR D=1 TO 2000:NEXT D:CLS
  5. 140 FOR I=1 TO 2
  6. 150   F=1:READ C1,C2
  7. 160   FOR J=1 TO 7
  8. 170     A(J)=0:B(J)=SQR(3)/2
  9. 180   NEXT J
  10. 190   V=551:W=360:X=560:Y=360
  11. 200   LINE (V,W)-(X,Y),PSET,C2
  12. 210   FOR J=1 TO 2
  13. 220     F=-F
  14. 230     S=(Y-W)*F+X
  15. 240     T=(V-X)*F+Y
  16. 250     C=C1:GOSUB *LINE
  17. 260   NEXT J
  18. 270   K=1
  19. 280   K=K+1
  20. 290   IF K=8 THEN 370
  21. 300   A(K)=A(K)+1
  22. 310   IF A(K)=3 THEN A(K)=0:GOTO 280
  23. 320   B(K)=-B(K)
  24. 330   S=V/2-(W-Y)*B(K)+X/2
  25. 340   T=(V-X)*B(K)+W/2+Y/2
  26. 350   C=C2:GOSUB *LINE
  27. 360   GOTO 210
  28. 370   FOR D=1 TO 5000:NEXT D
  29. 380 NEXT I
  30. 390 DATA 2,3,0,0
  31. 400 GOTO 450
  32. 410 *LINE
  33. 420   V=X:W=Y:X=S:Y=T
  34. 430   LINE -(X,Y),PSET,C
  35. 440 RETURN
  36. 450 CLS
  37.