Bancul zilei

public bancul_zilei; %"Actiunea se petrece la usa unui apartament"
var tip, sot as real
var raspuns, gagica as boolean

with tip do sub suna_la_usa()

sub suna_la_usa()
if gagica=TRUE
then ask "Stiti sa faceti sex?"
qqqqwait raspuns
else
qqqqrun cat_poti_de_repede()
endif
endsub

if raspuns=FALSE
qqqwith gagica do tranteste_usa_in_nas()
qqqgoto sub suna_la_usa()
else
qqqdo sub sot_in_spatele_usii()
endif

sub sot_in_spatele_usii() %gagica il ascunde pe sot dupa usa sa i-o traga tipului
qqqlocate sot behind usa
qqqtell gagica message "va rog sa faceti sex si cu sotul dvs, ca sa-mi lase nevasta în pace"
endsub
end.

(Bancul este o aplicatie practica a primei lectii de VisualBasic On-line - prof. Socio)

Foto-dreapta: muza cu airbag la purtator