memory leak and question

[badger]

Hello

First the question. When a sub is call when the end sub or exit sub is encountered does it return to the next statement after the call

memory leak i am going to post my code here. I use rem statement to an excess do to my eyes so the code will not run together so please dont pound on me about the clutter ok just look at the prompt area and tell me if i left any memory leaks

thanks in advance
Badger
if this is not allowed sorry please delete and let me know how to post code


REM ***************************************************************************
REM **** Program Bridal Store *************************************************
REM ***************************************************************************
REM ***************************************************************************
REM **** Author Philip King  **************************************************
REM ***************************************************************************
REM ***************************************************************************
REM ***************************************************************************
REM **** Includes go here *****************************************************
REM ***************************************************************************

REM ***************************************************************************
REM ***************************************************************************
REM **** Sreen statements here ************************************************
REM ***************************************************************************

$COLOR:32

REM ***************************************************************************

REM ***************************************************************************
REM **** Listing of subs and funtions *****************************************
REM ***************************************************************************

REM ***************************************************************************

REM ***************************************************************************
REM **** arrays decleared here ************************************************
REM ***************************************************************************
imenu = 4
DIM SHARED smenu(imenu) AS STRING

REM ***************************************************************************

REM ***************************************************************************
REM **** arrays set to data here **********************************************
REM ***************************************************************************

smenu(1) = "1) Edit Customer Info": smenu(2) = "3) Edit Inventory Data "
smenu(3) = "2) Edit Sales ": smenu(4) = "4) System Maintenance "

REM ***************************************************************************
REM **** variables declares go here *******************************************
REM ***************************************************************************
DIM SHARED sr AS STRING
CONST null = ""
REM ***************************************************************************

REM ***************************************************************************
REM **** customer info record type ********************************************
REM ***************************************************************************
TYPE customer
        id AS LONG
        sfirst_name AS STRING * 25
        slast_name AS STRING * 25
        saddress AS STRING * 30
        scity AS STRING * 25
        sstate AS STRING * 2
        szip AS STRING * 5
        sphone AS STRING * 10
END TYPE
REM ***************************************************************************

REM ***************************************************************************
REM **** inventory record type ************************************************
REM ***************************************************************************
TYPE inventory
        ienventory AS LONG
        sdesc AS STRING * 250
        sdate_bought AS STRING * 8
        sdate_sold AS STRING * 8
        fcost AS _FLOAT
        fretail AS _FLOAT
        ssize AS STRING * 2
        ssold AS STRING * 1
END TYPE
REM ***************************************************************************

REM ***************************************************************************
REM **** point of sale type ***************************************************
REM ***************************************************************************
TYPE spos
        lposid AS LONG
END TYPE
REM ***************************************************************************
DIM SHARED custinforec AS customer
custinforeclen = LEN(custinforec)

CLS


REM ***************************************************************************
REM **** defines for quick use data types *************************************
REM ***************************************************************************
_DEFINE I AS INTEGER : _DEFINE S AS STRING : _DEFINE D AS DOUBLE :
_DEFINE F AS _FLOAT : _DEFINE L AS LONG
REM ***************************************************************************


REM ***************************************************************************
REM **** main modual **********************************************************
REM ***************************************************************************
SCREEN _NEWIMAGE(640, 400, 32)
COLOR LightCyan, MidnightBlue
iflag2 = 0
iflag3 = 1
CLS
'SCREEN 12
_FULLSCREEN
IF se = "X" THEN END
GOSUB menuloop:
IF saction = "X" THEN END
'if se ="1" then call that prompt
'LINE INPUT siy: END
REM ***************************************************************************
REM **** main menu loop *******************************************************
REM ***************************************************************************

menuloop:
CALL systemheader
CALL printmain
CALL mainmenuchoice
IF sr = "" OR sr = CHR$(13) THEN GOTO menuloop
IF sr = "X" THEN END
'IF sr = "1" THEN CALL custinfo: 'GOSUB custinfo1
IF sr = "1" THEN
        CALL promptid
        CALL promptfname
        CALL promptlname
        CALL promptaddress
        CALL promptcity
        CALL promptsstate
        CALL promptszip
        CALL promptphone
        RETURN
END IF
REM ***************************************************************************




REM ***************************************************************************
REM **** customer input modual ************************************************
REM ***************************************************************************

