End

2199 'exit protection

[email protected](22,0),"";:LINEINPUTtype <P>

FLAG6%=-1 :GOTO 1999

FLAG6%=0:GOTO 1700

[email protected](22,0),"";:UNE INPUT"are you sure you wish to exit? type < Y > or < N > ";l$

0 0

Post a comment