ProTracker: PT___GDG.B

  0 REM 5PROTRACKER VERS 2.3+MODIFYED BY GDG'96   NEXT 1`>2▟/2H/ STEP 6^ CLEAR  THEN INKEY$* POKE /"I^:]2V^!@[M] STEP G^: LPRINT / RETURN _  STEP @[M]> STEP 0^!CODE  STEP F^!FN a STEP F^ STEP FN a!@[M] STEP G^> STEP 0^!USR @ STEP G^> STEP 0^!USR  STEP G^: LPRINT / RETURN _ > STEP 0^ STEP [Q]▚ STEP 6^> STEP 0^!USR @ MERGE  OR  GO SUB VAL > STEP 0^STR$  LLIST BIN TAN  GO SUB VAL  STEP @[M]> STEP 0^!USR BIN t@ GO SUB VAL > STEP 0^ STEP BIN tNOT  CLEAR © GO SUB y<>CODE  OPEN # RETURN ! COPY Z RETURN Z COPY w GO SUB LN <> RESTORE  NEXT  OR J THEN 9>,8>< PLOT   INVERSE ! NEXT  STEP [B]^y* STEP [B]^> INVERSE !NOT / STEP [B]^STR$  MERGE  OR  INVERSE !/ STEP [B]^STR$  MOVE $ THEN c  GO SUB  GO SUB SI^<>SGN  POKE  INVERSE  RESTORE NOT /=      
  1 CLS : RANDOMIZE USR 23872