's0:
SUB custinput
        CALL systemheader
        LOCATE 10, 1: PRINT "Customer ID           ";: PRINT custinforec.id
        LOCATE 11, 1: PRINT "Customer First Name   ";: PRINT custinforec.sfirst_name
        LOCATE 12, 1: PRINT "customer Last Name    ";: PRINT custinforec.slast_name
        LOCATE 13, 1: PRINT "Customer Address      ";: PRINT custinforec.saddress
        LOCATE 14, 1: PRINT "Customer City         ";: PRINT custinforec.scity
        LOCATE 15, 1: PRINT "customer State        ";: PRINT custinforec.sstate
        LOCATE 16, 1: PRINT "customer Zip          ";: PRINT custinforec.szip
        LOCATE 17, 1: PRINT "Customer Phone Number ";
        PRINT LEFT$(custinforec.sphone, 3) + "/"; MID$(custinforec.sphone, 4, 3) + "/"; RIGHT$(custinforec.sphone, 4)
        'RETURN
END SUB
REM ********************************************************************
's1:
SUB promptid
        CALL custinput
        saction = "Enter Customer ID X to Exit "
        ib = 9
        ilow = 1
        ihigh = 999999999
        iflag1 = 1
        IF iflag2 = 1 THEN
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        ELSE
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        END IF
        IF sr = "-" THEN
                EXIT SUB
                RETURN
        END IF
        IF sr = "X" THEN
                iflag1 = 0
                EXIT SUB
                RETURN
        END IF
        custinforec.id = VAL(sr): CALL custinput
END SUB
REM ********************************************************************
's2:
SUB promptfname
        CALL custinput
        saction = "Enter First Name X to Exit - To Backup "
        ib = 25
        ilow = 99
        ihigh = 99
        iflag1 = 0
        IF iflag2 = 1 THEN
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        ELSE
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        END IF

        IF sr = "-" THEN
                EXIT SUB
                CALL promptid
        END IF
        IF sr = "X" THEN
                EXIT SUB
        END IF

        custinforec.sfirst_name = sr: CALL custinput
END SUB
REM ***************************************************************************
's3:
SUB promptlname
        CALL custinput
        saction = "Enter Last Name X to Exit To Back up "
        ib = 25
        ilow = 99
        ihigh = 99
        iflag1 = 0
        IF iflag2 = 1 THEN
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        ELSE
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        END IF

        '        IF sr = "-" THEN
        '                EXIT SUB
        '                CALL promptfname
        '       END IF
        IF sr = "X" THEN
                EXIT SUB
                RETURN
        END IF
        custinforec.slast_name = sr
        CALL custinput
END SUB
REM ***************************************************************************
's4:
SUB promptaddress
        CALL custinput
        saction = "Enter Address X to Exit - To Back up "
        ib = 30
        ilow = 99
        ihigh = 99
        iflag1 = 0

        IF iflag2 = 1 THEN
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        ELSE
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        END IF

        IF sr = "-" THEN
                EXIT SUB
                CALL promptlname
        END IF



        IF sr = "X" THEN
                EXIT SUB
                RETURN
        END IF
        custinforec.saddress = sr
        CALL custinput
END SUB
REM ***************************************************************************
's5:
SUB promptcity
        CALL custinput
        saction = "Enter City Name X to Exit - To Back up "
        ib = 25
        ilow = 99
        ihigh = 99
        iflag1 = 0
        IF iflag2 = 1 THEN
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        ELSE
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        END IF

        IF sr = "-" THEN
                EXIT SUB
                CALL promptaddress
        END IF
        IF sr = "X" THEN
                EXIT SUB
                RETURN
        END IF
        custinforec.scity = sr
        CALL custinput
END SUB
REM ***************************************************************************
's6:
SUB promptsstate
        CALL custinput
        saction = "Enter State X to Exit - To Back up "
        ib = 2
        ilow = 99
        ihigh = 99
        iflag1 = 0
        IF iflag2 = 1 THEN
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        ELSE
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        END IF

        IF sr = "-" THEN
                EXIT SUB
                CALL promptcity
        END IF
        IF sr = "X" THEN
                EXIT SUB
                RETURN
        END IF
        custinforec.sstate = sr
        CALL custinput
END SUB

REM ***************************************************************************

's7:
SUB promptszip
        CALL custinput
        saction = "Enter Zip Code Name X to Exit - To Back up "
        ib = 5
        ilow = 99
        ihigh = 99
        iflag1 = 0
        IF iflag2 = 1 THEN
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        ELSE
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        END IF

        IF sr = "-" THEN
                EXIT SUB
                CALL promptsstate
        END IF
        IF sr = "X" THEN
                EXIT SUB
                RETURN
        END IF
        custinforec.szip = sr
        CALL custinput
END SUB
REM ***************************************************************************
's8:
SUB promptphone
        CALL custinput
        saction = "Enter Phone Number X to Exit - To Back up "
        ib = 30
        ilow = 99
        ihigh = 99
        iflag1 = 0
        IF iflag2 = 1 THEN
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        ELSE
                CALL clearprompt
                CALL salphainput(saction, ib, ilow, ihigh, iflag1)
        END IF

        IF sr = "-" THEN
                EXIT SUB
                CALL promptszip
        END IF
        IF sr = "X" THEN
                EXIT SUB
                RETURN
        END IF
        custinforec.sphone = sr
        CALL custinput
        LINE INPUT sr
