start bastext 1025
start tok64 d64-7LClNA
1 PADL(y :REM set the screen in 24 row
5 PRINT"{clear}{down*19}"
10 FORi=0TO200
20 UNLESS#:PRINT:PRINT"{space*13}smooth";:UNLESS0,7
30 FORp=6TO0STEP-1:FORm=0TO22:NEXT:SMOOTH0,p:NEXTp
40 NEXTi:END
stop tok64
(bastext 1.0)