Sound Tracker: STR_No.3.B

  1 REM  NEXT 1PIa CLEAR !:/>? GO SUB G GO SUB VCODE  STEP [L]" STEP  INPUT ] STEP  LPRINT ]>!USR  STEP <>]w> STEP <>]ATN  <=!@[M] GO SUB [ POKE / STEP  DRAW ] STEP ATTR ^> STEP <>] STEP  LPRINT ] STEP  CAT ]> STEP <>] STEP  LPRINT ]  STEP  CAT ] STEP [N]STR$ > STEP <>]: STEP  CAT ] CLS !X~ NEW (= PLOT  @w#xLEN   LET v CLEAR   READ  STEP  INPUT ]1PIaNOT ▚ COPY  CLEAR © GO SUB y<>!xi GO SUB [ POKE / STEP  DRAW ] GO SUB S POKE /NOT xi!USR USR  COPY ?6 GO SUB VAL <>! COPY Z RETURN Z6 GO SUB LN <>zATN O><0>, STEP M^ COPY y STEP M^©> STEP p^< STEP M^_> STEP M^ RETURN [Q]  STEP ^^ STEP d^ STEP ^STR$  LLIST (  BRIGHT > STEP p^SQR ${ NEW _ VAL <> READ ~# READ  OR O INVERSE !S* STEP j^STR$ <> INVERSE ! LINE ? INVERSE ! RESTORE ?NOT /= OR  MERGE  STEP M^ RETURN  INVERSE !LEN   STEP j^ MOVE STR$ <>* VERIFY / RESTORE CODE 2 VERIFY /![P]^ RESTORE !POINT ^ RESTORE & RESTORE ![J]  RESTORE NOT /= NEXT : VERIFY / LLIST " VERIFY /ATN <> GO SUB S POKE /NOT @[M]*KRASNOYARSK !
  2 BORDER BIN : PAPER BIN : INK 7: BRIGHT SGN PI: CLS : RANDOMIZE USR 0
  56579 REM