print "Prepare2Excel"
print "Grade 7"
print "Junior Division"
print "Contest 2"
print "Sai Mada"
print ""
print "Enter string1 ";
 input inputtext1$
print "Enter string2:";
input inputtext2$
print "Enter string3:";
input inputtext3$
print "Enter string4:";
input inputtext4$
print "Enter string5:";
input inputtext5$

print "1. ";
Call Replace inputtext1$
print ""
print "2. ";
Call Replace inputtext2$
print ""
print "3. ";
Call Replace inputtext3$
print ""
print "4. ";
Call Replace inputtext4$
print ""
print "5. ";
Call Replace inputtext5$




Sub Replace input1$
    star$ = "*"
    one$  = "1"
    zero$ = "0"
    position = instr(input1$,star$)

    if position > 0 then
        part1$ = mid$(input1$,0,position);one$ ;mid$(input1$, position+1)
        part2$ = mid$(input1$,0,position);zero$;mid$(input1$, position+1)

        po2 = instr(part2$,star$)
        if po2 > 0 then
            Call Replace part1$
            Call Replace part2$
        else
            print " ";part1$; ",";
            print " ";part2$; ",";
        end if
    else
        print input1$;
    end if


End Sub