--- title: "POKEs, Etc for 2068" type: "article" slug: "pokes-etc-for-2068-2" url: "http://localhost/article/pokes-etc-for-2068-2/" markdown_url: "http://localhost/article/pokes-etc-for-2068-2.md" published_at: "2022-10-07T12:24:32+00:00" modified_at: "2026-07-27T01:10:08+00:00" featured_image: url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg" excerpt: "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…" category: - name: "The Plotter" slug: "the-plotter" taxonomy: "category" url: "http://localhost/category/periodicals/the-plotter/" post_tag: - name: "Best of Timex/Sinclair 2068 Articles and Documents" slug: "ts2068best" taxonomy: "post_tag" url: "http://localhost/tag/ts2068best/" - name: "Reference" slug: "reference" taxonomy: "post_tag" url: "http://localhost/tag/reference/" - name: "TS 2068" slug: "ts2068" taxonomy: "post_tag" url: "http://localhost/tag/ts2068/" model: - name: "Timex/Sinclair 2068" slug: "ts-2068" taxonomy: "model" url: "http://localhost/model/ts-2068/" indiv: - name: "Dick Wagner" slug: "dick-wagner" taxonomy: "indiv" url: "http://localhost/indiv/dick-wagner/" publication_r: id: 21216 title: "The Plotter" type: "periodical" url: "http://localhost/periodical/the-plotter/" authors: "Dick Wagner" authors_r: - name: "Dick Wagner" slug: "dick-wagner" taxonomy: "indiv" url: "http://localhost/indiv/dick-wagner/" volume: "11" issue: "4" issues_articles: - id: 39502 title: "The Plotter v11 n4" type: "issue" url: "http://localhost/issue/the-plotter-vol-11-no-04/" pages: "7" pubdate: "April 1993" archive_link: false --- # 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.