The below code is 1 function in my program. If I use the
input comand it prints The variable Itm befor I can ever enter anything like Input Enter Y to Select...5! If Iuse
inkey$() ina loop unless I put sleep 100 before the loop
it goes rite thru the loop and exits the Function. Does any one know how I can eliminate such absurd goings on????????
Function SelectSlot(Itm)
Regg=0
Cls
ink rgb(255,255,255),0
Paste Image 1,0,0: Rem Main strip across top of screen
X$="Select Register Slot"
Caption(X$)
C$=Upper$(Left$(Exist$(Itm),1))
Text 100,230,"C$="+C$
IF C$="A"
C$=""
Regg=Itm
Itm=0
Ink Rgb(39,46,127),Rgb(127,151,175)
Box 275,200,525,275
Ink rgb(255,255,255),rgb(39,46,127)
center Text 400,210,"Enter Y to Select Slot -or- N to Quit"
center Text 400,229,"If You Select Slot, Proceed Next"
center Text 400,248,"To SetUP on Bar Menu and Select It"
set cursor 20,560
Ink rgb(255,255,255),rgb(127,151,175)
Itm=0 : Q$=""
` Text 20,570,"Enter Y to Select or N to quit... "
set cursor 20,570
input "Enter Y to Select...";Q$
rem sleep 100
` Repeat
` Q$=inkey$()
` Sync
` Until Q$""
If Upper$(Q$)"Y"
Regg=0
ExitFunction
EndIf
IF Upper$(Q$)="Y" Then ExitFunction
EndIf
EndFunction
It took Years to Make Me this Stupid!
