POKEs, Etc for 2068

An error in the March page of POKES needs a correction. The last one was RANDOMIZE 0, it should have been RANDOMIZE USR 0.

Let’s add some more to our list.

POKE 23561,# (#=1 to 35)
Time that a key must be held down before it repeats. Try 10-15 for test.

POKE 23562,# (#=1 to 5)
Delay between successive repeats of a key held down. Try 3 for text.

USR 15002
May help get out of an infinite loop without crashing.

DIM A$(704)
PRINT AT 0,0; OVER 1;
PAPER; INK 6; A$

Allows a change of PAPER and INK COLOR without clearing the screen.

PRINT #1; AT 0,2; "HI"
PRINT #1; AT 1,2; "BY"
PAUSE 0

Prints on lines 22 and 23.

LOAD ""CODE
RAND USR 33792

For programs that will not load (tape?).

TO SEE IF 2040 PRINTER IS ON/OFF

    1 REM FLASH CLS G THEN LN <>
 9996 let prt=USR (5+PEEK 23635+256*PEEK 23636)
 9997 IF prt>16383 THEN PRINT "printer is off"
 9998 IF prt<=16383 THEN PRINT "printer on"
 9999 STOP

PLOT (X1,Y1): DRAW(X2-X1), (Y2-Y1)
Draws a straight line between 2 points. Imitates absolute line command on other systems.

POKE 26692,83
Puts line EDIT at top of screen.

POKE 26692,75
Re-sets EDIT

Save a screen to address 57000 & instantly recall it. RAND USR 65300 to upload & RAND USR 65312 to recall.

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

PRINT 65536-USR 7962
Determine FREE memory in SPECTRUM mode

INVERT SCREEN DISPLAY

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

COPY ALL 24 LINES TO PRINTER

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

POKE 23624,X
X=any ATTRIBUTE. On next keyboard input the BORDER will take up the PAPER COLOR. Try a FLASHING ATTRIBUTE before a SAVE.

POKE 23730 & 23731 WITH RAMTOP
Resets RAMTOP w/o destroying variables that are not defined in the program.

TIME THAT PROGRAM HAS BEEN RUNNING

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

GOTO 9999 for elapse time in seconds

POKE 23561,0
Stops key repeat. May be useful in games & utilities.

POKE 23561,1
To disable keyboard as COPYRIGHT protection

POKE 23689,X
X=24 resets print position to top of screen. X=3-24 resets to any line on the screen.