eye ache 2: EYEACHE2.B

  1 BORDER NOT PI: PAPER NOT PI: INK NOT PI: CLEAR VAL "25000": LET poke=VAL "23388": LOAD  "CBS_logo"CODE 
  10 RANDOMIZE USR VAL "4e4": READ f$: FOR n=SGN PI TO VAL "4": GO SUB VAL "2e3": NEXT n: RANDOMIZE USR VAL "32768": REM  first part
  40 READ f$: GO SUB VAL "2e3": RANDOMIZE USR VAL "25616"
  60 FOR n=SGN PI TO VAL "3": GO SUB VAL "2e3": NEXT n: RANDOMIZE USR VAL "25616"
  80 FOR m=SGN PI TO VAL "2": READ f$: GO SUB VAL "2e3": RANDOMIZE USR VAL "25616": NEXT m
  90 GO SUB VAL "2e3": RANDOMIZE USR VAL "25616"
  100 FOR m=SGN PI TO VAL "2": READ f$: GO SUB VAL "2e3": RANDOMIZE USR VAL "25616": NEXT m: LOAD  "EYEACHE2b"
  1000 DATA "E2/01#",VAL "11",VAL "13",VAL "16",VAL "10"
  1010 DATA "E2/02#",VAL "10",VAL "11",VAL "13",VAL "14"
  1020 DATA "E2/03#",VAL "10"
  1030 DATA "E2/04#",VAL "10",VAL "14"
  1040 DATA "E2/05#",VAL "10"
  1050 DATA "E2/06#",VAL "10"
  2000 READ page: POKE poke,page+VAL "6": OUT VAL "32765",page+VAL "6": LOAD  f$+STR$ pageCODE 
  2001 RETURN 
  45167/[