home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / print.200 < prev    next >
Text File  |  2006-10-19  |  3KB  |  49 lines
  1. 0 'PRINT.BA  Gary Sullivan                 CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 MAXFILES=2:CLEAR500:DEFINTA-Z:DIMTF$(1),PM$(11),PM(11):PW=1:PL=2:LM=3:RM=4:TM=5:BM=6:LS=7:NF=8:TF=9:PZ=10:FF=11:VW=40:VH$=CHR$(27)+"p":VN$=CHR$(27)+"q":EF$=CHR$(27)+"J":TF$(0)="NO":TF$(1)="YES":PN$="Page":FORI=1TO11:READPM$(I):NEXTI
  3. 2 DATA Page width,Page length,Left margin,Right mgn.,Top margin,Bottom mgn.,Line space,Number pgs,Title pgs,Pg-pause,Skip headings 1st pg:FORI=1TO11:READPM(I):NEXTI:DATA 80,66,10,10,6,6,1,1,1,0,0
  4. 3 FF$=CHR$(12):CR$=CHR$(13):LF$=CHR$(10):TB$=CHR$(9):BS$=CHR$(8):SP$=" ":HY$="-":CC$=FF$+CR$+LF$+TB$+BS$+SP$:CLS
  5. 4 FILES:INPUT"Print which file";FI$:INPUT"Output device (press ENTER for printer)";FO$:IFFO$=""THENFO$="LPT:
  6. 5 CLS:FORI=1TO7:PRINT@VW/2*(I-1),VH$I;VN$PM$(I)" ="PM(I);:NEXTI:FORI=8TO11:PRINT@VW/2*(I-1),VH$I;VN$PM$(I)" = "TF$(PM(I));:NEXTI:S=0:PRINT:INPUT"Change which setting (0=no change)";S:IFS=0THEN9
  7. 6 IFS>=1 ANDS<=7THENPRINT"Enter a new value for '"PM$(S)"'";:INPUTPM(S):GOTO5
  8. 7 IFS>=8 ANDS<=11THENPRINT"'"PM$(S)"' (YES/NO)";:INPUTS1$:IFS1$="YES"ORS1$="yes"THENPM(S)=1ELSEIFS1$="NO" ORS1$="no"THENPM(S)=0
  9. 8 GOTO5
  10. 9 LW=PM(PW)-PM(LM)-PM(RM):TL=PM(PL)-PM(BM):LM$=STRING$(PM(LM),SP$):CLS:IFPM(TF)=1THENPRINT"Enter a one-line title maximum"LW"characters.":LINEINPUTTI$:TI$=LEFT$(TI$,LW)
  11. 10 IFFO$="LPT:" ORFO$="lpt:"THENINPUT"Align paper then press ENTER";RD$
  12. 11 OPENFI$FORINPUTAS1:OPENFO$FOROUTPUTAS2:CLS:C$="":PN=0
  13. 12 IFEOF(1)THENCLOSE:PRINT"Done":GOTO4
  14. 13 IFPM(PZ)=1THENINPUT"Press ENTER to print next page";RD$
  15. 14 PN=PN+1:LN=0
  16. 15 IFLN<PM(TM)THENGOSUB42:GOTO15
  17. 16 IFPN=1 ANDPM(FF)=1THEN20
  18. 17 IFPM(TF)=1THENBH$=TI$:GOSUB43
  19. 18 IFPM(NF)=1THENBH$=PN$+STR$(PN):GOSUB43
  20. 19 IFPM(TF)=1 ORPM(NF)=1THENGOSUB42:LK=1:GOSUB46
  21. 20 IFEOF(1)THEN31
  22. 21 IFLN>=TLTHEN39
  23. 22 C1$=C$:C$=INPUT$(1,1):ONINSTR(1,CC$,C$)GOTO31,33,35,37,38,41
  24. 23 B$=B$+C$:IFC$>=SP$THENCP=CP+1
  25. 24 IFCP<LWTHENWF=0:GOTO20
  26. 25 WF=1:LB=LEN(B$):SP=1:HP=0:S=1
  27. 26 HQ=HP:HP=INSTR(S,B$,HY$):IFHP>0THENS=HP+1:GOTO26
  28. 27 HP=HQ:S=1:SP=0
  29. 28 SQ=SP:SP=INSTR(S,B$,SP$):IFSP>0THENS=SP+1:GOTO28
  30. 29 SP=SQ:BP=-(SP>HP)*SP-(HP>=SP)*HP:IFBP=0THENGOSUB44:GOTO20
  31. 30 B1$=RIGHT$(B$,LB-BP):B$=LEFT$(B$,BP):GOSUB44:B$=B1$:CP=LEN(B$):GOTO20
  32. 31 AF=0:WF=0:IFB$>""THENGOSUB44
  33. 32 GOTO39
  34. 33 IFWF=0THENGOSUB44ELSEWF=0
  35. 34 GOTO20
  36. 35 IFC1$=CR$ ORAF=1 ORWF=1THEN20
  37. 36 GOSUB44:GOTO20
  38. 37 I1=8-CP MOD8:I2=LW-CP:TB=-(I1<I2)*I1-(I2<=I1)*I2:CP=CP+TB:B$=B$+STRING$(TB,SP$):GOTO24
  39. 38 B$=B$+C$:CP=CP-1:WF=0:GOTO20
  40. 39 IFLN<PM(PL)THENGOSUB42:GOTO39
  41. 40 GOTO12
  42. 41 IFCP=0THEN20ELSE23
  43. 42 PRINT#2,"":LN=LN+1:RETURN
  44. 43 PRINT#2,LM$BH$:LN=LN+1:RETURN
  45. 44 IFB$>""THENPRINT#2,LM$;
  46. 45 PRINT#2,B$:LN=LN+1:B$="":CP=0:LK=1
  47. 46 IFLK<PM(LS) ANDLN<TLTHENGOSUB42:LK=LK+1:GOTO46
  48. 47 RETURN
  49.