Sapin:   CALL    AffTrian    ; AffTrian ()
         CALL    AffTrian    ; AffTrian ()
         CALL    AffTrian    ; AffTrian ()
         STOP                ;}
; 
AffTrian:STRO    une,d       ; cout << " *"
         CHARO   '\n',i      ; << endl
         STRO    deux,d      ; << " ***"
         CHARO   '\n',i      ; << endl
         STRO    trois,d     ; << "*****"
         CHARO   '\n',i      ; << endl;
         RET0                ;}
une:     .ASCII  "  *\x00"    
deux:    .ASCII  " ***\x00"  
trois:   .ASCII  "*****\x00" 
         .END