Input

Source Code

   10 OVER 0: INK 0: PAPER 7: BORDER 7: CLS 
   20 INPUT "Enter 1 - 20 characters"'a$
   30 POKE 23692,255
   40 LET d=0: LET e=0
   50 PRINT AT e,d;a$; INVERSE 1;a$
   60 LET e=e+1
   70 IF e>20 THEN LET e=-e
   80 LET d=d+1
   90 IF d>30 THEN LET d=-d
  100 GO TO 50