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