Little Goodies for the 2068

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 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¹
    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. ↩