END SUB

REM ***************************************************************************


REM ***************************************************************************
REM **** set custinforrec variables to zero or null ***************************
REM ***************************************************************************
SUB custinforec_null
        custinforec.id = 0
        custinforec.sfirst_name = null
        custinforec.slast_name = null
        custinforec.saddress = null
        custinforec.scity = null
        custinforec.sstate = null
        custinforec.szip = null
        custinforec.sphone = null
END SUB
REM ***************************************************************************

REM ***************************************************************************
REM **** Sytem Header *********************************************************
REM ***************************************************************************
SUB systemheader
        COLOR White, Blue
        CLS
        LOCATE 1, 1: PRINT CHR$(201): LOCATE 1, 80: PRINT CHR$(187)
        LOCATE 1, 2: PRINT STRING$(78, 205):
        FOR ix = 2 TO 7
                LOCATE ix, 1: PRINT CHR$(186)
                LOCATE ix, 80: PRINT CHR$(186)
        NEXT ix
        LOCATE 7, 2: PRINT STRING$(78, 205)
        LOCATE 7, 1: PRINT CHR$(200): LOCATE 7, 80: PRINT CHR$(188)
        LOCATE 4, 30: PRINT "Main System Menu"
        LOCATE 4, 63: PRINT "Date ": LOCATE 4, 68: PRINT DATE$
        LOCATE 4, 4: PRINT "Virsion 1.0"
END SUB



REM ***************************************************************************
REM **** printes in system erros **********************************************
REM ***************************************************************************
SUB sprintserrors (se)
        CLS
        SCREEN 0
        IF se = "" THEN se = "INVALID RESPONSE"
        itemp = LEN(se)
        itemp1 = 40 - (itemp / 2)
        BEEP
        COLOR 16, 7
        'COLOR Yellow, Blue
        LOCATE 25, itemp1: _BLINK ON: PRINT se;
        Delay 1.5
        _BLINK OFF
        $COLOR:0
        iflag2 = 1
END SUB
REM ***************************************************************************

REM *****************************************************************************
REM **** numeric input sub ******************************************************
REM *****************************************************************************
SUB snumeric (sr, ilow, ihigh)

        ftemp = VAL(sr)
        IF ftemp < ilow OR ftemp > ihigh THEN
                se = "INPUT OUT OF BOUNDS"
                CALL sprintserrors(se)
        END IF

END SUB
REM ***************************************************************************

REM ***************************************************************************
REM **** alpha input sub ******************************************************
REM ***************************************************************************
SUB salphainput (saction, ib, ilow, ihigh, iflag1)

        iflag2 = 0
        ilength1 = LEN(sr)
        ilength2 = LEN(saction) + 2

        LOCATE 23, 1: PRINT saction; '               prints action menu
        LOCATE 23, ilength2 '                        set prompt one space after action menu print
        COLOR Yellow, Black: PRINT SPC(ib); '                changes color and prints ib spaces to screen for input lenght
        LOCATE 23, ilength2 '                        sets curser at the begining of input space from previouse line
        LINE INPUT sr: sr = UCASE$(sr) '             inputs data from user changes it to upper case

        IF LEN(sr) > ib THEN
                se = "ENVALID INPUT LENGTH"
                CALL sprintserrors(se)
                sr = ""
                iflag2 = 1
        END IF
        IF iflag1 = 1 AND sr = "X" THEN iflag1 = 0
        IF iflag1 = 1 AND VAL(sr) < ilow AND VAL(sr) > ihigh THEN CALL snumeric(sr, ilow, ihigh)

        COLOR White, Blue
END SUB


REM ***************************************************************************
REM **** main menu to the screen **********************************************
REM ***************************************************************************
SUB printmain
        COLOR White, Blue
        FOR ix = 11 TO imenu
                READ smenu(ix): LOCATE ix, 20: PRINT smenu(ix)
        NEXT ix

        LOCATE 11, 15: PRINT smenu(1)
        LOCATE 11, 40: PRINT smenu(2)
        LOCATE 13, 15: PRINT smenu(3)
        LOCATE 13, 40: PRINT smenu(4)

END SUB
REM ***************************************************************************

REM ***************************************************************************
REM **** array data goes here *************************************************
REM ***************************************************************************

SUB Delay (dlay!)
        start! = TIMER
        DO WHILE start! + dlay! >= TIMER
                IF start! > TIMER THEN start! = start! - 86400
        LOOP
END SUB

REM ***************************************************************************

