Lionpoulos 2d ******************************************2n * STOSCOPY Version 2.0 by Richard Vanner *2x * (c) 1988 Mandarin/Jawx *2 ******************************************$FOLD$STOS:$:STOSCOPY Version 2.0,:(c) Mandarin / Jawx 1988::V:Insert a disc containing the ;FOLD$; folder, and press a key.w@%FILES(@),FILES$(@),&FSIZES(@)ȿ\FOLD$ SOURCE$\*.*2A$(SOURCE$,):A$A !HFILE$:FILE$A:!%FILES(A):FILES$(A)(FILE$, ):&FSIZES(A)((FILE$, ,)):AAAAT"%FILES(A)A:!":NUMFILESA6, **********************************************06 * Create a new folder onto the new disc *6@ **********************************************VJ:EInsert a newly formatted disc into the current drive and press a key.:wT(0^FOLD$:::New ;FOLD$; folder created.::.Now re-insert the source disc and press a key.:w6h ***********************************************6r * Copy 15 files or less into the memory banks *6| ***********************************************(FSTART:FMAXnNFFSTART:NUMBANKS:%FILES(NF)NUMBANKSFMAXF&:NUMBANKS,&FSIZES(NF): Loading : ;FILES$(NF); - into bank ;NUMBANKS:z\FOLD$\FILES$(NF),NUMBANKS NF:NUMBANKS:, *************************************(Š * Save banks out to new folder *,̊ *************************************<֡:,Insert the destination disc, and press a key:wNF Saving : ;FILES$(FSTART); - from bank ;NF:{\STOS\FILES$(FSTART),(NF)(NF)&FSIZES(FSTART)JFSTART:NF:FSTARTNUMFILES*NFFMAXA:A:A::-Insert the STOS source disc, and press a key.:w:FMAX::Copy complete.0&FMAXNUMBANKS:D0:3I can't open the new folder. Please check the disc!: