Dilwyn Jones writes:

> REMark progress spinner
> LET spin = 0
> REPeat long_loop
>   AT #0,0,0 : PRINT #0,'|/-\'((spin% MOD 4)+1)
>   LET spin% = spin%+1:IF spin% = 4 THEN spin% = 0
>   REMark rest of program...
> END REPeat long_loop

Or

REPeat long_loop
  LET spin% = (spin% + 1) MOD 4
  AT #0,0,0 : PRINT #0,'|/-\'(spin% + 1)
  REMark rest of program...
END REPeat long_loop


Reply via email to