128/48 Copy: 128/48Copy.B

Is a part of release: 128/48 Copy
File size: 1456
md5: f0ec9845c21ad1ef12e2335caa867b14
  10 RANDOMIZE USR 49149: STOP 
  20 PAPER O: BORDER O: CLEAR USR mc:[T]
  33147!D] FLASH INT % GO SUB VAL  CLEAR  THEN f! OUT INT  ! SAVE INT " SQR CODE  STEP [L]" NEXT  GO SUB ^> STEP ! FLASH INT 2["[!| GO SUB G<w GO SUB VAL >NOT ! LLIST INT 2▝▝"▘▝ CLS ▟]<>:/[ NEW <> RESTORE  PRINT * CLEAR INT ~#" CLEAR INT  STEP  RETURN  >? GO SUB G GO SUB V LET  LLIST  CLS  GO SUB M COPY INT        RUN @@@@ COPY USR @USR @USR @USR @USR @USR @@▙]Q]no moreBRTEOM▝▜
  19525TH HEADER  EXPECT   FREELoadMergeSaveDeleteQuit6Down7UpProgram  Bytes%Num/$Char array8/48 Copy V1.COS  NEXT  INK  RESTORE > STEP > STEP INKEY$SGN  STEP dABS  STEP ▙{ RETURN % G LLIST  INK  CLS <> INK *SQR  THEN PEEK  INK  STEP PEEK  INK "SQR  THEN  RETURN  INK  STEP PEEK  STEP [I]PEEK Q*SQR  INK  STEP  OPEN #SGN  STEP  CLS ABS >= STEP lIN 8 POKE  STEP PEEK > STEP INKEY$SGN  STEP 7ABS >JSQR  INK  RESTORE  INK  STEP  INK  LLIST  INK <>!dSGN  RESTORE  RETURN  LINE dABS  RETURN  LINE xABS  RETURN (BIN  RETURN (PI RETURN ( RETURN USR  STEP AABS  STEP AABS >(BIN  STEP PEEK >= STEP @PEEK  INVERSE  RESTORE  LLIST  THEN ~ @> STEP INKEY$SGN #F>P(>%(>$(>B(>? BEEP > STEP INKEY$SGN #~ RETURN  0>? RETURN RND0 IF  BEEP  LET >  BEEP #^#V FOR  STEP qPEEK !0+|ASN   CLS  STEP ▙  IF <> STEP (ABS  STEP ▙( IF <> STEP  CLS ABS >= STEP DIN  INK  THEN ~ INK ( NEXT <>## INK  PRINT  STEP PEEK  GO SUB R OVER  CLOSE #@PEEK  STEP [I]PEEK  LET NOT [O]SGN * SQR "SQR "SQR !"SQR  OUT INT ( GO SUB VAL *SQR  THEN  RETURN  INK  STEP PEEK CODE 7 STEP [T]PEEK  INVERSE +> CHR$ <$% ABS < STEP PEEK 8ATN  MERGE  INK STR$ +V+^ FOR  GO SUB B FOR >8RND(7s#r# FOR !7 GO SUB B FOR 01 OR  GO SUB [SQR PI GO SUB RDMbk GO SUB SSQR  GO SUB VAL  MOVE +r+s GO SUB [SQR  GO SUB SSQR  INVERSE  RESTORE  MOVE +r+s+"SQR  INK  STEP  PAPER SGN ▗ INK  FOR *SQR  INK  FOR *SQR  INK  FOR !SQR PI GO SUB R FOR  INK <> INK  RESTORE !SQR  INK  STEP PEEK + STEP NPEEK  INK  LLIST  INK <>CODE go STEP  POKE ABS >= MERGE  INK +++++ RESTORE  INK  PRINT  STEP DIN  LET  DEF FN  INK  LLIST  THEN ~( FOR  INK  MOVE +<> STEP [U]SGN > BEEP > BEEP > BEEP # PRINT > BEEP > BEEP > BEEP  LET ATN > ([Q]▚ GO SUB R0 BEEP @[M]>>1 BEEP CODE ' STEP ▙PEEK  CONTINUE  STEP ▟PEEK d STEP ▟PEEK  STEP ▟PEEK CODE < GO SUB R0 CLS  AND / BEEP <> ! STEP ASN  NEXT <> STEP DIN !_IN  RESTORE > OPEN # RETURN  FLASH  RETURN  NEW   PLOT  OIN USR  STEP  BORDER 0 IF ! RETURN +|ASN   RANDOMIZE  STEP  READ 0 FOR [M] STEP  READ 0 DATA > AND LN 0 LPRINT $  LET <> STEP  BORDER 0 MERGE x RETURN  CLOSE #0 POKE  STEP  BORDER  FORMAT y INPUT O&>> 0 INVERSE u THEN TAB USR yO INVERSE ~TAB USR  INVERSE #.>= STEP  DIM  FORMAT  STEP  BORDER  FORMAT > READ LN  THEN > ERASE IN |TAB gzCOS  BIN  INK  THEN ~ INK   STEP DIN >>ATN | RETURN <> INK ~ NEW  PLOT   CLEAR © GO SUB y#^#V MERGE  INVERSE  LLIST #^#V MERGE # INK  MOVE <> PRINT :H/ NEW 8 OPEN # RETURN  LET <> STEP DIN  INVERSE ~ INVERSE #!_IN  RESTORE ! THEN ©(![I] INVERSE +>G RETURN  OPEN # RETURN  INPUT [U]-  PRINT % PAUSE IN / RETURN  OPEN # RETURN >7 RETURN  OPEN # RETURN EXP IN zCOS (7 INVERSE n|TAB g>7NOT  CLOSE #IN y THEN x RETURN 0B RETURN  OPEN # RETURN >  LOAD CODE < THEN CHR$ NOT IN  INVERSE #1>© FLASH  RETURN  FORMAT z< >= RETURN <>l INK  THEN ~ INK  <= STEP DIN LN NOT TSGN TAB  READ  SAVE /o