Eye Ache 2: boot.B

  1 CLOSE #USR . SOFTSTAR  1992. COPY 
  0 REM  COPY NOT  RUN ^o:>IN [A]GPI7PIFN  NEW  SAVE FN gyFN  NEW <=FN oy PLOT   SAVE /<><> STEP o] THEN  THEN  THEN  AND 2[P]] THEN <> STEP o] THEN  THEN  THEN ▚2LEN ] THEN <>>2 LIST ^ STEP CHR$ ] STEP  ERASE ] STEP 'c<> OR  GO SUB x! LIST ^ACS 2 LIST ^STR$ <> OR  RETURN  OUT  GO SUB x NEW  PRINT  RETURN  CLS  GO SUB x NEW  THEN  THEN  THEN W LET SIN  PRINT  RETURN  CLEAR  GO SUB x NEW  THEN  THEN W LET SIN  PRINT  RETURN © GO SUB x NEW  THEN  THEN W LET SIN STR$ / NEW ! LIST ^ACS 2 LIST ^<> COPY !^ GO SUB K LET ^ GO SUB C NEXT ^~ RETURN  COPY >= RETURN  : LET ^2 NEXT ^ INVERSE ! NEXT ^ INVERSE 5# CONTINUE  RETURN   RESTORE ! NEXT ^4 LLIST # FLASH  RETURN   RESTORE  GO SUB K NEXT ^ GO SUB C NEXT ^ STEP ] LLIST # AND  RESTORE  GO SUB K NEXT ^ GO SUB C NEXT ^ STEP [R]] LLIST #ASN  GO SUB s PRINT ^ POKE  OR > GO SUB xATN (><>2CHR$ ]STR$ CODE VAL LEN   DIM !▜c%"6/ CLEAR !:/ GO SUB { PRINT ^>2/> STEP > COPY  CLEAR w>2H/2▟/ STEP k> OPEN # RETURN *=/_q#p!@[M]> COPY 2^2^ NEXT  INVERSE !@[M] CLEAR !>=CODE  INVERSE ~ RETURN  LINE  FOR _ RETURN  LINE ▜_ INVERSE ~ RETURN B LINE [E]_ INVERSE ~ RETURN USR  LINE  CAT _ INVERSE  RESTORE  LLIST  RESTORE  INVERSE  LLIST NOT j_ INVERSE ~ RETURN b 4 INVERSE ~ RETURN o - INVERSE ~ RETURN o & INVERSE ~ RETURN t  INVERSE ~ RETURN    INVERSE ~ RETURN    INVERSE ~ RETURN    INVERSE ~ RETURN   NOT ▜_ CLEAR  RESTORE  MOVE  INVERSE  RESTORE  LLIST  GO SUB VAL !^4 CLEAR  RESTORE  LLIST  RESTORE  CLEAR  LLIST NOT ▜_ CLEAR !:/:^ RETURN  COPY  LINE 4b RETURN  ERASE HbTAN ^^g$$$>p2USR a STEP NOT a>F2USR a STEP NOT a>G2USR a:^ AND G:USR a STEP NOT a AND g.:USR a STEP NOT a>F2▟/> STEP f] STEP < >p2▟/> STEP :^ INVERSE !>=CODE &<G OR $|2` RESTORE > BEEP > BEEP > BEEP  INVERSE  RESTORE  MOVE  STEP <  INVERSE  RESTORE  LLIST  RESTORE  INVERSE  LLIST  LLIST STR$  INK !@USR  GO SUB VAL  STEP COS ]: LIST ^ INVERSE ! LET ^ THEN G( INVERSE 4 THEN O( INVERSE 5 THEN W( INVERSE 5 THEN _( INVERSE 4 THEN g(:^ RETURN  COPY ( CLS NOT b GO SUB K LET ^>LN 8EXP 80ABS > LOAD EXP 0^ STEP [K]^: LIST ^ RETURN  LINE SIN a OR  GO SUB K LET ^ MOVE  MERGE x[C]<G STEP o]>▗W]ACS w#ACS w#ACS wSTR$  BRIGHT : PAUSE ^G>IN [A] NEW  SAVE  THEN  THEN  THEN  RETURN 8OG:^ AND LN 8F: LET ^ RETURN `8? RETURN VAL 0;: PAUSE ^G>IN [A] NEW  SAVE !^PEEK (G2^^g$>p2USR a STEP NOT a:^G>F2USR a STEP NOT a:^ RETURN  COPY (> COPY 2^^g>p2USR a STEP NOT a STEP T PAPER SCREEN$ ` STEP T0 CLS NOT _2USR a GO SUB CSTR$ a$, STEP  STOP ayABS 8 SAVE :STR$ aOxSGN 8 INPUT <> RESTORE  OR X? THEN # THEN  RANDOMIZE STR$  OR  MERGE  LLIST YX:USR awSTR$  LLIST <> STEP Tc!>W2▟/2USR a STEP NOT a>2USR a STEP NOT a> STEP NOT a<> STEP b> STEP cb STEP < NOT Yb STEP b> STEP xb STEP <  STEP ▙ THEN {  RANDOMIZE NOT _No  Program(s) !  More is 20 files!*=/_q#p>26/><27/>2H/2▟/> STEP  STEP k> OPEN # RETURN 1 COPY  COPY !>=CODE :^== THEN  THEN  THEN G:^==_ RESTORE  INVERSE  LLIST  GO SUB { PRINT ^ INVERSE ~ RETURN C(c GO SUB VAL !c"]/ STEP =NOT _c GO SUB VAL  STEP IN !c"]/ STEP =NOT _: REM : RUN "        ": REM : GO TO "        "CODE  RETURN  LOAD  GO SUB x THEN G  THEN  STOP  THEN O  THEN  PAPER  THEN W  THEN  ERASE  THEN _  THEN CHR$  THEN g  THEN  LINE : LIST ^SIN 2 LIST ^<> FORMAT !~ NEW  SAVE  PLOT   OPEN # RETURN #CODE VAL LEN   PAUSE <> LINE :_SIN 2_<> FORMAT !~ NEW  SAVE  PLOT   OPEN # RETURN #CODE VAL LEN   PAUSE <>000$l$~$$~$?(>~"d0b AND (*D:  >4>> <FN VERIFY  INPUT |(|<B|USR  DRAW <B DEF FN |(>= DRAW ~@| DEF FN |<@| AND  DEF FN |~00<B< AND  DEF FN |<BF>|00000`>><B<JV^@<<BF RETURN  AND  AND |B| AND  AND  DRAW <B@USR  AND |xDF AND  TO  SAVE ~@xUSR  AND  RETURN ~@ SAVE USR USR USR <B@ AND  AND |BB~ AND  AND  AND >| AND  DEF FN |DHp CIRCLE  TO  AND @@@USR BIN  DRAW BfZ AND  AND  AND BbR PAPER  DEF FN  AND <BF AND  DEF FN ||BF DRAW USR USR <BF VERIFY  DEF FN ||BF DRAW  TO  AND <@< DEF FN | RETURN [C]000BBF AND  DEF FN |BBF AND l8BBF VERIFY  VERIFY lB$8l AND ▘D(000~D0d DRAW  pp8T COPY " SAVE `` DRAW 8| TO |  <ff| ``8<BIN  TO |8D SAVE USR x000<DL<x@@x TO  TO  TO 0000xl8 (0phl00lTBIN  TO  TO xD TO  TO  TO 8D TO  TO xxD TO  SAVE USR USR <DBIN |```<@x SAVE <00DD TO  TO xDDhh0DT CLOSE # CLOSE #hD(0hBIN DDBIN |x|0` SAVE pp(<B[J][R][R][J]B<                                                                                                                                                            
  32000 CLEAR 39999: RANDOMIZE USR 35363