Copycat

Date: 198x
Type: Program
Platform(s): TS 2068

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.

Gallery

Copycat

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

People

No people associated with this content.

Scroll to Top