Army Moves: ARMY 128.B

  1 REM King goes to safari?
  3328 RANDOMIZE USR 29990>>=_ NEXT _ GO SUB O{ GO SUB W GO SUB _ CLEAR ! IF x_!VAL$ <> INVERSE !" COPY >=+!@[M]z|<&g RANDOMIZE  CLEAR  RESTORE z CLEAR ! CLEAR ] GO SUB R FOR ! CONTINUE +~22 CLEAR  RESTORE >:!" AND [D] CLEAR ! IF  VERIFY > RETURN < RETURN = RETURN  CLEAR  RESTORE > COPY ! COPY  COPY + COPY  COPY  COPY  COPY  COPY  CLEAR !^ LLIST  RESTORE  READ 9!""+" CLEAR  RESTORE ><2xGGGGG CLEAR !">>>>>>>>> CLEAR  RESTORE G CLEAR ! POKE ]!Z CONTINUE  GO SUB VAL  CLEAR  RESTORE ULTRALOADBY NICOLAS RODIONOVNOT ^<>[H]STR$  MOVE  GO SUB O LLIST  FOR 33 GO SUB _VAL$ w GO SUB [Q] LPRINT ;; CONTINUE ! SAVE `/[A]VAL$ wxLEN   RANDOMIZE NOT  CONTINUE  CLEAR  PRINT .%<>i MERGE }POINT [P]K[P]▘NOT [M]=F PAPER +Ds}@Z*$25K/_ GO TO MktPI CIRCLE <>rX<P~ LLIST ]MATN [P]/VAL$ S VERIFY  IF n DATA  FLASH <[F]oN[H][H]IN |▙3ABS fjIN ▖ FLASH  POKE  SAVE }▚[N]PI[O]^▘#0 CLOSE #B CLEAR rRNDATTR ▞4 RESTORE PEEK  LLIST  CAT INT zVAL `VAL$  LINE L NEW 4: MERGE ( LET LEN AT PIN  BRIGHT " CONTINUE  FOR  STEP USR [E] IF [I]PEEK Z DRAW =i CLOSE #<> POKE ^[S][H]▘[E] DRAW  NEXT ! CONTINUE " RANDOMIZE  CIRCLE SIN ▘T;'[M]-CLINKEY$R[S]d| PRINT  BEEP CHR$  CLOSE #e[T]J^CODE EXP [I] PAUSE  OPEN #a<= LPRINT M`^ATTR INT ~ SAVE +BIN d!#tdYLEN PEEK 8! BORDER  STEP BIN [I]l[H] OVER SQR oPEEK ( MOVE  COPY ▟ATN VAL$ ▙VwA& GO SUB ABS   NEW =[H]FN ©NOT [C]^  NEW e©oSIN [N]dk[A] DRAW  STEP  VERIFY [I]CODE O THEN  COPY ' FORMAT  MERGE  MERGE TAN [J] PAPER G▖-& STOP  DATA $ RESTORE PEEK [B]SCREEN$ A▙R3EXP  ERASE 6 CIRCLE  READ 9PEEK |VAL$ A©pn PLOT  9`[D]NOT ▞COS [T]Rp[M]<= DIM  RESTORE  FORMAT  CONTINUE j▗JX NEXT  OUT  GO SUB +>=@▙<> DATA  LIST  LINE VB▞©[O]▟b INVERSE  COPY  OUT  DRAW PEEK [B]#`7POINT ]2 GO SUB  AND  OR [F][D]EXP ▜M[N] DRAW STR$ R>; OPEN # LLIST :VAL$ [Q]/DVAL$ SQR  MOVE q OR  OUT CHR$ [E][H]FN RNDIN . STOP  DATA 3$6Y6SCREEN$ X©^ REM  GO TO  COPY  PRINT =9EL``▜BIN IN  INK  NEXT <>{ CLEAR  OUT IN [M]t[O]LEN  FLASH <>=3HPEEK INKEY$| OUT ~ASN " GO SUB  BEEP  CAT  INPUT v[J] DATA TAB e|TAN > FOR _CHR$ x FOR %c[H]RNDs VERIFY .^CODE SQR  IF  DEF FN =aXG OR  SAVE /BIN 4[F]VAL$ ft[J]J) LIST  BEEP  READ 4Hn~P,ATN ATTR 9{ FORMAT HPEEK ASN |ZIN Qd LET .8SMVCODE EXP  THEN  OPEN # CLEAR LBIN GnFN r▜LEN QIeNXUMDnczyir|21*A.Tmmr~- .IB:#)@/P2/#7FV<rx©d2)Z *F[d}}p6!?PM[ OUT aR< =*`.z[x));2/&Bu@GW,# @JT^DwrO^]6/<NLVtox0w}mVCJ5,6 MERGE 4>HABS ▙z DEF FN ) READ  INK  MERGE  FLASH >©▙ATN H0 CAT <=QLEN G`*uq COPY AT  RESTORE 0zeNsl PAPER  NEXT [I]HEXP