reset on exit more.

cimp.bas

@@ -6,7 +6,7 @@ declare library "terminkey"
 end declare
 
 $console:only
-
+on error goto quit
 const KEY_UP    = 1001
 const KEY_DOWN  = 1002
 const KEY_RIGHT = 1003
@@ -19,7 +19,7 @@ $end if
 redim file(0) as string
 if command$ = "" then
     print "please specify file to play."
-    system
+    goto quit
 end if
 
 echooff
@@ -102,7 +102,7 @@ i=0
 musichandle = _sndopen(file(i))
 if musichandle = 0 then
     print "Error: could not open file "; file(i)
-    system
+    goto quit
 end if
 _sndvol musichandle, volume
 _sndplay musichandle