REM ***************************************************************************
REM **** menu prompts start here **********************************************
REM ***************************************************************************
SUB mainmenuchoice
        ib = 1
        ihigh = 99
        ilow = 1
        saction = "Choose Menu Option or X to Quit "
        CALL salphainput(saction, ib, ilow, ihigh, iflag1)
END SUB
REM ***************************************************************************

REM ***************************************************************************
REM **** clean up the prompt area *********************************************
REM ***************************************************************************

SUB clearprompt
        LOCATE 23, 1: PRINT STRING$(79, 32)
END SUB

REM ***************************************************************************

[bplus]

First the question. When a sub is call when the end sub or exit sub is encountered does it return to the next statement after the call

Yes!

For posting code here at forum,
paste copy of code into editor, select it, and then use Code Tag button looks like QB64 icon:
  [ You are not allowed to view this attachment ]  

[badger]

Hello

will do

Badger
like this

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. REM ***************************************************************************
14. REM **** Sreen statements here ************************************************
15. REM ***************************************************************************
16.  
17. $COLOR:32
18.  
19. REM ***************************************************************************
20.  
21. REM ***************************************************************************
22. REM **** Listing of subs and funtions *****************************************
23. REM ***************************************************************************
24.  
25. REM ***************************************************************************
26.  
27. REM ***************************************************************************
28. REM **** arrays decleared here ************************************************
29. REM ***************************************************************************
30. imenu = 4
31. DIM SHARED smenu(imenu) AS STRING
32.  
33. REM ***************************************************************************
34.  
35. REM ***************************************************************************
36. REM **** arrays set to data here **********************************************
37. REM ***************************************************************************
38.  
39. smenu(1) = "1) Edit Customer Info": smenu(2) = "3) Edit Inventory Data "
40. smenu(3) = "2) Edit Sales ": smenu(4) = "4) System Maintenance "
41.  
42. REM ***************************************************************************
43. REM **** variables declares go here *******************************************
44. REM ***************************************************************************
45. DIM SHARED sr AS STRING
46. CONST null = ""
47. REM ***************************************************************************
48.  
49. REM ***************************************************************************
50. REM **** customer info record type ********************************************
51. REM ***************************************************************************
52. TYPE customer
53.         id AS LONG
54.         sfirst_name AS STRING * 25
55.         slast_name AS STRING * 25
56.         saddress AS STRING * 30
57.         scity AS STRING * 25
58.         sstate AS STRING * 2
59.         szip AS STRING * 5
60.         sphone AS STRING * 10
61. END TYPE
62. REM ***************************************************************************
63.  
64. REM ***************************************************************************
65. REM **** inventory record type ************************************************
66. REM ***************************************************************************
67. TYPE inventory
68.         ienventory AS LONG
69.         sdesc AS STRING * 250
70.         sdate_bought AS STRING * 8
71.         sdate_sold AS STRING * 8
72.         fcost AS _FLOAT
73.         fretail AS _FLOAT
74.         ssize AS STRING * 2
75.         ssold AS STRING * 1
76. END TYPE
77. REM ***************************************************************************
78.  
79. REM ***************************************************************************
80. REM **** point of sale type ***************************************************
81. REM ***************************************************************************
82. TYPE spos
83.         lposid AS LONG
84. END TYPE
85. REM ***************************************************************************
86. DIM SHARED custinforec AS customer
87. lcustinforeclen = LEN(custinforec)
88.  
89. CLS
90.  
91.  
92. REM ***************************************************************************
93. REM **** defines for quick use data types *************************************
94. REM ***************************************************************************
95. _DEFINE I AS INTEGER : _DEFINE S AS STRING : _DEFINE D AS DOUBLE :
96. _DEFINE F AS _FLOAT : _DEFINE L AS LONG
97. REM ***************************************************************************
98.  
99.  
100. REM ***************************************************************************
101. REM **** main modual **********************************************************
102. REM ***************************************************************************
103. SCREEN _NEWIMAGE(640, 400, 32)
104. COLOR LightCyan, MidnightBlue
105. iflag2 = 0
106. iflag3 = 1
107. CLS
108. _FULLSCREEN
109. IF se = "X" THEN END
110. GOSUB menuloop:
111. REM ***************************************************************************
112. REM **** main menu loop *******************************************************
113. REM ***************************************************************************
114.  
115. menuloop:
116. CALL systemheader
117. CALL printmain
118. CALL mainmenuchoice
119. IF sr = "" OR sr = CHR$(13) THEN GOTO menuloop
120. IF sr = "X" THEN END
121. 'IF sr = "1" THEN CALL custinfo: 'GOSUB custinfo1
122.  
123. IF sr = "1" THEN
124.         CALL promptid
125.         IF sr = "X" THEN RETURN
126.         CALL promptfname
127.         IF sr = "X" THEN RETURN
128.         CALL promptlname
129.         IF sr = "X" THEN RETURN
130.         CALL promptaddress
131.         IF sr = "X" THEN RETURN
132.         CALL promptcity
133.         IF sr = "X" THEN RETURN
134.         CALL promptsstate
135.         IF sr = "X" THEN RETURN
136.         CALL promptszip
137.         IF sr = "X" THEN RETURN
138.         CALL promptphone
139.         IF sr = "X" THEN RETURN
140.         RETURN
141. END IF
142. REM ***************************************************************************
143.  
144. REM ***************************************************************************
145. REM **** customer input modual ************************************************
146. REM ***************************************************************************
147.  
148. 's0:
149. SUB custinput
150.         CALL systemheader
151.         LOCATE 10, 1: PRINT "Customer ID           ";: PRINT custinforec.id
152.         LOCATE 11, 1: PRINT "Customer First Name   ";: PRINT custinforec.sfirst_name
153.         LOCATE 12, 1: PRINT "customer Last Name    ";: PRINT custinforec.slast_name
154.         LOCATE 13, 1: PRINT "Customer Address      ";: PRINT custinforec.saddress
155.         LOCATE 14, 1: PRINT "Customer City         ";: PRINT custinforec.scity
156.         LOCATE 15, 1: PRINT "customer State        ";: PRINT custinforec.sstate
157.         LOCATE 16, 1: PRINT "customer Zip          ";: PRINT custinforec.szip
158.         LOCATE 17, 1: PRINT "Customer Phone Number ";
159.         PRINT LEFT$(custinforec.sphone, 3) + "/"; MID$(custinforec.sphone, 4, 3) + "/"; RIGHT$(custinforec.sphone, 4)
160.         'RETURN
161. END SUB
162.  
163. REM ********************************************************************
164.  
165. 's1:
166. SUB promptid
167.         CALL custinput
168.         saction = "Enter Customer ID X to Exit "
169.         ib = 9
170.         ilow = 1
171.         ihigh = 999999999
172.         iflag1 = 1
173.         IF iflag2 = 1 THEN
174.                 CALL clearprompt
175.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
176.         ELSE
177.                 CALL clearprompt
178.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
179.         END IF
180.         IF sr = "X" THEN
181.                 iflag1 = 0
182.                 EXIT SUB
183.                 ' RETURN
184.         END IF
185.         custinforec.id = VAL(sr): CALL custinput
186. END SUB
187.  
188. REM ********************************************************************
189.  
190. 's2:
191. SUB promptfname
192.         CALL custinput
193.         saction = "Enter First Name X to Exit - To Backup "
194.         ib = 25
195.         ilow = 99
196.         ihigh = 99
197.         iflag1 = 0
198.         IF iflag2 = 1 THEN
199.                 CALL clearprompt
200.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
201.         ELSE
202.                 CALL clearprompt
203.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
204.         END IF
205.  
206.         IF sr = "-" THEN
207.                 EXIT SUB
208.                 CALL promptid
209.         END IF
210.         IF sr = "X" THEN
211.                 EXIT SUB
212.         END IF
213.  
214.         custinforec.sfirst_name = sr: CALL custinput
215. END SUB
216.  
217. REM ***************************************************************************
218.  
219. 's3:
220.  
221. SUB promptlname
222.         CALL custinput
223.         saction = "Enter Last Name X to Exit - To Back up "
224.         ib = 25
225.         ilow = 99
226.         ihigh = 99
227.         iflag1 = 0
228.         IF iflag2 = 1 THEN
229.                 CALL clearprompt
230.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
231.         ELSE
232.                 CALL clearprompt
233.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
234.         END IF
235.  
236.         '        IF sr = "-" THEN
237.         '                EXIT SUB
238.         '                CALL promptfname
239.         '       END IF
240.         IF sr = "X" THEN
241.                 EXIT SUB
242.                 RETURN
243.         END IF
244.         custinforec.slast_name = sr
245.         CALL custinput
246. END SUB
247. REM ***************************************************************************
248.  
249. 's4:
250. SUB promptaddress
251.         CALL custinput
252.         saction = "Enter Address X to Exit - To Back up "
253.         ib = 30
254.         ilow = 99
255.         ihigh = 99
256.         iflag1 = 0
257.  
258.         IF iflag2 = 1 THEN
259.                 CALL clearprompt
260.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
261.         ELSE
262.                 CALL clearprompt
263.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
264.         END IF
265.  
266.         IF sr = "-" THEN
267.                 EXIT SUB
268.                 CALL promptlname
269.         END IF
270.  
271.  
272.  
273.         IF sr = "X" THEN
274.                 EXIT SUB
275.                 RETURN
276.         END IF
277.         custinforec.saddress = sr
278.         CALL custinput
279. END SUB
280. REM ***************************************************************************
281.  
282. 's5:
283. SUB promptcity
284.         CALL custinput
285.         saction = "Enter City Name X to Exit - To Back up "
286.         ib = 25
287.         ilow = 99
288.         ihigh = 99
289.         iflag1 = 0
290.         IF iflag2 = 1 THEN
291.                 CALL clearprompt
292.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
293.         ELSE
294.                 CALL clearprompt
295.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
296.         END IF
297.  
298.         IF sr = "-" THEN
299.                 EXIT SUB
300.                 CALL promptaddress
301.         END IF
302.         IF sr = "X" THEN
303.                 EXIT SUB
304.                 RETURN
305.         END IF
306.         custinforec.scity = sr
307.         CALL custinput
308. END SUB
309. REM ***************************************************************************
310. 's6:
311. SUB promptsstate
312.         CALL custinput
313.         saction = "Enter State X to Exit - To Back up "
314.         ib = 2
315.         ilow = 99
316.         ihigh = 99
317.         iflag1 = 0
318.         IF iflag2 = 1 THEN
319.                 CALL clearprompt
320.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
321.         ELSE
322.                 CALL clearprompt
323.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
324.         END IF
325.  
326.         IF sr = "-" THEN
327.                 EXIT SUB
328.                 CALL promptcity
329.         END IF
330.         IF sr = "X" THEN
331.                 EXIT SUB
332.                 RETURN
333.         END IF
334.         custinforec.sstate = sr
335.         CALL custinput
336. END SUB
337.  
338. REM ***************************************************************************
339.  
340. 's7:
341. SUB promptszip
342.         CALL custinput
343.         saction = "Enter Zip Code Name X to Exit - To Back up "
344.         ib = 5
345.         ilow = 99
346.         ihigh = 99
347.         iflag1 = 0
348.         IF iflag2 = 1 THEN
349.                 CALL clearprompt
350.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
351.         ELSE
352.                 CALL clearprompt
353.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
354.         END IF
355.  
356.         IF sr = "-" THEN
357.                 EXIT SUB
358.                 CALL promptsstate
359.         END IF
360.         IF sr = "X" THEN
361.                 EXIT SUB
362.                 RETURN
363.         END IF
364.         custinforec.szip = sr
365.         CALL custinput
366. END SUB
367. REM ***************************************************************************
368.  
369. 's8:
370. SUB promptphone
371.         CALL custinput
372.         saction = "Enter Phone Number X to Exit - To Back up "
373.         ib = 30
374.         ilow = 99
375.         ihigh = 99
376.         iflag1 = 0
377.         IF iflag2 = 1 THEN
378.                 CALL clearprompt
379.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
380.         ELSE
381.                 CALL clearprompt
382.                 CALL salphainput(saction, ib, ilow, ihigh, iflag1)
383.         END IF
384.  
385.         IF sr = "-" THEN
386.                 EXIT SUB
387.                 CALL promptszip
388.         END IF
389.         IF sr = "X" THEN
390.                 EXIT SUB
391.                 RETURN
392.         END IF
393.         custinforec.sphone = sr
394.         CALL custinput
395.         LINE INPUT sr
396. END SUB
397.  
398. REM ***************************************************************************
399.  
400.  
401. REM ***************************************************************************
402. REM **** set custinforrec variables to zero or null ***************************
403. REM ***************************************************************************
404. SUB custinforec_null
405.         custinforec.id = 0
406.         custinforec.sfirst_name = null
407.         custinforec.slast_name = null
408.         custinforec.saddress = null
409.         custinforec.scity = null
410.         custinforec.sstate = null
411.         custinforec.szip = null
412.         custinforec.sphone = null
413. END SUB
414. REM ***************************************************************************
415.  
416. REM ***************************************************************************
417. REM **** Sytem Header *********************************************************
418. REM ***************************************************************************
419. SUB systemheader
420.         COLOR White, Blue
421.         CLS
422.         LOCATE 1, 1: PRINT CHR$(201): LOCATE 1, 80: PRINT CHR$(187)
423.         LOCATE 1, 2: PRINT STRING$(78, 205):
424.         FOR ix = 2 TO 7
425.                 LOCATE ix, 1: PRINT CHR$(186)
426.                 LOCATE ix, 80: PRINT CHR$(186)
427.         NEXT ix
428.         LOCATE 7, 2: PRINT STRING$(78, 205)
429.         LOCATE 7, 1: PRINT CHR$(200): LOCATE 7, 80: PRINT CHR$(188)
430.         LOCATE 4, 30: PRINT "Main System Menu"
431.         LOCATE 4, 63: PRINT "Date ": LOCATE 4, 68: PRINT DATE$
432.         LOCATE 4, 4: PRINT "Virsion 1.0"
433. END SUB
434.  
435.  
436.  
437. REM ***************************************************************************
438. REM **** printes in system erros **********************************************
439. REM ***************************************************************************
440. SUB sprintserrors (se)
441.         CLS
442.         SCREEN 0
443.         IF se = "" THEN se = "INVALID RESPONSE"
444.         itemp = LEN(se)
445.         itemp1 = 40 - (itemp / 2)
446.         BEEP
447.         COLOR 16, 7
448.         'COLOR Yellow, Blue
449.         LOCATE 25, itemp1: _BLINK ON: PRINT se;
450.         Delay 1.5
451.         _BLINK OFF
452.         $COLOR:0
453.         iflag2 = 1
454. END SUB
455. REM ***************************************************************************
456.  
457. REM *****************************************************************************
458. REM **** numeric input sub ******************************************************
459. REM *****************************************************************************
460. SUB snumeric (sr, ilow, ihigh)
461.  
462.         ftemp = VAL(sr)
463.         IF ftemp < ilow OR ftemp > ihigh THEN
464.                 se = "INPUT OUT OF BOUNDS"
465.                 CALL sprintserrors(se)
466.         END IF
467.  
468. END SUB
469. REM ***************************************************************************
470.  
471. REM ***************************************************************************
472. REM **** alpha input sub ******************************************************
473. REM ***************************************************************************
474. SUB salphainput (saction, ib, ilow, ihigh, iflag1)
475.  
476.         iflag2 = 0
477.         ilength1 = LEN(sr)
478.         ilength2 = LEN(saction) + 2
479.  
480.         LOCATE 23, 1: PRINT saction; '               prints action menu
481.         LOCATE 23, ilength2 '                        set prompt one space after action menu print
482.         COLOR Yellow, Black: PRINT SPC(ib); '                changes color and prints ib spaces to screen for input lenght
483.         LOCATE 23, ilength2 '                        sets curser at the begining of input space from previouse line
484.         LINE INPUT sr: sr = UCASE$(sr) '             inputs data from user changes it to upper case
485.  
486.         IF LEN(sr) > ib THEN
487.                 se = "ENVALID INPUT LENGTH"
488.                 CALL sprintserrors(se)
489.                 sr = ""
490.                 iflag2 = 1
491.         END IF
492.         IF iflag1 = 1 AND sr = "X" THEN iflag1 = 0
493.         IF iflag1 = 1 AND VAL(sr) < ilow AND VAL(sr) > ihigh THEN CALL snumeric(sr, ilow, ihigh)
494.  
495.         COLOR White, Blue
496. END SUB
497.  
498.  
499. REM ***************************************************************************
500. REM **** main menu to the screen **********************************************
501. REM ***************************************************************************
502. SUB printmain
503.         COLOR White, Blue
504.         FOR ix = 11 TO imenu
505.                 READ smenu(ix): LOCATE ix, 20: PRINT smenu(ix)
506.         NEXT ix
507.  
508.         LOCATE 11, 15: PRINT smenu(1)
509.         LOCATE 11, 40: PRINT smenu(2)
510.         LOCATE 13, 15: PRINT smenu(3)
511.         LOCATE 13, 40: PRINT smenu(4)
512.  
513. END SUB
514. REM ***************************************************************************
515.  
516. REM ***************************************************************************
517. REM **** array data goes here *************************************************
518. REM ***************************************************************************
519.  
520. SUB Delay (dlay!)
521.         start! = TIMER
522.         DO WHILE start! + dlay! >= TIMER
523.                 IF start! > TIMER THEN start! = start! - 86400
524.         LOOP
525. END SUB
526.  
527. REM ***************************************************************************
528.  
529. REM ***************************************************************************
530. REM **** menu prompts start here **********************************************
531. REM ***************************************************************************
532. SUB mainmenuchoice
533.         ib = 1
534.         ihigh = 99
535.         ilow = 1
536.         saction = "Choose Menu Option or X to Quit "
537.         CALL salphainput(saction, ib, ilow, ihigh, iflag1)
538. END SUB
539. REM ***************************************************************************
540.  
541. REM ***************************************************************************
542. REM **** clean up the prompt area *********************************************
543. REM ***************************************************************************
544.  
545. SUB clearprompt
546.         LOCATE 23, 1: PRINT STRING$(79, 32)
547. END SUB
548.  
549. REM ***************************************************************************
550.  
551.  

