1  HOME : PRINT  CHR$ (21):A$ = "":L = 0: PRINT "ENTER TITLE (32 CHARACTER MAXIMUM)": VTAB 22: PRINT "PRESS RETURN TO ACCEPT OR ": PRINT "ESCAPE TO RESTART": VTAB 3: PRINT ">";: POKE 49152,0
 2  WAIT 49152,128:KEY$ =  CHR$ ( PEEK (49152) - 128): POKE 49168,0: ON KEY$ =  CHR$ (13) GOTO 3: ON KEY$ =  CHR$ (27) GOTO 1: ON L >  = 32 GOTO 2: IF L < 32 THEN L = L + 1:A$ = A$ + KEY$: PRINT KEY$;: GOTO 2
 3  POKE 932,L - 1: FOR I = 0 TO L - 1: POKE 933 + I, ASC ( MID$ (A$,L - I,1)): NEXT 
 4  PRINT :D$ =  CHR$ (4): PRINT D$"PR#1": PRINT  CHR$ (9)"80N": PRINT D$"BRUN LISTER"
 5  LIST 6,: PRINT D$"PR#0": END 

RUN
DEL 1,5
HOME:VTAB 23