home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / ep22.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  27 lines
  1. 0 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 'EP22 - MODEL 100 TO BROTHER EP22          Woods Martin  WM1   03/21/84            Houston, Texas  713/621-3786
  3. 2 MAXFILES=2:CLEAR1000:DEFINTA-Z:DEFSNGD:DEFSTRS:SE=CHR$(27):SS=SPACE$(6):LL=72:PL=59:SO="COM:37I1E":REM defaults
  4. 3 GOSUB22:GOSUB16:IFETHEN3ELSEOPENSPFORINPUTAS2:OPENSOFOROUTPUTAS1:SH="Model 100 Document - "+SP+"       "+DATE$+"  "+TIME$+"      Page":PG=0:GOSUB10
  5. 4 IFEOF(2)THEN3ELSELINEINPUT#2,S:GOSUB5:GOTO4
  6. 5 IFLEN(S)<=LLTHENGOSUB8:RETURN
  7. 6 FORW2=LLTOLL-10STEP-1:W1=ASC(MID$(S,W2)):IFW1=32THENW3=W2-1ELSENEXT:W2=W2+1:W3=W2
  8. 7 ST=MID$(S,W2+1):S=LEFT$(S,W3):GOSUB8:S=SS+ST:GOTO5
  9. 8 GOSUB11:LC=LC+1:IFLC<PLTHENRETURNELSEGOSUB9:GOSUB10:RETURN
  10. 9 SQ="Pause - insert new page <ent>":BEEP:GOSUB20:RETURN
  11. 10 LC=0:PG=PG+1:S=SH+STR$(PG):GOSUB8:GOSUB8:RETURN
  12. 11 L=LEN(S):IFL=0THENS=" "
  13. 12 IFL=0THEN14ELSEFORI=1TOL-1
  14. 13 GOSUB15:PRINT#1,MID$(S,I,1);:NEXT
  15. 14 GOSUB15:PRINT#1,RIGHT$(S,1):S="":RETURN
  16. 15 IF(INP(187)AND16)THEN15ELSERETURN
  17. 16 E=(INP(187)AND16):IFE=0THENRETURNELSESQ="Printer Not Ready  <ent>":BEEP:GOSUB20:RETURN
  18. 17 GOSUB21:IFV=13THEN19ELSEIFV=8THENIFLEN(SI)>0THENPRINTSC" "SC;:SI=MID$(SI,1,LEN(SI)-1):GOTO17ELSE19
  19. 18 IFV<32THEN17ELSESI=SI+SC:PRINTSC;:GOTO17
  20. 19 RETURN:SQ=SQ+" Y OR N"
  21. 20 PRINTSQ" ? ";:GOSUB21:PRINTSC:RETURN
  22. 21 SC=INPUT$(1):V=ASC(SC):IFV>96ANDV<123THENV=V-32:SC=CHR$(V):RETURNELSERETURN
  23. 22 CLOSE:CLS:FILES:PRINTTAB(8)SE"p  EP22 - [c] Woods Martin"SE"q":PRINT"DO File Name (Stop=<ent>)? ";:SI="":GOSUB17:IFSI=""THENMENUELSEPRINT
  24. 23 SP=SI:T=INSTR(SP,"."):IFTTHENSP=LEFT$(SP,T-1)
  25. 24 SP=LEFT$(SP+SS,6):FORD=63919TO63919+11*19STEP11:T=PEEK(D):IFT=192ANDPEEK(D+3)=ASC(SP)THENFORI=2TO6:IFPEEK(D+2+I)=ASC(MID$(SP,I))THENNEXT:DS=256*PEEK(D+2)+PEEK(D+1):SP=SP+".DO":RETURN
  26. 25 NEXTD:BEEP:PRINTSP".DO not found ";:GOSUB21:GOTO22
  27.