home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / SR106-SLOWERASE.txt < prev    next >
Text File  |  2023-02-26  |  330b  |  5 lines

  1.  
  2.  106  VTAB ( PEEK (37)): FOR X =  LEN (ST$) TO 1 STEP  - 1: HTAB X: CALL  - 868: FOR Y = 1 TO 40: NEXT : NEXT : POKE 37, PEEK (37) - 1: RETURN 
  3.  107  VTAB ( PEEK (37)): FOR X =  LEN (ST$) TO 1 STEP  - 1: HTAB X: CALL  - 868: FOR Y = 1 TO 40: NEXT :Z =  PEEK ( - 16336) +  PEEK ( - 16336): NEXT : POKE 37, PEEK (37) - 1: RETURN 
  4.  
  5.