[bplus]

Yes! Much better!

Not seeing a loop here:

Code: QB64: [Select]

1. menuloop:
2. CALL systemheader
3. CALL printmain
4. CALL mainmenuchoice
5. IF sr = "" OR sr = CHR$(13) THEN GOTO menuloop
6. IF sr = "X" THEN END
7. 'IF sr = "1" THEN CALL custinfo: 'GOSUB custinfo1
8. IF sr = "1" THEN
9.     CALL promptid
10.     CALL promptfname
11.     CALL promptlname
12.     CALL promptaddress
13.     CALL promptcity
14.     CALL promptsstate
15.     CALL promptszip
16.     CALL promptphone
17.     RETURN ' <<<<<<<<<<<<<<<<<<<<<<< this is trouble!
18. END IF
19.  
20. 's0:
21. SUB custinput
22.  

How are you coming back from SUB calls and looping around for menu again?
A simple

Code: QB64: [Select]

1. GOTO menuloop

would do it, just before the first SUB.

BTW you don't have to CALL a sub, the sub name will do it.


Update: O hell now I see you put that dang mainLoop in a GOSUB, missed this

Code: QB64: [Select]

1. IF se = "X" THEN END
2. GOSUB menuloop:  ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< oh here it is
3. REM ***************************************************************************
4. REM **** main menu LOOP *******************************************************
5. REM

