start bastext 1025 start tok64 d64-EOR8oh 1 REM ******** put demo ******** 5 PRINT"{clear}{space*3}this is clearing on row at a time," 10 PRINT" then filling the whole screen with S." 20 x1=0:x2=39 30 REM ** fill screen with color ** 40 MOVE 1, 55296 TO 56296 50 REM ** loop clear one row at a time ** 60 FORy1=2TO24:y2=y1 70 REM ** delay ** 80 FORi=0TO25:NEXT 100 REM ** fill the screen with CHAR ** 110 MOVE83,33872TO34792 120 GOSUB60000:REM ** clear part ** 130 NEXT:GOTO50:REM ** keep going ** 60000 REM **************************** 60010 REM * * 60020 REM * this is a subroutine * 60030 REM * that will clear the * 60040 REM * screen from x1,y1 to * 60050 REM * x2,y2. x is columns * 60060 REM * y is the row. 0,0 is * 60070 REM * the top left corner. * 60080 REM * to use: just gosub * 60090 REM * 60000 to clear part. * 60100 REM **************************** 60110 MOVE32,33792+y1*40+x1TO33792+y2*40+x2:RETURN stop tok64 (bastext 1.0)