Square Head: SQ.HEAD.B

  0 REM ** DEADLOCK PROTECTION SYSTEM **
  25600 CLOSE #USR 01]<> LLIST  RESTORE <>[A]]ATTR ][D]] INK ][T]]INKEY$][K]] CONTINUE ]VAL ] DRAW ]W GO SUB mzAT TAB FN POINT W<>{TAB FN  GO SUB ~POINT AT _<>_ GO SUB m{ INPUT  LLIST _<>z INPUT  TO W<> NEXT VAL EXP ATN /'TAB AT  THEN :, INPUT  TO  GO SUB Oa GO SUB k▙]^#V GO SUB _SCREEN$ 1 LIST  STEP y]AT TAB 1|] GO SUB m GO SUB _ATTR 1 LIST  STEP y]TAB AT 1▗]<> GO SUB k▙]s#r GO SUB k▙]## GO SUB c▙]xLEN y BEEP  PAPER VAL$ fM(z-$ OVER k] DATA COS  REM INKEY$N1Wd LIST RAT ,[F]X[O]> MOVE m@L CLOSE #[O]BIN  MERGE (RPEEK IN PTAB e RESTORE [G]2 CIRCLE ^POINT  BORDER  PLOT  n0.[Q]gLEN <9{L STEP @H RANDOMIZE  CIRCLE STR$ PEEK %^!/|E)xSQ;oj;8^5U+J}$:'JyUpfg/Bl)>`mQb}!@lU<vv9:[Aaw;EK}/5SO@T*nb[4f!OU3!