home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib34b.dsk / LISTER.EXEC.txt < prev    next >
Text File  |  2023-02-26  |  635b  |  11 lines
  1.  
  2.  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
  3.  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
  4.  3  POKE 932,L - 1: FOR I = 0 TO L - 1: POKE 933 + I, ASC ( MID$ (A$,L - I,1)): NEXT 
  5.  4  PRINT :D$ =  CHR$ (4): PRINT D$"PR#1": PRINT  CHR$ (9)"80N": PRINT D$"BRUN LISTER"
  6.  5  LIST 6,: PRINT D$"PR#0": END 
  7.  
  8. RUN
  9. DEL 1,5
  10. HOME:VTAB 23
  11.