home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / DIVERSEN / SHWTXT12 / FADES.ST < prev    next >
Text File  |  1994-06-21  |  804b  |  25 lines
  1. 'FADES.ST - PROGRAM TO PUT FADES ON THE SCREEN
  2. :BEGIN\ ON INTKEY0 ESC GOTO QUIT \ RIGHT MOUSE ESC \ CURSOR ON 0 TO 7
  3.         COPY(FADES1,1) \ COPY(FADES2,2) \ SCREENSAVER 1
  4. :START\ COPY(1,0)V1
  5. :KEYIN\ WAITKEY 0,KEYIN
  6.         IF CLK (24,43,24,47) QUIT
  7.         IF CLK (17,63,19,78) ALL
  8.         IF CLK (4,2,22,19)  OK
  9.         IF CLK (4,22,22,39) OK
  10.         IF CLK (4,42,22,59) OK
  11.         IF CLK (4,62,22,79) OK
  12.         GOTO KEYIN
  13. :OK   \ V0=[.R] \ V0=V0-4 \ V1=[.C] \ V1=V1/20 \ V1=V1*19
  14.         V1=V1+V0 \ IF V1>64 KEYIN
  15.         COPY(2,0)V1
  16. :KEY2 \ WAITKEY 1000,KEY2
  17.         GOTO START
  18. :ALL  \ ON INTKEY0 ESC GOTO BEGIN
  19.         FOR V0=0 TO 60 \ V1=V0 & 1 \ IF V1=1 ODD
  20.         COPY(1,0)V0 \ GOTO NXT
  21. :ODD  \ COPY(2,0)V0
  22. :NXT  \ NEXT V0 \ GOTO BEGIN
  23. :QUIT \ CLS 7,0 \ C@ 1,1 \ EXIT
  24.  
  25.