Uchi Mata Part 1 (Judo Uchi Mata Part 1): UCHIMATA.B

Is a part of release: Uchi Mata Part 1 (Judo Uchi Mata Part 1)
File size: 1298
md5: 250fec3fdc642f60976a78db9182b601
  1 CLOSE #USR 0:S.A.W. & T.A.W. PROTECT SYSTEM ! COPY " NEXT  GO SUB > THEN 7 GO SUB T GO SUB G THEN 7 THEN 7 GO SUB O GO SUB f!@@ COPY u GO SUB VAL 18@!lkmk[D][E]CODE w GO SUB VAL  OPEN # RETURN  OPEN #>2=/2H/2k/1 COPY W INVERSE !^ CLEAR !@[M]LN  GO SUB WFN POINT  GO SUB L_ GO SUB _ GO SUB O INVERSE VAL$ FN POINT ATTR  GO SUB s@*@/AT  GO SUB LTAB  INVERSE wFN ATTR AT / CLEAR w{ INVERSE VAL$ AT FN / GO SUB ~ INVERSE w/ GO SUB LATTR TAB  CLEAR wo INVERSE f RESTORE  INVERSE # CLEAR # INVERSE # CLEAR #xLEN CHR$ wf FLASH  READ  FOR [T] RETURN  REM  POKE  FLASH n BEEP 3u ERASE  CIRCLE -SIN ? OR /▜ BEEP  PLOT  BIN &4 MERGE  CLS  PAPER CHR$ 4[K] RESTORE ▙W INVERSE  AND nFN PIv[O]u MERGE  TO  POKE Y[Q]AT  RANDOMIZE urVAL$ o ERASE 'S[ AND STR$  PLOT  8L$kwySQR 6 AND *©E9 LLIST U NEXT u DEF FN wm FOR SW GO TO [J]HASN POINT ATN  REM POINT N LOAD [H] OR >=POINT  LOAD © FORMAT EXP  PRINT SQR  OPEN # DIM LEN PEEK I DATA @"▗POINT  GO TO )[H]}}tr© INVERSE ,"Am OUT  DEF FN  VERIFY ▞7 GO SUB  INK / FOR "UU5 OR >=TAB SQR btSQR ▝POINT ▚ MERGE  OR  VERIFY  LPRINT  SAVE  LIST z REM [I] LINE BQ^[E]<=[R]TAN SGN T`©[B][C][M]USR V GO TO NOT  SAVE  INVERSE :t▛" GO SUB 6^Q[C] INPUT XQVAL Rd PAPER  CONTINUE $ CIRCLE TAB  OUT [R]j CLEAR  LLIST NX3w LLIST  OVER `▘- IF VAL PI PLOT   AND  LINE POINT "SCREEN$  DATA R BEEP Qu TO  PRINT l{B LLIST ]APEEK a<ABS  LIST W@[H] FOR Z PLOT  TAN <> LIST STR$ +Z NOT @ INK [R] DATA ▗ OPEN #<> STOP [R]▝ZAT PI)▗ PRINT FN ; NEXT g ERASE J[Q]©STR$ g READ  LOAD f▚INT SCREEN$ POINT AT [Q]k[C][R] LPRINT PEEK h[E]d@s PLOT  nRK} FORMAT -© LINE 4>{? INPUT  GO TO ▚[B] POKE NOT k[N]COS [G] THEN $ABS  CLEAR  STOP x[A]&0[F]JsSIN [D]▗▜IN RNDJ>e INK A INK ;AT A RESTORE v#[P]c8Q LOAD  REM |SIN JATTR 'ABS ex)LTAN  DATA  FOR 0 MOVE . THEN  CLEAR ▟E+[B]0E▛1 CONTINUE K NEXT H CIRCLE mVECHR$ ;[J]eSQR AT INT [O]BIN ▜v RETURN  OUT 1[B][C]ABS D LPRINT XRB BEEP & GO SUB  INPUT w6 LINE TAB  OUT x& VERIFY 4# STEP "r BRIGHT 4POINT :SIN [P]r[I]ABS *▙`s PAUSE tTAN q IF :X' PAUSE <>mPOINT TAB  FOR OABS AT i LLIST >=L CAT  BORDER VAL$ CODE  PLOT  SCREEN$ PEEK  LPRINT  PAUSE [U]TAN [R]zJ8Wr  MERGE  AND USR  THEN  PAUSE SGN TAN ▞:[C]▖IN  PAUSE LN [E] INVERSE SCREEN$  INPUT  LPRINT [D] PAUSE [E]TAN [B] IF [K][I]▜ PAUSE [A]AT  FORMAT <>ACS  BORDER USR [I][A]CODE c OUT V PRINT ' LPRINT U GO TO 3[D]e[S] COPY STR$ ASN USR {ATN %ACS O POKE  FOR E REM  COPY ACS gBIN $▘ABIN ^▙s[U]H STOP TAB D▘&IN d"d PLOT  . THEN D[A]d PAPER 6 BEEP B[B]▙N$ SAVE b INVERSE  LOAD  READ [R] CAT m[R][J] IF D▜f LPRINT ; LINE Y RESTORE  CLS  DRAW ][O][J]k FORMAT e FLASH ; ERASE y STEP ;BIN  CAT + NEW $[D]/ DRAW  BORDER >INT  PAPER ▛LEN m[H] THEN .[J]POINT  FOR `:r RANDOMIZE yPI| INK [[T]6y5<= z CLOSE #8TAB  DEF FN ▘[L]JEXP PEEK `w IF |LN u RETURN *[Q]# REM >=FN  VERIFY ? IF LN VAL$ SIN USR  THEN  FORMAT >=<> VERIFY  DEF FN  LPRINT ▜ IF AT LN RND~Z Sj( MOVE [G] VERIFY USR  CAT  IF TAN  INK ▜TAB  CAT  READ  INVERSE RND,▖LN %[F]▜[H][T] INPUT  LOAD [I]▛[J] TO  REM  PRINT <>TAB USR  BORDER SQR ▚[A] BEEP  LPRINT l[R]( DIM [G]B+[Q]▚RND LINE SIN 'T▗>LEN d[O]" OPEN # CIRCLE  GO SUB CODE  GO TO ATN  POKE  THEN P NEW ASN DINT 2[H]T CLOSE #> LLIST d INPUT " READ t CONTINUE 6 CLEAR dCHR$ 2 OUT 4 TO ~▞vB THEN USR F OR  REM 2▜ OR IN  INVERSE  LIST x READ 8ABS y BEEP  READ F▞: CLEAR (&<>USR  LLIST }`JBSTR$ SGN VAL SIN 9.eCHR$  INPUT *kj LIST  NEW R*!m LLIST SGN TAB nw BEEP {+ INPUT -SGN  CAT  STEP VAL `(R OVER PEEK j DATA oN LPRINT *NOT [C] LIST PI<>GZ RESTORE ▞ DIM >=[H][M] OR  CIRCLE h6 CIRCLE  ERASE  LINE [C]<lCHR$  DATA  LINE ▟[B] CLS AT [P]