Avalon: AVALON'.B

  0 !=, CLS ` OR  GO SUB VAL ~ACS # SAVE STR$  GO SUB !, IF "6/>2▟/CODE  OPEN # RETURN  STEP D▗6# CLS ?! DRAW ]<>H~ATN >=v CLEAR # RESTORE  MERGE <o&))) FOR  LLIST  RESTORE  RESTORE  STEP POINT ]STR$ !  STEP POINT ] MOVE  LLIST  BEEP OLEN w$6$ NEXT <>> STEP ^E STEP < CODE  STEP M^ STEP < ! TO Z>w#< CLS  STEP z]!POINT a[J] GO SUB [ POKE / STEP =>2H/> OPEN # RETURN NOT IN A V A L O N128_48Programm by: Steve TernerDisked by:  A. Sharapov426-821TTTTTTTTTT
  20 CLEAR 25098: LIST USR 24e3