5 REM MIGHTY MAILER›10 REM BY PHILIP BATE, Ph.D.›15 REM EXTENSION ROUTINES BY BOB KLEMENC›20 REM (c) 1987, ANTIC PUBLISHING›30 FILELEN=FRE(0)-1100:DIM FILE$(FILELEN)›40 DIM SUB$(255),RAND$(260),FILENAME$(14),EOL$(2),IO$(7),MSG1$(28),MSG2$(24),MSG3$(146)›41 DIM AT$(1):AT$="@"›60 MSG3$="Press 'Å' to print envelopes or 'Á' to print addressee on letter, or 'Ô' to print addressee & @ data"›61 MSG3$(LEN(MSG3$)+1)=".                  BE SURE PRINTER IS READY"›370 START=RAND+2:GOSUB 1120:GOSUB 1191›410 IF A=32 OR A=65 OR A=69 OR A=84 THEN 370›1040 IF A=69 OR A=65 OR A=84 THEN GOSUB 1220›1191 AT=0:AT=USR(ML,ADR(FILE$),LEN(FILE$),ADR(AT$),LEN(AT$),START)›1192 IF AT=0 OR AT>RAND THEN AT=RAND›1230 ? CHR$(27);CHR$(195);"I/O ERROR #";PEEK(195):TRAP 40000:CLOSE #4:FOR D=1 TO 250:NEXT D:GOTO 130›1240 IF A=69 THEN ? #4;CHR$(27);"M";CHR$(40);FILE$(START,AT-1):? #4;CHR$(27);"M";CHR$(0):CLOSE #4:RETURN ›1250 IF A=65 THEN PRINT #4;CHR$(27);"M";CHR$(10);FILE$(START,AT-1):? #4;CHR$(27);"M";CHR$(0):CLOSE #4:RETURN ›1251 IF A=84 THEN PRINT #4;CHR$(27);"M";CHR$(10);FILE$(START,RAND+1);CHR$(27);"M";CHR$(0):CLOSE #4:RETURN ›