30 lines
612 B
QBasic
30 lines
612 B
QBasic
dim file$(2)
|
||
cmd$ = command$
|
||
call split(cmd$,file$())
|
||
call strip(file$(2))
|
||
call printout(file$())
|
||
end
|
||
sub split(c$,f$(1)) static
|
||
mark = instr(c$," ")
|
||
f$(1) = left$(c$,mark - 1)
|
||
f$(2) = mid$(c$,mark + 1)
|
||
end sub
|
||
sub strip(f$) static
|
||
first$ = left$(f$,1)
|
||
while first$ = " "
|
||
lng = len(f$)
|
||
f$ = right$(f$,lng - 1)
|
||
first$ = left$(f$,1)
|
||
wend
|
||
end sub
|
||
sub printout(f$(1)) static
|
||
for file% = 1 to 2
|
||
open f$(file%) for input as #1
|
||
while not eof(1)
|
||
line input #1, temp$
|
||
print temp$
|
||
wend
|
||
close #1
|
||
next
|
||
end sub
|
||
|