home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / VPI1_330.ZIP / DEMO2.PRG < prev    next >
Encoding:
Text File  |  1991-12-30  |  4.7 KB  |  208 lines
  1. **********************************************************************
  2. *  DEMO2.PRG    VP-Info demo program...selfrunning with delay factor
  3. *              escape re-starts
  4. *                  ┌──────────────────┐
  5. *                  │    Version 3.30  │
  6. *                  └──────────────────┘
  7. *  NOTES to USER:                           Tue  12-24-1991  15:44:38
  8. *       subroutines required:   DEMOLOAD.PRG,DEMO2.PRG,DEMODISP.PRG
  9. *       data files required:    DEMOINV.DBF, DEMOCUST.DBF, DEMOTEMP.DBF,
  10. *                                   DEMOGL.DBF and DEMOTRN.DBF
  11. *       index files required:   DEMOGL1.DBF, DEMOTRN1.DBF
  12. *       library file required:  DEMO.LIB             ┌────────────────┐
  13. *       text file required:     DEMO.TXT,NEW.TXT     │ always compile │
  14. *       report form required:   DEMO.FRM             └────────────────┘
  15. *  Always works from menu...self-running selection is timed in seconds
  16. *                           other options ding bell + require key to proceed
  17. * If you want to change text in list of features, edit DEMO.TXT and NEW.TXT
  18. *  \+ means new screen with color change, \\ means same screen + new color
  19. *  fields on \+ line: 4-9 is screen num, 10-19 is offset from column 25
  20. * (C) Copyright 1986-1991 Sub Rosa International Inc.
  21. *  Sid Bursten and Bernie Melman
  22. **********************************************************************
  23. ON error
  24.    SCREEN 1
  25.    WINDOW
  26.    :color=7
  27.    COLOR 7 0 0 24 79
  28.    ? 'Execution terminated on error:',:message
  29.    CANCEL
  30. ENDON
  31. ON escape
  32.    SCREEN 1
  33.    PERFORM fullerase
  34.    SET function on
  35.    COLOR RED 0 0 24 79
  36.    ERASE
  37.    @ 10,10 say 'Demonstration interrupted . . . '
  38.    @ 12,10 say 'Press <ENTER> key to continue . . . spacebar to quit.'
  39.    RING
  40.    signal=inkey()
  41.    IF signal=13
  42.       RETURN
  43.    ELSE
  44.       ok=close()
  45.       WINDOW
  46.       CANCEL
  47.    ENDIF
  48. ENDON
  49. PERFORM fullerase
  50. CURSOR 10,20
  51. :color=ruby
  52. ?? 'VP-Info creates informative business graphs'
  53. PERFORM delay2
  54. :color=white
  55. COLOR white 0 0 24 79
  56. @ 1,0 say date(4)
  57. @ 3,0 say cen(:company,80)              ;uses system variable in heading
  58. @ 4,0 say cen("Previous Months' Sales",80)
  59. PERFORM delay3
  60. BOX 7 5 7 75
  61. BOX 10 5 10 75
  62. BOX 13 5 13 75
  63. BOX 16 5 16 75
  64. BOX 19 5 19 75
  65. BOX 4 5 19 5
  66. BOX 20 5 20 75
  67. @ 20,5 say chr(192)
  68. PERFORM delay3
  69. @ 7,0 say '40000'
  70. @ 10,0 say '30000'
  71. @ 13,0 say '20000'
  72. @ 16,0 say '10000'
  73. @ 19,0 say ' 3000'
  74. PERFORM delay3
  75. @ 21,10 say 'January'
  76. @ 21,25 say 'February'
  77. @ 21,40 say 'March'
  78. @ 21,55 say 'April'
  79. @ 23,0 say cen('Total Widget Division',75)
  80. @ 24,80
  81. PERFORM delay2
  82. IF graphics
  83.    COLOR 111 15 10 19 20
  84.    PERFORM delay3
  85.    COLOR  31  8 25 19 35
  86.    PERFORM delay3
  87.    COLOR  79 13 40 19 50
  88.    PERFORM delay3
  89.    COLOR  47 11 55 19 65
  90. ELSE
  91.    BOX 15 10 19 20
  92.    PERFORM delay3
  93.    BOX  8 25 19 35
  94.    PERFORM delay3
  95.    BOX 13 40 19 50
  96.    PERFORM delay3
  97.    BOX 11 55 19 65
  98. ENDIF
  99. RING
  100. PERFORM delay
  101. IF graphics
  102.    PERFORM fullerase
  103.    COLOR 106 2 4 22 75
  104.    :color=106
  105.    WINDOW 5,5,20,75 blank
  106.    TEXT
  107.                       C O L O R
  108.  
  109.  
  110.                               C A P A B I L I T I E S
  111.  
  112.  
  113.             C O M P A R A B L E
  114.  
  115.  
  116.                               T O
  117.  
  118.  
  119.                       B A S I C
  120.    ENDTEXT
  121.    PERFORM delay3
  122.    PERFORM delay2
  123.    COLOR 106+128 16 5 20 74
  124.    :color=white
  125.    PERFORM delay
  126.    PERFORM fullerase
  127.    i=0
  128.    REPEAT 10 times vary j
  129.       IF mod(i,8)=3
  130.          i=i+1
  131.       ENDIF
  132.       COLOR i*16 12-j,j*5 12+j,10+j*5
  133.       i=i+1
  134.       DELAY .3
  135.    ENDREPEAT
  136.    PERFORM delay
  137.    REPEAT 1 times
  138.       ERASE
  139.       COLOR 96 0,0 24,79
  140.       j=0
  141.       REPEAT 10 times vary i
  142.          PERFORM delay3
  143.          IF mod(j,8)=3
  144.             j=j+1
  145.          ENDIF
  146.          :color=j+96
  147.          j=j+1
  148.          BOX 1+i,7+i*3 23-i,73-i*3
  149.       ENDREPEAT
  150.       :color=0
  151.       ii=0
  152.       REPEAT 10 times vary j
  153.          PERFORM delay3
  154.          IF mod(ii,8)=3
  155.             ii=ii+1
  156.          ENDIF
  157.          i=mod(j,10)+1
  158.          COLOR 16*ii 1+i,7+i*3 23-i,73-i*3
  159.          ii=ii+1
  160.       ENDREPEAT
  161.    ENDREPEAT
  162.    PERFORM delay
  163. ENDIF graphics
  164. *
  165. *
  166. PROCEDURE fullerase
  167.    WINDOW
  168.    ERASE
  169.    :color=0
  170. ENDPROCEDURE fullerase
  171. *
  172. PROCEDURE delay
  173.    IF pause
  174.       IF menuchoice=1
  175.          DELAY delay2
  176.       ELSE
  177.          @ 23,50 say 'Press spacebar'
  178.          RING
  179.          ok=inkey()
  180.          @ 23,50 say blank(15)
  181.       ENDIF
  182.       delay2=delay
  183.    ENDIF
  184. ENDPROCEDURE delay
  185. *
  186. PROCEDURE delay2
  187.    RING
  188.    IF pause
  189.       DELAY 2
  190.    ENDIF
  191. ENDPROCEDURE delay2
  192. *
  193. PROCEDURE delay3
  194.    RING
  195.    IF pause
  196.       DELAY 1
  197.    ENDIF
  198. ENDPROCEDURE delay3
  199. *
  200. PROCEDURE delay4
  201.    IF pause
  202.       RING
  203.       DELAY 1
  204.    ENDIF
  205. ENDPROCEDURE delay4
  206. *
  207. *                    *** end of program DEMO2.PRG ***
  208.