home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib34b.dsk / MAKE.EXEC.bas < prev    next >
BASIC Source File  |  2023-02-26  |  754b  |  7 lines
  1. 0 D$ =  CHR$(4): GOTO 6
  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. 6  PRINT D$"OPEN LISTER.EXEC": PRINT D$"WRITE LISTER.EXEC": LIST 1,5: PRINT "RUN": PRINT "DEL 1,5": PRINT "HOME:VTAB 23": PRINT D$"CLOSE": END