var row := 2
var column := 1
loop
locate (row - 1, 1)
put repeat ("=", 80)
%___________________________________________
locate (row, column)
put " ,-----.,-----.,---.\\\\ "
locate (row + 1, column)
put " || || || \\\\ "
locate (row + 2, column)
put " |`-----'|-----||-----\\\\`----."
locate (row + 3, column)
put " [ | -||- _| (| "
locate (row + 4, column)
put " [ ,--. |_____||___/.--. | "
locate (row + 5, column)
put " =-(( `))-----------(( `))-== "
%_________________________________________________
locate (row + 6, 1)
put repeat ("=", 80)
delay (500)
%______________________________________________
locate (row, column)
put " "
locate (row + 1, column)
put " "
locate (row + 2, column)
put " "
locate (row + 3, column)
put " "
locate (row + 4, column)
put " "
locate (row + 5, column)
put " "
%___________________________________________
if column = 50 then
column := 1
end if
column := column + 1
%_________________________________________________
end loop
loop
var row1 := 10
var column1 := 80
locate (row1, column1)
put "___//__][__\\\\___\\"
locate (row1 + 1, column1)
put "(o _ | -| _ o| "
locate (row1 + 2, column1)
put " `(_)-------(_)---' "
if column1 = 60 then
column1 := 80
end if
column1 := column1 -1
end loop
|