---
title: "Little Goodies for the 2068"
type: "article"
slug: "little-goodies-for-the-2068"
url: "http://localhost/article/little-goodies-for-the-2068/"
markdown_url: "http://localhost/article/little-goodies-for-the-2068.md"
published_at: "2020-10-27T17:09:56+00:00"
modified_at: "2026-07-26T10:00:59+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
excerpt: "The following \"Little Goodies\" are a collection of tips, aids, utilities, etc. that should prove helpful in 2068 programming. Special thanks to John Kuhn of the SINC TIMES in Florida and Stuart Ree of the TIMELINEZ N/L in Northern Calif. for their help. If you have a \"Little Goodie\" to share, please send it along…"
category:
  - name: "T-S Horizons"
    slug: "t-s-horizons"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/t-s-horizons/"
post_tag:
  - name: "Best of Timex/Sinclair 2068 Articles and Documents"
    slug: "ts2068best"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts2068best/"
  - name: "TS 2068"
    slug: "ts2068"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts2068/"
  - name: "Type-in program"
    slug: "type-in-program"
    taxonomy: "post_tag"
    url: "http://localhost/tag/type-in-program/"
model:
  - name: "Timex/Sinclair 2068"
    slug: "ts-2068"
    taxonomy: "model"
    url: "http://localhost/model/ts-2068/"
indiv:
  - name: "George Mockridge"
    slug: "george-mockridge"
    taxonomy: "indiv"
    url: "http://localhost/indiv/george-mockridge/"
publication: "T-S Horizons"
publication_r:
  id: 10247
  title: "T-S Horizons"
  type: "periodical"
  url: "http://localhost/periodical/t-s-horizons/"
authors: "George Mockridge"
authors_r:
  - name: "George Mockridge"
    slug: "george-mockridge"
    taxonomy: "indiv"
    url: "http://localhost/indiv/george-mockridge/"
issue: "17"
issues_articles:
  - id: 26860
    title: "T-S Horizons n17"
    type: "issue"
    url: "http://localhost/issue/t-s-horizons-n17/"
pages: "16-18"
pubdate: "February/March 1986"
archive_link: false
volumeissue: "vn17"
---

