Sorry your browser is not supported!

   Repeat
   CLS
   Mx=MouseX(): My=MouseY(): Mc=MouseClick()
   If Mx>130 and My>130 and Mx<330 and My<160
      If Mc=1
         PayLoan2 = PayLoan
         active_2=0
         active=1
      Endif
   Endif
   If Mx>400 and My>130 and Mx<600 and My<160
      If Mc=1
         TakeLoan2 = TakeLoan
         active=0
         active_2=1
      Endif
   Endif
   if active = 1
      set cursor 130, 130
      Input TakeLoan;
      Else
      set cursor 130, 130
      Print "";TakeLoan2;"";
   Endif
   if active_2 = 1
      set cursor 400, 130
      Input PayLoan;
      Else
      set cursor 400, 130
      Print "";PayLoan2;"";
   Endif
until close=2

do
	cls
	set cursor 0,0
	input "> ",s$
	print "You see this text only when you press ENTER and it blinks."
	print "Your Text: "+s$
loop

do
	cls
	set cursor 0,0
	s$ = entry$(1)
	print "> "+s$
	print "THIS you see all the time while looping"
	print "Your Text: "+s$
loop