home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / egaf02.zip / EGATST.PRG < prev   
Text File  |  1989-11-11  |  5KB  |  236 lines
  1. * EGATST.PRG - test bed for EGAF.OBJ
  2. * Jim Kyle - 11/11/89 - Use at your OWN risk!!!
  3.  
  4. PUBLIC TOP_WORDS[6], TOP_DESC[6], TOP_LOCS[6]
  5.  
  6. SET COLOR TO W+/B,W+/R+,W+/B,W/N,W/N
  7. SET CONFIRM OFF
  8. DO INIT_MENU
  9.  
  10. call _set28
  11. clear screen
  12. ? 'This is a test to see what happens'
  13. ?? ' when the EGAF.OBJ package is used at 80x28.'
  14.  
  15. c = col()       && save position while testing screen size
  16. r = row()
  17. call __brc      && put cursor in bottom RH corner of screen
  18. c1 = col()      && adjust for zero-based r,c values
  19. r1 = row()
  20. @ row(),col()-3 SAY 'BRC'
  21.  
  22. @ r+2, 0 SAY 'CRT size is '+str(r1+1,3,0)+' rows by'+str(c1+1,3,0)+' cols...'
  23. for i = r+2 to r1-2
  24.    ? 'This is line '+str(row(),3,0)
  25. next
  26. *WAIT
  27. * rmb - 11-07-89
  28. SET KEY 28 TO HELP
  29. temp = " "
  30. @ r1,0 SAY "Press Any Key"
  31. @ r1,col()+1 GET temp
  32. READ
  33. clear screen
  34. @ 1,0,4,c1 BOX '┌─┐│┘─└│ '
  35. @ 5,0,r1,c1 BOX '╒═╕│╛═╘│ '
  36. CHOICE = 1
  37. DO WHILE .T.
  38.   DO GET_TOGGLE WITH TOP_WORDS, TOP_DESC, TOP_LOCS, 6, CHOICE
  39.   IF CHOICE = 6
  40.     EXIT
  41.   ENDIF
  42. ENDDO
  43. SET KEY 28 TO
  44. *WAIT
  45. *
  46. call _set43
  47. clear screen
  48. ? 'This is a test to see what happens'
  49. ?? ' when the EGAF.OBJ package is used at 80x43.'
  50.  
  51. c = col()       && save position while testing screen size
  52. r = row()
  53. call __brc      && put cursor in bottom RH corner of screen
  54. c1 = col()      && adjust for zero-based r,c values
  55. r1 = row()
  56. @ row(),col()-3 SAY 'BRC'
  57.  
  58. @ r+2, 0 SAY 'CRT size is '+str(r1+1,3,0)+' rows by'+str(c1+1,3,0)+' cols...'
  59. for i = r+2 to r1-2
  60.    ? 'This is line '+str(row(),3,0)
  61. next
  62. *WAIT
  63. * rmb - 11-07-89
  64. SET KEY 28 TO HELP
  65. temp = " "
  66. @ r1,0 SAY "Press Any Key"
  67. @ r1,col()+1 GET temp
  68. READ
  69. clear screen
  70. @ 1,0,4,c1 BOX '┌─┐│┘─└│ '
  71. @ 5,0,r1,c1 BOX '╒═╕│╛═╘│ '
  72. CHOICE = 1
  73. DO WHILE .T.
  74.   DO GET_TOGGLE WITH TOP_WORDS, TOP_DESC, TOP_LOCS, 6, CHOICE
  75.   IF CHOICE = 6
  76.     EXIT
  77.   ENDIF
  78. ENDDO
  79. SET KEY 28 TO
  80. *WAIT
  81. *
  82. call _set50
  83. clear screen
  84. ? 'This is a test to see what happens'
  85. ?? ' when the EGAF.OBJ package is used at 80x43.'
  86.  
  87. c = col()       && save position while testing screen size
  88. r = row()
  89. call __brc      && put cursor in bottom RH corner of screen
  90. c1 = col()      && adjust for zero-based r,c values
  91. r1 = row()
  92. @ row(),col()-3 SAY 'BRC'
  93.  
  94. @ r+2, 0 SAY 'CRT size is '+str(r1+1,3,0)+' rows by'+str(c1+1,3,0)+' cols...'
  95. for i = r+2 to r1-2
  96.    ? 'This is line '+str(row(),3,0)
  97. next
  98. *WAIT
  99. * rmb - 11-07-89
  100. SET KEY 28 TO HELP
  101. temp = " "
  102. @ r1,0 SAY "Press Any Key"
  103. @ r1,col()+1 GET temp
  104. READ
  105. clear screen
  106. @ 1,0,4,c1 BOX '┌─┐│┘─└│ '
  107. @ 5,0,r1,c1 BOX '╒═╕│╛═╘│ '
  108. CHOICE = 1
  109. DO WHILE .T.
  110.   DO GET_TOGGLE WITH TOP_WORDS, TOP_DESC, TOP_LOCS, 6, CHOICE
  111.   IF CHOICE = 6
  112.     EXIT
  113.   ENDIF
  114. ENDDO
  115. SET KEY 28 TO
  116. *WAIT
  117. *
  118.  
  119. call _set25
  120. clear screen
  121. ? 'This is a test to see what happens'
  122. ?? ' when the EGAF.OBJ package is used at 80x25.'
  123.  
  124. c = col()       && save position while testing screen size
  125. r = row()
  126. call __brc      && put cursor in bottom RH corner of screen
  127. c1 = col()      && adjust for zero-based r,c values
  128. r1 = row()
  129. @ row(),col()-3 SAY 'BRC'
  130.  
  131. @ r+2, 0 SAY 'CRT size is '+str(r1+1,3,0)+' rows by'+str(c1+1,3,0)+' cols...'
  132. for i = r+2 to r1-2
  133.    ? 'This is line '+str(row(),3,0)
  134. next
  135. *WAIT
  136. * rmb - 11-07-89
  137. SET KEY 28 TO HELP
  138. temp = " "
  139. @ r1,0 SAY "Press Any Key"
  140. @ r1,col()+1 GET temp
  141. READ
  142. clear screen
  143. @ 1,0,4,c1 BOX '┌─┐│┘─└│ '
  144. @ 5,0,r1,c1 BOX '╒═╕│╛═╘│ '
  145. CHOICE = 1
  146. DO WHILE .T.
  147.   DO GET_TOGGLE WITH TOP_WORDS, TOP_DESC, TOP_LOCS, 6, CHOICE
  148.   IF CHOICE = 6
  149.     EXIT
  150.   ENDIF
  151. ENDDO
  152. SET KEY 28 TO
  153. *WAIT
  154. *
  155. SET COLOR TO
  156. clear screen
  157. quit
  158.  
  159.  
  160. PROCEDURE INIT_MENU
  161.  
  162. TOP_WORDS[1] = "File"
  163. TOP_WORDS[2] = "Edit"
  164. TOP_WORDS[3] = "Report"
  165. TOP_WORDS[4] = "Shell"
  166. TOP_WORDS[5] = "Utility"
  167. TOP_WORDS[6] = "Quit"
  168.  
  169. TOP_DESC[1] = "Perform Basic File Operations.       "
  170. TOP_DESC[2] = "Edit the Database.                   "
  171. TOP_DESC[3] = "Run Built-In or User-Defined Reports."
  172. TOP_DESC[4] = "Shell Temporarily to DOS.            "
  173. TOP_DESC[5] = "System Utilities.                    "
  174. TOP_DESC[6] = "Exit Management System.              "
  175.  
  176. TOP_LOCS[1] = 2
  177. TOP_LOCS[2] = 9
  178. TOP_LOCS[3] = 16
  179. TOP_LOCS[4] = 25
  180. TOP_LOCS[5] = 33
  181. TOP_LOCS[6] = 43
  182.  
  183. RETURN
  184.  
  185.  
  186. PROCEDURE GET_TOGGLE
  187. PARAMETERS WORDS, DESC, LOCS, NUMS, GCHOICE
  188.   SET ESCAPE ON
  189.   SET MESSAGE TO 3
  190.   FOR I = 1 to NUMS
  191.     mstr = CHR(179) + " " + DESC[I] + SPACE(77-LEN(DESC[I])) + CHR(179)
  192.     @ 2, LOCS[I] PROMPT WORDS[I] MESSAGE mstr
  193.   NEXT I
  194.   SET INTENSITY ON
  195.   SET WRAP ON
  196.   MENU TO GCHOICE
  197.   SET WRAP OFF
  198.   SET CURSOR OFF
  199.   SET INTENSITY OFF
  200.   IF GCHOICE = 0
  201.     GCHOICE = NUMS
  202.   ENDIF
  203.   SET ESCAPE OFF
  204. RETURN
  205.  
  206. PROCEDURE HELP
  207. PARAMETERS mprog,mline,mvar
  208. PRIVATE num, cstr, dstr, hcolor, PrevRow, PrevCol
  209. IF mprog='HELP'
  210.   RETURN
  211. ENDIF
  212. PrevRow = ROW()
  213. PrevCol = COL()
  214. SET CURSOR OFF
  215. hdr_scr = SAVESCREEN(0,72,1,79)
  216. help_scr = SAVESCREEN(13,8,33,72)
  217. stat_scr = SAVESCREEN(41,30,42,79)
  218. KEYBOARD ""
  219.  
  220. @ 13,20,20,60 BOX '╒═╕│╛═╘│ '
  221. @ 13,30 SAY '[ Help System ]'
  222. @ 18,28 SAY "Sorry, No Help Available."
  223. INKEY(0)
  224. KEYBOARD ""
  225.  
  226. RESTSCREEN(0,72,1,79,hdr_scr)
  227. RESTSCREEN(13,8,33,72,help_scr)
  228. RESTSCREEN(41,30,42,79,stat_scr)
  229. @ PrevRow, PrevCol SAY ""
  230. RETURN
  231.  
  232.  
  233.  
  234.  
  235.  
  236.