Sorry your browser is not supported!

`Save / Load / Delete Static objects
if keystate(60)=1 
		set cursor 300,400
		print "are you sure you want to save? (Y)/(N)"
		suspend for key
	If inkey$() = "Y" or inkey$() = "y"
		input "Please enter file name: ";static$
		save static objects "static$"
		print "Your level was Saved"
	else
		print "level was not saved"
		wait 1000
	endif
endif

repeat
    text 0,0,"Press y or n"
    choice$=lower$(inkey$())
until choice$="y" or choice$="n"

do
   rem program stuff going on
   rem blah blah


   rem check for f2 key
   if keystate(60)=1
      gosub _save_routine
   else
      rem do something else
      text 0,0,"Waiting for F2 key..."
   endif
loop

_save_routine:
   repeat
      text 300,400,"are you sure you want to save? (Y)/(N)"
      choice$=lower$(inkey$())
   until choice$="y" or choice$="n"
   if choice$="y"
      set cursor 300,440
      input "Please Enter File Name : ";static$

      rem check if file exists, give any aditional options
      rem save file
      text 300,460,"File "+static$+" was saved successfully"
   else
      text 300,460,"LEVEL NOT SAVED !!!"
   endif
return

`Save / Load / Delete Static objects
if keystate(60)=1

set cursor 300,400
choose:
print "are you sure you want to save? (Y)/(N)"
Input choice$
choice$=lower$(choice$)

if choice$<>"y"
cls
print "Please choose (Y) or (N) and nothing else"
suspend for key
goto choose
cls
endif


If choice$ = "y"
input "Please enter file name: ";static$
save static objects "static$"
print "Your level was Saved"
else
print "level was not saved"
wait 1000
endif


endif

repeat
All this stuff (including your TEXT command, not print)
until a condition is met (not just yes though, it needs to be a generic condition, such as if a choice has been made)