home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / utlpw2.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  61 lines
  1. 0 'UTLPW2.BA - BY PHIL WHEELER
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 ONERRORGOTO6:CLS:PRINT:FILES:PRINT@280,"Name Kill Filn Prnt                Menu";:KEY(1)ON:KEY(2)ON:KEY(3)ON:KEY(4)ON::KEY(8)ON
  4. 3 ONKEYGOSUB4,5,7,15,,,,6:A3$=INKEY$:IFA3$=CHR$(13)THEN6ELSEGOTO3
  5. 4 CLS:PRINT:FILES:LINEINPUT"reNAME which file?:";A$:IFA$=""THEN2ELSELINEINPUT"as what file?:";B$:NAMEA$ASB$:GOTO4
  6. 5 CLS:PRINT:FILES:LINEINPUT"KILL which file?:";C$:IFC$=""THEN2ELSEKILLC$:GOTO5
  7. 6 MENU
  8. 7 DEFINTA-Z:DEFSTRD-F:DIMF(23),A(23):FORX=-1408TO-1639STEP-11:IFPEEK(X)THENFORZ=0TO7:F(Y)=F(Y)+CHR$(PEEK(X+3+Z)):NEXT:GOSUB14
  9. 8 NEXT:F(Y-1)="NonameBA":F(Y-2)="Paste BF":X=-1103:GOSUB14:Y=Y-1:X=Y\2
  10. 9 FORZ=0TOY-X:W=Z
  11. 10 IFA(W)>A(W+X)THENB=A(W):A(W)=A(W+X):A(W+X)=B:E=F(W):F(W)=F(W+X):F(W+X)=E:W=W-X:IFW>-1THEN10
  12. 11 NEXT:X=X\2:IFXTHEN9ELSEF(Y)="Reserved":F(Y+1)="File  BF":A(Y+1)=A(Y)+MAXRAM-HIMEM:Y=Y+2:A(Y)=A(Y-1)+MAXFILES*267:Z=0
  13. 12 CLS:FORW=ZTO15+Z:PRINT@(W-Z)*20,LEFT$(F(W),6)"."RIGHT$(F(W),2);:PRINTUSING" #####";A(W+1)-A(W);:IFW+1=YTHENW=98
  14. 13 NEXT:E=INPUT$(1):Z=W:IFW=99THENMENUELSE12
  15. 14 A(Y)=PEEK(X+2)*256+PEEK(X+1)-65536:Y=Y+1:RETURN
  16. 15 MAXFILES=2:CLS:CLEAR2000:S=0:RV$=CHR$(27)+"p":NO$=CHR$(27)+"q":L=8:R=75:X$="N":HD$="N":LS=1:C$=STRING$(60,32):LN=0:PG=1
  17. 16 GOSUB59
  18. 17 PRINT"You have these files in memory.....":PRINTRV$;:FILES
  19. 18 PRINTNO$;:PRINT@280,"Print       .DO";:PRINT@286,"";:LINEINPUTN$
  20. 19 CLS:GOSUB59:PRINT@40,"Page Margins (L,R)      ";:PRINT@80,"Page Spacing (1 or 2)   ";:PRINT@120,"Page Title             ";
  21. 20 PRINT@160,"Page 1 Title (Y/N)?     ";:PRINT@200,"Non Stop or Pause (N/P)";:PRINT@240,"Parallel or Serial (P/S)";
  22. 21 PRINT@65,"";:INPUTL,R:IFL=0THENL=1
  23. 22 L$=STRING$(L-1,32):PRINT@105,"";:INPUTLS
  24. 23 PRINT@145,"";:INPUTH$
  25. 24 PRINT@185,"";:INPUTHD$
  26. 25 PRINT@225,"";:INPUTX$
  27. 26 PRINT@265,"";:INPUTSP$
  28. 27 LPRINTCHR$(27)"E";
  29. 28 IFSP$="s"ORSP$="S"THENOPEN "COM:78N1E"FOROUTPUT AS 2:GOTO30
  30. 29 OPEN"LPT:"FOROUTPUTAS2
  31. 30 OPENN$FORINPUTAS1
  32. 31 CLS
  33. 32 IFH$=""THENPH$=L$+DATE$:GOTO35
  34. 33 PH$=STRING$(R-8,32)+DATE$
  35. 34 IFH$<>""THENMID$(PH$,L,(LEN(H$)))=H$
  36. 35 IFHD$="Y"ORHD$="y"THENPR$=L$:GOSUB56
  37. 36 PR$=L$
  38. 37 IFLN>=57THENGOTO53
  39. 38 FORJ=LEN(PR$)TOR
  40. 39 PR$=PR$+INPUT$(1,1)
  41. 40 IFEOF(1)THENCLOSE1:EN=1:GOTO48
  42. 41 IFRIGHT$(PR$,1)=CHR$(10)THENPF=1:GOTO47
  43. 42 IFRIGHT$(PR$,1)=CHR$(128)THENPR$=LEFT$(PR$,J-1):GOTO53
  44. 43 NEXTJ
  45. 44 IFMID$(PR$,J,1)=" "THEN46
  46. 45 J=J-1:GOTO44
  47. 46 NX$=MID$(PR$,J+1,R):PR$=MID$(PR$,1,J):GOTO48
  48. 47 PR$=LEFT$(PR$,LEN(PR$)-2)
  49. 48 IFMID$(PR$,L,3)="   "THEN50
  50. 49 IFMID$(PR$,L,1)=" "THEN PR$=MID$(PR$,2,LEN(PR$)):GOTO49
  51. 50 PRINTCHR$(255);:PRINT#2,PR$;CHR$(13);:LN=LN+1:IFEN=1THEN53
  52. 51 IFLS=2THENPRINT#2,CHR$(13);:LN=LN+1
  53. 52 PR$=L$+NX$:NX$="":GOTO 37
  54. 53 PRINT#2,CHR$(12);:PG=PG+1
  55. 54 IFEN=1THENCLOSE2:MENU
  56. 55 IFX$<>"n"ANDX$<>"N"THENGOSUB58
  57. 56 PRINT#2,PH$:PRINT#2,L$;"Page ";PG
  58. 57 PRINT#2,"":PRINT#2,"":LN=4:GOTO38
  59. 58 INPUTX;:RETURN
  60. 59 PRINTRV$+"       Radio Shack Printer Program      "+NO$;:RETURN
  61.