home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / VS_804.ZIP / MAINTSRC.EXE / HELLOBYE.PRG < prev    next >
Encoding:
Text File  |  1991-10-26  |  3.9 KB  |  139 lines
  1. * Filename......: HelloBye.Prg
  2. *
  3. * Author........: Vernon E. Six, Jr.
  4. *
  5. * Last Update...: Sat  10-26-1991  19:06:06
  6. *
  7. * Notice........: Copyright (c) 1991 by Vernon E. Six, Jr.
  8. *                 All Rights Reserved World Wide
  9. *
  10. * Dialect.......: Clipper v5.0x
  11.  
  12. #include "SETCURS.CH"
  13.  
  14.  
  15. STATIC sc_Version := "Some Program v1.00"
  16. STATIC sc_Release := "Sun  10-20-1991  11:56:30"
  17.  
  18.  
  19. FUNCTION EX_Version( pc_Version )
  20. *****
  21. * Psuedo access method - set/get version
  22. *****                                   
  23. LOCAL c_Temp := sc_Version
  24.  
  25.    IF VALTYPE( pc_Version ) == "C"
  26.       sc_Version := pc_Version
  27.    ENDIF
  28.  
  29. RETURN(c_Temp)
  30. *** EOF: EX_Version() *******************************************************
  31.  
  32.  
  33. FUNCTION EX_Release( pc_Release )
  34. *****
  35. * Psuedo access method - set/get version
  36. *****                                   
  37. LOCAL c_Temp := sc_Release
  38.  
  39.    IF VALTYPE( pc_Release ) == "C"
  40.       sc_Release := pc_Release
  41.    ENDIF
  42.  
  43. RETURN(c_Temp)
  44. *** EOF: EX_Version() *******************************************************
  45.  
  46.  
  47. FUNCTION EX_Bueno()
  48. *****
  49. * Opening display
  50. *****            
  51. LOCAL n_Top  := 5
  52.  
  53.    VS_GrabScr()
  54.  
  55.       VS_Wind(n_Top,8,n_Top+12,72,""," Press Any Key To Exit ")
  56.  
  57.       @ n_Top+1,10 SAY PADC(sc_Version,60)
  58.       @ n_Top+2,10 SAY PADC("Released: " + sc_Release,60)
  59.       @ n_Top+3,10 SAY PADC("",60)
  60.       @ n_Top+4,10 SAY PADC("Copyright (c) 1991  by Vernon E. Six, Jr.",60)
  61.       @ n_Top+5,10 SAY PADC("All Rights Reserved World Wide",60)
  62.       @ n_Top+6,10 SAY PADC("",60)
  63.       @ n_Top+7,10 SAY PADC("Vernon E. Six, Jr.",60)
  64.       @ n_Top+8,10 SAY PADC("2908 Forest Hollow Lane #2329",60)
  65.       @ n_Top+9,10 SAY PADC("Arlington, Texas  76006",60)
  66.       @ n_Top+10,10 SAY PADC("Ph: (214) 283-3282 - VOICE",60)
  67.       @ n_Top+11,10 SAY PADC("Ph: (817) 695-0058 - BBS",60)
  68.  
  69.       SETCURSOR(SC_NONE)
  70.       VS_Inkey(15)
  71.  
  72.    VS_PutScr()
  73.  
  74. RETURN(NIL)
  75. *** EOF: EX_Bueno() *********************************************************
  76.  
  77.  
  78. FUNCTION EX_Adios()
  79. *****
  80. * We're all done!
  81. *****
  82. LOCAL n_Top
  83.  
  84.    dbCloseAll()
  85.  
  86.    DispBegin()
  87.  
  88.       VS_TxtColr()
  89.       VS_NewScrn()
  90.  
  91.       n_Top  := 3
  92.  
  93.       VS_Wind(n_Top,8,n_Top+12,72,""," Press Any Key To Exit ")
  94.  
  95.       @ n_Top+1,10 SAY PADC(sc_Version,60)
  96.       @ n_Top+2,10 SAY PADC("Released: " + sc_Release,60)
  97.       @ n_Top+3,10 SAY PADC("",60)
  98.       @ n_Top+4,10 SAY PADC("Copyright (c) 1991  by Vernon E. Six, Jr.",60)
  99.       @ n_Top+5,10 SAY PADC("All Rights Reserved World Wide",60)
  100.       @ n_Top+6,10 SAY PADC("",60)
  101.       @ n_Top+7,10 SAY PADC("Vernon E. Six, Jr.",60)
  102.       @ n_Top+8,10 SAY PADC("2908 Forest Hollow Lane #2329",60)
  103.       @ n_Top+9,10 SAY PADC("Arlington, Texas  76006",60)
  104.       @ n_Top+10,10 SAY PADC("Ph: (214) 283-3282 - VOICE",60)
  105.       @ n_Top+11,10 SAY PADC("Ph: (817) 695-0058 - BBS",60)
  106.  
  107.       SETCURSOR(SC_NONE)
  108.  
  109.       n_Top  := 18
  110.  
  111.       VS_Wind(n_Top,8,n_Top+2,72,"","")
  112.  
  113.       @ n_Top+1,10 SAY PADC("Thank You For Choosing Vern Six's Products!",60)
  114.  
  115.    DispEnd()
  116.  
  117.    VS_Inkey(15)
  118.  
  119.    VS_TxtColr()
  120.    Clear Screen
  121.    QOut( EX_Version() )
  122.    QOut( "CopyRight (c) 1991 by Vernon E. Six, Jr."                 )
  123.    QOut( "All Rights Reserved World Wide"                           )
  124.    QOut( ""                                                         )
  125.    QOut( "For More Information Or For Assistance, Please Call"      )
  126.    QOut( "The ClipBoard Home BBS (a/k/a *THE* Clipper Hang-Out)"    )
  127.    QOut( "at 817/695-0058, 1200-38400baud, USR Dual Standard, 24hrs")
  128.    QOut( ""                                                         )
  129.    QOut( "Access to The ClipBoard Home BBS (tm) is *FREE* and you"  )
  130.    QOut( "can download up to one mega-byte on your first call!!"    )
  131.    QOut( "230 mega-bytes of nothing but Clipper Goodies online!"    )
  132.    QOut( ""                                                         )
  133.    
  134.    QUIT
  135.  
  136. RETURN(NIL)
  137. *** EOF: EX_Adios() *********************************************************
  138.  
  139.