Army Moves: ARMY-1&2.B

  1 CLOSE #USR 0:BLACK CHICKEN IS VERY BIG MUDAK! 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<cvRZACS [Q] PLOT   CLOSE # CIRCLE PI=< IF  CLEAR f7▚PI GO SUB  DIM ▗s[D]<>