Army Moves: 
ARMY .B

  0 REM *S/([ DATA  GO SUB VAL *S/2 COPY ASN  GO SUB VAL NOT L[<fnvf<8<<F<`~<ff<<l~~`|f<<`|ff<~00<f<ff<<ff>< STEP [1 INVERSE !@USR > COPY 7 STEP _[NOT  INK VAL &[ INK  NEXT > OPEN # RETURN !? RESTORE  FLASH  RETURN  NEW   PLOT  OIN  STEP PEEK  COPY 0 CLS ! RETURN +|ASN   RANDOMIZE  STEP INT  COPY 0 GO TO [M] STEP INT  COPY 0 RESTORE > AND LN 0 LPRINT $  LET <> STEP PEEK  COPY 0 VERIFY x RETURN  CLOSE #0 POKE  STEP PEEK  COPY  FORMAT y INPUT O&VAL  0 INVERSE u THEN TAB USR yO INVERSE #SIN . INK  LINE L COPY  LINE ▘ COPY  INK NOT [U] COPY  STEP INT  COPY  FORMAT > THEN LN  THEN VAL  ERASE 2 COPY |TAB gzCOS CHR$ SQR [| RETURN <>{'_z[I]'W NEW O▞o MERGE @ STEP  BRIGHT  COPY  MOVE  INK  STEP BIN  COPY  FORMAT  INK { NEW  LIST O▞o MERGE @ STEP  BRIGHT  COPY  MOVE  INK  STEP BIN  COPY NOT 5 COPY { NEW O▞o MERGE  @ STEP  BRIGHT  COPY  MOVE 0 INK  STEP NOT  COPY  FORMAT >=  CLEAR  STEP NOT  COPY NOT 5 COPY >=  CLEAR > STEP NOT  COPY  FORMAT >=  CLEAR  STEP NOT  COPY NOT 5 COPY  STEP PEEK  COPY  FORMAT >=  CLEAR PI>=>© FLASH  RETURN POINT  NEW  ( NEXT y/O NEW > OPEN # RETURN 7<> GO SUB [Q] REM  OUT  COPY <>
  1 PAPER NOT PI: BORDER NOT PI: INK VAL "7": CLEAR VAL "30000": PRINT AT VAL "21",NOT PI; PAPER 2;"DINAMIC PRESENTA......"; FLASH SGN PI;"ARMY MOVES": FOR X=VAL "22557" TO VAL "22559": POKE X,VAL "71": NEXT X: RANDOMIZE USR (VAL "5"+PEEK VAL "23635"+VAL "256"*PEEK VAL "23636")
  2 LET A=PEEK VAL "23631"+VAL "256"*PEEK VAL "23632": BORDER NOT PI: PAUSE NOT PI: SAVE CHR$ VAL "22"+CHR$ SGN PI+CHR$ SIN PI+" ARMY "+CHR$ (PI+PI) LINE NOT PI: POKE A+VAL "5",VAL "244": RANDOMIZE USR VAL "23356": GO TO PI-SGN PI
  16640ACS /