Here is the BASIC program for making LEX files.
0010 SFLAG -1 @ ON ERROR GOTO 30 @ DESTROY ALL
0020 PURGE DUMMY
0030 ON ERROR GOTO 220
0040 INPUT '# of bytes: ';N
0050 CREATE TEXT DUMMY,N
0060 A=HTD(ADDR$('DUMMY')) @ A1=A @ P$=RPT$("-",16)
0070 Q=1 @ X=0 @ INPUT '000: ',P$;A$ @ C$=A$ @ GOSUB 200
0080 Q=2 @ X=1 @ GOSUB 190
0090 A$=A$&C$ @ A=A+37 @ N=N*2+31 @ Q=3 @ SFLAG 5
0100 FOR X=2 TO N DIV 16-1
0110 GOSUB 190
0120 IF FLAG(5) THEN C$=C$[6]
0130 POKE DTH$(A),C$ @ A=A+16-5*FLAG(5,0) @ NEXT X @ Q=4
0140 DISP DTH$(X)[3]; @ INPUT ': ',P$[1,MOD(N,16)];C$
0150 GOSUB 200
0160 L=LEN(C$) @ IF C$[L,L]='-' THEN C$=C$[1,L-1] @ GOTO 160
0170 POKE DTH$(A),C$ @ POKE DTH$(A1),A$
0180 OFF ERROR @ CFLAG -1 @ END
0190 DISP DTH$(X)[3]; @ INPUT ': ',P$;C$
0200 DISP DTH$(X)[3]; @ INPUT ' ck ','--';C1$
0210 S=0 @ FOR Z=1 TO LEN(C$) @ S=IP(NUM(C$[Z,Z])*Z+S) @ NEXT Z
0220 IF C1$=DTH$(MOD(S,256))[4] THEN RETURN
0230 DISP 'Checksum Error' @ BEEP @ POP @ ON Q GOTO 70,80,110,140
0240 DISP 'Error:'&ERRM$ @ BEEP @ GOTO 180
I have about 30 LEX files I got from the /lif/swap disk library that I striped of headers and trailers. I have some of these on cards the rest are on my PC that I transfer with my IL/RS232 interface.
appt1.lex setalarm
attnlex.lex attn
beeplex.lex chirp, mgun, sing, zap
bytefcns.lex indir, peekb$, pokeb
chronolx.lex chrono$, chrono
clockdsp.lex
clocklex.lex clock
cmd16lex.lex
cmdlex.lex cmdstk
comlex.lex clock, cmdstkq, cmdstk, cntrstq, crateq, dsp$, lock$, lrateq, pwidthq, widthq
datalex.lex ddelete, dinsert, drecords, expand, reclen, swap
datelex.lex dateadd, datestr$, ddays, dmy, dow$, dow, mdy
dsplex.lex bld, blink, clr, dot, invert, lcd, mirror, nrmal, set, small
dtlex.lex dt
escapelx.lex boldoff, boldon, compress, eightlin, expand, expcmp, normal, perfoff, perfon, sixlin, underoff, underon
findlex.lex find
helplex.lex help
hexlex7.lex esc$, hextoa$, hex$, inhex$
hmslexp.lex hms+, hms-, hms, hr
kbeep.lex
keywait.lex keywait$
listlex.lex listlex$ ("lexfile")
lockoff.lex
menulex.lex menu
noise.lex noise
romcopy.lex
textutil.lex delete, fileszr, insert, replace, search
yesnolex.lex yes/no
Chris