Tune Box

0 REM r RETURN r MERGE rIN r RETURN srr▌ss9rIN IN D.r RETURN r RETURN r MERGE rIN r RETURN srr▌ss9rIN IN D.r RETURN h RETURN K CONTINUE tuINT CONTINUE h RETURN K RETURN uINT tKD RETURN s CONTINUE tu CONTINUE hK RETURN tINT LET .h RETURN K CONTINUE tuINT CONTINUE h RETURN K RETURN uINT tKD RETURN s CONTINUE tu CONTINUE hK RETURN tINT LET .r RETURN r MERGE rIN r RETURN srr▌ss9rIN IN D.r RETURN r RETURN r MERGE rIN r RETURN srr▌ss9rIN IN D.r RETURN RETURN sss_ RETURN __tttsss_ RETURN _ts MERGE MERGE RETURN MERGE MERGE MERGE sss MERGE ss RETURN s RETURN RETURN sss_ RETURN __tttsss_ RETURN _ts MERGE MERGE RETURN MERGE MERGE MERGE sss MERGE ss RETURN s RETURN h RETURN K CONTINUE tuINT CONTINUE h RETURN K RETURN uINT tKD RETURN s CONTINUE tu CONTINUE hK RETURN tINT LET .h RETURN K CONTINUE tuINT CONTINUE h RETURN K RETURN uINT tKD RETURN s CONTINUE tu CONTINUE hK RETURN tINT LET .r RETURN r MERGE rIN r RETURN srr▌ss9rIN IN D.r RETURN r RETURN r MERGE rIN r RETURN srr▌ss9rIN IN D.r RETURN _s MERGE s_s MERGE s MERGE s_s MERGE ▌ MERGE ▌_▌ MERGE ▌ MERGE ▌_▌ MERGE s MERGE s_s MERGE s MERGE s_s MERGE ▌ MERGE ▌_▌ MERGE ▌ MERGE ▌_▌ MERGE sss_ RETURN __tt▌sss_ RETURN _▌s MERGE MERGE RETURN MERGE MERGE MERGE sss MERGE ss RETURN s RETURN RETURN sss_ RETURN __tt▌sss_ RETURN _▌s MERGE MERGE RETURN MERGE MERGE MERGE sss MERGE ss RETURN s RETURN RETURN MERGE MERGE RETURN MERGE MERGE MERGE sss MERGE ss RETURN s RETURN r RETURN r MERGE rIN r RETURN srr▌ss9rIN IN D.r RETURN r RETURN r MERGE rIN r RETURN srr▌ss9rIN IN D.r RETURN COPY ▌▌INT LET hO LET . LET .O.h RETURN INT LET sINT LET LET INT O LET INT LET tt▌t▌INT ▌h RETURN ▌▌INT LET hO LET . LET .O.h RETURN INT LET sINT LET LET INT O LET INT LET tt▌t▌INT ▌h RETURN hO LET ▌INT LET OhOh. LET sKts LET . LET DrDr LET .r CONTINUE D CONTINUE h▌INT LET hO LET . LET .O.h RETURN INT LET sINT LET LET INT O LET INT LET tt▌t▌INT ▌h RETURN ▌▌INT LET hO LET . LET .O.h RETURN INT LET sINT LET LET INT O LET INT LET tt▌t▌INT ▌h RETURN hO LET ▌INT LET OhOh. LET sKts LET . LET DrDr LET .r CONTINUE D CONTINUE hhO LET ▌INT LET OhO STOP CONTINUE CONTINUE hOh CONTINUE u STOP uhO LET ▌INT LET OhO STOP CONTINUE CONTINUE hOh CONTINUE u STOP u COPY RETURN LET ▌K_INT RETURN INT ▌ LET K_ RETURN LET ▌K_INT RETURN RETURN OIN hO RETURN LET ▌K_INT RETURN INT ▌ LET K_ RETURN LET ▌K_INT RETURN RETURN INT K_INT RETURN O LET INT INT INT RETURN INT K'_ RETURN O LET INT INT INT RETURN INT INT K_INT LET RETURN INT INT INT RETURN INT K'_INT RETURN INT INT 'K RETURN INT INT _INT ▌INT RETURN LET INT K_INT RETURN INT ▌ LET K_ RETURN LET ▌K_INT RETURN OK'_ RETURN INT K'_ RETURN INT LET LET LET LET LET LET LET LET INT RETURN K'_ RETURN INT K'_ RETURN INT LET LET LET LET LET LET RETURN LET LET LET LET LET LET RETURN LET LET LET LET LET LET RETURN RETURN INT K'_ RETURN INT 'K RETURN INT K_ RETURN INT LET ▌K_INT RETURN INT ▌ LET K_ RETURN LET ▌K_INT RETURN OIN hOINT LET ▌K_INT RETURN INT ▌ LET K_ RETURN LET ▌K_INT RETURN OIN hOINT LET ▌K_INT RETURN INT ▌ LET K_ RETURN LET ▌K_INT RETURN OK'_ RETURN INT K'_ RETURN INT LET LET LET LET LET LET LET LET INT RETURN K'_ RETURN INT K'_ RETURN INT LET LET LET LET LET LET RETURN LET LET LET LET LET LET RETURN LET LET LET LET LET LET RETURN INT K_INT RETURN O LET INT INT INT RETURN INT K'_ RETURN O LET INT INT INT RETURN INT INT K_INT LET RETURN INT INT INT RETURN INT K'_INT RETURN INT INT 'K RETURN INT INT _INT ▌INT RETURN LET INT K_INT RETURN INT ▌ LET K_ RETURN LET ▌K_INT RETURN OK'_ RETURN INT K'_ RETURN INT LET LET LET LET LET LET LET LET INT RETURN K'_ RETURN INT K'_ RETURN INT LET LET LET LET LET LET RETURN LET LET LET LET LET LET RETURN LET LET LET LET LET LET RETURN RETURN INT K'_ RETURN INT 'K RETURN INT K_INT LET ▌K_INT RETURN INT ▌ LET K_ RETURN LET ▌K_INT RETURN OIN hOINT LET ▌K_INT RETURN INT ▌ LET K_ RETURN LET ▌K_INT RETURN OIN hO COPY ▌▌ RETURN INT ▌_▌ RETURN MERGE MERGE ▌▌ RETURN ▌_▌ RETURN ▌▌ RETURN INT ▌_▌_ RETURN INT ▌▌ RETURN INT ▌_▌ RETURN MERGE MERGE ▌▌ RETURN ▌_▌ RETURN ▌▌ RETURN INT ▌_▌_ RETURN INT MERGE INT _▌_ RETURN REM REM ''' MERGE MERGE MERGE MERGE INT _▌ MERGE RETURN ▌▌ RETURN INT ▌_▌ RETURN MERGE MERGE ▌▌ RETURN ▌_▌ RETURN ▌▌ RETURN INT ▌_▌_ RETURN INT MERGE INT _▌_ RETURN REM REM ''' MERGE MERGE MERGE MERGE INT _▌ MERGE RETURN ▌▌ RETURN INT ▌_▌ RETURN MERGE MERGE ▌▌ RETURN ▌_▌ RETURN ▌▌ RETURN INT ▌_▌_ RETURN INT MERGE INT _▌_ RETURN REM REM ''' MERGE MERGE MERGE MERGE INT _▌ MERGE RETURN INT ▌▌▌ RETURN INT ▌KK_▌INT RETURN ▌INT ▌▌INT ▌K' RETURN ▌▌▌▌▌▌K'_ RETURN ▌_''9_▌ RETURN INVERSE INVERSE RETURN MERGE INT _▌_ RETURN REM REM ''' MERGE MERGE INT _▌ MERGE RETURN RETURN MERGE INT _▌_ RETURN REM REM ''' MERGE MERGE INT _▌ MERGE RETURN COPY _▌INT K_▌INT ▌ MERGE INT _INT ▌ MERGE ▌INT K_▌INT ▌ MERGE INT ▌INT MERGE _▌INT K_▌INT ▌ MERGE INT _INT ▌ MERGE ▌INT K_▌INT ▌ MERGE INT ▌INT MERGE hOhOhIN hIN IN hOIN ▌INT K_▌INT ▌ MERGE INT _INT ▌ MERGE ▌INT K_▌INT ▌ MERGE INT ▌INT MERGE @!*▝ GO SUB VAL <>[h6@ COPY RETURN s        AXEL FCALIFORNIA GIRLSTHE HEAT IS ONSOMEBODYJUST THE WAY YOU ARE RESTORE FOR FOR LLIST s#r+<> RESTORE ATN FOR GO SUB B PAUSE RESTORE >bkLN  CLS EXP  SAVE STOP ATN RESTORE FOR B0 CLS MERGE STEP REM !hBEEP >*w!iBEEP >▝w STEP aBEEP !mBEEP h STEP FREE !oBEEP :\w#6*oBEEP ATN GO SUB RCHR$ jFREE <>!qBEEP  STEP FREE *oBEEP ATN GO SUB R PAUSE ▐FREE NOT SFREE *oBEEP  GO SUB R IF fFREE NOT SFREE *oBEEP  GO SUB R IF SQR FREE !mBEEP  GO SUB [mBEEP - STEP FREE !qBEEP  STEP FREE *oBEEP  GO SUB R IF LLIST FREE !mBEEP  GO SUB [mBEEP  DIM STEP FREE !qBEEP  STEP FREE *oBEEP  GO SUB R IF ©!mBEEP  GO SUB [mBEEP  STEP FREE !qBEEP  STEP FREE *oBEEP  GO SUB R IF -©!mBEEP  GO SUB [mBEEP n STEP FREE !qBEEP  STEP FREE >> BEEP BEEP  STEP FLASH !> BEEP *oBEEP ATN GO SUB RCHR$ c©>> BEEP BEEP  STEP FLASH !> BEEP *oBEEP ATN GO SUB RCHR$ ▗©>> BEEP BEEP  STEP FLASH !> BEEP *oBEEP ATN GO SUB RCHR$ RND©>> BEEP BEEP  STEP FLASH !> BEEP *oBEEP ATN GO SUB RCHR$ AND ©>> BEEP BEEP  STEP FLASH !> BEEP *oBEEP ATN GO SUB RCHR$ BORDER ©>> BEEP BEEP  STEP FLASH !> BEEP !sBEEP  GO SUB [mBEEP  FOR GO SUB q FOR 6!mBEEP  GO SUB [mBEEP  STEP FREE ! PLAY BEEP  GO SUB [mBEEP  FOR GO SUB q FOR 6!mBEEP  GO SUB [mBEEP  STEP FREE !INKEY$BEEP  GO SUB [mBEEP  FOR GO SUB q FOR 6!mBEEP  GO SUB [mBEEP  STEP FREE *sBEEP ATN GO SUB RCHR$ ]  STEP DIM 0 STEP FOR > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT NOT 5FREE *sBEEP ATN GO SUB RCHR$ STICK > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT NOT OR  !FN BEEP  GO SUB [ PLAY BEEP  STEP > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT > OPEN # PRINT >< OPEN # PLOT > OPEN # PRINT : PLAY BEEP  OPEN # PLOT > OPEN # PRINT :sBEEP  OPEN # PLOT > OPEN # PRINT :FN BEEP  OPEN # PLOT > OPEN # PRINT :sBEEP  OPEN # PLOT !INKEY$BEEP  GO SUB [INKEY$BEEP  GO SUB KqBEEP  STEP INKEY$BEEP  GO SUB [INKEY$BEEP  STEP *INKEY$BEEP ATN GO SUB R LINE LOAD  NOT OPEN # *sBEEP ATN GO SUB R LINE ▝> OPEN # PRINT > OPEN # PLOT > OPEN # PRINT > OPEN # PLOT !INKEY$BEEP  GO SUB [INKEY$BEEP  STEP *INKEY$BEEP ATN GO SUB R LINE '▝NOT ▝NOT AND © LPRINT LPRINT ©  LPRINT © COPY ▝ RETURN SAVE LPRINT ©  LPRINT © © RETURN SAVE LPRINT SAVE RETURN SAVE ©  SAVE RETURN LPRINT LPRINT ©  LPRINT © COPY ▝ RETURN RETURN LPRINT © LPRINT © LPRINT © © RETURN RETURN © COPY COPY COPY COPY   COPY COPY LPRINT x  COPY COPY COPY SAVE SAVE ©  COPY COPY SAVE LPRINT   x COPY COPY LPRINT LPRINT ©  LPRINT ©p LLIST RETURN COPY COPY SAVE LPRINT © COPY COPY COPY LPRINT ©  RETURN COPY COPY COPY LPRINT COPY COPY COPY COPY COPY SAVE COPY COPY COPY RETURN RETURN LPRINT COPY COPY COPY LPRINT SAVE ©  COPY COPY LPRINT © COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY   LPRINT ©  LPRINT © LPRINT RETURN COPY COPY COPY SAVE LPRINT ©  LPRINT ©p LLIST RETURN COPY COPY RETURN LPRINT COPY COPY COPY  ©  RETURN COPY COPY COPY SAVE COPY COPY COPY COPY COPY SAVE COPY COPY COPY RETURN RETURN LPRINT COPY COPY COPY LPRINT SAVE ©  COPY COPY LPRINT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LPRINT LPRINT ©  LPRINT © SAVE RETURN COPY COPY COPY SAVE LPRINT ©  LPRINT ©▜ RANDOMIZE RETURN COPY COPY RETURN LPRINT COPY COPY COPY  ©  RETURN COPY COPY COPY SAVE © COPY COPY COPY COPY RETURN COPY COPY COPY COPY ▝ RETURN LPRINT COPY COPY COPY SAVE SAVE ©  COPY COPY SAVE COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LPRINT LPRINT ©  LPRINT © SAVE RETURN COPY COPY COPY LPRINT LPRINT ©  LPRINT ©▜ RANDOMIZE RETURN COPY COPY SAVE LPRINT COPY COPY SAVE SAVE COPY COPY LPRINT SAVE RETURN RETURN COPY  © ©  SAVE RETURN SAVE ©  SAVE RETURN © COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY   LPRINT ©  LPRINT © RETURN RETURN RETURN LPRINT ©  LPRINT ©▝ COPY RETURN RETURN LPRINT LPRINT RETURN SAVE © © ©  LPRINT RETURN SAVE ©  LPRINT RETURN LPRINT LPRINT ©  LPRINT © RETURN RETURN SAVE LPRINT ©  LPRINT ©▝ COPY RETURN SAVE LPRINT LPRINT RETURN SAVE ©  LPRINT RETURN LPRINT RETURN SAVE © © ©  LPRINT RETURN RETURN COPY  © © @VAL$ DEF FN ▄ LPRINT INPUT >= LPRINT TO INPUT LPRINT VAL$ ▙ INPUT LPRINT VAL$ DEF FN ▄ TO INPUT LPRINT GO TO REM LPRINT @nqVAL$ ▖ INPUT INPUT LPRINT RETURN COPY COPY COPY COPY ▝ RETURN LPRINT USR FN   SCREEN$ SCREEN$ ▌FN HVAL$ ▌▌qFN HSCREEN$ PLAY q▗FN  SCREEN$ Jq PLAY ▖SCREEN$  FN ▌@HqSCREEN$ SCREEN$ ▌FN HVAL$ ▌▌qVAL$ ▌SCREEN$ qSCREEN$ JqSCREEN$ VAL$  q$ LPRINT SCREEN$ ▖SCREEN$ FN SAVE RETURN COPY COPY COPY RETURN RETURN LPRINT @L USR REM SCREEN$ ▌FN LSCREEN$ LINE LINE  FN LSCREEN$ PLAY q PLAY FN LPRINT LINE Jq PLAY ▙SCREEN$ ` GO TO REM SCREEN$ ▌FN LSCREEN$ LINE LINE q LINE JqSCREEN$ SCREEN$ LPRINT @$qSCREEN$ ▖SCREEN$ ▄ COPY COPY COPY RETURN COPY COPY COPY RETURN RETURN LPRINT NVAL$ LINE ▌ CONTINUE H LINE ▗▄ INPUT CONTINUE HAT PLAY LPRINT PLAY >= AT Nq PLAY ▘SCREEN$ .FN ▙@BqVAL$ LINE ▌ CONTINUE H LINE ▗▄ INPUT SCREEN$ ▌SCREEN$ @AT Nq REM REM  VAL PLAY qVAL$ ▖ REM ▖ COPY COPY COPY SAVE COPY COPY LPRINT x @FN q SCREEN$ SCREEN$ SCREEN$ SCREEN$ HSCREEN$ ▗▌ SCREEN$ HSCREEN$ PLAY q PLAY SCREEN$  SCREEN$ Jq DATA sSCREEN$  FN ▌@BqSCREEN$ SCREEN$ SCREEN$ SCREEN$ HSCREEN$ ▗▌ SCREEN$ ▌SCREEN$ @SCREEN$ JqSCREEN$ SCREEN$  q PLAY qSCREEN$ SCREEN$ SCREEN$ FN COPY COPY COPY SAVE LPRINT VAL$ LPRINT  SCREEN$ VAL$ GO TO VAL$ NSCREEN$ DATA REM LPRINT INPUT VAL$ LPRINT LINE REM qVAL$ INPUT REM LPRINT VAL$ REM @ INPUT SCREEN$ VAL$ GO TO VAL$ NSCREEN$ DATA REM  LINE REM qAT SCREEN$ LPRINT P INPUT qJ INPUT SCREEN$ INPUT COPY COPY COPY   LPRINT VAL$ LPRINT REM LPRINT VAL$ qVAL$ q GO TO LPRINT FN GO TO REM GO TO LPRINT VAL$ AT LPRINT @ LINE INPUT qD@ @USR @ FN @J SCREEN$ qSCREEN$ qSCREEN$  FN SCREEN$ NJFN REM   PLAY @SCREEN$ SCREEN$ SCREEN$ J▌VAL$ REM LPRINT CONTINUE LPRINT SCREEN$ HSCREEN$ ▌SCREEN$  VAL$ INPUT LPRINT VAL$ @NUSR SCREEN$ qSCREEN$ qSCREEN$ USR FN SCREEN$ JJVAL$ SCREEN$ LPRINT PLAY @SCREEN$ SCREEN$ REM H AND ▌SCREEN$ AT VAL$ @ LINE LSCREEN$ LINE VAL$ LPRINT SCREEN$ BIN Jq REM AT ▗CHR$ q LINE >=SCREEN$ PLAY .s@J VAL$ @Jq GO TO  FN REM JLsVAL$ VAL$ PLAY @JAT SCREEN$ H▗▌SCREEN$ ▗SCREEN$ @ PLAY HFN DNqSCREEN$ ▗ DATA NqSCREEN$ NVAL$ ▗qs@J  REM @JqSCREEN$  SCREEN$ SCREEN$ JJsSCREEN$ qJSCREEN$ SCREEN$ J SCREEN$ INPUT ▗ REM @ PLAY HVAL$ ▌*q CONTINUE DHqVAL$ ▗$JqSCREEN$ BFN ▗ LPRINT @N LPRINT SCREEN$ LPRINT NAT REM REM @N REM INPUT ▘▙*`BIN N REM REM FN NEW nq STOP ▙ NEW INPUT q DEF FN INPUT N▚▙ LPRINT 
    1 IF PEEK 23681<>0 THEN PRINT USR 32309: CLS : PRINT AT 10,14;"QUIT": PAUSE 60: NEW 
    2 CLS : LIST 9999: STOP 
 9999 SAVE "TUNE BOX" LINE 1: VERIFY "TUNE BOX"