A 2068 version archival copying utility.
Appears on
Capital Area Timex Sinclair User Group’s Library Tape.
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20083 to 20120. These tapes were compiled by Tony Willing.
Source Code
0 BORDER PI-PI: PAPER PI-PI: INK PI-PI: CLS : PRINT " copycat IS LOADING ": PRINT " ": PRINT " ": RANDOMIZE USR (PEEK VAL "23627"+VAL "256"*PEEK VAL "23628") STEP R;; LLIST ABS GO SUB VAL NOT ABS NEXT 1USR STEP \bPEEK INVERSE !lPEEK !! COPY COPY INVERSE ~PI(P INVERSE f. COPY INVERSE ^ INVERSE V CLEAR \* GO SUB y INVERSE INVERSE RESTORE MERGE zCOS @ INVERSE ~ DRAW RETURN = RESTORE INVERSE LLIST >SCREEN$ 7 STEP UIN STR$ INVERSE RESTORE LLIST # STEP DPEEK CLEAR 0!USR @@ GO SUB VAL INVERSE LLIST SCREEN$ CLEAR !:\\! LPRINT Z >w#!>=ABS WVUTS< REM R INVERSE !ABS >USGN NOT LPRINT V!ABS ABS COPY 6NOT LPRINT V GO SUB VAL 1 LPRINT T CLEAR COPY Q LET IN GO SUB yzPI LET COPY > GO SUB yNOT READ V GO SUB VAL 1 LPRINT S LET OPEN # RETURN STR$ LET GO SUB y INVERSE LLIST LET LLIST | GO SUB G} GO SUB O LLIST MOVE STR$ LET NOT LPRINT U1 LIST a GO SUB V NEXT NOT 8 COPY COPY CLEAR \*\d\\?\\| NEW USR WxLEN >=~ RETURN GO SUB #PEEK (+ GO SUB \q LOAD # OR F#~#STR$ OVER \ '! FORMAT COPY PLAY ! RETURN Z6#6!TAN PEEK INVERSE ! RETURN PV INVERSE r#V INVERSE r# INVERSE <>\* RETURN H SAVE \ \' > RETURN STEP [IN CIRCLE CAT OPEN # RETURN FLASH RETURN NEW @OIN USR STEP LINE IN 0 IF &u STEP AND IN 0 LET >VAL LN 0 GO SUB $ LET VAL STEP LINE IN 0 STOP x RETURN STR$ 0 POKE STEP LINE IN FORMAT &\ INVERSE u THEN USR yO INVERSE +\' . STEP AND IN FORMAT >POINT LN THEN \ 0 NEXT |TAB gzCOS OPEN #| RETURN <> STEP LINE IN FORMAT > CLEAR PI>= FLASH RETURN POINT NEW @( RUN y INPUT AO NEW PLOT OPEN # RETURN 7<>\q