home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / asm_programming / LENZSCRL.ZIP / FISH.BAS < prev    next >
BASIC Source File  |  1993-10-13  |  650b  |  25 lines
  1. 10 DIM ARRAY(60,60)
  2. 20 FOR Y=-30 TO 29
  3. 30 FOR X=-30 TO 29
  4. 40 V=(X/30)^2+(Y/30)^2
  5. 50 IF V>1 THEN NX = X : NY = Y : GOTO 120
  6. 60 IF V=0 THEN NX=0 : NY=0 : GOTO 120
  7. 70 V = SQR(V)
  8. 80 SCALE = TAN(ATN(V)*2)/V
  9. 90 IF ABS(SCALE) > 10 THEN NX = X : NY = Y : GOTO 120
  10. 100 NX = CINT(SCALE*X/5) : NY = CINT(SCALE*Y/5)
  11. 110 IF X=0 THEN PRINT X,Y,NX,NY,SCALE
  12. 120 ARRAY(X+30,Y+30) = INT((NY+30)*320+NX+30)
  13. 130 NEXT
  14. 140 NEXT
  15. 150 OPEN "o",1,"fish.tbl"
  16. 160 PRINT #1,"dw ";
  17. 170 FOR Y=0 TO 59
  18. 180 FOR X=0 TO 59
  19. 190 PRINT #1,ARRAY(X,Y);
  20. 200 B=B+1
  21. 210 IF B=8 THEN B=0 : PRINT #1,"" : PRINT #1,"dw "; ELSE PRINT #1,",";
  22. 220 NEXT
  23. 230 NEXT
  24. 240 CLOSE #1
  25.