Well pooh, who puts the mainloop in a GOSUB?

[MelliLewis]

Hello...There are various wellsprings of memory spills. The utilization of strings is one. An instructional exercise on all memory spill issues would take what might be compared to a section in an Intro to DXL book.

String source memory holes can be diminished yet not disposed of by utilizing cushions. It is significant when utilizing supports to abstain from string link when adding string factors to the cushion. For instance if S1, S2 and S3 are string factors and buText is a support, don't do the accompanying to connect the strings.

[badger]

Hello

i will try that i have other things to do off the main menu but i can always go back to the main by goto as well

Badger

[bplus]

Code: QB64: [Select]

1.     CALL promptid
2.     CALL promptfname
3.     CALL promptlname
4.     CALL promptaddress
5.     CALL promptcity
6.     CALL promptsstate
7.     CALL promptszip
8.     CALL promptphone
9.  

You have this code so fragmented and broken up, that it is way more complex than need be.

The above code can just be one or two screens of INPUT lines, one sub routine!

[badger]

Hello

I think i understand what you are trying to say. but i only use one input statement then set conditions on each prompt

Badger

this was the way i was taught. This is also the first time of using subs i can to this much easier with gosubs and gotos

[bplus]

Well I appreciate the fact you are trying to use SUBs for first time but you can write a Customer Data Entry Form with 1 SUB in about 50 lines.

