Golden Goodies for 2068 Users

The following tips, etc for 2068 Programming is from a collection assembled by George Mockridge of TIMELINZ newsletter. These are a little more “advanced” than some that have been published befare.

POKE 23730 & 23732 with RAMTOP

Resets RAMTOP without destroying variables that were not defined in the program.

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

GOTO 9999 to find the elapsed time in seconds that a program has been running.

FOR N=16384 TO 22527: LET X=PEEK N: POKE N,255-X: NEXT N

Inverts the screen display.

LET A=1: IF (INT (N/2)*2-N)<>0 THEN LET A=-1

Determines if N is even or odd. A=(+1) if EVEN, (-1) if ODD. Normal method of (-1)^N will not work on 2068. Try LET A=COS (N*PI) also works but slower.

    1 REM SCREENSAVE
    5 DATA 33,0,64,17,166,222,1,0,27,237,176,201
   10 DATA 33,168,222,17,0,64,1,0,27,237,176,201
   20 FOR A=65300 TO 65323: READ A: POKE I,A: NEXT I
   30 STOP

Save a screen to address 57000 and instantly recall it. RAND USR 65300 to UPLOAD and RAND USR 65312 to RECALL.

POKE 26692,83

Puts line EDIT at top of screen. POKE 26692,75 resets the screen.

LOAD ""CODE: RAND USR 33792

Try this method to load programs that will not load.