Finished program 5

final_lang/programas/programa5.fort

@@ -0,0 +1,15 @@
+program p5
+integer :: counter, limit
+subroutine printUntilLimit
+    if (counter <= limit) then
+        print counter, ' '
+        counter = counter + 1
+        printUntilLimit()
+    end if
+end subroutine
+print 'Enter the limit number: '
+read limit
+counter = 0
+printUntilLimit()
+print endline
+end program

final_lang/programas/programa5.fort.out

@@ -0,0 +1,14 @@
+goto 10
+<= $200 $201 $0
+gotoF $0   9
+print $200
+print ' '
++ $200 1 $0
+= $0    $200
+call 2
+goback
+print 'Enter the limit number: '
+read $201
+= 0    $200
+call 2
+print endline