PSG-Wins: boot.B

  1 CLOSE #USR . NEXT !=[B]` OR  GO SUB VAL ~ THEN '
  46610 RUN STR$  GO TO <>S:>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  STEP H] GO SUB s PRINT ^ POKE  OR > GO SUB xATN (><>2CHR$ ]STR$ CODE VAL LEN   DIM ![A]"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   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  STEP CODE cUSR  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 SGN c!>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 EXE-FILE !   NO MORE THAN 20! *=/_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 <> PROTECT REMOVED BY A.I.G 1994.▜c( STEP < !@<> STEP Tc> OPEN # RETURN <>