home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / txt / pbdump.200 < prev    next >
Text File  |  2006-10-19  |  748b  |  13 lines
  1. 1 'PBDUMP.200 by James Yi (9/14/90)
  2. 2 'Empties the paste buffer into any text file that you specify.
  3. 3 'For use when you go to paste and get the "Memory Full" error.
  4. 4 '
  5. 10 CLEAR256:READF$,T:IFT<=MAXRAMTHENCLEAR256,T:READF$,T
  6. 11 READE,X:PRINTF$;T;E;X:M=T:S$="":R=0
  7. 12 IFM>ETHENSAVEMF$,T,E,X:MENUELSEIFS$=""THENREADS$
  8. 13 H=ASC(MID$(S$,1))-64:IFH<16THENN=H*16+ASC(MID$(S$,2))-64:S$=MID$(S$,3)ELSER=H-16:S$=MID$(S$,2)
  9. 14 POKEM,N:M=M+1:IFRTHENR=R-1:GOTO14ELSE12
  10. 15 DATAPBDUMP.CO,63408,63521,63408,LMFBBLBAAJOHLMINFGLMO@EDMGLHLMDCBMLMLJEJLMGCBMLM@MOHNEBJJ@OBLM@MOH@HNKF@FIGLKELJ@GAF@AH@@B@H
  11. 16 DATAMBNGOG@IDDDMBA@@PNCNENKAAC@OJLELMAFHCLAMANELENE@HLA@KBKGN@BMOLBOHOGLABAC@OJLMAFHCNANKNCLCMEOG@AOOPCNAJ@CKNBCLBABOHBKLIDD
  12. 17 DATAGEFMG@B@GDFO@@
  13.