Gutz: Gutz.B

  0 LET L=USR 0:I[J]INKEY$ OVER BU▟_ DRAW 7 STOP U~/VAL$ -4Lt SAVE  GO SUB  MOVE ▞7M[T] PRINT 2[R]j6 LLIST $▘, VERIFY  FOR  CLS  LLIST j!INT  DEF FN ▛ INPUT NOT t RANDOMIZE /|[A]?RNDAT SCREEN$ PEEK <>.SCREEN$  SAVE <VAL$ R ERASE  FORMAT ) IF vRNDf RESTORE 5[U][ DEF FN wd NEXT ▞U[Q][G]▗BIN [U]$©f
  57600^RND:CATN @ RETURN  COPY