_blink on and _blink off not working

[badger]

Hello

I thought this was the correct usage of the _blink command.  Can someone tell me what i am doing wrong here

Thanks in advance
Badger

Code: QB64: [Select]

1. sprintserrors:
2. CLS
3. SCREEN 0
4. IF se = "" THEN se = "INVALID RESPONSE"
5. itemp = LEN(se)
6. itemp1 = 40 - (itemp / 2)
7. BEEP
8. COLOR 16, 7
9. LOCATE 25, itemp1: _BLINK ON: PRINT se;
10. idelay = 1.5
11. CALL Delay(1.5)
12. _BLINK OFF
13. iflag2 = 1
14. RETURN
15.  

[badger]

Hello

if you need more info please state what you need.

Badger

[bplus]

Had to change se to string in snippet and correct your use of _DELAY
You were using BLINK correctly just all the other crud... :)

Code: QB64: [Select]

1. GOSUB sprintserrors
2. END
3. sprintserrors:
4. CLS
5. SCREEN 0
6. IF se$ = "" THEN se$ = "INVALID RESPONSE"
7. itemp = LEN(se$)
8. itemp1 = 40 - (itemp / 2)
9. BEEP
10. COLOR 16, 7
11. LOCATE 25, itemp1
12. _BLINK ON
13. PRINT se$;
14. 'idelay = 1.5
15. 'CALL Delay(1.5)
16. _DELAY 1.5
17. _BLINK OFF
18. iflag2 = 1
19. RETURN
20.  
21.  
22.  

[FellippeHeitor]

In the default SCREEN 0, colors 17-31 blink. With _BLINK OFF they will stop blinking and background colors will become more intense.

[bplus]

Hey Fellippe, the code I fixed up seems to be blinking OK with colors as given?

[badger]

Hello

Again this day keeps getting better and better. s is defined as a string to any veriable that stats with s is a string. I have changed the program a bit i will post the whole thing if you run the program just type something in bigger than the prompt space and it will trigger the error that is the problem. I am using $color:32 and have did away with the screen 0.

here is the whole program. again please excuse the use of rem statements.

will need to create a directory in your user directory to be able to run the program or fine the gosub that calls the directory check routings ...

badger

Code: QB64: [Select]

