Gosubs

For the TS 2068

  3 REM STARY NIGHT
        BY
        JOHN RICHARD COFFEY
        BOX 448
        SCOTTSBURG, IN 47170

  4 PAPER 0: BRIGHT 1: BORDER 0
: CLS
  7 FOR p=0 TO 1
 10 FOR l=1 TO 704
 20 LET a=INT (RND*128)*2
 30 LET b=INT (RND*88)*2
 50 INK 7*RND: PLOT a,b: IF p T
HEN PLOT a+1,b: PLOT a,b+1: PLOT
 a+1,b+1
 60 NEXT l
100 NEXT p

ZX81/TS1000/1500

 10 POKE 16418,15
 20 INPUT A$

  5 POKE 16390,119
 20 INPUT A$

  5 POKE 16390,119
 10 POKE 16418,15
 20 INPUT A$
 30 REM SUBMITTED BY J. MARION

ZX81/TS1000/1500 + TIMEX PRINTER

 10 REM Y*PEEK CLS TAN
100 POKE 16515,140
110 LET A=USR 16514
120 POKE 16515,0
130 LET A=USR 16514
140 GOTO 100
200 REM *BE READY TO          *
        *TURN OFF PRINTER *
210 REM SUBMITTED BY J. MARION