You just want to get all this into a customer record:

Code: QB64: [Select]

1. TYPE customer
2.     id AS LONG
3.     sfirst_name AS STRING * 25
4.     slast_name AS STRING * 25
5.     saddress AS STRING * 30
6.     scity AS STRING * 25
7.     sstate AS STRING * 2
8.     szip AS STRING * 5
9.     sphone AS STRING * 10
10. END TYPE
11.  

Correct?

[badger]

Hello

yes that is correct then the next step is into a random file

Phil

[bplus]

Imagine how one SUB can take over screen and get all this info and return a Customer Record:

Code: QB64: [Select]

1. SUB GetCustomerInfo(custRecord as Customer)
2. DIM rec as Customer
3.  
4. CLS
5. PRINT " Customer Data Form:"
6. PRINT
7. INPUT "Enter customer first name "; rec.name_first
8. INPUT "Enter customer last name "; rec.name_last
9. ...
10.  
11. 'rec.id   ' probably assigned according to record number so leave black and fill in later
12.  
13. custRecord = rec ' Sub passes custRec back to main caller code
14. END SUB

As time goes on you can refine this very crude input form with checks and nice formatting. I would just get a crude outline working first.

[badger]

hello

Let me ask this.. if you mess up on one of the input statements how do you go back up to that statement. with gotos and gosubs that is easy with the way you are explaining you would have to start all over to do that... All the same can you send me a small code snipit on doing what you are suggesting. Please

thanks in advance
Badger

[bplus]

The beauty of INPUT is that before you press Enter to move on you can check what you wrote, but yes surely there will be a screw up any way!

So before you exit the sub you can confirm the whole record is good to send back to main code or eh... start over is definitely easiest but who wants that?

OK I will work on data Entry Form, I had a nice generic one made with EDIT way, way back in 90's with QB4.5

But go ahead and try a crude one as I suggest so you can get to work on saving data to file and loading a records view or making queries or getting on with the whole of the thing. Get that working good then refine later.

Customer ID? will that be the same as record number?

[badger]

Hello

Thanks i want to see that i am willing to learn new tricks i am not that old LOL

Badger

[bplus]

Apology to badger, sorry I missed the place where GOSUB'd to mainloop in reply #3.

Now the RETURN makes more sense.

I hope I can help show how nice working with SUBs are. But remember one main thing, variable values are private to SUB, what happens in a SUB stays in the SUB unless you DIM SHARE variables in main or pass info in and out through arguments to the SUB (or FUNCTION). This is the main difference between a SUB and a GOSUB.