home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / clipper / sup35s / s3screen.prg < prev    next >
Encoding:
Text File  |  1993-10-19  |  4.4 KB  |  133 lines
  1.  
  2. PROC MAIN
  3. local cSuper, cInScreen, nDelay, cMessage
  4. local c1stQtr   := savescreen(0,0,12,40)
  5. local c2ndQtr   := savescreen(0,41,12,79)
  6. local c3rdQtr   := savescreen(13,0,24,40)
  7. local c4thQtr   := savescreen(13,41,24,79)
  8. local nChoice,bDoBlock
  9. SET WRAP ON
  10. slsf_color("S3COLOR")
  11. setcolor("+w/g,+g/n")
  12. cSuper  := "S"+chr(15)+"u"+chr(31)+"p"+chr(47)+"e"+chr(63)+"r"+chr(79)+"L"+chr(95)+"i"+chr(111)+"b"+chr(127)+"!"+chr(11)
  13. cSuper  := left(repl(cSuper,223),4000)
  14. SS_RISE(0,0,24,79,cSuper)
  15. cSuper  := "S"+chr(9)+"c"+chr(9)+"r"+chr(9)+"e"+chr(9)+"e"+chr(9)+"n"+chr(9)+"S"+chr(9)+"t"+chr(9)+"u"+chr(9)+"f"+chr(9)+"f"+chr(9)
  16. cSuper  := left(repl(cSuper,96),2112)
  17. dispbox(3,3,22,72,space(9))
  18. SS_FADE(5,5,20,70,cSuper)
  19. cInScreen := savescreen(5,5,20,70)
  20. do while .t.
  21.     nDelay   := nil
  22.     cMessage := ""
  23.     dispbox(5,24,20,51,space(9))
  24.     scroll(6,25,19,50,0)
  25.     nChoice := RAT_MENU2({;
  26.                         {5 ,27 ,"1 Vertical Curtain"},;
  27.                         {6 ,27 ,"2 Horiz Curtain"},;
  28.                         {7 ,27 ,"3 Slice        "},;
  29.                         {8 ,27 ,"4 Split        "},;
  30.                         {9 ,27 ,"5 Fold         "},;
  31.                         {10,27 ,"6 Rise         "},;
  32.                         {11,27 ,"7 Fall         "},;
  33.                         {12,27 ,"8 Fade         "},;
  34.                         {13,27 ,"9 SlideRight   "},;
  35.                         {14,27 ,"A SlideLeft    "},;
  36.                         {15,27 ,"B Implode      "},;
  37.                         {16,27 ,"C Close Vert   "},;
  38.                         {17,27 ,"D Close Horiz  "},;
  39.                         {18,27 ,"E Wipe Verti   "},;
  40.                         {19,27 ,"E Wipe Horiz   "},;
  41.                         {20,27 ,"Q Quit         "} },nChoice)
  42.     do case
  43.     case nChoice = 1
  44.       bDoBlock := ;
  45.          {||SS_VBLINDS(5,5,20,70,cInScreen,nDelay)}
  46.       nDelay := 100
  47.       cMessage := "(Smaller # is faster)"
  48.     case nChoice = 2
  49.       bDoBlock := ;
  50.          {||SS_HBLINDS(5,5,20,70,cInScreen,nDelay)}
  51.       nDelay := 50
  52.       cMessage := "(Smaller # is faster)"
  53.     case nChoice = 3
  54.       bDoBlock :=;
  55.          {||SS_slice(5,5,20,70,cInScreen,nDelay)}
  56.       nDelay := 8
  57.       cMessage := "(Larger # is faster)"
  58.     case nChoice = 4
  59.       bDoBlock :=;
  60.          {||SS_split(5,5,20,70,cInScreen,nDelay)}
  61.       nDelay := 5
  62.       cMessage := "(Larger # is faster)"
  63.     case nChoice = 5
  64.       bDoBlock :=;
  65.          {||SS_fold(5,5,20,70,cInScreen,nDelay)}
  66.       nDelay := 3
  67.       cMessage := "(Larger # is faster)"
  68.     case nChoice = 6
  69.       bDoBlock :=;
  70.          {||SS_rise(5,5,20,70,cInScreen,nDelay)}
  71.       nDelay := 100
  72.       cMessage := "(Smaller # is faster)"
  73.     case nChoice = 7
  74.       bDoBlock :=;
  75.          {||SS_fall(5,5,20,70,cInScreen,nDelay)}
  76.       nDelay := 100
  77.       cMessage := "(Smaller # is faster)"
  78.     case nChoice = 8
  79.       bDoBlock :=;
  80.          {||SS_fade(5,5,20,70,cInScreen,nDelay)}
  81.     case nChoice = 9
  82.       bDoBlock :=;
  83.          {||SS_slideright(5,5,20,70,cInScreen,nDelay)}
  84.     case nChoice = 10
  85.       bDoBlock :=;
  86.          {||SS_slideleft(5,5,20,70,cInScreen,nDelay)}
  87.     case nChoice = 11
  88.       bDoBlock := ;
  89.          {||ss_implode(5,5,20,70,cInScreen,nDelay)}
  90.       nDelay := 100
  91.       cMessage := "(Smaller # is faster)"
  92.     case nChoice = 12
  93.       bDoBlock := ;
  94.          {||SS_closev(5,5,20,70,cInScreen,nDelay)}
  95.       nDelay := 50
  96.       cMessage := "(Smaller # is faster)"
  97.     case nChoice = 13
  98.       bDoBlock := ;
  99.          {||SS_closeh(5,5,20,70,cInScreen,nDelay)}
  100.       nDelay := 100
  101.       cMessage := "(Smaller # is faster)"
  102.     case nChoice = 14
  103.       bDoBlock := ;
  104.          {||SS_wipev(5,5,20,70,cInScreen,nDelay)}
  105.       nDelay := 50
  106.       cMessage := "(Smaller # is faster)"
  107.     case nChoice = 15
  108.       bDoBlock := ;
  109.          {||SS_wipeh(5,5,20,70,cInScreen,nDelay)}
  110.       nDelay := 100
  111.       cMessage := "(Smaller # is faster)"
  112.     case nChoice = 16 .or. nChoice = 0
  113.          exit
  114.     endcase
  115.     if nDelay#nil .and. !messyn("Adjust Delay?","No","Yes")
  116.       popread(.t.,"Delay:"+cMessage,@nDelay,"999")
  117.     endif
  118.     cInScreen := savescreen(5,5,20,70)
  119.     dispbox(5,5,20,70,repl(chr(177),9))
  120.     @12,25 say "Press a key to see the effect"
  121.     rat_event(0)
  122.     eval(bDoBlock)
  123. enddo
  124. ss_fall(0,0,12,40,c1stQtr )
  125. inkey(.1)
  126. ss_rise(0,41,12,79,c2ndQtr )
  127. inkey(.1)
  128. ss_fade(13,0,24,40,c3rdQtr )
  129. inkey(.1)
  130. ss_slideleft(13,41,24,79,c4thQtr )
  131. inkey(.1)
  132.  
  133.