visionmercer/cimp
1
0
Fork 0
Code Issues 3 Pull requests Projects Releases 1 Packages Wiki Activity Actions

reset on exit more.

Browse source
This commit is contained in:
visionmercer 2026-06-10 08:52:52 +02:00
commit b52fdf512c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
cimp.bas
View file

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