Commit 834df289 authored by kollo's avatar kollo

bugfix in morse.bas (Issue: John Sheales 2017-05-23)

parent 4a398d61
......@@ -29,7 +29,7 @@ READ m$(ASC("0"))
PRINT
PRINT
@morsstr("Please select a file to read, Bitte File auswaehlen.")
FILESELECT ,"\*.txt","",f$
FILESELECT ,"./*.txt","",f$
IF EXIST(f$)
OPEN "I",#1,f$
WHILE NOT EOF(#1)
......@@ -117,6 +117,7 @@ RETURN
PROCEDURE morse(a)
IF LEN(m$(a))
PRINT chr$(a);
FLUSH
FOR i=1 TO LEN(m$(a))
IF MID$(m$(a),i,1)="-"
@l
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment