More on GETPUT

Please refer to the June issue of THE PLOTTER for details of this program.

A handy program format follows for Larken users. The CODE has been saved as “getput.C1” at address 60000, 396. This is the code entered in GETPUT. This program makes it easy to enter formulas, text, etc, to be scrolled in part across the screen.

If an image is on the screen when “Getput” is loaded, the star will rotate back and forth, dragging part of the text with it.

BASIC Listing¹

  2 REM "GETPUT" by Mike De Rienzo
  3 REM see program in THE PLOTTER 6/90 issue for details
  5 RANDOMIZE USR 100: LOAD "getput.C1"CODE
 10 LET get=60000
 20 LET put=60006
 30 PLOT 9,142: DRAW 57,10,4000
 40 RANDOMIZE USR get: PRINT AT 0,0;10,10,50000
 45 PRINT FLASH 1;AT 4,2; INK 2;"GETPUT"; INVERSE 1;AT 5,2; INK 1;"Demo!!": PRINT AT 10,5;"Press a key to start...": PAUSE 0
 50 LET d=-1: LET dx=d: LET dy=d: LET x=-d: LET y=-d
 55 CLS
 60 LET x=x+dx: LET y=d+dy
 70 IF NOT x OR x=22 THEN LET dx=dx*d: BEEP .01,y
 80 IF NOT y OR y=14 THEN LET dy=dy*d: BEEP .01,x
 90 RANDOMIZE USR put: PRINT AT y,x;10,10,50000\n100 GO TO 60

Line 60 is reproduced as printed and does not run correctly as printed.²

---

Notes

1. The listing is set in a narrow column and several statements wrap. Line 2 breaks after De Rien, line 3 after THE PLOTT, line 5 after LOAD "get, line 40 after PRINT AT, line 50 after LET dy=d, and line 70 breaks across the page boundary after THEN LET d, resuming at the top of page 4 with x=dx*d. All wraps have been rejoined; no character was added or dropped in doing so. ↩
2. Line 60 as printed reads LET x=x+dx: LET y=d+dy. The second assignment should almost certainly be LET y=y+dy, matching the form of the first and the dy=dy*d reversal at line 80; as printed, y is recomputed from the constant d on every pass and never advances, so the vertical motion the program is written for cannot occur. Reproduced as printed because nothing else in the article independently establishes the intended form. ↩