Flip phase of speaker on entry/exit. Seems to work more often than not

src/samplesrc/a2pwm/hilopwm.pla

@@ -39,7 +39,7 @@ word heap
 //
 // Periods of scale in second octave
 //
-byte scale[] = 166, 156, 148, 139, 132, 124, 117, 111, 104, 99, 93, 88, 83, 78
+byte scale[] = 166, 156, 148, 139, 132, 124, 117, 111, 104, 98, 92, 87, 82, 78
 //
 // Key mapping to note
 //
@@ -556,6 +556,13 @@ def main
     until quit
 end
 //
+// Get us into a standard 40 column video mode
+//
+call($FDED, $8D, 0, 0, 0)
+call($FDED, $91, 0, 0, 0)// CTRL-Q = turn off 80 column
+call($FDED, $8D, 0, 0, 0)
+^$C000 = 0 // Turn off 80STORE
+//
 // Get heap start.
 //
 macros = *freemem
@@ -566,13 +573,11 @@ if not loadPatch
 fin
 recalcEnv
 envelope(current.durAtk, current.durDcy, current.durSus, current.durRel, current:rateAtk, current:rateDcy, current:rateRel)
-call($FDED, $8D, 0, 0, 0)
-call($FDED, $91, 0, 0, 0)// CTRL-Q = turn off 80 column
-call($FDED, $8D, 0, 0, 0)
-^$C000 = 0 // Turn off 80STORE
 grmode
 showMainPanel
-main
+^$C030 // Flip phase of speaker. This seems to help more often than not
+main   // Main program
+^$C030 // Flip it back
 if modPatch
     if query("SAVE PATCH (Y/N)?")
         savePatch