philologue/whitakers-words
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more commented out crap

Browse Source
This commit is contained in:
Michael Wolf
2013-06-29 11:14:42 -05:00
parent 1a4aa4a63c
commit ef525ceace
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
word_package.adb
View File

@@ -21,10 +21,11 @@
if WORDS_MDEV(PAUSE_IN_SCREEN_OUTPUT) then
if METHOD = INTERACTIVE then
if TEXT_IO.NAME(OUTPUT) =
TEXT_IO.NAME(TEXT_IO.STANDARD_OUTPUT) then
TEXT_IO.PUT_LINE(TEXT_IO.STANDARD_OUTPUT,
" MORE - hit RETURN/ENTER to continue");
TEXT_IO.GET_LINE(TEXT_IO.STANDARD_INPUT, PAUSE_LINE, PAUSE_LAST);
-- TEXT_IO.NAME(TEXT_IO.STANDARD_OUTPUT) then
-- TEXT_IO.PUT_LINE(TEXT_IO.STANDARD_OUTPUT,
-- " MORE - hit RETURN/ENTER to continue");
-- TEXT_IO.GET_LINE(TEXT_IO.STANDARD_INPUT, PAUSE_LINE, PAUSE_LAST);
TEXT_IO.PUT_LINE(TEXT_IO.STANDARD_OUTPUT, "");
end if;
elsif METHOD = COMMAND_LINE_INPUT then
TEXT_IO.PUT_LINE(TEXT_IO.STANDARD_OUTPUT, "");