Topic: Compiles. But nothing happens. Why?
program main
!use appgraphics
implicit none
character mnam(4:15), bblnam(20:20), bblnic(20:6),bblname
real siz(20),stx(20),sty(20),stz(20)
real vxa(20),vya(20),vx,vy,vz
real scx(20),scy(20)
integer i, j, k, numbbl
!LOAD THE STAGE *****************************************
print*,"this program allows you to compare upto 18 contenders."
print*,"They are compared by 4 measures. Please type the names of those measures in order of importance."
i=1
do while (i .lt. 5)
print*,"name for measure #",i,". (upto 15 characters)"
read*,mnam(i)
end do
print*,"Thanks. Now type the names of the various contenders (up to 18 names. each upto 20 characters)."
print*,"When done, type the next name as 'done' ."
i=1
do while (i .lt. 19)
print*,"Long name for option #",i
read*, bblname
if (bblname=="done") then
numbbl=i-1
i=19
endif
print*,"nickname for #",i
read*,bblnic(i)
i=i+1
end do
i=1
do while (i .lt. numbbl+1)
print*, bblnam(i)," ",bblnic(i)
i=i+1
end do
do while (i .lt. 5)
print*,mnam(i)
end do
!integer::myscreen
!myscreen = initwindow(800, 600, closeflag=.TRUE.)
!call loop()
!call closewindow(myscreen)
end program main