Bits and Bytes

203 On a TS2068 the following subroutine will return the elapsed time in seconds that a program has been running if you input a GOTO 9999 after line 1 has been run.

1 POKE 23672,0: POKE 23673,0
9999 PRINT INT (PEEK 23672+ 256 * PEEK 23673 + .5) * 100/60.1145 + 5)/100

204 Here is a short TS2068 routine which will copy all 24 screen lines to the TS2040 printer. .

8000 RESTORE: FOR N = 24500 TO 24505: READ X: POKE N,X: NEXT N: DATA 243,6, 192, 195,5, 10.

To use this machine code utility run line 8000 to POKE the code and call the utility with

RAND USR 24500.

This TS 2068 program will invert the screen display.

8100 FOR N = 116384 to 22527: LET X = PEEK N: POKE N,255-X: NEXT N

205 The following POKE resets the PRINT position on the screen (where N = 4 resets to the top of the screen, and N = 5 to 24 resets to any line on the screen.

POKE 23689,N