home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / DEMOSCENE-STUFF / BKISSSRC.ZIP / DATATABL.BAS < prev    next >
BASIC Source File  |  1994-02-11  |  389b  |  19 lines
  1. DEFSNG A-Z
  2.  
  3. OPEN "DATATABL.BIN" FOR BINARY AS #1
  4. FOR Y = 0 TO 255
  5.     FOR X = 0 TO 255
  6.         A = COS(.09 * SQR((X - 128) * (X - 128) + (Y - 128) * (Y - 128)))
  7.         B = COS(X / 21)
  8.         C = COS(Y / 26)
  9.         A$ = CHR$(83 * ABS(A + B + C))
  10.         PUT #1, , A$
  11.     NEXT X
  12.     LOCATE , 1: PRINT Y * 100 \ 255; "percent complete...";
  13. NEXT Y
  14. CLOSE #1
  15. PRINT
  16.  
  17. SYSTEM
  18.  
  19.