! SHUFEL ! ER JALEXEC:ASCNUM.TECA0JZXUZK0JZKER IN2SH.TTTA 0JX4MU(Q5)UN0JZKER IN4SH.TTTA 0JX4MU(Q5)UM0JHK0JZKER IN1SH.TTTA 0JXAZK0JHK0JZKER IN3SH.TTTA 0JXBZK0JZKER IN5SH.TTTA 0JXCZK0JZKGC0J0JIEWZJ27I27I0JXFZKMF0JZKGA0J0JIERZJ27I27I0JXDZKMD0JZKGB0J 0JIEP27IIERZJ27I27I0JXEZKME^A SHUFEL.TEC - Please Be Patient As This May Take A While. !TOP!0UJER(QN)<1:A>EP(QM)<1:A>ZU2 Q2-0"E@O/DONE1/' 0U10UHZV0J0,ZPWZK@O/TOP/!DONE1!QH-3"L1%H@O/TOP/' EG@ZZZZZZ.ZZZ!SLLL!  1234567890 2345678901 3456789012 4567890123 5678901234 6789012345 7890123456 "n" = QN="m" = QM="p" = QP=This Line Length In Characters = Q2= The Current Line Is Too Short For the Specified Move 0JZT ! SHUFEL ! ! THIS COMMAND LINE WILL ALLOW THE USER TO SHUFFEL TWO FILES TOGETHER ! ! n LINES FROM FILE "A" SHUFFELED WITH ! ! m LINES FROM FILE "B" ! ! INTO FILE "C" ! ! ! ! THE ORIGIONAL FILE('S) WILL BE RENAMED "FILENAME.BAK" ! ! THE RESULTING FILE('S) WILL BE NAMED "FILENAME.FILETYPE" ! ! ! -1EU !SET FLAG TO ACCEPT LOWER CASE! 22ET !SET TERM. TO SCOPE, SET LOWER CASE, CANCEL CONTROL O ON TYPEOUT! 3EH !SET HELP LEVEL FLAG TO MOST HELP! -1ES !SET SEARCH VERIFICATION FLAG TO TYPE LINE WHEN MATCH FOUND.!  ! GET THE MACRO FOR DOING THE ASCII NUMBER TO TECO NUMBER CONVERSION ! ! PUT IT IN BUFFER "U" ! ! THE NUMBER IT CONVERTS TO IS IN BUFFER "5" ! ! THE NUMBER IT CONVERTS FROM IS IN BUFFER "4" ! 0JZKER JALEXEC:ASCNUM.TECA0JZXUZK 0JZKER IN2SH.TTT! GET "n" THE USER DESIRES TO USE ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! CONVERT THE NUMBER FROM ASCII TO THE TECO EQIVALENT ! 0JX4MU! LOAD BUFFER "N" WITH THE VALUE OF THE CHARACTER ! (Q5)UN 0JZKER IN4SH.TTT! GET "m" THE USER DESIRES TO USE ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! CONVERT THE NUMBER FROM ASCII TO THE TECO EQIVALENT ! 0JX4MU! LOAD BUFFER "M" WITH THE VALUE OF THE CHARACTER ! (Q5)UM 0JHK 0JZKER IN1SH.TTT! GET THE FILENAME "A" THE USER DESIRES TO PREPROCESS ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! SAVE IT IN "A" BUFFER! 0JXAZK 0JHK 0JZKER IN3SH.TTT! GET THE FILENAME "B" THE USER DESIRES TO PREPROCESS ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! SAVE IT IN "B" BUFFER! 0JXBZK 0JZKER IN5SH.TTT! GET THE FILENAME "C" THE USER DESIRES TO PREPROCESS ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! SAVE IT IN CB" BUFFER! 0JXCZK ! NOW SET UP ALL THE INPUT AND OUTPUT FILES ! ! OPEN THE OUTPUT FILE "C" FROM BUFFER "F" ! 0JZKGC0J 0JIEWZJ27I27I0JXFZKMF ! READ THE INPUT FILE "A" FROM BUFFER "D" ! 0JZKGA0J 0JIERZJ27I27I0JXDZKMD ! READ THE INPUT FILE "B" FROM BUFFER "E" ! 0JZKGB0J 0JIEP27IIERZJ27I27I0JXEZKME! NOW READ IN n LINES FROM FILE "A" THEN m LINES FROM FILE "B" ! ^A SHUFEL.TEC - Please Be Patient As This May Take A While.  !TOP! ! INITALIZE REGS ! 0UJ ! GET FILE "A" ! ER! GET N LINES ! (QN)<1:A> ! GET FILE "B" ! EP! GET M LINES ! (QM)<1:A> !PUT BUFFER LENGTH IN BUFFER 2 ! ZU2 Q2-0"E@O/DONE1/' 0U1 0UH ! SHOW THE USER WHAT HE GOT ! ZV ! WRITE OUT THIS PAGES WORTH & GET MORE ! 0J0,ZPWZK@O/TOP/ ! ALL DONE CONVERTING FILE THIS COPY ! !DONE1! ! NOT 3 EMPTY BUFFERS YET SO NOT DONE ! QH-3"L1%H@O/TOP/' EG@ZZZZZZ.ZZZ!SLLL!  1234567890 2345678901 3456789012 4567890123 5678901234 6789012345 7890123456 "n" = QN="m" = QM="p" = QP=This Line Length In Characters = Q2= The Current Line Is Too Short For the Specified Move 0JZT