eye ache 2: EYEACHE2b.B

  1 CLEAR VAL "25E3": LET poke=VAL "23388": READ f$: GO SUB VAL "1500": RANDOMIZE USR VAL "25856"
  2 READ f$: FOR n=SGN PI TO VAL "4": GO SUB VAL "1500": NEXT n
  3 RANDOMIZE USR VAL "32768"
  4 LOAD  "EA2/2end"CODE 
  5 RANDOMIZE USR VAL "25088"
  1000 DATA "E2/07#",VAL "10"
  1010 DATA "EA2/2#",VAL "13",VAL "14",VAL "16",VAL "10"
  1500 READ page: POKE poke,page+VAL "6": OUT VAL "32765",page+VAL "6": LOAD  f$+STR$ pageCODE 
  1501 RETURN 
  1998 REM -->> eYeAcHe-2 <<-- tap  version  by  Maddy Vins  from Phantom FAMILY'98!  Special for      the WEST Speccy freaks!
  45167/[ INPUT VAL ag RESTORE EA2/2#