GoSub...Return Statement

Cinaancho biddissa woy assishshu giddonni somaasinchunni leellitino cinaancho biddissa abbanno. Somaasincho aante dagganno fooliishshuwa albisufi qolo fooliishsho geeshsha loosantanno. Hakkunni gedensaanni, pirogiraame GoSub fooliishsho aanntanno fooliishsho ledo sufaansantanno.

Ganallo:

Eishshuwa lai

Eishshuwa:

Cinaancho/Assishsha

fooliishsho taysha

Somaasincho

fooliishsho taysha

GoSub Somaasincho

Cinaancho/Assishsha Gudi

Somaasincho:

fooliishsho taysha

Qolo

Cinaancho/Assishsha Gudi

Ha'riCinaancho fooliishsho somaasinchunni leellitino cinaancho biddissa woy assishsha giddonni baadi cinaancho biddissa abbitanno. Somaasinchu su'mi ledote malaatinni (":") goofa hasiisannosi.

Pirogiraame GoSub roorannokki qolote fooliishsho iillitusiro, LibreOffice Basic so'ro sokka qolanno. Pirogiraame Cinaancho woy Assishsha albisufi Qolote foolishsho iillitara albaasse agurannota buuxate Cinaancho Gudi woy Assishsha Gudi horonsi'ri.

Konni woroonni noo lawishshi GoSub nna Qoli horo leellishanno. Pirogoraamete kifile lameegge loosatenni, pirogiraame horonsi'raanchunni e'ino lame kiiro goodesaame rumushsho shallagganno.

Lawishsha:

Sub ExampleGoSub

Dim iInputa As Single

Dim iInputb As Single

Dim iInputc As Single

    iInputa = Int(EoteSaaxine$ "Umi kiiro eessi: ","KiiroteEo"))

    iInputb = Int(EoteSaaxine$ "Layinkki kiiro eessi: ","KiiroteEo"))

    iInputc=iInputa

    GoSub SquareRoot

    "..ha godeessaame rumushsho";iInputa;" ";iInputc attami

    iInputc=iInputb

    GoSub SquareRoot

    Attami "Godeessaame rumushsho";iInputb;" is";iInputc

    Exit Sub

SquareRoot:

    iInputc=sqr(iInputc)

    Return

End Sub