home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / menu / progen / source / promod71.bas < prev    next >
Encoding:
BASIC Source File  |  1991-10-08  |  11.1 KB  |  299 lines
  1. DEFINT A-Z
  2.  
  3. COMMON SHARED masterFile$, numberoffields, ff, progfile$, startp
  4.  
  5. '$INCLUDE: 'PROLIB71.BI'
  6.  
  7. SUB PROSRC.1
  8.  
  9.         romdate$ = "00/00/00"
  10.         
  11.         CALL GetRomDate(romdate$)
  12.         CALL GetRam(ram%, EXTram%, EXPram%)
  13.  
  14.         printers% = GetNumLPT
  15.         RS232% = GetNumCom
  16.         floppies% = GetNumFlop
  17.         gameport% = GetNumGames
  18.         disks% = GetNumHard
  19.  
  20.         SELECT CASE VIDEOcheck
  21.             CASE 1
  22.                 vid$ = "MDA"
  23.             CASE 2
  24.                 vid$ = "HCG"
  25.             CASE 3
  26.                 vid$ = "CGA"
  27.             CASE 4
  28.                 vid$ = "EGA"
  29.             CASE 5
  30.                 vid$ = "VGA Color"
  31.             CASE 6
  32.                 vid$ = "VGA Mono"
  33.             CASE 7
  34.                 vid$ = "MODEL 30 Mono"
  35.             CASE 8
  36.                 vid$ = "MODEL 30 Color"
  37.             CASE ELSE
  38.                 vid$ = "UnKnown"
  39.         END SELECT
  40.  
  41.         SELECT CASE CPUcheck
  42.             CASE 1
  43.                 cpu$ = "8086/88"
  44.             CASE 2
  45.                 cpu$ = "   80286"
  46.             CASE 3
  47.                 cpu$ = "386/486"
  48.         END SELECT
  49.  
  50. PRINT #ff, "'"
  51. PRINT #ff, "'ISAM DATABASE Program Generator Version: 7.1"
  52. PRINT #ff, "'YOUR PROGRAM.: " + progfile$ + ".BAS "
  53. PRINT #ff, "'CREATED ON...: " + DATE$ + ", " + TIME$
  54. PRINT #ff, "'"
  55. PRINT #ff, "'PROGRAM NAME.: " + progfile$
  56. PRINT #ff, "'LIB,QLB CODE.:  By: RAYMOND E DIXON 1991"
  57. PRINT #ff, "'                      11660 VC JOHNSON RD."
  58. PRINT #ff, "'                   Jacksonville, FL 32218"
  59. PRINT #ff, "'                      (904) 765-4048"
  60. PRINT #ff, "'"
  61. PRINT #ff, "' Computer generated on."
  62. PRINT #ff, "'"
  63. PRINT #ff, "'CPU TYPE.....: " + cpu$
  64. PRINT #ff, "'VIDEO ADAPTER: " + vid$
  65. PRINT #ff, "'ROM BIOS DATE: " + romdate$
  66. PRINT #ff, "'DOS RAM......: " + userNformat$(STR$(ram%), "9999999") + "K"
  67. PRINT #ff, "'EXTENDED RAM.: " + userNformat$(STR$(EXTram%), "9999999") + "K"
  68. PRINT #ff, "'EXPANDED RAM.: " + userNformat$(STR$(EXPram% * 16), "9999999") + "K"
  69. PRINT #ff, "'PRINTERS.....: " + userNformat$(STR$(printers%), "9999999")
  70. PRINT #ff, "'RS232........: " + userNformat$(STR$(RS232%), "9999999")
  71. PRINT #ff, "'FLOPPIES.....: " + userNformat$(STR$(floppies%), "9999999")
  72. PRINT #ff, "'HARD DRIVES..: " + userNformat$(STR$(disks%), "9999999")
  73. PRINT #ff, "'GAME PORTS...: " + userNformat$(STR$(gameport%), "9999999")
  74. PRINT #ff, "'"
  75. PRINT #ff, "'"
  76. PRINT #ff, "DEFINT A-Z"
  77. PRINT #ff, "DECLARE FUNCTION ISMstatus% (indexnum%)"
  78. PRINT #ff, "DECLARE SUB BrowseIRec (nameofindex$,indexnum%,retcode%)"
  79. PRINT #ff, "DECLARE SUB mainscreen ()"
  80. PRINT #ff, "DECLARE SUB msg.nodata ()"
  81. PRINT #ff, "DECLARE SUB PROSAM.scn1 ()"
  82. PRINT #ff, "DECLARE SUB ISM (cmd$, indexnum%, retcode%)"
  83. PRINT #ff, ""
  84. PRINT #ff, "'         Microsoft BC    7.1, Professional Development System"
  85. PRINT #ff, "'         Microsoft QBX   7.1, Professional Development System"
  86. PRINT #ff, "'         Microsoft ISAM  7.1, Professional Development System"
  87. PRINT #ff, "'            Copyright (C) 1987-1989, Microsoft Corporation"
  88. PRINT #ff, "'"
  89. PRINT #ff, "'         PROGEN71.EXE, PROGEN71.OBJ and files"
  90. PRINT #ff, "'         PROGEN71.LIB, PROGEN71.QLB and source are"
  91. PRINT #ff, "'         Copyrighted (C)  1991 by: RAYMOND E DIXON"
  92. PRINT #ff, "'"
  93. PRINT #ff, "'                  RAYMOND E DIXON"
  94. PRINT #ff, "'                  11660 VC JOHNSON RD."
  95. PRINT #ff, "'               Jacksonville, Fl. 32218"
  96. PRINT #ff, "'"
  97. PRINT #ff, "'                  (904) 765-4048"
  98. PRINT #ff, ""
  99. PRINT #ff, " COMMON SHARED masterfile$,key$"
  100. PRINT #ff, ""
  101. PRINT #ff, "' $INCLUDE: 'PROLIB71.BI'"
  102. PRINT #ff, ""
  103. PRINT #ff, "'define record type here"
  104. PRINT #ff, ""
  105. PRINT #ff, "   TYPE RecordType"
  106. PRINT #ff, "         status as STRING * 1  ' set for record used"
  107.  
  108. END SUB
  109.  
  110. SUB PROSRC.2
  111.  
  112. PRINT #ff, " END TYPE"
  113. PRINT #ff, ""
  114. PRINT #ff, " DIM SHARED TestRecField AS RecordType"
  115. PRINT #ff, " DIM SHARED RecField AS RecordType"
  116. PRINT #ff, " DIM DispLine$(30)"
  117. PRINT #ff, " DIM sf$(20)   "
  118. PRINT #ff, ""
  119. PRINT #ff, "   fg = white"
  120. PRINT #ff, "   bg = BLUE"
  121. PRINT #ff, "   rev = RED"
  122. PRINT #ff, " CONST startp = " + LTRIM$(STR$(startp))
  123. PRINT #ff, " LOCATE 25, 1, 0, 0, 0"
  124. PRINT #ff, " COLOR white, BLUE"
  125. PRINT #ff, ""
  126. PRINT #ff, "   mainscreen"
  127.  
  128. END SUB
  129.  
  130. SUB PROSRC.3
  131.  
  132. PRINT #ff, ""
  133. PRINT #ff, "   DO"
  134. PRINT #ff, "      mainscreen"
  135. PRINT #ff, ""
  136. PRINT #ff, "      DrawBox 21, 22, 40, 3, 2, black, white, 1, black, white, 1"
  137. PRINT #ff, "      CenterText " + CHR$(34) + "Current Data File :" + CHR$(34) + " + masterfile$, 22, black, white"
  138. PRINT #ff, ""
  139. PRINT #ff, "              menu$ = " + CHR$(34) + "Add a new Record\" + CHR$(34)
  140. PRINT #ff, "      menu$ = menu$ + " + CHR$(34) + "Browse/Edit Record's\" + CHR$(34)
  141. PRINT #ff, "      menu$ = menu$ + " + CHR$(34) + "Print by Record #\" + CHR$(34)
  142. PRINT #ff, "      menu$ = menu$ + " + CHR$(34) + "Delete a Record\" + CHR$(34)
  143. PRINT #ff, "      menu$ = menu$ + " + CHR$(34) + "Erase  datafile\" + CHR$(34)
  144. PRINT #ff, "      menu$ = menu$ + " + CHR$(34) + "System information\" + CHR$(34)
  145. PRINT #ff, "      menu$ = menu$ + " + CHR$(34) + "Quit (Return to DOS)\" + CHR$(34)
  146. PRINT #ff, ""
  147. PRINT #ff, "      mopt = MenuWindow(0, 0, menu$," + CHR$(34) + "Main Menu" + CHR$(34) + ", black, white, RED, 0)"
  148. PRINT #ff, ""
  149. PRINT #ff, "      'Get the option"
  150. PRINT #ff, ""
  151. PRINT #ff, "      SELECT CASE mopt  'Select on choice"
  152. PRINT #ff, ""
  153.  
  154. END SUB
  155.  
  156. SUB PROSRC.9
  157.  
  158. PRINT #ff, "DEFINT A-Z"
  159. PRINT #ff, "'"
  160. PRINT #ff, "   SUB mainscreen"
  161. PRINT #ff, "   bg = white"
  162. PRINT #ff, "   fg = black"
  163. PRINT #ff, "   rev = RED"
  164. PRINT #ff, "   COLOR white, BLUE"
  165. PRINT #ff, "   DrawBox 1, 1, 80, 25, 2, white, BLUE, 4, white, BLUE, 0"
  166. PRINT #ff, "   DrawBox 2, 20, 40, 4, 2, black, white, 1, black, white, 1"
  167. PRINT #ff, "   CenterText " + CHR$(34) + " the PROGEN database " + CHR$(34) + ", 3, fg, bg "
  168. PRINT #ff, "   CenterText " + CHR$(34) + "By: RAYMOND E DIXON Jacksonville FL" + CHR$(34) + ", 4, fg, bg"
  169. PRINT #ff, "   END SUB"
  170. PRINT #ff, ""
  171.  
  172. PRINT #ff, "DEFINT A-Z"
  173. PRINT #ff, "'"
  174. PRINT #ff, "' return code = 1 if record exist 0 if no record"
  175. PRINT #ff, "'"
  176. PRINT #ff, "   SUB ISM (cmd$, indexnum, retcode)"
  177. PRINT #ff, "            trim cmd$"
  178. PRINT #ff, ""
  179. PRINT #ff, "      KIMcmd$ = UCASE$(cmd$)"
  180. PRINT #ff, ""
  181. PRINT #ff, "      SELECT CASE KIMcmd$"
  182. PRINT #ff, ""
  183. PRINT #ff, "       CASE " + CHR$(34) + "A" + CHR$(34) + " 'add new record"
  184. PRINT #ff, "       CASE " + CHR$(34) + "F" + CHR$(34) + " 'move to first record"
  185. PRINT #ff, "       CASE " + CHR$(34) + "P" + CHR$(34) + " 'move to previous record"
  186. PRINT #ff, "       CASE " + CHR$(34) + "N" + CHR$(34)
  187. PRINT #ff, "       CASE " + CHR$(34) + "L" + CHR$(34)
  188. PRINT #ff, "       CASE " + CHR$(34) + "D" + CHR$(34)
  189. PRINT #ff, "       CASE " + CHR$(34) + "GE" + CHR$(34)
  190. PRINT #ff, "       CASE " + CHR$(34) + "GT" + CHR$(34)
  191. PRINT #ff, "       CASE " + CHR$(34) + "EQ" + CHR$(34)
  192. PRINT #ff, "       CASE ELSE"
  193. PRINT #ff, "           EXIT SUB"
  194. PRINT #ff, "       END SELECT"
  195. PRINT #ff, ""
  196. PRINT #ff, "      SELECT CASE KIMcmd$"
  197. PRINT #ff, ""
  198. PRINT #ff, "'******************************************"
  199. PRINT #ff, "         CASE " + CHR$(34) + "F" + CHR$(34) + "'find first"
  200. PRINT #ff, "'******************************************"
  201. PRINT #ff, "         MOVEFIRST indexnum"
  202. PRINT #ff, "         IF BOF(indexnum) THEN"
  203. PRINT #ff, "         retcode = 0"
  204. PRINT #ff, "         ELSE"
  205. PRINT #ff, "         retcode = 1"
  206. PRINT #ff, "         END IF"
  207. PRINT #ff, ""
  208. PRINT #ff, "'******************************************"
  209. PRINT #ff, "         CASE " + CHR$(34) + "L" + CHR$(34) + "'find last key"
  210. PRINT #ff, "'******************************************"
  211. PRINT #ff, "         MOVELAST indexnum"
  212. PRINT #ff, "          IF EOF(indexnum) THEN"
  213. PRINT #ff, "          retcode = 0"
  214. PRINT #ff, "          ELSE"
  215. PRINT #ff, "          retcode = 1"
  216. PRINT #ff, "          END IF"
  217. PRINT #ff, "'******************************************"
  218. PRINT #ff, "         CASE " + CHR$(34) + "EQ" + CHR$(34) + "'search for key   ="
  219. PRINT #ff, "'******************************************"
  220. PRINT #ff, "         SEEKEQ indexnum, key$"
  221. PRINT #ff, "          IF EOF(indexnum) THEN"
  222. PRINT #ff, "          MOVELAST indexnum"
  223. PRINT #ff, "          retcode = 0"
  224. PRINT #ff, "          ELSE"
  225. PRINT #ff, "          retcode = 1"
  226. PRINT #ff, "          END IF"
  227. PRINT #ff, "'******************************************"
  228. PRINT #ff, "         CASE " + CHR$(34) + "GE" + CHR$(34) + "   'search for key  >="
  229. PRINT #ff, "'******************************************"
  230. PRINT #ff, "         SEEKGE indexnum, key$"
  231. PRINT #ff, "          IF EOF(indexnum) THEN"
  232. PRINT #ff, "          MOVELAST indexnum"
  233. PRINT #ff, "          retcode = 0"
  234. PRINT #ff, "          ELSE"
  235. PRINT #ff, "          retcode = 1"
  236. PRINT #ff, "          END IF"
  237. PRINT #ff, "'******************************************"
  238. PRINT #ff, "         CASE " + CHR$(34) + "GT" + CHR$(34) + "  'search for key >"
  239. PRINT #ff, "'******************************************"
  240. PRINT #ff, "         SEEKGT indexnum, key$"
  241. PRINT #ff, "          IF EOF(indexnum) THEN"
  242. PRINT #ff, "          MOVELAST indexnum"
  243. PRINT #ff, "          retcode = 0"
  244. PRINT #ff, "          ELSE"
  245. PRINT #ff, "          retcode = 1"
  246. PRINT #ff, "          END IF"
  247. PRINT #ff, "'******************************************"
  248. PRINT #ff, "         CASE " + CHR$(34) + "A" + CHR$(34) + "   'add new key"
  249. PRINT #ff, "'******************************************"
  250. PRINT #ff, "         INSERT indexnum, RecField"
  251. PRINT #ff, "         retcode = 1"
  252. PRINT #ff, "'******************************************"
  253. PRINT #ff, "         CASE " + CHR$(34) + "D" + CHR$(34) + "   'delete existing key"
  254. PRINT #ff, "'******************************************"
  255. PRINT #ff, "         DELETE indexnum"
  256. PRINT #ff, "         retcode = 1"
  257. PRINT #ff, "'******************************************"
  258. PRINT #ff, "         CASE " + CHR$(34) + "N" + CHR$(34) + "  ' next key"
  259. PRINT #ff, "'******************************************"
  260. PRINT #ff, "          MOVENEXT indexnum"
  261. PRINT #ff, "          IF EOF(indexnum) THEN"
  262. PRINT #ff, "          MOVELAST indexnum"
  263. PRINT #ff, "          retcode = 0"
  264. PRINT #ff, "          ELSE"
  265. PRINT #ff, "          retcode = 1"
  266. PRINT #ff, "          END IF"
  267. PRINT #ff, "'******************************************"
  268. PRINT #ff, "         CASE " + CHR$(34) + "P" + CHR$(34) + "  ' previous key"
  269. PRINT #ff, "'******************************************"
  270. PRINT #ff, "         MOVEPREVIOUS indexnum"
  271. PRINT #ff, "         IF BOF(indexnum) THEN"
  272. PRINT #ff, "         MOVEFIRST indexnum"
  273. PRINT #ff, "         retcode = 0"
  274. PRINT #ff, "         ELSE"
  275. PRINT #ff, "         retcode = 1"
  276. PRINT #ff, "         END IF"
  277. PRINT #ff, ""
  278. PRINT #ff, "     END SELECT"
  279. PRINT #ff, ""
  280. PRINT #ff, "END SUB"
  281.  
  282. PRINT #ff, "DEFINT A-Z"
  283. PRINT #ff, "'"
  284. PRINT #ff, "' ISMstatus = 1 if records exist, 0 if no records"
  285. PRINT #ff, "'"
  286. PRINT #ff, "FUNCTION ISMstatus (ixn)"
  287. PRINT #ff, ""
  288. PRINT #ff, "      MOVEFIRST ixn"
  289. PRINT #ff, "      IF BOF(ixn) THEN"
  290. PRINT #ff, "      ISMstatus = 0"
  291. PRINT #ff, "      ELSE"
  292. PRINT #ff, "      ISMstatus = 1"
  293. PRINT #ff, "      END IF"
  294. PRINT #ff, ""
  295. PRINT #ff, "END FUNCTION"
  296.  
  297. END SUB
  298.  
  299.