1 'PBDUMP.100 by James Yi (9/14/90)
2 'Empties the paste buffer into any text file that you specify.
3 'For use when you go to paste and get the "Memory Full" error.
4 '
10 CLEAR256:READF$,T:IFT<=MAXRAMTHENCLEAR256,T:READF$,T
11 READE,X:PRINTF$;T;E;X:M=T:S$="":R=0
12 IFM>ETHENSAVEMF$,T,E,X:MENUELSEIFS$=""THENREADS$
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)
14 POKEM,N:M=M+1:IFRTHENR=R-1:GOTO14ELSE12
15 DATAPBDUMP,64704,64817,64704,LMDFBAPBJOMLMIAEGLMCNDFMGLHLMOJBALM@KDLLM@FBBLMAMOMNEBJJEOILMAMOM@HNKF@FIGLKELJO@AD@AD@@A@HMBOG
16 DATAOL@IDDDMBA@@PNCNENKAA@@ONLELMMKFKLAMANELENE@HLA@KBKGN@BMOLB@HOMLABA@@ONLMMKFKNANKNCLCNEOL@AOOPCNAJ@CKNBCLBBBOMBKLIDDGEFM
17 DATAG@B@GDFO@@