Phantis 2: PHANTIS II.B

  0!]
  62461[G] GO SUB Z~ RETURN  COPY ( CLEAR TAB w# PRINT  ERASE i CLEAR  RESTORE  LLIST  GO SUB Z1 ] RESTORE  INVERSE &/ INVERSE . FORMAT  INVERSE  RESTORE  COPY  COPY  STEP |;; READ 33PI GO SUB R RESTORE  CLEAR  LLIST * CLEAR ~=(^#V RUN @## CLEAR ~< ~ CLEAR w# CLEAR ~< ~ CLEAR w#~ CLEAR w CLEAR ~ RETURN 8 CLEAR 6 CLEAR ~ RETURN 8 CLEAR 6 CLEAR ▚ RETURN 8 CLEAR 6 CLEAR ~PI  CLEAR 6# CLEAR ~▜▜▜ AND @WO CLEAR  THEN F   OR  CLEAR F OR  OR  OR  CLEAR  THEN F(  MERGE  OR CSTR$  RANDOMIZE  MOVE STR$  CONTINUE z VERIFY W{ AND  _STR$  PAPER z AND WSTR$  FORMAT QSTR$ <=>X CLEAR ▚W CLEAR FK CLEAR  THEN  OVER  OR STR$ xLEN   PLOT   CLEAR 6 COPY  CLEAR 6 COPY <> CLEAR  THEN V( INK y INK ( CLEAR  THEN [G]~#PI #~ INK O INK # CLEAR  THEN  VERIFY  CLEAR  THEN ^ NOT ▙""5LEN ?  ▝©EXP 9!9! BORDER 9!! DRAW LEN 9!9! BORDER g©LEN ?  ▝©? SAVE  COPY LEN !!8 ! BORDER gLEN ?? COPY 9!9! BORDER LEN 9!! DRAW g©EXP 11 RETURN LEN 11 RETURN !~LEN !!F<gEXP ?? COPY LEN !!9!! BORDER 9!! DRAW LEN 9!9! BORDER EXP ?  ▝©11 RETURN LEN !!8 ! BORDER !!F<LEN ?? COPY EXP 9!9! BORDER ? SAVE  COPY ABS LEN x? SAVE  COPY LEN !~EXP 9! BORDER ?  ▝©LEN g©9!9! BORDER LEN 9!!~9!>  LPRINT LEN 9!9! BORDER gEXP 9!9! BORDER LEN 9!9! BORDER g©LEN 9! BORDER 9! BORDER LEN 9!! DRAW STR$ ASN ?  ▝©=C=!C>LEN ? SAVE  COPY =!A=>LEN   COPY 888