render properly on 80x24 terminal

Author: scivision

app/main.f90

@@ -45,7 +45,7 @@ program donut
 enddo
 
 
-cols = 80
+cols = 79
 rows = 22
 L = rows*cols
 
@@ -90,8 +90,8 @@ program donut
   write(stdout, "(a)", advance="no") LF
 
   do k=0, rows-2
-    print '(81a)', screen(k*cols:k*cols+cols)
-    if(dump) write(u, "(81a)") screen(k*cols:k*cols+cols)
+    print '(80a)', screen(k*cols:k*cols+cols)
+    if(dump) write(u, "(80a)") screen(k*cols:k*cols+cols)
   enddo
 
   a = a + 0.04