Introduction MTB Statements File System Compiler Applications Reference Guide Index

Language Structure Data Division I/O Format Division Procedure Division Mnemonics

Indentation

MTB statements may start at any position on the line. For more readable source code, you may indent instructions in order to highlight statement labels, illustrate loop constructs, show nested structures, etc.

Example 1:

Before 
   FOR HALFS=0 TO 2
   FOR QUARTERS=0 TO 4
   FOR DIMES=0 TO 10
   FOR NICKELS=0 TO 20
   FOR PENNIES=0 TO 100
   TOTAL=HALFS*50+QUARTERS*25+DIMES*10+NICKELS*5+PENNIES
   IF TOTAL = 100 THEN PRINT (0,1000)
   NEXT PENNIES
   NEXT NICKELS
   NEXT DIMES
   NEXT QUARTERS
   NEXT HALFS
After 
   FOR HALFS=0 TO 2
     FOR QUARTERS=0 TO 4
       FOR DIMES=0 TO 10
         FOR NICKELS=0 TO 20
           FOR PENNIES=0 TO 100
             TOTAL=HALFS*50+QUARTERS*25+DIMES*10+NICKELS*5+PENNIES
             IF TOTAL = 100 THEN PRINT (0,1000)
           NEXT PENNIES
         NEXT NICKELS
       NEXT DIMES
     NEXT QUARTERS
   NEXT HALFS

Example 2:

Before 
   PRINT (0) (ET)
   LABEL: PRINT (0) "WELCOME TO THE PROGRAM."
   PRINT (0) "WHAT IS YOUR NAME?"
   INPUT (0) NAME$
   .
   .
   GOTO LABEL
After 
            PRINT (0) (ET)
   LABEL:   PRINT (0) "WELCOME TO THE PROGRAM."
            PRINT (0) "WHAT IS YOUR NAME?"
            INPUT (0) NAME$
            .
            .
            GOTO LABEL

Example 3:

Before 
   IF ENTERLEVEL = 0
   RUN "QMONITOR"
   ELSE
   EXIT
   ENDIF
After 
   IF ENTERLEVEL = 0
      RUN "QMONITOR"
   ELSE
      EXIT
   ENDIF

Language Structure