50000 RETURN GOSUB 50400 61600 RETURN 0)+1 61200 REM =================>> Subroutine to clear screen 61300 CLS 61400 LOC