1. REM ***************************************************************************
2. REM **** Program Bridal Store *************************************************
3. REM ***************************************************************************
4. REM ***************************************************************************
5. REM **** Author Philip King  **************************************************
6. REM ***************************************************************************
7. REM ***************************************************************************
8. REM ***************************************************************************
9. REM **** Includes go here *****************************************************
10. REM ***************************************************************************
11.  
12. REM ***************************************************************************
13.  
14. REM ***************************************************************************
15. REM **** the variable ifilenum is an important variable it is the number ******
16. REM **** that opens the random file. It will only change value by the *********
17. REM **** main menu choice this is key so please dont change the value *********
18. REM **** of the variable ifilenum in anyway ***********************************
19. REM ***************************************************************************
20.  
21.  
22. REM ***************************************************************************
23. REM **** Sreen statements here ************************************************
24. REM ***************************************************************************
25. SCREEN _NEWIMAGE(640, 400, 32)
26. $COLOR:32
27. REM ***************************************************************************
28.  
29. REM ***************************************************************************
30. REM **** defines for quick use data types *************************************
31. REM ***************************************************************************
32. _DEFINE I AS INTEGER : _DEFINE S AS STRING : _DEFINE D AS DOUBLE :
33. _DEFINE F AS _FLOAT : _DEFINE L AS LONG : _DEFINE Z AS _UNSIGNED _INTEGER64
34. REM ***************************************************************************
35.  
36. REM ***************************************************************************
37. REM **** Listing of subs and funtions *****************************************
38. REM ***************************************************************************
39.  
40. REM ***************************************************************************
41.  
42. REM ***************************************************************************
43. REM **** arrays decleared here ************************************************
44. REM ***************************************************************************
45. imenu = 4
46. DIM SHARED smenu(imenu) AS STRING
47. REM ***************************************************************************
48.  
49. REM ***************************************************************************
50. REM **** arrays set to data here **********************************************
51. REM ***************************************************************************
52. smenu(1) = "1) Edit Customer Info": smenu(2) = "3) Edit Inventory Data "
53. smenu(3) = "2) Edit Sales ": smenu(4) = "4) System Maintenance "
54. REM ***************************************************************************
55.  
56. REM ***************************************************************************
57. REM **** variables declares go here *******************************************
58. REM ***************************************************************************
59. DIM SHARED sr AS STRING
60. CONST null = ""
61. DIM SHARED zrecordnum
62. DIM SHARED lrecordlen
63. DIM shomedir AS STRING
64. shomedir = _CWD$
65. REM ***************************************************************************
66.  
67. REM ***************************************************************************
68. REM **** customer info record type ********************************************
69. REM ***************************************************************************
70. TYPE customer
71.     id AS STRING * 10
72.     sfirst_name AS STRING * 25
73.     slast_name AS STRING * 25
74.     saddress AS STRING * 30
75.     scity AS STRING * 25
76.     sstate AS STRING * 2
77.     szip AS STRING * 5
78.     sphone AS STRING * 10
79.     sdesc AS STRING * 10
80.     sfiller AS STRING * 114
81. END TYPE
82. REM ***************************************************************************
83.  
84. REM ***************************************************************************
85. REM **** inventory record type ************************************************
86. REM ***************************************************************************
87. TYPE inventory
88.     id AS STRING * 10
89.     sdesc AS STRING * 10
90.     sdate_bought AS STRING * 8
91.     sdate_sold AS STRING * 8
92.     scost AS STRING * 15
93.     sretail AS STRING * 15
94.     ssize AS STRING * 2
95.     ssold AS STRING * 1
96.     squanity AS STRING * 2
97.     sfiller AS STRING * 57
98. END TYPE
99. REM ***************************************************************************
100.  
101. REM ***************************************************************************
102. REM **** system data file record **********************************************
103. REM ***************************************************************************
104. TYPE systemdat
105.     sdata0 AS STRING * 64 '   data path for customer discription files
106.     sdata1 AS STRING * 64 '   data path for inventory discription files
107.     sdata2 AS STRING * 64 '   data path for pos discription files
108.     sdbpath AS STRING * 64 '  data path for database files
109. END TYPE
110. REM ***************************************************************************
111.  
112. REM ***************************************************************************
113. REM **** point of sale type ***************************************************
114. REM ***************************************************************************
115. TYPE sposlposid
116.     sposid AS STRING * 10
117. END TYPE
118. REM ***************************************************************************
119. DIM SHARED scustinforec AS customer
120. DIM SHARED systemrec AS systemdat
121. DIM SHARED sinventoryrec AS inventory
122. linventorylen = LEN(sinventoryrec)
123. lcustreclen = LEN(scustinforec)
124. lsystemreclen = LEN(systemrec)
125. REM ***************************************************************************
126.  
127. REM ***************************************************************************
128. REM **** metadata commands ****************************************************
129. REM ***************************************************************************
130. $VERSIONINFO:CompanyName=Joyces Bridal
131. $VERSIONINFO:ProductName=Joyce Bridal
132. $VERSIONINFO:ProductVersion=1.0
133. $VERSIONINFO:LegalCopyright=10/8/2020
134. '$VERSIONINFO:
135. REM ***************************************************************************
136.  
137. CLS
138. GOSUB dircheck
139. REM ***************************************************************************
140.  
141. REM ***************************************************************************
142. REM **** opening screen *******************************************************
143. REM ***************************************************************************
144. 'SCREEN 12
145. 'DIM irow AS INTEGER, icnt AS INTEGER, icstart AS SINGLE, icend AS SINGLE
146. 'DIM ixrot AS INTEGER, iyrot AS INTEGER, iscale AS INTEGER
147. '_FULLSCREEN 'full screen optional
148. 'icstart = 0: icend = 8 * ATN(1)
149. 'ixrot = 6: iyrot = 60: iscale = 4
150. 'irow = 1
151. 'CIRCLE (320, 240), 15, 9: PAINT STEP(0, 0), 9
152. 'DO
153. '    FOR i = icstart TO icend STEP .04
154. 'x = 300 + (iscale * 40 - (irow * ixrot)) * COS(i)
155. 'y = 200 + (iscale * 40 - (irow * iyrot)) * SIN(i)
156. 'icnt = icnt + 1
157. 'COLOR 7: _PRINTSTRING (x, y), "Joyce's Bridal", 0 'display
158. '        IF icnt = LEN(text$) * 8 THEN icnt = 0: EXIT DO
159. '_DISPLAY
160. 'COLOR 0: _PRINTSTRING (x, y), "Joyce's Bridal", 0 'erase
161. ' _DELAY 0.06
162. '    NEXT
163. 'LOOP UNTIL INKEY$ = CHR$(27) 'escape key exit
164. 'COLOR 15
165. 'REM ***************************************************************************
166.  
167. REM ***************************************************************************
168. REM **** go to main program start *********************************************
169. REM ***************************************************************************
170. GOTO main
171. REM ***************************************************************************
172.  
173. REM ***************************************************************************
174. REM **** main menu loop *******************************************************
175. REM ***************************************************************************
176. menuloop:
177. GOSUB systemheader
178. GOSUB printmain
179. GOSUB mainmenuchoice
180. IF sr = "" OR sr = CHR$(13) THEN GOTO menuloop
181. IF sr = "X" THEN END
182. IF sr = "1" THEN
183.     CLS
184.     GOSUB scustinforec_null
185.     sunit = "Customer Information Maintenance"
186.     GOSUB systemheader
187.     GOSUB s0
188. END IF
189. IF sr = "3" THEN
190.     CLS
191.     GOSUB inventoryrec_null
192.     sunit = "Inventory Information Maintenance"
193.     GOSUB systemheader
194.     GOSUB inv0
195. END IF
196.  
197. IF sr = "4" THEN
198.     GOSUB systemdat_null
199.     sunit = "System Information Maintenance"
200.     GOSUB systemheader
201.     GOSUB sys0
202. END IF
203. RETURN
204. REM ***************************************************************************
205.  
206. REM ***************************************************************************
207. REM **** fix computer svc to show no [] in print ******************************
208. REM ***************************************************************************
209. svcfix:
210. svc = _OS$
211. itemp = LEN(svc)
212. FOR ix = 1 TO itemp
213.     IF MID$(svc, ix, 1) = "[" THEN
214.         MID$(svc, ix, 1) = " "
215.     END IF
216.     IF MID$(svc, ix, 1) = "]" THEN
217.         MID$(svc, ix, 1) = " "
218.     END IF
219. NEXT ix
220. stemp = LTRIM$(LEFT$(svc, 2)) + LCASE$(MID$(svc, 3, 7)) + LTRIM$(MID$(svc, 9, 4)) + " " + MID$(svc, 13, 1)
221. stemp = stemp + RTRIM$(LCASE$(RIGHT$(svc, 3)))
222. svc = stemp
223. RETURN
224. REM ***************************************************************************
225.  
226. REM ***************************************************************************
227. REM **** Sytem Header *********************************************************
228. REM ***************************************************************************
229. systemheader:
230. CLS
231. COLOR White, Blue
232. CLS
233. LOCATE 1, 1: PRINT CHR$(201): LOCATE 1, 80: PRINT CHR$(187)
234. LOCATE 1, 2: PRINT STRING$(78, 205):
235. FOR ix = 2 TO 7
236.     LOCATE ix, 1: PRINT CHR$(186)
237.     LOCATE ix, 80: PRINT CHR$(186)
238. NEXT ix
239. LOCATE 7, 2: PRINT STRING$(78, 205)
240. LOCATE 7, 1: PRINT CHR$(200): LOCATE 7, 80: PRINT CHR$(188)
241. LOCATE 4, 30: PRINT "Main System Menu"
242. LOCATE 4, 63: PRINT "Date ": LOCATE 4, 68: PRINT DATE$
243. GOSUB svcfix
244. LOCATE 4, 4: PRINT svc
245. iten = LEN(sunit)
246. LOCATE 6, (40 - (iten \ 2)): PRINT sunit
247.  
248. RETURN
249. REM ***************************************************************************
250.  
251. REM ***************************************************************************
252. REM **** printes in system erros **********************************************
253. REM ***************************************************************************
254. sprintserrors:
255. CLS
256.  
257. IF se = "" THEN se = "INVALID RESPONSE"
258. itemp = LEN(se)
259. itemp1 = 40 - (itemp / 2)
260. BEEP
261. COLOR Yellow, Black
262. LOCATE 25, itemp1: _BLINK ON: PRINT se;
263. CALL Delay(1.5)
264. _BLINK OFF
265. iflag2 = 1
266. COLOR White, Blue
267. CLS
268. RETURN
269. REM ***************************************************************************
270.  
271. REM ***************************************************************************
272. REM **** numeric input sub ****************************************************
273. REM ***************************************************************************
274. snumeric:
275. ftemp = VAL(sr)
276. IF ftemp < ilow OR ftemp > ihigh THEN
277.     se = "INPUT OUT OF BOUNDS"
278.     GOSUB sprintserrors
279. END IF
280. REM ***************************************************************************
281.  
282. REM ***************************************************************************
283. REM **** alpha input sub ******************************************************
284. REM ***************************************************************************
285. salphainput:
286. iflag2 = 0
287. ilength1 = LEN(sr)
288. ilength2 = LEN(saction) + 2
289. LOCATE 23, 1: PRINT saction; '               prints action menu
290. LOCATE 23, ilength2 '                        set prompt one space after action menu print
291. COLOR Yellow, Black: PRINT SPC(ib); '        changes color and prints ib spaces to screen for input lenght
292. LOCATE 23, ilength2 '                        sets curser at the begining of input space from previouse line
293. LINE INPUT sr: sr = UCASE$(sr) '             inputs data from user changes it to upper case
294. IF LEN(sr) > ib THEN
295.     se = "INVALID INPUT LENGTH"
296.     GOSUB sprintserrors
297.     sr = ""
298.     iflag2 = 1
299.     SELECT CASE ifilenum
300.         CASE 0: GOSUB systemheader
301.             GOSUB printmain
302.         CASE 1: GOSUB systemheader
303.             GOSUB s0
304.         CASE 3: GOSUB systemheader
305.             GOSUB inv1
306.     END SELECT
307.     GOTO salphainput
308. END IF
309. IF sr = "X" AND iflag1 = 1 THEN iflag1 = 0
310. IF iflag1 = 1 AND VAL(sr) < ilow AND VAL(sr) > ihigh THEN GOSUB snumeric
311. COLOR White, Blue
312. RETURN
313. REM ***************************************************************************
314.  
315. REM ***************************************************************************
316. REM **** main menu to the screen **********************************************
317. REM ***************************************************************************
318. printmain:
319. ifilenum = 0
320. COLOR White, Blue
321. FOR ix = 11 TO imenu
322.     READ smenu(ix): LOCATE ix, 20: PRINT smenu(ix)
323. NEXT ix
324. LOCATE 11, 15: PRINT smenu(1)
325. LOCATE 11, 40: PRINT smenu(2)
326. LOCATE 13, 15: PRINT smenu(3)
327. LOCATE 13, 40: PRINT smenu(4)
328. RETURN
329. REM ***************************************************************************
330.  
331. REM ***************************************************************************
332. REM **** menu prompts start here **********************************************
333. REM ***************************************************************************
334. mainmenuchoice:
335. ib = 1
336. ihigh = 99
337. ilow = 1
338. saction = "Choose Menu Option or X to Quit "
339. GOSUB salphainput
340. RETURN
341. REM ***************************************************************************
342.  
343. REM ***************************************************************************
344. REM **** clean up the prompt area *********************************************
345. REM ***************************************************************************
346. clearprompt:
347. LOCATE 23, 1: PRINT STRING$(79, 32)
348. RETURN
349. REM ***************************************************************************
350.  
351. REM ***************************************************************************
352. REM **** set custinforrec variables to zero or null ***************************
353. REM ***************************************************************************
354. scustinforec_null:
355. scustinforec.id = null
356. scustinforec.sfirst_name = null
357. scustinforec.slast_name = null
358. scustinforec.saddress = null
359. scustinforec.scity = null
360. scustinforec.sstate = null
361. scustinforec.szip = null
362. scustinforec.sphone = null
363. RETURN
364. REM ***************************************************************************
365.  
366. REM ***************************************************************************
367. REM **** set inventoryrec variables to zero or null ***************************
368. REM ***************************************************************************
369. inventoryrec_null:
370. sinventory.id = null
371. sinventory.sdesc = null
372. sinventory.sdate_bought = null
373. sinventory.sdate_sold = null
374. sinventory.scost = null
375. sinventory.fretail = null
376. sinventory.ssize = null
377. sinventory.ssold = null
378. RETURN
379. REM ***************************************************************************
380. REM **** set systemrec variagles to zero or null*******************************
381. REM ***************************************************************************
382. systemdat_null:
383. systemdat.sspath = null
384. systemdat.sdata1 = null
385. systemdat.sdata2 = null
386. systemdat.sdata3 = null
387. RETURN
388. REM ***************************************************************************
389.  
390. REM ***************************************************************************
391. REM **** opens random files ***************************************************
392. REM ***************************************************************************
393. randomfiles:
394. sdbpath = shomedir + "\data\db\"
395. OPEN sdbpath + "jbridal.db" FOR RANDOM AS #1 LEN = lcustreclen
396. OPEN sdbpath + "system.db" FOR RANDOM AS #4 LEN = lsystemreclen
397. OPEN sdbpath + "inventory.db" FOR RANDOM AS #3 LEN = linventorylen
398. zsystemrecnum = LOF(4) / lsystemreclen
399. RETURN
400. REM ***************************************************************************
401.  
402. REM ***************************************************************************
403. REM **** inserts record into random file **************************************
404. REM ***************************************************************************
405. insertrec:
406. SELECT CASE ifilenum
407.     CASE 1
408.         PUT #1, zcustrecnum, scustinforec
409.     CASE 3
410.  
411.         PUT #3, zinventorynum, sinventoryrec
412. END SELECT
413. RETURN
414. REM ***************************************************************************
415.  
416. REM ***************************************************************************
417. REM **** get last file index for indexing *************************************
418. REM ***************************************************************************
419.  
420. autoindex:
421. zinventorynum = 0
422. SELECT CASE ifilenum
423.     CASE 1:
424.         zcustrecnum = LOF(1) / lcustreclen
425.         zcustrecnum = zcustrecnum + 1
426.         sindex = LTRIM$(STR$(zcustrecnum))
427.         IF LEN(sindex) < 9 THEN
428.             sindex = STRING$(9 - LEN(sindex), 48) + sindex
429.             scustinforec.id = sindex
430.         END IF
431.     CASE 3:
432.         zinventorynum = LOF(3) / linventorylen
433.         zinventorynum = zinventorynum + 1
434.         sindex = LTRIM$(STR$(zinventorynum))
435.         IF LEN(sindex) < 9 THEN
436.             sindex = STRING$(9 - LEN(sindex), 48) + sindex
437.             sinventoryrec.id = sindex
438.  
439.         END IF
440. END SELECT
441.  
442.  
443. RETURN
444. REM ***************************************************************************
445.  
446. REM ***************************************************************************
447. REM **** shell for notepad for description files by inventory number **********
448. REM ***************************************************************************
449. descinput:
450. sdbtemp = LTRIM$(RTRIM$(sdata)) + LTRIM$(RTRIM$(sdesc)) + ".txt"
451. ifileexists = _FILEEXISTS(sdbtemp)
452. IF ifileexists = -1 THEN
453.     SHELL "wordpad " + CHR$(34) + sdbtemp + CHR$(34)
454. ELSE
455.     OPEN sdbtemp FOR OUTPUT AS #6
456.     PRINT #6, "Type in your stuff. Save the file and exit."
457.     CLOSE #6
458.     SHELL "wordpad " + CHR$(34) + sdbtemp + CHR$(34)
459. END IF
460. RETURN
461. REM ***************************************************************************
462.  
463. REM ***************************************************************************
464. REM **** main modual **********************************************************
465. REM ***************************************************************************
466. main:
467. GOSUB randomfiles
468. 'SCREEN _NEWIMAGE(640, 400, 32)
469. '$COLOR:32
470. COLOR LightCyan, MidnightBlue
471. iflag2 = 0
472. iflag3 = 0
473. CLS
474. _FULLSCREEN
475. REM ***************************************************************************
476. mainloop:
477. GOSUB menuloop:
478. SELECT CASE sr
479.     CASE "1":
480.         sdata = shomedir + "\data\custdesc\"
481.         ifilenum = 1
482.         GOSUB scustinforec_null
483.         GOSUB autoindex
484.         GOSUB s1
485.         GOTO mainloop
486.     CASE "2"
487.         sdata = shomedir + "\data\posdesc\"
488.         'IF sr = "2" THEN
489.         'ifilenum = 2
490.         'GOSUB inventoryrec_null
491.         'GOSUB inv1
492.         'GOTO mainloop
493.         'END IF
494.  
495.     CASE "3":
496.         sdata = shomedir + "\data\invdesc\"
497.         ifilenum = 3
498.         GOSUB inventoryrec_null
499.         GOSUB autoindex
500.         sinventoryrec.scost = "0.00"
501.         sinventoryrec.sretail = "0.00"
502.         GOSUB inv1
503.         GOTO mainloop
504.  
505.     CASE "4":
506.         'sdb =  shomedir + "\data\custdesc"
507.         'ifilenum = 4
508.         ' GOSUB systemdat_null
509.         ' GOSUB sys1
510.         ' GOTO mainloop
511.  
512. END SELECT
513. RETURN
514. REM ***************************************************************************
515.  
516. REM ***************************************************************************
517. REM **** check for statup directories *****************************************
518. REM ***************************************************************************
519. dircheck:
520. SELECT CASE _DIREXISTS(shomedir)
521.     CASE -1:
522.         GOTO dirchk1
523.     CASE 0:
524.         BEEP
525.         CLS
526.         LOCATE 12, 27
527.         PRINT "Home Director Does not Exists"
528.         LOCATE 13, 23: PRINT "Please Create Jbridal in Your Home dir"
529.         LOCATE 14, 30: PRINT "And Rerun The program"
530.         LOCATE 16, 32: PRINT "Enter to continue"
531.         LINE INPUT st
532.         CLOSE
533.         END
534. END SELECT
535.  
536. dirchk1:
537.  
538. iflag = _DIREXISTS(shomedir + "\data")
539. IF iflag = 0 THEN MKDIR shomedir + "\data"
540.  
541. iflag = _DIREXISTS(shomedir + "\data\db")
542. IF iflag = 0 THEN MKDIR shomedir + "\data\db"
543.  
544. iflag = _DIREXISTS(shomedir + "\data\custdesc")
545. IF iflag = 0 THEN MKDIR shomedir + "\data\custdesc"
546.  
547. iflag = _DIREXISTS(shomedir + "\data\invdesc")
548. IF iflag = 0 THEN MKDIR shomedir + "\data\invdesc"
549.  
550. iflag = _DIREXISTS(shomedir + "\data\posdesc")
551. IF iflag = 0 THEN MKDIR shomedir + "\data\posdesc"
552. RETURN
553. REM ***************************************************************************
554. REM ***************************************************************************
555. REM **** system utilities data entry ******************************************
556. REM ***************************************************************************
557. sys0:
558. LOCATE 10, 1: PRINT "Customer Discription File Path  ";: PRINT systemdat.sdata0 = _CWD$
559. LOCATE 11, 1: PRINT "Inventory Discription File Path ";: PRINT systemdat.sdata1
560. LOCATE 12, 1: PRINT "Pos Discription File Path       ";: PRINT systemdat.sdata2
561. LOCATE 13, 1: PRINT "Enter Path For Databases        ";: PRINT systemdat.sdbpath
562. RETURN
563. REM ***************************************************************************
564. sys1:
565. saction = "Customer Disc File Path "
566. ib = 64
567. ilow = 1
568. ihigh = 1
569. iflag1 = 0
570. GOSUB clearprompt
571. GOSUB salphainput
572. IF sr = "" THEN GOTO sys1
573. IF sr = CHR$(88) THEN RETURN 'X
574. systemdat.sdata0 = sr
575. GOSUB sys0
576. GOTO sys2
577. REM ***************************************************************************
578.  
579. sys2:
580. saction = "Inventory Disc File Path "
581. ib = 64
582. ilow = 1
583. ihigh = 1
584. iflag1 = 0
585. GOSUB clearprompt
586. GOSUB salphainput
587. IF sr = "" THEN GOTO sys2
588. IF sr = CHR$(88) THEN RETURN 'X
589. systemdat.sdata1 = sr
590. GOSUB sys0
591. GOTO sys2
592. REM ***************************************************************************
593. sys3:
594. saction = "POS Disc File Path "
595. ib = 64
596. ilow = 1
597. ihigh = 1
598. iflag1 = 0
599. GOSUB clearprompt
600. GOSUB salphainput
601. IF sr = "" THEN GOTO sys3
602. IF sr = CHR$(88) THEN RETURN 'X
603. systemdat.sdata2 = sr
604. GOSUB sys0
605. GOTO sys4
606. REM ***************************************************************************
607. sys4:
608. saction = "Enter Database File Path "
609. ib = 64
610. ilow = 1
611. ihigh = 1
612. iflag1 = 0
613. GOSUB clearprompt
614. GOSUB salphainput
615. IF sr = "" THEN GOTO sys3
616. IF sr = CHR$(88) THEN RETURN 'X
617. systemdat.sdbpath = sr
618. GOSUB sys0
619. GOTO sys4
620. REM ***************************************************************************
621.  
622. REM ***************************************************************************
623. REM ***************************************************************************
624. REM **** inventory input modual ***********************************************
625. REM ***************************************************************************
626. inv0:
627. LOCATE 10, 1: PRINT "Inventory Number         ";: PRINT sinventoryrec.id
628. LOCATE 11, 1: PRINT "Description File Name    ";: PRINT sinventoryrec.sdesc
629. LOCATE 12, 1: PRINT "Date Purchased           ";
630. PRINT LEFT$(sinventoryrec.sdate_bought, 2) + "/";
631. PRINT MID$(sinventoryrec.sdate_bought, 3, 2) + "/";
632. PRINT RIGHT$(sinventoryrec.sdate_bought, 4)
633. LOCATE 13, 1: PRINT "Date Sold                ";
634. PRINT LEFT$(sinventoryrec.sdate_sold, 2) + "/";
635. PRINT MID$(sinventoryrec.sdate_sold, 3, 2) + "/";
636. PRINT RIGHT$(sinventoryrec.sdate_sold, 4)
637.  
638. LOCATE 14, 1: PRINT "Coste of Item            ";: PRINT sinventoryrec.scost
639. LOCATE 15, 1: PRINT "Retail Price             ";: PRINT sinventoryrec.sretail
640. LOCATE 16, 1: PRINT "Size Of Item             ";: PRINT sinventoryrec.ssize
641. LOCATE 17, 1: PRINT "Remove for Inventory Y/N ";: PRINT sinventoryrec.ssold
642. LOCATE 18, 1: PRINT "Enter Quanity of Item    ";: PRINT sinventoryrec.squanity
643. RETURN
644. REM ***************************************************************************
645. inv1:
646. GOSUB inv0
647. GOTO inv2
648. REM ***************************************************************************
649. inv2:
650. saction = "Enter D for Default, Type Name, X to Exit - To Backup "
651. ib = 8
652. ilow = 1
653. ihigh = 999999999
654. iflag1 = 0
655. GOSUB clearprompt
656. GOSUB salphainput
657. SELECT CASE sr
658.     CASE CHR$(88): RETURN 'X
659.         'CASE CHR$(45): GOTO inv2 '-
660.     CASE "":
661.         sinventoryrec.sdesc = sinventoryrec.id
662.         sdesc = sinventoryrec.id
663.         GOSUB descinput
664.         GOSUB inv0
665.         GOTO inv3
666.  
667.     CASE CHR$(68): 'D for using the sinventoryrec.id as the file name
668.         sinventoryrec.sdesc = sinventoryrec.id
669.         sdesc = sinventoryrec.id
670.         GOSUB descinput
671.         GOSUB inv0
672.         GOTO inv3
673.     CASE ELSE
674.         sinventoryrec.sdesc = sr
675.         sdesc = sr
676.         GOSUB descinput
677.         GOSUB inv0
678.         GOTO inv3
679. END SELECT
680. REM ***************************************************************************
681. inv3:
682. saction = "Enter Date Bought X to Exit - To Backup "
683. ib = 8
684. ilow = 1
685. ihigh = 999999999
686. iflag1 = 0
687. GOSUB clearprompt
688. GOSUB salphainput
689. SELECT CASE sr
690.     CASE CHR$(88): RETURN 'X
691.     CASE CHR$(45): GOTO inv2 '-
692.     CASE "": GOTO inv4 ' key or ""
693.     CASE ELSE
694.         sinventoryrec.sdate_bought = sr
695.         GOSUB inv0
696.         GOTO inv4
697. END SELECT
698.  
699. REM ***************************************************************************
700. inv4:
701. saction = "Enter Date Sold X to Exit - To Backup "
702. ib = 8
703. ilow = 1
704. ihigh = 999999999
705. iflag1 = 0
706. GOSUB clearprompt
707. GOSUB salphainput
708. SELECT CASE sr
709.     CASE CHR$(88): RETURN 'X
710.     CASE CHR$(45): GOTO inv2 '-
711.     CASE "": GOTO inv5 ' ""
712.     CASE ELSE
713.         GOSUB inventoryrec_null
714.         sinventoryrec.sdate_sold = sr
715.         GOSUB inv0
716.         GOTO inv5
717. END SELECT
718.  
719. REM ***************************************************************************
720. inv5:
721. saction = "Enter Cost X to Exit - To Backup "
722. ib = 15
723. ilow = 1
724. ihigh = 999999999
725. iflag1 = 0
726.  
727. GOSUB clearprompt
728. GOSUB salphainput
729. SELECT CASE sr
730.     CASE CHR$(88): RETURN 'X
731.     CASE CHR$(45): GOTO inv4 '-
732.     CASE "": GOTO inv6 '  ""
733.     CASE ELSE
734.         GOSUB inventoryrec_null
735.         sinventoryrec.scost = sr
736.         GOSUB inv0
737.         GOTO inv6
738. END SELECT
739. REM ***************************************************************************
740. inv6:
741. saction = "Enter Retail Price X to Exit - To Backup "
742. ib = 15
743. ilow = 1
744. ihigh = 999999999
745. iflag1 = 0
746. GOSUB clearprompt
747. GOSUB salphainput
748. SELECT CASE sr
749.     CASE CHR$(88): RETURN 'X
750.     CASE CHR$(45): GOTO inv5 '-
751.     CASE "": GOTO inv7 '  ""
752.     CASE ELSE
753.         GOSUB inventoryrec_null
754.         sinventoryrec.sretail = sr
755.         GOSUB inv0
756.         GOTO inv7
757. END SELECT
758.  
759. REM ***************************************************************************
760. inv7:
761. saction = "Enter Dress Size X to Exit - To Backup "
762. ib = 2
763. ilow = 1
764. ihigh = 999999999
765. iflag1 = 0
766. GOSUB clearprompt
767. GOSUB salphainput
768. SELECT CASE sr
769.     CASE CHR$(88): RETURN 'X
770.     CASE CHR$(45): GOTO inv6 '-
771.     CASE "": GOTO inv8 ' ""
772.     CASE ELSE
773.         GOSUB inventoryrec_null
774.         sinventoryrec.ssize = sr
775.         GOSUB inv0
776.         GOTO inv8
777. END SELECT
778. REM ***************************************************************************
779. inv8:
780. saction = "Did Dress Sale Y/N X to Exit - To Backup "
781. ib = 1
782. ilow = 1
783. ihigh = 999999999
784. iflag1 = 0
785. GOSUB clearprompt
786. GOSUB salphainput
787. SELECT CASE sr
788.     CASE CHR$(88): RETURN 'X
789.     CASE CHR$(45): GOTO inv7 '-
790.     CASE "": GOTO inv8
791.     CASE ELSE
792.         GOSUB inventoryrec_null
793.         sinventoryrec.ssold = sr
794.         GOSUB inv0
795.         GOTO inv9
796. END SELECT
797. REM ***************************************************************************
798. inv9:
799. saction = "Enter Quanity of Inventory X to Exit - To Backup "
800. ib = 4
801. ilow = 1
802. ihigh = 999999999
803. iflag1 = 0
804. GOSUB clearprompt
805. GOSUB salphainput
806. SELECT CASE sr
807.     CASE CHR$(88): RETURN 'X
808.     CASE CHR$(45): GOTO inv8 '-
809.     CASE "": GOTO puttorecord ' ""
810.     CASE ELSE
811.         GOSUB inventoryrec_null
812.         sinventoryrec.squanity = sr
813.         GOSUB inv0
814.         GOTO puttorecord
815. END SELECT
816. REM ***************************************************************************
817. REM ***************************************************************************
818. REM ***************************************************************************
819. REM **** customer input modual ************************************************
820. REM ***************************************************************************
821. s0:
822. LOCATE 10, 1: PRINT "Customer ID           ";: PRINT scustinforec.id
823. LOCATE 11, 1: PRINT "Customer First Name   ";: PRINT scustinforec.sfirst_name
824. LOCATE 12, 1: PRINT "customer Last Name    ";: PRINT scustinforec.slast_name
825. LOCATE 13, 1: PRINT "Customer Address      ";: PRINT scustinforec.saddress
826. LOCATE 14, 1: PRINT "Customer City         ";: PRINT scustinforec.scity
827. LOCATE 15, 1: PRINT "customer State        ";: PRINT scustinforec.sstate
828. LOCATE 16, 1: PRINT "customer Zip          ";: PRINT scustinforec.szip
829. LOCATE 17, 1: PRINT "Customer Phone Number ";
830. PRINT "(" + LEFT$(scustinforec.sphone, 3) + ")-"; MID$(scustinforec.sphone, 4, 3) + "-"; RIGHT$(scustinforec.sphone, 4)
831. LOCATE 18, 1: PRINT "Description File Name ";: PRINT scustinforec.sdesc
832. RETURN
833. REM ***************************************************************************
834.  
835. s1:
836. scustinforec.sdesc = scustinforec.id
837. GOSUB s0
838. GOTO s2
839. REM ***************************************************************************
840.  
841. s2:
842. saction = "Enter First Name X to Exit - To Backup "
843. ib = 25
844. ilow = 99
845. ihigh = 99
846. iflag1 = 0
847. GOSUB clearprompt
848. GOSUB salphainput
849. SELECT CASE sr
850.     CASE "": GOTO s4
851.     CASE CHR$(88): RETURN 'X
852.     CASE CHR$(45): GOTO s2 '-
853.     CASE ELSE
854.         scustinforec.sfirst_name = sr
855.         GOSUB s0
856.         GOTO s3
857. END SELECT
858.  
859.  
860.  
861. REM ***************************************************************************
862. s3:
863. saction = "Enter Last Name X to Exit - To Back up "
864. ib = 25
865. ilow = 99
866. ihigh = 99
867. iflag1 = 0
868. GOSUB clearprompt
869. GOSUB salphainput
870. SELECT CASE sr
871.     CASE "": GOTO s4
872.     CASE CHR$(88): RETURN 'X
873.     CASE CHR$(45): GOTO s2 '-
874.     CASE ELSE
875.         scustinforec.slast_name = sr
876.         GOSUB s0
877.         GOTO s4
878. END SELECT
879. REM ***************************************************************************
880.  
881. s4:
882. saction = "Enter Address X to Exit - To Back up "
883. ib = 30
884. ilow = 99
885. ihigh = 99
886. iflag1 = 0
887. GOSUB clearprompt
888. GOSUB salphainput
889. SELECT CASE sr
890.     CASE "": GOTO s5
891.     CASE CHR$(88): RETURN 'X
892.     CASE CHR$(45): GOTO s3 '-
893.     CASE ELSE
894.         scustinforec.saddress = sr
895.         GOSUB s0
896.         GOTO s5
897. END SELECT
898. REM ***************************************************************************
899.  
900. s5:
901. saction = "Enter City Name X to Exit - To Back up "
902. ib = 25
903. ilow = 99
904. ihigh = 99
905. iflag1 = 0
906. GOSUB clearprompt
907. GOSUB salphainput
908. SELECT CASE sr
909.     CASE "": GOTO s6
910.     CASE CHR$(88): RETURN 'X
911.     CASE CHR$(45): GOTO s4 '-
912.     CASE ELSE
913.         scustinforec.scity = sr
914.         GOSUB s0
915.         GOTO s6
916. END SELECT
917. REM ***************************************************************************
918. s6:
919. saction = "Enter State X to Exit - To Back up "
920. ib = 2
921. ilow = 99
922. ihigh = 99
923. iflag1 = 0
924. GOSUB clearprompt
925. GOSUB salphainput
926. SELECT CASE sr
927.     CASE "": GOTO s7
928.     CASE CHR$(88): RETURN 'X
929.     CASE CHR$(45): GOTO s5 '-
930.     CASE ELSE
931.         scustinforec.sstate = sr
932.         GOSUB s0
933.         GOTO s7
934. END SELECT
935. REM ***************************************************************************
936.  
937. s7:
938. saction = "Enter Zip Code Name X to Exit - To Back up "
939. ib = 5
940. ilow = 99
941. ihigh = 99
942. iflag1 = 0
943. GOSUB clearprompt
944. GOSUB salphainput
945. SELECT CASE sr
946.     CASE "": GOTO s8
947.     CASE CHR$(88): RETURN 'X
948.     CASE CHR$(45): GOTO s6 '-
949.     CASE ELSE
950.         scustinforec.szip = sr
951.         GOSUB s0
952.         GOTO s8
953. END SELECT
954. REM ***************************************************************************
955. s8:
956. saction = "Enter Phone Number X to Exit - To Back up "
957. ib = 10
958. ilow = 99
959. ihigh = 99
960. iflag1 = 0
961. GOSUB clearprompt
962. GOSUB salphainput
963. SELECT CASE sr
964.     CASE CHR$(88): RETURN 'X
965.     CASE CHR$(45): GOTO s7 '-
966.     CASE CHR$(68): GOTO s9
967.     CASE CHR$(0): GOTO s0
968.     CASE ELSE
969.         scustinforec.sphone = sr
970.         GOSUB s0
971.         GOTO s9
972. END SELECT
973. REM ***************************************************************************
974. REM ***************************************************************************
975. s9:
976. saction = "Enter Description File Name D or Enter - To Back up "
977. ib = 10
978. ilow = 99
979. ihigh = 99
980. iflag1 = 0
981. GOSUB clearprompt
982. GOSUB salphainput
983. SELECT CASE sr
984.     CASE CHR$(88): RETURN 'X
985.     CASE CHR$(45): GOTO inv1 '-
986.     CASE "":
987.         scustinforec.sdesc = scustinforec.id
988.         sdesc = scustinforec.id
989.         GOSUB descinput
990.         GOSUB s0
991.         GOTO puttorecord
992.  
993.     CASE CHR$(68): 'D for using the sinventoryrec.id as the file name
994.         scustinforec.sdesc = scustinforec.id
995.         sdesc = scustinforec.id
996.         GOSUB descinput
997.         GOSUB s0
998.         GOTO puttorecord
999.  
1000.     CASE ELSE
1001.         scustinforec.sdesc = sr
1002.         sdesc = sr
1003.         GOSUB descinput
1004.         GOSUB s0
1005.         GOTO puttorecord
1006. END SELECT
1007.  
1008. REM ***************************************************************************
1009. REM **** ask if you want to put data to record ********************************
1010. REM ***************************************************************************
1011. puttorecord:
1012. saction = "Commit Data to File Y/N"
1013. ib = 1
1014. ilow = 99
1015. ihigh = 99
1016. iflag1 = 0
1017. GOSUB clearprompt
1018. GOSUB salphainput
1019. SELECT CASE sr
1020.     CASE "Y":
1021.         GOSUB insertrec
1022.  
1023.     CASE "N":
1024.         RETURN
1025. END SELECT
1026. RETURN
1027. REM ***************************************************************************
1028.  
1029. REM ***************************************************************************
1030. REM **** delay loop ***********************************************************
1031. REM ***************************************************************************
1032. SUB Delay (dlay!)
1033.     start! = TIMER
1034.     DO WHILE start! + dlay! >= TIMER
1035.         IF start! > TIMER THEN start! = start! - 86400
1036.     LOOP
1037. END SUB
1038. REM ***************************************************************************
1039.  

[badger]

Hello

I could have typed that better. You need to create a directory in your home directory call jbridal or rem out the gosub that calls the directory check routines. line 138


Badger