home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CONTRSRC.ZIP / SRC / WAVES / VGEN2.LST < prev    next >
Encoding:
File List  |  1994-11-20  |  440 b   |  26 lines
  1. '
  2. OPEN "o",#1,"vlin.inc"
  3. '
  4. FOR y%=29 TO 0 STEP -1
  5.   ix%=1
  6.   CLS
  7.   PRINT #1;" EVEN"
  8.   PRINT #1;"laby";y%+20;":"
  9.   FOR jx%=63 TO 0 STEP -1
  10.     col%=TRUNC(ix%*LOG((y%+1)/8+1)/LOG(2.718281828))
  11.     col%=MIN(col%,63)
  12.     INC ix%
  13.     PRINT #1;" mov BYTE PTR[di+";(jx%+y%-29+50)*80;"],";col%+192
  14.   NEXT jx%
  15.   PRINT #1;" ret"
  16.   PRINT #1;" nop"
  17.   PRINT #1;" nop"
  18.   PRINT #1;" nop"
  19.   PRINT #1;" "
  20. NEXT y%
  21. '
  22. CLOSE #1
  23. '
  24. EDIT
  25. '
  26.