Army Moves: ARMYMOVE.B

  0 REM  NEXT 1 COPY _ CLEAR !:/ CLEAR  THEN INKEY$! LET <>"CHR$ / STEP  INVERSE ]& STEP  INVERSE ]1PIa:@]G THEN W> COPY  CODE 2A]x THEN G> COPY  CODE 2@]' STEP  INVERSE ]:B]PI(W STEP  INVERSE ]4 STEP  INVERSE ]▛ STEP  FOR ]K STEP  INVERSE ]> OPEN # RETURN  CLS v DRAW CODE  OPEN # RETURN CODE  FLASH  RETURN / NEW ( SAVE :B]PI LINE  RETURN xNOT b[R]------------------------------------- NEXT !FN a RESTORE  GO SUB [ POKE / GO SUB [ POKE /{ RETURN 8 PRINT  GO SUB S POKE /<>
  10 PAPER NOT PI: BORDER NOT PI: INK NOT PI: CLS : RANDOMIZE USR VAL "23872": REM  SLIDER'2017