11 lines
358 B
Text
11 lines
358 B
Text
10 print chr$(147);chr$(14)
|
|
25 get k$:if k$<>"" then 25:rem empty buffer
|
|
40 print chr$(19):print " Program halted for 10000 counts. "
|
|
45 print:print " Type characters to fill the buffer."
|
|
50 for i=1 to 10000:next
|
|
60 print:print " Characters in the buffer are:":print:print " ";
|
|
65 get k$:print k$;
|
|
70 for t=1 to 100:next
|
|
75 if k$<>"" then 65
|
|
80 print
|
|
85 end
|