The following “Little Goodies” are a collection of tips, aids, utilities, etc. that should prove helpful in 2068 programming. Special thanks to John Kuhn of the [SINC TIMES](http://localhost/periodical/the-sinc-times/) in Florida and [Stuart Ree](http://localhost/indiv/stuart-ree/) of the [TIMELINEZ](http://localhost/tag/timelinez/) N/L in Northern Calif. for their help. If you have a “Little Goodie” to share, please send it along and we will add it to the next edition. THANKS.

TIMELINEZ  
P. O. Box 1312  
Pacifica, CA 94044

1. `POKE 23609,X` For keyboard click (x = 1 to 255).
2. `POKE 23692,2` Use before every print for automatic scrolling. Works like the scroll command on the 1000/1500.
3. `POKE 23692,1` Another way to control scroll. Scrolls 22 lines, then a key must be pressed for every line.
4. `POKE 23658,8` Put 2068 in caps mode.
5. `POKE 23658,0` Take 2068 out of caps mode.
6. `PAUSE 0` Pause until any key pressed.
7. `POKE 23561,#` (# = 1 to 35) Time that a key must be held down before it repeats. Prefer 10–15 for text.
8. `POKE 23562,#` (# = 1 to 5) Delay between successive repeats of a key held down. 3 for text.
9. `USR 15002` Try this to get our of an infinite input loop w/o crashing.
10. `DIM A$ (704) PRINT AT 0,0; OVER 1; PAPER 1; INK 6; A$` Allows you to change paper and ink color w/o clearing screen.
11. `PRINT #1; AT 0,2; "HI" PRINT #1; AT 1,5; "BY" PAUSE 0` Prints on lines 22 and 23.
12. `LOAD ""CODE RAND USR 33792` For programs that will not load.
13. `LET x=INT(x*10↑y+.5)/10↑y`[1](#lg2068-fn1) Use for rounding. x=NO. to be rounded. y=NO. of dec. places.
14. `1 DEF FN r(x,y)=INT (x*10↑y+.5)/10↑y` `2 INPUT "Enter a number "; a` `3 INPUT "Round off to ? "; b` `5 PRINT FN r (a,b)` Sets the defined function to the formula used to round off. a=no. before rounding. b=no. of dec. places desired after rounding.
15. `INPUT LINE A$` Prevents computer from placing “” on screen when waiting for input. Note: can’t use stop with this method, but cap shift 6 will stop. Bug in system.
16. `PRINT PEEK 23635+256*PEEK 23636` Use to find starting address.
17. `PRINT ""` Gives line feed to print statement.
18. `RANDOMIZE USR 0` Use to reset computer.
19. `INPUT AT 22,0; AT 10,0; "input value"; a$` Input at any position on screen.
20. `1 FOR I=0 TO 21` `2 FOR X=0 TO 31` `3 LPRINT SCREEN$ (I,X);` `4 NEXT X 5` `NEXT I` Copy screen to printer without using copy command.
21. `OPEN #2` Sends all data normally destined for the screen to the printer.
22. `CLOSE #2` Cancels above command.
23. `1 LET C=2` `2 FOR I=32 TO 255` `3 PRINT AT 0,0;""` `4 PRINT AT 0,0; CHR$ I` `5 IF CODE SCREEN$ (0,0)=0 THEN PRINT AT 4,C; CHR$ I: LET C=C+2` `6 NEXT I` Lists characters not recognized by the SCREEN$ command.
24. `CLEAR 63255` Do this first if you plan to use UDG’s in a long basic program that will incorporate a video mode change. A bug in the system will allow a long basic program to overwrite you UDG’s if RAMTOP is not first lowered.
25. `POKE 23750,0` If you are using cartridge S/W that can be stopped by the break key, this will allow you to enter your own basic lines into RAM. To return to the cartridge ROMWARE, `POKE 23750,128`.
26. `POKE 23693,56` To give starting paper/ink color.
27. BASIC starts at 26710.
28. `CAPS SHIFT 3` Scroll two screens when listing.
29. `POKE 26711,0` Gives line no. 0. `POKE 26711,1` to change line 0 to 1.
30. `POKE 23659,0` To use all 24 lines (make program unstopable). `POKE 23659,2` resets. (Use with `INKEY$` only, INPUT resets.)
31. `POKE 26710,255` Use to make lines disappear (makes line NO. over 9999). `POKE 26710,0` will reset.
32. `INK` or `PAPER 9` Gives contrasting base color.
33. ‘E’ MODE/CAPS SHIFT and a color 1 – 7 Gives ink color in listing.
34. ‘E’ MODE/UNSHIFTED and a color 1 – 7 Gives paper color (go back to original color at the end of the line, if not, all the lines will be the same color.)
35. `1 INPUT "COMMENT"; A$; CHR$ 13; "COMMENT"; B$` `2 PRINT "COMMENT"; A$; CHR$ 13; "COMMENT"; B$` Example of double inputs.
36. `9000 FOR I=1 TO 200` `9010 BORDER 1: BORDER 2: BORDER 3: BORDER 4: BORDER 5: BORDER 6: BORDER 0: PAUSE 1` `9020 NEXT I: RETURN` GOSUB 9000 for a striped border.
37. `POKE 23617,236` Use to get a question mark cursor in input statements.
38. `PRINT #0; "COMMENT": PAUSE 0` Use to print on line 24.

***

### Notes

1. Item 13 as printed reads `LET x=INT(x↑y+.5)/10↑y` — the `*10` is missing, and as printed the formula will not round. Corrected here to match the version given in item 14. [↩](#lg2068-ref1)