0 'QDLLIS--Quick & Dirty LList for Basic; NOTE: Save"prgm",A to make target file
1 INPUT"ready";I$
2 LPRINT:LPRINT
3 FILES:INPUTF$:LPRINTF$;":":CLS
4 OPENF$FORINPUTAS1
5 I$=INPUT$(1,1):PRINTI$;
6 IFI$=":"THENLPRINTCHR$(13)+CHR$(9);
7 LPRINTI$;
8 IFNOTEOF(1)THEN5
9 SOUND999,50:PRINT"KILL "F$;:I$="N":INPUTI$:IFINSTR("Yy",I$)THENF$=F$+".do":KILLF$
10 LPRINTTAB(4);STRING$(8,42)DATE$","TIME$:LPRINT:LPRINT:MENU